|
▼鐘本政和 さん:
>▼鐘本政和 さん:
>>▼こたつねこ さん:
>>>みなさんこんにちは
>>>
>>>>VBは知らないけど、VBAはちゃんと判断してくれます。
>>>>
>>>>Range("A1").Clear
>>>>MsgBox IsEmpty(Range("A1").Value)
>>>>Range("A2").Value = 0
>>>>MsgBox IsEmpty(Range("A2").Value)
>>>>
>>>VBのバージョンは何を使っていますか?
>>>VB6.0でもちゃんと判断してくれますよ
>>
>>VB.NETを使っています。IsEmptyでエラーが出たのでマイクロソフトの下記サイトをアクセスすると、<emptyconstant>は宣言されていません。Empty定数
>>はサポートされていません。代わりにNothingを使用してください。
>>とのコメントがありました。
>>
>>ms-help://MS.VCC.2003/
下記のリストでコンパイルすると、型"Range"でパブリックメソド"IsEmpty"が見つかりません、というエラーになります。
Public Readonly Propery Is Empty() As Boolean を追加しても同じでした。
Do
If IsEmpty(xlSheet.Cells(L, C).Value) Then
If C = 1 Then
Lmax = L
Exit Do
End If
Cmax = C
L = L + 1
C = 1
Else
If xlSheet.Cells(L, C).value > max Then
max = xlSheet.Cells(L, C).value
End If
C = C + 1
End If
Loop
|
|