Excel VBA質問箱 IV

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

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


45828 / 76735 ←次へ | 前へ→

【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

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 お礼

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