Excel VBA質問箱 IV

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

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


11714 / 13645 ツリー ←次へ | 前へ→

【14547】隣の列と同じだけ罫線と数式をコピーするには わだあつと 04/6/1(火) 15:45 質問[未読]
【14549】Re:隣の列と同じだけ罫線と数式をコピーす... ちゃっぴ 04/6/1(火) 16:20 回答[未読]
【14578】Re:隣の列と同じだけ罫線と数式をコピーす... わだあつと 04/6/2(水) 12:58 お礼[未読]

【14547】隣の列と同じだけ罫線と数式をコピーする...
質問  わだあつと  - 04/6/1(火) 15:45 -

引用なし
パスワード
   こんにちは。

A1:A100に罫線で囲まれたセル(値なし)、
B1:B100に罫線で囲まれたセル(一定の数式あり)が与えられています。

1.そこにA1:A120に値と(A101:A120には)罫線を入れていきたい。
2.さらにA列の値が入っている行まで(この場合B101:B120)
に、一定の数式と罫線を入れていきたい。

1.は出来るのですが、2.が書けません。
どなたか良いロジックをご教示くださいませんか。

【14549】Re:隣の列と同じだけ罫線と数式をコピー...
回答  ちゃっぴ  - 04/6/1(火) 16:20 -

引用なし
パスワード
   どのようにして値を入れているかは知りませんが、セル範囲をループしていると思いますのでこのようにしてみては?

With 書込セル(A行のRangeオブジェクト)
  .Value = "XXX"
  .Offset(0,1).Fomula = "XXX"
End With

書き込むときに最終行が取得できると思いますので、
そいつを使って一気に罫線を引いた方が楽かと思います。

【14578】Re:隣の列と同じだけ罫線と数式をコピー...
お礼  わだあつと  - 04/6/2(水) 12:58 -

引用なし
パスワード
   ▼ちゃっぴ さん:

結局このようにしました。
ありがとうございました。

Sub TestWith()
Dim ws1 As Worksheet
Dim i As Long

Set ws1 = Worksheets("sheet1")
For i = 2 To ws1.Range("A65535").End(xlUp).Row
  With ws1.Cells(i, 10)
    .Offset(0, 1).FormulaR1C1 = "=R[0]C[-2]-R[0]C[-1]"

  End With
Next
End Sub

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