[[20130521114251]]　『マクロで』（みかん）　ページの最後に飛ぶ

『マクロで』（みかん）

 マクロを実行するのに、C2,E2,F2,G2のセルが
 どれか1つでも空白だとエラーメッセージ「入力してください」と出て
 すべて入力されているとMacro1が実行するようにするにはどうすればいいですか？

 こんな感じで。(ROUGE)
　
Sub Mikan()
Dim flg As Boolean
Dim rr As Range
flg = False
For Each rr In Range("C2,E2,F2,G2")
    If rr.Value = "" Then
        flg = True
        Exit For
    End If
Next
If flg Then
    MsgBox "入力してください"
Else
    Call Macro1
End If
End Sub

 こんなのでも。

 Sub Sample()
    If WorksheetFunction.CountA(Range("C2,E2,F2,G2")) < 4 Then
        MsgBox "すべてのセルに入力してください"
    Else
        Macro1
    End If
 End Sub

 (ぶらっと)

 お二人ともありがとうございました。
 無事出来ました
 また似たようなことで疑問がありますので
 新たに質問したいとおもいますので
 そちらもよろしくお願いします
 （みかん）

コメント返信：

[ 一覧(最新更新順) ]

[[20130521114251]] 『マクロで』（みかん） ページの最後に飛ぶ

[[20130521114251]]　『マクロで』（みかん）　ページの最後に飛ぶ