Excel VBA質問箱 IV

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

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


21352 / 76732 ←次へ | 前へ→

【60781】[無題]
質問  新参者  - 09/3/14(土) 3:47 -

引用なし
パスワード
   For文の中に更にFor文をいれ、ある列にその列の一つ左の列と更に左の列の演算式を作りました。
1度目(繰り返し回数)の列はうまくいくのですが、2度目の列は参照場所がおかしいです。

少し省略しておりますが、具体的に申し上げますと、
D列にC列/1000+B列という演算式を入れました。
65536行も還すようにしています。
またD列から右へ4列目も同じように演算式が入るようにしました。

しかしH列(D列から4列目)はG列、F列もみず、変な列を参照してしまいます。

理由が分かりませんので対処のしようがないです。

誰かお力をお貸し頂けないでしょうか。

よろしくお願い致します。

<省略>

'------------------------------あまり関係ない
u = 2
If u <= t * 4 Then

For w = u To 4 * t

 If sh1.Cells(3, u).Value = "" Then
  
   Exit For

sh1.Select
Cells.Clear
  
 End If

x = sh1.Cells(65536, u).End(xlUp).Row
sh2.Cells(18, 8).Value = x

If sh1.Cells(3, u).Value <> "" Then
sh1.Cells(2, u + 2).Value = "あ"
End If

For o = 3 To x

sh1.Cells(o, u + 2).FormulaR1C1 = "=RC[-1]/1000+RC[-2]" ← ここの構文


Next o

u = u + 4

Next w

0 hits

【60781】[無題] 新参者 09/3/14(土) 3:47 質問
【60782】Re:[無題] 横入り 09/3/14(土) 7:35 発言
【60807】Re:[無題] 新参者2 09/3/16(月) 14:42 発言
【60808】Re:[無題] kanabun 09/3/16(月) 16:36 発言
【60809】Re:[無題] 新参者3 09/3/16(月) 17:34 発言
【60811】Re:[無題] kanabun 09/3/16(月) 17:49 発言
【60813】Re:[無題] 新参者4 09/3/16(月) 18:04 発言
【60821】Re:[無題] 新参者5 09/3/17(火) 0:48 質問
【60825】Re:[無題] kanabun 09/3/17(火) 9:43 発言
【60829】Re:[無題] 新参者4 09/3/17(火) 13:47 お礼
【60830】Re:[無題] 新参者6 09/3/17(火) 14:08 発言
【60831】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 14:24 発言
【60832】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 15:00 発言
【60843】Re:全体の流れを確認しましょう 新参 09/3/17(火) 17:48 回答
【60844】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 18:17 発言
【60810】Re:[無題] 新参者3 09/3/16(月) 17:39 発言

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