Excel VBA質問箱 IV

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

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


45837 / 76735 ←次へ | 前へ→

【35883】サブルーチンについて
質問  山口  - 06/3/15(水) 13:49 -

引用なし
パスワード
   ユーザーフォームを表示し
ボタン1をクリックしたら
セルC3の値によりD3に曜日を
ボタン2をクリックしたら
セルC4の値によりD4に曜日を表示させるマクロです。
セルC3、C4にはWEEKDAY関数を使用して曜日のシリアル値(戻り値)
を出しています。

Private sub Commandbutton1_Click()
を実行しても
戻り値=range("C3").value
には戻り値に例えば「4」と値が代入されますが

Select Case 戻り値
には「4」は認識されてないみたいです。
結果的にセルD3に曜日が表示されません。
どこを修正すればよいですか
ご教示ください。


Private sub Commandbutton1_Click()
 戻り値=range("C3").value
 曜日検索
 Range("d3").value=曜日
End sub

Private sub Commandbutton2_Click()
 戻り値=range("C4").value
 曜日検索
 Range("d4").value=曜日
End sub

Sub 曜日検索()
Select Case 戻り値
 Case1
  曜日="日"
 Case2
  曜日="月"
 Case3
  曜日="火"
 Case4
  曜日="水"
 Case5
  曜日="木"
 Case6
  曜日="金"
 Case7
  曜日="土"
 End Select
End sub

0 hits

【35883】サブルーチンについて 山口 06/3/15(水) 13:49 質問
【35885】Re:サブルーチンについて Blue 06/3/15(水) 14:00 回答
【35886】Re:サブルーチンについて 小僧 06/3/15(水) 14:11 発言
【35890】Re:サブルーチンについて 山口 06/3/15(水) 15:23 質問
【35891】Re:サブルーチンについて Blue 06/3/15(水) 15:28 回答
【35892】Re:サブルーチンについて Blue 06/3/15(水) 15:36 発言
【35900】Re:サブルーチンについて 山口 06/3/15(水) 17:06 お礼

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