- ベストアンサー
Excelの罫線と行の挿入
Excelの行の挿入についてお伺いします。 10行ごとに罫線を引いているのですが、行を挿入すると、罫線ごと移動してしまい、せっかく10行ごとに引いた罫線がずれてしまいます。 これを10行ごとの罫線は変えず、行だけを挿入したいのですが、どうすればいいのでしょうか? また、表作成において、改善案や便利なことなどもあるようでしたら教えてください。よろしくお願いします。
- オフィス系ソフト
- 回答数7
- ありがとう数6
- みんなの回答 (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行ごとに罫線が引かれます。
その他の回答 (6)
- comv
- ベストアンサー率52% (322/612)
説明を間違えました 当初の =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行おき となるものです。 紛らわしい説明でスミマセンでした!
お礼
ご丁寧にありがとうございました。
- comv
- ベストアンサー率52% (322/612)
再び こんばんは >なぜB2からにしないといけないのでしょうか? あ これは現在の式では気にされなくて結構です。 実は、1行目がタイトル行で以降10行単位で罫線 などの場合があるのかなと思いましてその時の式 B2から選択した場合 =MOD(ROW(B1),10)=1 とROW()関数の中に 相対参照のセル指定をする関係から記載したものです。 要は範囲選択した場合、選択範囲で反転していないセル (アクティブ)に対して相対参照式をいれる説明をする 必要があるためです(希に下行から上に範囲選択される 方がいるため) >また、例えば、この表を利用するにつれて利用範囲が >増えてき、初期範囲を超えた場合はどう対処すれば >いいのでしょうか? 条件付き書式は書式なのでコピー可能です。 設定範囲で空白行があれはそのまま複写 入力がある場合は複写してからデータを消すか書式のみ の貼り付けでよろしいかと思います。 また、当初の式で 設定範囲内であれば必要行挿入すれば そのまま複写されます。
お礼
ご丁寧にありがとうございました。
- kazuhiko5681
- ベストアンサー率49% (79/159)
はじめまして。 VBAでマクロを組めば、あなた様のやりたいことは簡単に実現できると思います。 もし私でよろしければ、サンプルマクロを作ってみたいと思いますので、ご希望の節はお知らせ下さい。
補足
ご回答ありがとうございます。 ぜひとも教えていただきたいと思います。 VBAはそれほど詳しくはないのでわからないこともでてきますが、参考にさせていただきたいと思います。 ご面倒だとは思いますが、よろしくお願いします。
- comv
- ベストアンサー率52% (322/612)
こんばんは 例えば 初期範囲がB2:E100 として ・初期状態では横罫線無し ・その範囲を選択(必ずB2から) ・書式設定 条件付き書式 数式が▼ 数式欄 =MOD(ROW(),10)=1 書式ボタン 罫線タブ 下辺のみ 罫線を設定 で如何でしょうか!
補足
ご回答ありがとうございます。 試してみましたが、確かに選択した範囲では罫線がずれずにできました。貴重でした。 なぜB2からにしないといけないのでしょうか? また、例えば、この表を利用するにつれて利用範囲が増えてき、初期範囲を超えた場合はどう対処すればいいのでしょうか?が
- MovingWalk
- ベストアンサー率43% (2233/5098)
いわれるままのことは無理ですね。 罫線を引いたシートとは別なシートに入力しておいて、 それをコピーし、罫線を引いたシートで値を貼り付け ではだめですか。
お礼
ありがとうございました。
- Hageoyadi
- ベストアンサー率40% (3145/7860)
そいつはExcelの仕様ということで、無理かもしれません。 どうしてもとおっしゃるのなら、数十行分の罫線を含む書式を別のシートに作っておき、作業しているシートに行を挿入するたびに別シートの書式のみを作業シートにコピーすることでなんとかなります。こいつをマクロの記録などを使って1クリックで出来るようにしておくと、後々ラクではないかと思います。
お礼
ありがとうございました。
関連するQ&A
- エクセルで・・・(挿入 罫線 について)
エクセルで表があります 罫線が引いてあり、外枠には太い罫線が引かれています。 で その表の一番下(の行の下)に1行挿入する場合 罫線を引きなおさなくてはいけないみたいなんですが、 しなくてすむ方法はあるのでしょうか? ちなみにバージョンは2003です。
- 締切済み
- オフィス系ソフト
- 行を挿入しても変わらない罫線パターン
5行一括りの罫線を引いています。 その一括りの行間に新たな行を挿入すると、6行一括りの罫線になります。 これを5行一括りに固定できないものでしょうか? エクセル2000を使用しています。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 行を挿入すると表の罫線が消えてしまわないようにしたい
2003エクセルで下記の表を作成いたしました。 (Aの1は1, Bの1はコーヒー,Cの1は180円)というように入力いたしました。 A B C 1 1 コーヒー 180円 2 2 コーラ 200円 3 3 レモネード 220円 4 合計 A1からC4まで格子の罫線で囲みました。 更に、AとBの間に太線・合計の行を上と下にも太線を引きました。 後から、3行と4行の間に1行挿入すると 行の追加はできているのですが、挿入した行の上の線が 消えてしまいます。 これはしかたがないことなのでしょうか? 挿入オプションを使ってもできませんでした。 もし、やり方があるようでしたら、教えていただければと思います。 宜しくお願いいたします。
- 締切済み
- その他(データベース)
- excel「行の挿入」するとなぜか最終行に挿入されてしまう
昨日、 ”excel2000の表で、ふつうにただ1行挿入したいだけなのですが、「行の挿入」を選ぶと 「データの消失を防ぐ為、空白でないセルをワークシートの外にシフトすることは出来ません」 とポップアップが出て、操作できません。” という質問をし、 ”全ての行を使い切ってしまっている、あるいは最終行(65536行目)のどこかのセルにデータが入っている。そのデータを消せばよい。” と教えて頂き、確認したところ最終行まで罫線がびっしり引かれていることに気付き、そんなにいらないので400行目以降の罫線はすべてクリアーで消去しました。 それで一件落着と思ったのですが、その後1行 行(罫線)を挿入すると、なぜか途中を通り越して最終行に罫線がはみ出てしまい、しばらくしてもう一行挿入しようとするとまた 「データの消失を防ぐ為、空白でないセルをワークシートの外にシフトすることは出来ません」 となってしまいます。私は400行目以内ですべて作業を完結させたいのに・・・。 どうすればよろしいでしょうか。
- ベストアンサー
- Windows NT・2000
- エクセルの行挿入について
エクセルで行を挿入したら勝手に罫線がついてしまいます。 しかし、セルの書式設定で見ても、画面上でみても、罫線が入っている様子はありません。印刷プレビューでみると、罫線が入っています。 この罫線を消したいのですが、教えてください。
- ベストアンサー
- オフィス系ソフト
- 行を挿入(並べ替え)しても変わらない罫線パターン
品名毎に罫線を引いてある表で、新たに追加入力し、並べ替えをすると行が挿入されて罫線がずれてしまいます。 並べ変えしても変わらない様に、罫線を固定する事は可能でしょうか? 例えば、同じ品名で一区切りの罫線など... わかりづらかったらすいません。 宜しくお願いします。
- 締切済み
- その他MS Office製品
- エクセルの罫線挿入について
エクセルについてお聞きします。 1000行ほどのリストを作成しています。1行目はタイトル行、2行目から実際のデータが入力されています。 たとえばデータ行20行毎に罫線(見やすくする意味で区切りとして横線)を入れたいのですが、普通に罫線を引いていくと時間がかかり大変です。そこで行数を指定してやると指定行数毎に罫線を入れてくれる…そんな方法はあるのでしょうか。 ご存じの方は宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルタイトル行の罫線が変
エクセル2003で複数ページに渡る表を作成中です 1行目をタイトル行に設定し1行目と2行目の間の罫線を 二重線にしたのですが、 ページやセルにより、二重線だったり太線だったり 罫線が表示されなかったりします 変なところの罫線を一度削除し設定し直しても 直るところと直らないところがあります どうしたらうまくいきますか?
- ベストアンサー
- オフィス系ソフト
- エクセルの罫線の変更が出来ない
教えてください エクセルで表を作成してあるのですが A行からI行を普通の罫線から太い罫線にしたいのですが (表はA行からI行までの範囲) 普通に変更しようとすると 【表示形式を追加できません】と 出てきてしまいます すでに引いてある罫線を消すことも出来ません なにか罫線に ロックとかがかかっているのでしょうか? 教えてください!
- ベストアンサー
- その他(Windows)
- エクセル 行の自動挿入
下のようなエクセルの表で、 1 平成24年5月 2 Aの枚数 Bの枚数 Cの枚数 合計 3 4 ・ ・ ・ 70 71 計 計 計 合計 表の行数を常に固定したいので、3行目から70行目の中の行を1行削除した時に 71行目の上に自動的に行を挿入する方法を教えて下さい。 挿入行のセルはすべて空白で、罫線のみ引いてある状態がベストです。 よろしくお願いします。
- 締切済み
- 財務・会計・経理
お礼
参考になります。 ありがとうございました。