Excel VBA質問箱 IV

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

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


45817 / 76732 ←次へ | 前へ→

【35900】Re:サブルーチンについて
お礼  山口  - 06/3/15(水) 17:06 -

引用なし
パスワード
   ▼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プロシージャについて
色々と試して勉強していきたいと思います。
ありがとうございました。
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 お礼

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