Excel VBA質問箱 IV

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

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


3529 / 13644 ツリー ←次へ | 前へ→

【61587】繰り返しの計算について 初心者です 09/5/21(木) 11:18 質問[未読]
【61589】Re:繰り返しの計算について つん 09/5/21(木) 11:30 発言[未読]
【61595】Re:繰り返しの計算について 初心者です 09/5/21(木) 15:07 お礼[未読]
【61590】Re:繰り返しの計算について neptune 09/5/21(木) 11:31 回答[未読]
【61596】Re:繰り返しの計算について 初心者です 09/5/21(木) 15:09 お礼[未読]
【61599】Re:繰り返しの計算について つん 09/5/21(木) 15:22 発言[未読]
【61603】Re:繰り返しの計算について 初心者です 09/5/21(木) 15:58 お礼[未読]

【61587】繰り返しの計算について
質問  初心者です  - 09/5/21(木) 11:18 -

引用なし
パスワード
   過去の投稿を読みましたが理解できず質問させていただきました。

住所など文字列を含むデータを作っているのですが
空白のW列に数字が入っている、V列/B列の式を繰り返し処理するマクロを作りたいのですがうまくいきません。

Sub Loop処理()
  Dim i As Range
   i = 1
  Do While Cells(i + 2, "A").Value <> ""
    Cells(i + 2, "W").Value = Cells(i + 2, "V").Value / Cells(i + 2, "B").Value
    i = i + 1
  Loop
End Sub

変数の宣言でバグが出ます。
初歩的な質問だと思うのですが、私ではどのようにすれば解決できるのか
わからなかったのでよろしくお願いします。

【61589】Re:繰り返しの計算について
発言  つん  - 09/5/21(木) 11:30 -

引用なし
パスワード
   ▼初心者です さん
こんにちは^^


>Sub Loop処理()
>  Dim i As Range
>   i = 1
>  Do While Cells(i + 2, "A").Value <> ""
>    Cells(i + 2, "W").Value = Cells(i + 2, "V").Value / Cells(i + 2, "B").Value
>    i = i + 1
>  Loop
>End Sub
>
>変数の宣言でバグが出ます。

Dim i As Range 
これだと、Range・・・セル(セル範囲)そのものを入れるための変数の宣言です。
実際、コード内では、「数字」を代入してるので、エラーになってます。

ヘルプで「データ型概要」あたりを参考にされたらいいかと思います。
(ヘルプはイマイチわかりずらいかな・・・・)

【61590】Re:繰り返しの計算について
回答  neptune  - 09/5/21(木) 11:31 -

引用なし
パスワード
   ▼初心者です さん:

変数の型と、使い方が全くあっていません。
適当に書いても駄目です。

基礎を勉強する以外ありません。
「変数の基本」
ht tp://www6.plala.or.jp/MilkHouse/begin/contents204/contents20401.html

良くは見てませんけど、
dim i as long
で取り敢えずはいけるかも?

【61595】Re:繰り返しの計算について
お礼  初心者です  - 09/5/21(木) 15:07 -

引用なし
パスワード
   ▼つん さん:
ありがとうございます。
データ型概要ですね
手元に辞典もあるのでもう少し勉強してみます。

【61596】Re:繰り返しの計算について
お礼  初心者です  - 09/5/21(木) 15:09 -

引用なし
パスワード
   ▼neptune さん:
ありがとうございます。
入れ替えてみましたがダメでした。
リンク先に行って勉強してきます。

【61599】Re:繰り返しの計算について
発言  つん  - 09/5/21(木) 15:22 -

引用なし
パスワード
   ▼初心者です さん:
>▼neptune さん:

どもども、neptuneさんへのお返事ですが、
横から失礼します。
neptuneさん、すみません。

>入れ替えてみましたがダメでした。

Dim i as Long

でダメだったのですか?
それは、ちょっとあり得ないように思います。
私も「Long型」が正解やな〜な思ってたし・・・
何か別のところにエラーの原因があるんじゃないかな?

割り算してますが、例えば、母数が空白、あるは「ゼロ」になってるところとかないですか?
それやったらら「0で除算しました」ってエラーメッセージで教えてくれるから、ちがうかな?

【61603】Re:繰り返しの計算について
お礼  初心者です  - 09/5/21(木) 15:58 -

引用なし
パスワード
   ▼つん さん:
ありがとうございました!!
Withを消したらうまくいきました。
変数について全くわからないので、これから勉強していきたいと思います。
とても助かりました。

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