Narita wrote: LibreOffice日本語コミュニティ 様 ====== scalc.exeで バグの症状がありました。 シート上でc1に「新」、c2に「旧」を入れて、d1セルで=If(c1>c2,0,1)とすると 0が返されます。 新>旧 ところが 次のマクロでは混乱しています。 Sub Main Dim oCell As Object Dim sString1 As String, sString2 As String oCell = ThisComponent.Sheets(0).getCellByPosition(2, 0) 'C1 sString1 = oCell.String oCell = ThisComponent.Sheets(0).getCellByPosition(2, 1) 'C2 sString2 = oCell.String If sString1 > sString2 Then MsgBox "C1=" & sString1 & ", C2=" & sString2 & ", C1>C2" Else MsgBox "C1=" & sString1 & ", C2=" & sString2 & ", C1<C2" End If '----------------------------------- If "新">"旧" Then MsgBox "新>旧" Else MsgBox "旧>新" End If End Sub
説明 上(----より上)の判定は C1<C2 下の判定は 新>旧 なのです。 http://ja.libreoffice.org/download/ LibO_3.4.5_Win_x86_install_multi.exe 191 MB LibO_3.4.5_Win_x86_helppack_ja.exe 15 MB (ja - 日本語) WindowsXP Professional Version 2002 SP3 -- Unsubscribe instructions: E-mail to [email protected] Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/ja/discuss/ All messages sent to this list will be publicly archived and cannot be deleted
