Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36404 / 76807

←次へ　｜　前へ→


	【45586】分岐について

けんじ - 07/1/5(金) 2:34 -


	引用なし

	パスワード

　分岐について教えて下さい。
下記コードを参考書片手に作成したのですが動いてくれません。
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:="ＭＳゴシック" _
　　　　　　　, FontSize:=14)
End If

rc = ktMsgBox("カレンダー設定完了�庁錬ﾋ�鼎能�察｣" _
　　　　　　　, vbOKOnly + vbExclamation, "完了報告" _
　　　　　　　, PromptColor:=vbBlack _
　　　　　　　, BackColor:=&HFFCCCC _
　　　　　　　, FontName:="ＭＳゴシック" _
　　　　　　　, FontSize:=14)
　　　If rc = vbYes Then
　End If

End Sub

0 hits

▼

【45586】分岐について けんじ 07/1/5(金) 2:34

≪