Excel VBA質問箱 IV

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

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


58448 / 76732 ←次へ | 前へ→

【23012】Re:選択範囲内で等間隔(任意)に罫線を引く
回答  G-Luck  - 05/3/9(水) 21:30 -

引用なし
パスワード
   ▼TAKA さん:

>Rows("1:1").Select
>  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
>  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
>  Selection.Borders(xlEdgeLeft).LineStyle = xlNone
>  With Selection.Borders(xlEdgeTop)
>    .LineStyle = xlContinuous
>    .Weight = xlMedium
>    .ColorIndex = xlAutomatic
>  End With
>  Selection.Borders(xlEdgeBottom).LineStyle = xlNone
>  Selection.Borders(xlEdgeRight).LineStyle = xlNone
>  Selection.Borders(xlInsideVertical).LineStyle = xlNone

これで、ひとつのセルに対する罫線です。
xlDiagonalDown 左上から右下
xlDiagonalUp  左下から右上
xlEdgeLeft   左
xlEdgeTop   上
xlEdgeBottom  下
xlEdgeRight  右
xlInsideVertical 内側の縦線
xlInsideHorizontal 内側の横線
後はselectionを
selection.Offset(n,m).select
で任意に移動してみては?
Borders
Offset
については、わかりますか?Helpは使えますか(インストールしていますか)?



0 hits

【22970】選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 9:53 質問
【22996】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 16:59 発言
【23001】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 17:52 発言
【23004】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 19:34 発言
【23007】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 19:52 発言
【23012】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 21:30 回答
【23025】作ってみました。 ぴかる 05/3/10(木) 11:59 回答
【23029】Re:作ってみました。 TAKA 05/3/10(木) 13:04 発言
【23032】Re:作ってみました。 ぴかる 05/3/10(木) 14:35 発言
【23047】Re:作ってみました。 TAKA 05/3/10(木) 19:53 お礼
【23044】Re:選択範囲内で等間隔(任意)に罫線を引く BB 05/3/10(木) 18:27 発言
【23046】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/10(木) 19:50 発言

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