Excel VBA質問箱 IV

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

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


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

45825 / 76732

←次へ　｜　前へ→


	【35892】Re:サブルーチンについて

Blue - 06/3/15(水) 15:36 -


	引用なし

	パスワード

ちなみに、最初の返信で
> それと、全体的に変数宣言をしたほうが良いと思いますよ。
をしたと思いますが、最初のコードに全て変数宣言を入れてみると
なんで最初のコードがダメなのかわかりやすいです。

Private　sub　Commandbutton1_Click()
　Dim 戻り値 As Integer
　Dim 曜日　 As String

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

Private　sub　Commandbutton2_Click()
　Dim 戻り値 As Integer
　Dim 曜日　 As String

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

Sub 曜日検索()
　 Dim 戻り値 As Integer
　 Dim 曜日　 As String

　 Select Case 戻り値
　 Case 1
　　曜日= "日"
　 Case 2
　　曜日= "月"
　 Case 3
　　曜日= "火"
　 Case 4
　　曜日= "水"
　 Case 5
　　曜日= "木"
　 Case 6
　　曜日= "金"
　 Case 7
　　曜日= "土"
　 End Select
End Sub

変数宣言をすると、その変数はそのスコープでしか有効になりません。
(Commandbutton1_Clickなら、その中でしか使えないし、他のところから値を参照することもできない)

参考)
http://mccoy.jp/chie/zaitaku/excel/vba/vba4_1.html

1 hits

▼

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