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 discuss+help@ja.libreoffice.org
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
Context
- [ja-discuss] 20120123_bug_report · Mitsuo.Narita
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.