●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えてスレ Part2● at TECH

304:デフォルトの名無しさん
07/02/18 13:19:21
>>299
100行まで？

Sub moge()
　　Dim i As Integer
　　For i = 3 To 100 Step 3
　　　　If Cells(i, 2).Value = "" Then
　　　　　　MsgBox "B" & i & "は空白ですよ。"
　　　　ElseIf Cells(i, 2).Value <> "もげ" Then
　　　　　　MsgBox "B" & i & "に「もげ」でない文字が入っています。"
　　　　End If
　　Next i
End Sub

次ページ

続きを表示

1を表示