|
ユーザーフォームを表示し
ボタン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
|
|