|
分岐について教えて下さい。
下記コードを参考書片手に作成したのですが動いてくれません。
VBA初心者なのでコードが間違っているとは思うのですが
よろしくお願いします。
なお"#N/A"エラー表示ですが書き方は良いのでしょうか。
エラーのときには"カレンダーの設定を変更して下さい。" と表示したい。
Dim rc As Variant
Range("D38").Select
If Range("D38") = "#N/A" Then
rc = ktMsgBox("カレンダーの設定を変更して下さい。" _
, vbOKOnly + vbExclamation, "報告" _
, PromptColor:=vbBlack _
, BackColor:=&HFFCCCC _
, FontName:="MSゴシック" _
, FontSize:=14)
End If
rc = ktMsgBox("カレンダー設定完了庁錬ヒ鼎能フ察」" _
, vbOKOnly + vbExclamation, "完了報告" _
, PromptColor:=vbBlack _
, BackColor:=&HFFCCCC _
, FontName:="MSゴシック" _
, FontSize:=14)
If rc = vbYes Then
End If
End Sub
|
|