No.7ベストアンサー
- 回答日時:
こんばんわ。
早速サンプルマクロを作ってみました。次のように操作してみて下さい。1.新規ブックを開き、ALT+F11を押してVBE(Visual Basic Editor)の画面を開く。
2.左上のVBAProjectと書いてある画面の下にあるSheet1にカーソルをあわせ、ダブルクリックする。(右側が白い画面に変わる)
3.その白い画面に、下のコードをコピー・ペーストする。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRow As Long
Dim myCnt As Integer
Dim i As Integer
myRow = Cells(Rows.Count, 1).End(xlUp).Row
myCnt = Cells(myRow, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(myRow, myCnt)).Borders(xlEdgeBottom).LineStyle = xlNone
Range(Cells(1, 1), Cells(myRow, myCnt)).Borders(xlInsideHorizontal).LineStyle = xlNone
For i = 10 To myRow Step 10
Range(Cells(i, 1), Cells(i, myCnt)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(Cells(i, 1), Cells(i, myCnt)).Borders(xlEdgeBottom).Weight = xlThick
Next i
End Sub
4.ALT+F11を押し、SHeet1の画面に切り替える。
5.適当にデーターを入力した後、挿入・削除をやってみる。
そのつど10行ごとに罫線が引かれます。
No.6
- 回答日時:
説明を間違えました
当初の
=MOD(ROW(),10)=1
が11 21 31 と1行目のタイトル行を除いて
10行おきの式ですね
これをB1から設定すると1行目の下辺も罫線が引かれ
ます
(タイトル行なら引かれても問題ないとは思いますが)
タイトル行無しの10行おきなら
=MOD(ROW(B1),10)=0
でOKです
相対参照セルを入れる時のは、特性の行位置でなく
例えばシート範囲の10数行下から表が始まる場合
行値を気にせず10行おきに引くためにその選び初め
セルに =MOD(ROW(B1),10)=0 とすれば10行おき
となるものです。
紛らわしい説明でスミマセンでした!
No.5
- 回答日時:
再び こんばんは
>なぜB2からにしないといけないのでしょうか?
あ これは現在の式では気にされなくて結構です。
実は、1行目がタイトル行で以降10行単位で罫線
などの場合があるのかなと思いましてその時の式
B2から選択した場合
=MOD(ROW(B1),10)=1 とROW()関数の中に
相対参照のセル指定をする関係から記載したものです。
要は範囲選択した場合、選択範囲で反転していないセル
(アクティブ)に対して相対参照式をいれる説明をする
必要があるためです(希に下行から上に範囲選択される
方がいるため)
>また、例えば、この表を利用するにつれて利用範囲が
>増えてき、初期範囲を超えた場合はどう対処すれば
>いいのでしょうか?
条件付き書式は書式なのでコピー可能です。
設定範囲で空白行があれはそのまま複写
入力がある場合は複写してからデータを消すか書式のみ
の貼り付けでよろしいかと思います。
また、当初の式で 設定範囲内であれば必要行挿入すれば
そのまま複写されます。
No.4
- 回答日時:
はじめまして。
VBAでマクロを組めば、あなた様のやりたいことは簡単に実現できると思います。
もし私でよろしければ、サンプルマクロを作ってみたいと思いますので、ご希望の節はお知らせ下さい。
この回答への補足
ご回答ありがとうございます。
ぜひとも教えていただきたいと思います。
VBAはそれほど詳しくはないのでわからないこともでてきますが、参考にさせていただきたいと思います。
ご面倒だとは思いますが、よろしくお願いします。
No.3
- 回答日時:
こんばんは
例えば 初期範囲がB2:E100 として
・初期状態では横罫線無し
・その範囲を選択(必ずB2から)
・書式設定 条件付き書式 数式が▼
数式欄 =MOD(ROW(),10)=1
書式ボタン 罫線タブ 下辺のみ 罫線を設定
で如何でしょうか!
この回答への補足
ご回答ありがとうございます。
試してみましたが、確かに選択した範囲では罫線がずれずにできました。貴重でした。
なぜB2からにしないといけないのでしょうか?
また、例えば、この表を利用するにつれて利用範囲が増えてき、初期範囲を超えた場合はどう対処すればいいのでしょうか?が
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) パワーポイントの表 2 2022/05/03 18:28
- Excel(エクセル) Excelのマクロを教えていただけないでしょうか? 1 2023/07/06 19:56
- Word(ワード) ワードでの罫線の改行につい 4 2022/10/24 11:05
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- その他(クラウドサービス・オンラインストレージ) Googleのスプレッドシートで罫線を画像の前面に出す事は出来ないのでしょうか? 2 2022/05/01 05:31
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- Excel(エクセル) 【Excel】グラフの罫線の引き方が教えてほしい。 2 2022/08/02 19:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
Excelの外枠太罫線を2~3倍さ...
-
excel2003 罫線だけを保護したい
-
EXCELで、下線の太さを変...
-
エクセルで文字を入力すると罫...
-
罫線の色を薄くしたい
-
エクセル 入力されていない線...
-
罫線の色をまとめて変更する
-
【エクセル】謎の枠線の消し方
-
エクセルで罫線も一緒に並び替...
-
エクセル
-
Excelでアンダーラインに文字が...
-
エクセルExcel 「/」セルの斜...
-
エクセルの罫線を固定させる方...
-
エクセルのアンダーラインについて
-
Wordで表のセル幅を超えたら次...
-
エクセル 罫線入りの文字 文...
-
決まった罫線のなかで、文章入...
-
勝手に背景に色が付いて困っ...
-
エクセルでデータがある部分だ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
excel2003 罫線だけを保護したい
-
Excelの外枠太罫線を2~3倍さ...
-
EXCELで、下線の太さを変...
-
罫線の色を薄くしたい
-
エクセルで文字を入力すると罫...
-
【エクセル】謎の枠線の消し方
-
エクセルで罫線も一緒に並び替...
-
勝手に背景に色が付いて困っ...
-
エクセル 入力されていない線...
-
エクセルのアンダーラインについて
-
決まった罫線のなかで、文章入...
-
エクセルを印刷すると勝手に線...
-
エクセル
-
パワーポイントで、表の一部を...
-
Excelでアンダーラインに文字が...
-
エクセルの罫線を固定させる方...
-
罫線が引かれているセルの個数...
-
エクセル表の罫線(縦)が消せ...
-
EXCELのオートフィルタで罫線が...
おすすめ情報