Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21041 / 76732

←次へ　｜　前へ→


	【61097】Re:セルのループ

つん - 09/4/9(木) 11:46 -


	引用なし

	パスワード

▼HAM さん

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

「Ａ」列でしましたけど＾＾；
'==============================================
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

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

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

>K25セルに
>"=K29+K33+K41+K45+K49+K53"のように
>４づつずらした計算式を記入したく
>ただ、この追加するセルが
>
>"=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
>としてみたのですがうまくいきませんでした
>根本的な考え方が間違っているのでしょうか
>御支援お願い致します。

2 hits

▼

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