Excel VBA質問箱 IV

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

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


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

【61095】セルのループ HAM 09/4/9(木) 11:10 質問[未読]
【61097】Re:セルのループ つん 09/4/9(木) 11:46 回答[未読]
【61098】Re:セルのループ HAM 09/4/9(木) 12:09 お礼[未読]

【61095】セルのループ
質問  HAM  - 09/4/9(木) 11:10 -

引用なし
パスワード
   K25セルに
"=K29+K33+K41+K45+K49+K53"のように
4づつずらした計算式を記入したく
ただ、この追加するセルが

"=K29+K33+K41"や
"=K29+K33+K41+K45+K49"のときもあります

条件としては
必ず4ずつで
なおかつ
"=K29+K33+K45+K49"のときもあります
のように途中が飛ぶことはありません

  For LP = 1 To ループ数
    Cells(25, 11) = "=" & Cells(25, 11) & "+R[" & 4 * LP & "]C"
  Next LP
としてみたのですがうまくいきませんでした
根本的な考え方が間違っているのでしょうか
御支援お願い致します。

【61097】Re:セルのループ
回答  つん  - 09/4/9(木) 11:46 -

引用なし
パスワード
   ▼HAM さん

こんな感じではどうでしょうか?

「A」列でしましたけど^^;
'==============================================
Sub test2()

  Dim i As Long
  Dim k As Long
  Dim strSiki As String
  
  k = Application.InputBox("最終セル", , , , , , , 1)
  
  For i = 29 To k Step 4
  
    strSiki = strSiki & "A" & i & "+"
  
  Next i
  
  Cells(25, 1).Formula = "=" & Left(strSiki, Len(strSiki) - 1)

End Sub

足し込みたい最終セルを、とりあえずインプットボックスで指定して、
行番号で4つとばしにループしました。

最終セルをどう指定しはるのかわかりませんが、
この場合は、ちゃんと正当な数(4つとばしになってるか?)であるか?の対処は必要かと思います。


>K25セルに
>"=K29+K33+K41+K45+K49+K53"のように
>4づつずらした計算式を記入したく
>ただ、この追加するセルが
>
>"=K29+K33+K41"や
>"=K29+K33+K41+K45+K49"のときもあります
>
>条件としては
>必ず4ずつで
>なおかつ
>"=K29+K33+K45+K49"のときもあります
>のように途中が飛ぶことはありません
>
>  For LP = 1 To ループ数
>    Cells(25, 11) = "=" & Cells(25, 11) & "+R[" & 4 * LP & "]C"
>  Next LP
>としてみたのですがうまくいきませんでした
>根本的な考え方が間違っているのでしょうか
>御支援お願い致します。

【61098】Re:セルのループ
お礼  HAM  - 09/4/9(木) 12:09 -

引用なし
パスワード
   ▼つん さん
やりたいことが完璧にできました
ありがとうございました。

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