Excel VBA質問箱 IV

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

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


42218 / 76732 ←次へ | 前へ→

【39585】罫線の削除について
質問  taka  - 06/6/27(火) 8:53 -

引用なし
パスワード
   おはようございます。セルAN22:BE41の範囲で、外側の罫線は残し内側にある文字・罫線を消したいのですが、マクロ記録でやってみると下記のコードになりました。
もっと簡単な方法はありますか?

  Range("AN22:BE41").Select
  Selection.ClearContents
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  Selection.Borders(xlInsideVertical).LineStyle = xlNone
  Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
0 hits

【39585】罫線の削除について taka 06/6/27(火) 8:53 質問
【39587】Re:罫線の削除について ひげくま 06/6/27(火) 9:02 回答
【39588】Re:罫線の削除について ひげくま 06/6/27(火) 9:06 回答
【39589】Re:罫線の削除について taka 06/6/27(火) 9:08 お礼
【39590】Re:罫線の削除について taka 06/6/27(火) 9:15 質問
【39591】Re:罫線の削除について ひげくま 06/6/27(火) 9:43 発言
【39592】Re:罫線の削除について ひげくま 06/6/27(火) 9:45 発言
【39593】Re:罫線の削除について taka 06/6/27(火) 10:58 発言
【39594】Re:罫線の削除について taka 06/6/27(火) 11:12 お礼

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