Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5690 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49519】定義の仕方 たかとも 07/6/8(金) 15:59 質問[未読]
【49527】Re:定義の仕方 neptune 07/6/8(金) 17:00 回答[未読]
【49529】Re:定義の仕方 Kein 07/6/8(金) 17:11 発言[未読]
【49519】定義の仕方
質問  たかとも  - 07/6/8(金) 15:59 -
引用なし
パスワード
   簡単な定義の仕方を教えてください。
うまく説明できないかもしれませんが・・・

a = Range("A1").Offset(I, 0).Value
b = Range("A1").Offset(I, 1).Value
c = Range("A1").Offset(I, 2).Value
d = Range("A1").Offset(I, 3).Value
e = Range("A1").Offset(I, 4).Value

上記のようにあるシートのセルの中のものを取得しています。
0,1,2,3,4のところを変数にいれてpublicで定義したいのですが・・

public const intSyutoku as integer = 0
public const intSyutoku1 as integer = 1
.
.
.

今はこういう風に定義していますが、もっと簡単に
定義する方法はないでしょうか？

説明がわからなければいってください。
お願いします。
【49527】Re:定義の仕方
回答  neptune  - 07/6/8(金) 17:00 -
引用なし
パスワード
   定数の定義のことならこれは書式が決まってますから、ありません。

変数のことなら
dim lCol(6) as long
dim i as long

for i=0 to 5
　　lCol(i)=i
next i

で、lCol()に0〜5までが代入できます。
【49529】Re:定義の仕方
発言  Kein  - 07/6/8(金) 17:11 -
引用なし
パスワード
   矩形のセル範囲なら、一つの変数に一つの値を入れるのでなく
配列変数にまとめて入れてしまう方が、簡略なコードになります。

Dim Data As Variant

Data = Range("A1:E1").Value

各要素を取り出すときは

Dim i As Integer

For i = 1 To 5
　 Debug.Print Data(1, i)
Next i

などとします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5690 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free