Excel VBA質問箱 IV

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

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


70964 / 76734 ←次へ | 前へ→

【10272】行挿入の定義づけはどのように???
質問  ぴょんぴょん  - 04/1/15(木) 12:13 -

引用なし
パスワード
   超ど素人なのですが マクロの記録を使って下記のように
行挿入を作ってみましたが その後の編集が解りません。
どなたか ご指導よろしく御願い致します。

M15行目に計があり 最終行ではありません。
その下にも別の表があります。
M6からM15小計の間に 行がなくなったら 小計の上に
1行ふえるように 増えた行は上の行のセルの書式
罫線やセルの結合をコピーして。
このマクロの記録だと M15の上にしか行が増えなく
行が増えると小計はM16、M17となっていくのですが
どのように定義づければ 小計の上に行が増えていくのでしょうか?

Sub 行挿入2()

  Rows("15:15").Select
  Selection.Insert Shift:=xlDown
  Range("H14:Q14").Select
  Selection.Copy
  Range("H15:Q15").Select
  Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlHairline
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
End Sub

よろしくご指導御願い致します
0 hits

【10272】行挿入の定義づけはどのように??? ぴょんぴょん 04/1/15(木) 12:13 質問
【10280】Re:行挿入の定義づけはどのように??? INA 04/1/15(木) 14:09 回答
【10282】Re:行挿入の定義づけはどのように??? ぴょんぴょん 04/1/15(木) 15:30 質問
【10283】Re:行挿入の定義づけはどのように??? INA 04/1/15(木) 15:37 回答
【10291】Re:行挿入の定義づけはどのように??? ぴょんぴょん 04/1/16(金) 9:06 お礼

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