|
▼Blue さん:
>ちなみに、最初の返信で
>> それと、全体的に変数宣言をしたほうが良いと思いますよ。
>をしたと思いますが、最初のコードに全て変数宣言を入れてみると
>なんで最初のコードがダメなのかわかりやすいです。
>
>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
Blue様
ありがとうございました。
サブルーチンについては
最近使い始めました。
後々編集が簡単になると教えてもらい、自分でもスッキリとした
コードが書けるような気がします。
Functionプロシージャについて
色々と試して勉強していきたいと思います。
ありがとうございました。
|
|