Excel VBA質問箱 IV

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

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


36329 / 76732 ←次へ | 前へ→

【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:="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
0 hits

【45586】分岐について けんじ 07/1/5(金) 2:34 質問
【45587】Re:分岐について かみちゃん 07/1/5(金) 7:25 発言
【45588】Re:分岐について けんじ 07/1/5(金) 9:31 発言
【45589】Re:分岐について けんじ 07/1/5(金) 10:05 発言
【45590】Re:分岐について りん 07/1/5(金) 12:16 回答
【45591】Re:分岐について Jaka 07/1/5(金) 12:34 発言
【45592】Re:分岐について りん 07/1/5(金) 12:41 発言
【45593】Re:分岐について けんじ 07/1/5(金) 15:23 発言
【45595】Re:分岐について Kein 07/1/5(金) 16:31 発言
【45596】Re:分岐について けんじ 07/1/5(金) 16:42 お礼

36329 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free