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