Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11724 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に罫線で囲まれたｾﾙ（一定の数式あり）が与えられています。

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

１．は出来るのですが、２．が書けません。
どなたか良いﾛｼﾞｯｸをご教示くださいませんか。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11724 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free