（練習ファイルで、ボタンをクリックして操作の確認をしてみた方は、［元に戻す］ボタンで、罫線を引く前の状態に戻しておいてください。）, 罫線を引くには、このようなリボンにあるボタンを使う以外に、実はもう1つ別の方法があります。 　'調べる列を指定 トップスタジオ; 2018年6月18日 06:55. ただ、今回のような場合は、プレビュー枠を使う方法だと、慣れない方はどの辺りをクリックすればいいのか分かりづらいので、ボタンを使った方が分かりやすいと思います。 出勤日の出勤時間、退勤時間、休憩時間の 　End With 　　myRng.Cells(myRng.Rows.Count, 1).Offset(1, 0).Left, _ ［線］の［スタイル］欄で細い直線をクリックで選択し、, ［内側］ボタンをクリックすると、中央のプレビュー枠に「こんな風に設定されますよ〜」と表示されました。 　Next myTmp ※運用方法によっては重くなるかもしれません。 こんにちは。エクセル２０００を使用しています。 '.Borders(xlDiagonalUp).LineStyle = xlDash そうすると、左の図のボタンも、どこに線を引くボタンなのか、想像できますね。, Officeの使いこなしテクニックをメールでお届け！メールマガジンポータルサイト「まぐまぐ」の殿堂入りメルマガです！ 外枠は太く、内側は細い罫線の設定ができたので、ダイアログボックス右下の［OK］ボタンをクリックすると、, 選択した範囲に罫線を引くことができました！ 今回のボタンを押すことによって、プレビュー枠には、「上下をセルとセルとで挟まれた、その間に横罫線が引かれますよ〜」と表示されます。, 今回範囲選択したA3からB5番地で、「上下をセルとセルとで挟まれた、その間」は左の図の位置なので、そこに線が引かれた、というわけです！, さぁ、「ボタンは絵で覚える」、実感していただけましたでしょうか？ 詳しい方、どうかよろしくお願いします。, 原因は分からずじまいになってしまいましたが 　'右上がりの斜線を引く 　For Each myTmp In ActiveSheet.Shapes エクセルの表を見やすくする、データをまとまりで区切るなどするときに「罫線」が活躍します。ここでは外枠の罫線を引く方法と削除する方法と、アクセスキーを使って全ての罫線のコマンドにアクセスする方法をお伝えします。 If Target.Value = "休み" Then 　 操作の確認のため、左の図のボタンを押して線が消えてしまった方は、もう一度ボタンを押して、設定をしてください。）, 今回のように、プレビュー枠で、該当する線を直接クリックして指定することもできるんです！ 罫線を引く位置と種類を組み合わせた一覧が表示されるので、選択した範囲に引きたい種類を選択します。左罫線、上罫線＋下二重罫線など、選択した組み合わせの罫線が引かれます。 *1[リボンインターフェース]の場合は、[ホーム-罫線]です。 【Excel】罫線を引く作業が面倒なので自動化したい！エクセルで文字を追加すると自動で罫線が追加される名簿を作成するテク . これは、今回の範囲選択が、横方向では複数のセルをまたいで範囲選択しているものの、縦方向では複数のセルをまたいで範囲選択していないからです。, 今回は二重線を設定したいので、［線］の［スタイル］欄から、二重線をクリックで選択します。, そして、その二重線は、選択したセルの下側に引きたいので、左の図の○印のボタンをクリックすると、プレビュー枠に「こんな風に設定されますよ〜」と表示されます。 　Dim myRng As Range 　For Each myTmp In ActiveSheet.Shapes 今回は、罫線を設定したいので、［罫線］タブをクリックで選択します。 （再計算時に描画更新） ワード初心者でも、ワード罫線の使い方をマスターできる記事です。ワードで便箋や原稿用紙を作るやり方も解説しています。どの項目も画像を使って解説しているので、非常に分かりやすい内容となっています。ぜひお読みください。 .Borders(xlDiagonalUp).ColorIndex = 3 【Excel・エクセル】罫線の引き方. Else ちなみに、A列の左側の線が太くないんじゃない？と思う方がいらっしゃるかもしれません。 「Officeの救急隊」を試してみましょう。 全く動かなくなってしまったんです。 (私はWord2000を使用しています) の場合。 質問内容と一致しているか分かりませんが・・ 　If myCnt = 0 Then Exit Sub 　　If IsError(myTmp.Value) Then myCnt = myCnt + 1 用紙いっぱいにフォントも大きくし、表も大きくし、 一つ目の方法は、Altを使った方法です。 やり方は超カンタン！ 罫線を引きたい・消したいセルを選択（複数可能） ①Alt ②H ③B の順番でキーを押し、最後は罫線を引きたい部分を選択して、キーを押す . 問題 次の罫線を引きなさい。また削除して、何度も繰り返し練習しなさい。 解説 単純な長方形の表でないときは、Ctrlキーが使えるかを検討します。 全体として細い実線が引かれているときは、Ctrlキーを使って選択し、全部格子で引きます。 そして、太枠の部分だけ選択して、太線で囲みます。 罫線を消す … 写真いりでわかりやすくなっています。 どうかもう一度このページの最初からご覧ください（願）。, 表示されたダイアログボックスの［罫線］タブで設定していきます。 下の図のように、中央のプレビュー枠には、「文字列」というセルを表すものが1つしか表示されていません。 教えてください。, CtrlキーとPのキーを同時に押すと「印刷」ダイアログが呼び出せます。その状態でAltキーとWのキーを同時に押すと「印刷プレビュー」が表示されますので、印刷のイメージがつかめます（必ずしもプレビュー通りには印刷されませんが） 対角線に右下がりの直線を引く方法はどのようにしたらよいでしょうか。 End Sub, どうしても斜線が必要なら、ワークシートのイベントを使うしか無いです。 と言うのも数式のあるセルをダブルクリックして 更に今度は、プレビュー枠に表示されている、セルの右側に引かれた線を、直接マウスでクリックすると、, そうなんです、今までの方法を取るなら、左の図のボタンを使って、線を引く位置を指定することもできるわけですが、 If Not Rc Is Nothing Then 「セルの書式設定」を選ぶと、「罫線」というのがありますので、いろんな線が引けます。 If Target.Value = "休み" Then 先程、外枠や内側の罫線を設定した時には、「文字列」というセルを表すものがプレビュー枠に縦方向にも横方向にも並んで表示されていましたが、今回は横方向に並んだものしか表示されていません。 vlookup関数などでデータを持ってきているのでエラー表示の部分は エクセルで表を作っています。 罫線（田の字形のアイコン）で罫線を書いたのですが、空白のセルに斜線を引きたいと思っています。 どうする方法が簡単でしょうか？ 宜しくお願いいたします。 私の使っている「Excel2003」の場合ですと、 会社に、既にできている表がWordで作ってあって、その中に、表の一部に斜線が入っているのですが、それをとったりつけたりしたいのです。 をお読みいただいていることを前提として進めていきますので、まだの方は最初にご覧ください。, まずはA4からD11番地に設定したいわけですから、A4からD11番地を範囲選択します。, 今回のような罫線を設定したい場合、手っ取り早い方法としては、「セルの書式設定 基本のキ（罫線編）」でご紹介しているように、［ホーム］タブにある罫線を引くボタンの［▼］をクリックして表示される、［格子］ボタンと［外枠太罫線］ボタンを使うこと。 参考URL：http://www.excel-jiten.net/cell_format/ruled_line_change_slash.html, よろしくお願いします。 （練習用ファイルで実際に操作をしながらご覧いただいている方は、次の操作のために［元に戻す］ボタンをクリックして、線を引く前の状態に戻しておいてください。）, じゃぁ今度は、左の図のボタン。 下二重罫線. 点線を選択後（点線はどの点線でもOKです。お好みのものをどうぞ）、線の位置の指定は、左の図のボタンをクリックするか、プレビュー枠に表示されている左の図の線を直接クリックで指定し、［OK］ボタンをクリックすれば、 　Set myRng = ActiveSheet.Range("A1:E20") そのセルを選択して右クリックから「線種とページ罫線・・・」を選び 　'古い斜線を消す 罫線の引き方その2、罫線の作成からセルをなぞって線を引く; 3.4. 　　myRng.Cells(myCnt, myRng.Columns.Count).Offset(0, 1).Left, _ 　Dim myCol As Range エクセルの表を一発で全部選択する方法！ エクセルで1行おきに罫線引く方法！ 一瞬！エクセルの計算結果！ エクセルで、電卓より早く検算する方法！ エクセル関数「subtotal」の簡単入力！ エクセルの行や列を、一瞬で丁度いい幅に！ 　　'(消すときのために)名前をつけておく 宜しくお願いいたします, Wordのバージョンが2003以前の場合を例に示します。 ただ、今まで全て自動計算されていたのが ちなみに、この時点で［セルの書式設定］ダイアログボックスが表示できない方は、これ以上進むのは超キケンです！ Dim Rc As Variant 「無い線を／ここに引く」という風に考えます。 　For Each myTmp In myCol.Cells 罫線（田の字形のアイコン）で罫線を書いたのですが、空白のセルに斜線を引きたいと思っています。 それぞれのセルに斜線を引く設定がしたいのですが…。 '---------------↑　ココマデ　↑--------------- そして、「書式設定」とは「飾り付け」のこと。 ちなみに、このボタンの絵柄の意味については、後ほどご説明しますので、このまま順番に読み進めてください。 今度は、下の図のように、a4からd4番地の下に、二重線を引いてみたいと思います。 設定したいのはa4からd4番地なので、まずはa4からd4番地を範囲選択します。. 　Set myCol = myRng.Columns(1) Ｂ－Ｄ列が時間記入欄とします。 以下のようにしてシートモジュールに記述すれば全自動になります。 このボタンを拡大したのが下の図。 　Next myTmp 今回はA4からA11番地までに設定したいわけですから、A4からA11番地までを範囲選択後、範囲選択したところで右クリック、［セルの書式設定］をクリックします。, ［罫線］タブのプレビュー枠を確認します。 オートシェイプを使わないで引く方法を教えてください。 　　myRng.Cells(myCnt, myRng.Columns.Count).Offset(0, 1).Top, _ お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, 一定間隔で離れた複数セルを参照し、指定文字が1つでもあれば「条件付き書式の設定」によりセルの色を変えたい【エクセル2000】, EXCELでセルの結合をして 2セル 1セル 3セル の複数行 2セル 1セル 3セル 2セル 1セ, エクセルについて。条件付き書式の数式を使用して、書式設定するセルを決定 の作業。この数式は、手打ちで, エクセル2007使用です。条件書式を使用して、あるセルの数が一定量を越えたら、指定するセルの数字を表示する. いい方法は　ありませんか？ 範囲選択したところで右クリックすることによって、Excelさんは「今からこんなことしたいんじゃない？」と、その範囲選択した箇所に見合った作業の一覧を表示してくれます。 （練習ファイルで、左の図のボタンをクリックして操作の確認をしてみた方は、［元に戻す］ボタンで、罫線を引く前の状態に戻しておいてください。）, ［セルの書式設定］ダイアログボックスが表示されるので、先ほど同様、罫線を設定したいので、［罫線］タブを選択します。 '.Borders(xlDiagonalUp).LineStyle = xlDot エクセルでは、特に罫線を開かないでも、セルの境目に薄いグレーの枠線（罫線）が表示されます。 この枠線を画面表示時に消したいという場合、操作方法は3つあります。 シートの全ての枠線を消したい … 線種は何でもいいのですが、今回は二重線を選択してみます。 まずは、A6からD8番地と、A10からD11番地の2ブロックを一緒に範囲選択後、［セルの書式設定］ダイアログボックスを表示します。, 表示されたダイアログボックスの［罫線］タブで設定していきます。 Sub Sample() 範囲選択したセルが1つだけだからですね。, 「どの線を／どこに引く」ですから、ダイアログボックスの左側で、細い線を選択し、更にその右側で、斜め線を引くボタンをクリックするか、プレビュー枠で斜め線が引かれそうな位置をクリックして線を引きます。 今度は「文字列」というセルを表すものが横方向には並んで表示されず、縦方向にのみ並んで表示されています。 　Dim myCnt As Integer 　　If myTmp.Name = "myLine" Then myTmp.Delete 上下をセルとセルとで挟まれた、その間に罫線が引かれています。, ということは、もしA3からB5番地に設定した場合には、どこに線が引かれるか想像できますか？ 　Dim myTmp As Object にしてドラッグすると、直線端点と表の位置合わせが楽にできると思います。 （つまり，ページによっては20行の表のうち，10行までデータが入っているのでA11～E20のセルに一本の斜線を引いたり，あるページはデータが19行まで入っているのでA20～E20のセルに一本の斜線を引いたりします） '---------------↓　ココカラ　↓--------------- 　End With Ｅ列：備考 そして、先程の「選択したセル範囲の一番下」に線を引くボタンをクリックして罫線を設定します。 この中央にあるのがプレビュー枠。 　Dim myCol As Range 以上ご参考まで。, 「特別」なものではありませんが。 Set Rc = Intersect(Target, Range("E5:E30")) Excelの罫線は意外と手間がかかり、全体の効率を下げることがあります。 罫線に関するテクニックをまとめてみました。 目次1 罫線のトラブル2 罫線を引く必要があるかを考える3 Excelでの罫線テクニック 罫線 … 原因が分からず困っています。 操作の確認のため、左の図の線の部分を再度クリックして線が消えてしまった方は、もう一度同じところをクリックして、線を引き直してください。）, ただし！ 　myCnt = myCol.Cells.Count - myCnt + 1 　Dim myRng As Range エクセルを使って作業をする時は、関数を覚えたり、各種機能を使いこなせたりすることはもちろん大事ですが、作業を行ううえで、シートが見やすいかどうか、という点も非常に大切です。特に、文字や数値をたくさん入力するような表などでは、ただシートにデータを打ち込むだけでは、見づらくて何がなんだかわからなくなることもあります。 そんな時、罫線を使ってセルを区切り、重要なポイントは太線で囲むなどの変化を見せれば、その表はググっと見やすくもなり、整理もしやすくなるため業務 … このボタンを拡大したのが下の図。 　With ActiveSheet.Shapes.AddLine( _ End Sub Excel（エクセル）では、かんたんに罫線をひいて、線の種類をカスタマイズすることができます。 かんたんに罫線をひきたい 点線・太線をひきたい 下線・囲み線・斜め線をひきたい 罫線に色を付けたい 罫線を太くしたい罫線にもいろいろな種類がある 　　myRng.Cells(myRng.Rows.Count, 1).Offset(1, 0).Top) 　・表の範囲　：　A1:E20 　　※ツールのオプションはちゃんと自動計算に 　　.Name = "myLine" まずは左側にある［線］の［スタイル］欄から、設定したい罫線の線種を選択します。 つまり、「選択したセル範囲の、一番下に線を引きますよ」という意味になるので、, ［セルの書式設定］ダイアログボックスの［罫線］タブで、罫線を設定していきます。 この記事はエクセルの罫線が消えない時の対処法について書いたものです。 エクセルで間違って付けてしまった罫線の消し方で悩まれる方が非常に多いです。 そんな「罫線」の消し方に関しての操作方法、コツについて書いているので参考にしてみてください。 If Not Rc Is Nothing Then 記入範囲は５－３０行目まで。 Ｅ列：備考 　　If myTmp.Name = "myLine" Then myTmp.Delete ボタン一発で全ての設定が元に戻ります。 http://www.vector.co.jp/soft/win95/util/se247118.html 私の場合はコレで直ってしまいました^^ まずは範囲選択したA4からD11番地までのところだったらどこでもいいので右クリック、, ［セルの書式設定］をクリックします。 「セルの書式設定 基本のキ（罫線で混乱しやすいポイント編）」 　・調べる列　：　表の第１列（Ａ列） End If 描画オブジェクトをグリッドに合わせるのチェックを無し お願いします、教えてください。, こんばんは End If 【Excel・エクセル】罫線を引いて見やすくする; 3. 簡単に、 斜線を引くにはセルの書式で設定するか、オートシェイプを使えばできますが、複数のセル（例A1：C2）に一本の斜線をひく場合オートシェイプを使わずにひく方法はないでしょうか？オートシェイプだとセルの幅や高さを変更するとズレてしまいます。なにかよい方法はありませんか。よろしくお願いします。, 有り難うございます。本当はオートシェイプは使いたくないのですが、やはり無理なのですね。, 今回例えばA1の左上からC2の右下までに一本の線を引きたいのです。それも結合せずに。説明が不十分でした。, 後できがついたのですが、「セルを結合しないで」と記入漏れしてしまいました。すみません。, 「オートシェイプとは」に関するQ&A： excelのセル内の文字を180度回転（上下逆）にすることはできますか？, ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介！どうすれば家と家族を守れるのかを教えます！, （Excel）あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには？, Excel97です。表を作成し、いくつかのセル内で斜線を引きたいのですが、どういう操作をしたらいいですか、ご教示ください。, 下記のURLを参照してください。 参考までに, 出勤表で備考の欄に”休み”と入力すると 右斜線でも左斜線でも、×だって大丈夫ですよ。, ものすごく基本的なことだと思います、すみません。 一つ一ついじればできると思いますが、 同じようなトラブルを経験された方、又は これは今回の範囲選択が、縦方向にのみ複数のセルをまたいで範囲選択されたからですね。, 二重線を、選択したセルの右側に設定したいわけですから、［線］の［スタイル］欄で二重線を選択します。 更によく見ると、その複数のセルの一番下にだけ線が引かれています。 　 　'表の範囲を指定 ＥＸＣＥＬです。 そして、「選択したセル範囲の一番上」に線を引くボタンをクリックして罫線を設定すると・・・, 予想通り、「選択したセル範囲の一番上」に線を引くことができました！ 今まで全く問題なく作業できていたので 　・判定方法　：　セルの値がエラー値か否か この時点で、外枠は設定できたものの、各セルを仕切る、内側の細い線は設定できていないので、このまま引き続き設定していきます。, それでは引き続き、各セルを仕切る細い線を設定していきましょう！ セルを表すマス目の一番上にだけ線が引かれています。 　Dim myRng As Range 　・調べる列　：　表の第１列（Ａ列） エクセルの本の購入を考えているけど、多すぎてどれを選んでいいか分からない。そんな悩みを解決するために、エクセルのおすすめの本を9冊厳選しました。本記事を参考にすることで、エクセルマスターに最短で近づくことができます。 しまいました。 でもですね、ダイアログボックスで設定する方法をなぜ覚えるのか、それにはちゃんとした理由があるんです。 　'最初の「データが無い行」の位置を調べる と思った方もいらっしゃるのではないでしょうか？ 　・斜線の向き：　右上がり 印刷するやり方はありますか。 　Dim myCnt As Integer 上の拡大図をよ〜く見ると、マス目があるわけですが、このマス目は各セルを表します。 Private Sub Worksheet_Change(ByVal Target As Range) 宜しくお願いします。, すいません、教えてください。 （既に目的の線が引いてあるのに、もう一度同じ設定を繰り返すと、線が消えてしまいます。 [Alt]キーを押しながらドラッグするか、図形描画ツールバーの「図形の調整」→グリッドを選択し、位置合わせの Excelさんが、交わっているどっちの線を変えるべきなのか迷ってしまい、意図していない線の方が変わってしまうこともあるからです。 '---------------↓　ココカラ　↓--------------- ちなみに，この場合，データが入っていないと言いましたが， この『どんな文字でも』の部分に何を入れればいいのか教えてください。 .Borders(xlDiagonalUp).LineStyle = xlContinuous 　Dim myCol As Range End Sub 罫線を引くのに悪戦苦闘していませんか？ Excel A4からD4番地の下に、二重線を引くことができました！, さて、ここまでで、 　'調べる列を指定 　myCnt = myCol.Cells.Count - myCnt + 1 このプレビュー枠に、セルに設定する罫線の状態が表示されるわけです。, では早速、罫線を設定していきましょう！ このデータの入っていない行を抹消する意味で斜線を引くとすると， オートシェイプの直線を右クリック→オートシェイプの書式設定→「レイアウト」タブを選択→折り返しの種類と配置を「前面」にして、表に重ねて両端位置を調整してください。 記入範囲は５－３０行目まで。 .Borders(xlDiagonalUp).LineStyle = xlNone 本記事では、エクセル（Excel）の基本操作である罫線の引き方を徹底解説します。単に罫線を引くというだけではなく、できるだけ速くきれいに引ける方法を紹介し、罫線の太さや色を変える方法も解説しますので、ぜひ見やすい表作りや時短にお役立てください。 下記の手順で引けます。 この記事を読むのに必要な時間は約 4 分です。 エクセルのセルに斜線を入れる方法は2つです。 1本、または「×」を入れる場合： 斜線を入れたいセルを右クリック 「セルの書式設定」を選択 「罫線 … しかし，伝票のような表があるとします。 表によっては，下の何行かはデータが入ってないようなこともあります。 エクセルで表を作る場合、最終的には罫線（けいせん）、枠線を引くケースが多いです。 罫線を扱うには様々なコツがあり、このコツを知っているかどうか次第で、表を仕上げる速度が大きく変わります。 … どうする方法が簡単でしょうか？ 　Dim myTmp As Object 3.1. Be Cool Usersマガジン--Word,Excel,PowerPointの技, 解説記事内の画像はExcel 2013のものですが、操作方法は下記のバージョンで同じです。, （既に目的の線が引いてあるのに、もう一度同じ設定を繰り返すと、線が消えてしまいます。, ちなみに、この時点で［セルの書式設定］ダイアログボックスが表示できない方は、これ以上進むのは超キケンです！, Be Cool Usersマガジン--Word,Excel,PowerPointの技. 更に、各ブロックで、左右をセルとセルとで挟まれた、その間の縦罫線を消したいわけですから、位置を指定する左の図のボタンか、プレビュー枠内の左の図の線をクリックで指定すると、, 指定した罫線が消えることが、プレビュー枠で確認できました！ 印刷プレビューで確認したところ 私はWordで表を作ったことがなく、しかも今いるofficeにはWordの本もありません。 　Next myTmp 今回はまず、外枠の太線を設定したいと思いますので、一覧から太い線をクリックで選択します。 　・起動方法　：　手動 エクセル(Excel)で線を引く方法を解説。線の種類による描き方の違いや、まっすぐ線を引く小ワザなどを解説します。加えて矢印の描き方も解説しています。ほかに、エクセルのセルに罫線を引く方法を解説した記事も紹介。 　　.Name = "myLine" 用紙に対して表が小さく見栄えがしません。 初歩的な質問ですみません。 　１　対角線を引きたいセルを選択 　'「データが無い行」を数える 　・斜線の向き：　右上がり エクセルでよく使う罫線ですが、繰り返す場合は一発で罫線を引けるショートカットキーが便利です。今回は『罫線を引く（表示）』、『罫線を消す（削除）』ショートカットキーと格子状に罫線を引けるアクエスキーを紹介します！ 複数に表にまたがって　斜め線で　取り消しのいみをもたせたいのですが　オートシェイプですと　ずれてしまいます。 ［OK］ボタンをクリックすると・・・, 予想通り、「選択したセル範囲の一番下」に線を引くことができました！ 　With ActiveSheet.Shapes.AddLine( _ 　・判定方法　：　セルの値がエラー値か否か '---------------↓　ココカラ　↓--------------- 　If myCnt = 0 Then Exit Sub エクセルは、「Delete」キーを使用すると文字だけしか削除できません。 文字を残して、色や線などの見た目の情報を削除したい場合は［クリア］ボタンを利用しましょう。 また、線のみ削除したい場合は［セルの書式設定］画面を利用する方法がおすすめです。 → また、常に表示されている目安線の枠線を削除したい場合は、 Excel（エクセル）で枠線を消す方法をご覧ください。 　Set myRng = ActiveSheet.Range("A1:E20") 印刷プレビュー画面の上にある、設定のボタンを押してあげれば、余白を少なくしたり、拡大縮小印刷をパーセンテージを指定しておこなえたりします。いずれにせよ、プレビューで確認しながら拡大率を決めていけばいいと思います。なお、「拡大縮小印刷」のところに「次のページ数に合わせて印刷をする」というチェックをいれて横１×縦１にしてあげれば自動で拡大縮小印刷ができる場合がありますが、やってみればわかりますが、特に縮小印刷の場合小さくなりすぎたりする場合もあります。, エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。 お絵かき感覚でエクセルの罫線を描くテクニック . 　　　なっているのに全く反映されません。 ［OK］ボタンをクリックすれば、, 今度は下の図の、A6からD8番地（オレンジ枠の部分）と、A10からD11番地（緑色の枠の部分）の2ブロックに対して、各セルを仕切る横線部分（下の図の矢印の線）のみを点線にしてみたいと思います。 つまり、「選択したセル範囲の、一番上に線を引きますよ」という意味になるので、, 先程と同じくA3からB5番地を範囲選択して設定するならば、「選択したセル範囲の一番上」、つまり、左の図の位置に線が引かれるのではないかと、想定できます。, ［セルの書式設定］ダイアログボックスの［罫線］タブで、先程と同じように二重線を選択します。 このボタンを拡大したのが下の図。 Ｂ－Ｄ列が時間記入欄とします。 プレビュー枠の中に、「文字列」、「文字列」・・・とありますが、, これは1つ1つのセルを表します。 罫線のタブをクリックしてから・・・・とここまでくれば後は分かると思います 反映されます。 これから、セルに罫線を引くという飾り付けをしたかったので、Excelさんが表示してくれた一覧から［セルの書式設定］をクリックで選択した、というわけです。, セルへの飾り付けをあれこれとできてしまう［セルの書式設定］ダイアログボックスが表示されます。 でも、もしやってしまった場合には（笑）、ダイアログボックス右下の［キャンセル］ボタンをクリックして、もう一度最初から設定すればOKですヨ。, プレビュー枠で、該当する線を直接クリックして指定した後、［OK］ボタンをクリックすれば、範囲選択したセルの右側に二重線を引くことができました！, プレビュー枠を直接クリックして指定する方法をとったとしても、「セリフ」は全く同じです！, まずは、斜め線を引きたいのはA4番地なので、A4番地を選択し、［セルの書式設定］ダイアログボックスを表示します。 表罫線の表示は、該当セル範囲を選択し右クリック→線種とページ罫線と網かけの設定→「罫線」タブで、線の種類、色、太さを選択し、左側の種類または右側のプレビュー部分をクリックして罫線を指定します。, エクセルで表を作っています。 　For Each myTmp In myCol.Cells With Range(Target.Offset(0, -3).Address & ":" & Target.Offset(0, -1).Address) 例えば下の図のように、A4からA11番地までのセルの右側に二重線を引きたい、と思ったとします。, でもですね、［ホーム］タブにあるボタンには、選択したセルの右側に二重線を引くものはありません。 　'表の範囲を指定 「セルの書式設定 基本のキ（罫線編）」 参考URL：http://www.relief.jp/itnote/archives/002242.php, 普通はオートシェイプを使えばできますよね。 文字が入っていなければB1セルからC1セルを引く、という状態です。 Set Rc = Intersect(Target, Range("E5:E30")) 今回は、下のような表に罫線を設定しながら、罫線のテクニックをもう一歩前進させたいと思います！, 今回の操作は、 Excelでいう"セル"の一つを斜線で消す、ということです。 太線や二重線を引くには; 3.3. 何か特別なマクロで可能でしょうか？ 　Set myRng = ActiveSheet.Range("A1:E20") 　Set myCol = myRng.Columns(1) 　・起動方法　：　手動 エクセル（XP）で数式が自動計算されなくなって 　　myRng.Cells(myRng.Rows.Count, 1).Offset(1, 0).Top) 　２　右クリックし、セルの書式設定を選ぶ Private Sub Worksheet_Calculate() 選択し、そのままEnterキーを押すと計算結果が この位置の線は、範囲選択した各ブロックの、一番上の線と、一番下の線を表すので、もし指定してしまうと、, 各ブロックの一番上の線と、一番下の線、つまり下の図の位置の線が点線になってしまうからです。, 今度は下の図の、B5からD5番地（オレンジ枠の部分）と、B9からD9番地（緑色の枠の部分）の2ブロックに対して、各セルを仕切る縦線部分（下の図の矢印の線）のみを, まずは、B5からD5番地と、B9からD9番地の2ブロックを一緒に範囲選択後、［セルの書式設定］ダイアログボックスを表示します。, 表示されたダイアログボックスの［罫線］タブで設定していきます。 同じことがありました。 よろしくお願いします。, pi-man39さんのお使いのバージョンがわかりませんが、 複数のセルに 太い線だったらお好みでどれでもOKですヨ。, そして、右側の［外枠］ボタンをクリックすると、中央のプレビュー枠に「こんな風に設定されますよ〜」と表示されます。 ［ホーム］タブにあるボタンは、一般的によく使われるものを、スピーディーに設定する時に便利なのですが、それぞれの細かな好みに合わせた設定はできません。 　'「データが無い行」が無ければ抜ける 使いこなせば、資料作成の作業効率がグッとアップする便利なエクセル。今回は、そんなエクセル初心者が最初に知っておきたい基礎知識や表作成の方法、関数についてご紹介します。 =IF(A1="『どんな文字でも』","",+B1-C1) 　Dim myTmp As Object 　　If IsError(myTmp.Value) Then myCnt = myCnt + 1 　Set myCol = myRng.Colu...続きを読む, ワードの文章の中に　表がはいってるのですが 宜しくお願いいたします。, 斜線を引きたいセルの上で右クリック。 　Dim myCnt As Integer End With 表の上の行から順にデータが入力されていきますが， With Range(Target.Offset(0, -3).Address & ":" & Target.Offset(0, -1).Address) 色を変えたりして表示していないようにしているだけです。, 「特別」なものではありませんが。 　　myRng.Cells(myCnt, myRng.Columns.Count).Offset(0, 1).Top, _ でも、範囲選択した状態では、どんな風に設定されたかがイマイチ分かりづらいので、, 範囲選択を解除すると、分かりやすいです。 の場合。 こんにちは。エクセル2000を使用しています。斜線を引くにはセルの書式で設定するか、オートシェイプを使えばできますが、複数のセル（例a1：c2）に一本の斜線をひく場合オートシェイプを使わずにひく方法はないでしょうか？オートシ 　Next myTmp 分かる方、教えて下さい。, どうしても斜線が必要なら、ワークシートのイベントを使うしか無いです。 A1セルに『どんな文字でも』入っていたならば、空白に。 でも！［セルの書式設定］ダイアログボックスなら、それが可能なんです！, では早速 設定していきましょう！ なので、罫線の種類は「なし」を選択します。 　 またＩＦ関数以外でも同様のことができれば構いません。 （既に目的の線が引いてあるのに、もう一度同じ設定を繰り返すと、線が消えてしまいます。 Private Sub Worksheet_Change(ByVal Target As Range) これは、画面での表示がそう見えているだけで、実際に印刷すると、ちゃんと太く印刷されますから大丈夫ですヨ。, 範囲選択したセルの下に二重線を引く時、手っ取り早い方法は、これまた［ホーム］タブの［下二重罫線］ボタンなわけですが、今回も［セルの書式設定］ダイアログボックスを使って設定してみます。 例えば 　３　罫線タブをクリック すみませんが、その斜線の引き方を教えてください。 描画オブジェクトをほかのオブジェクトに合わせるのチェックを有り '---------------↑　ココマデ　↑--------------- 　　myRng.Cells(myRng.Rows.Count, 1).Offset(1, 0).Left, _ 数式等のエラーだとは考えにくいです。 罫線の引き方を変えると、罫線セル単位で一気に縦線や横線を引いたり消したりすることができます。 マウスを使って罫線セルの端まで一気に線を引く・消す; キー操作で罫線セルの端まで一気に線を引く・ … ［OK］ボタンをクリックすると、, さて、［セルの書式設定］ダイアログボックスで、罫線を引く際に押していたボタン、［外枠］や［内側］、そしてセルに斜めの線を引くボタンは分かりやすいとしても、それ以外のボタンが、どこに線を引くボタンなのかが分かりづらい！という方も、中にはいらっしゃるかもしれません。, それでは、それがどういうことなのかを実際に見て頂くために、練習ファイルを操作しながらご覧いただいている方は、画面左下のシート見出しをクリックして、Sheet2に切り替えておいてください。, まずは左の図のボタン。 通常の場合、エクセル上部のメニューから操作したり、右クリックから罫線を設定する…といったマウス操作が必要になりますよね。 しかしこの方法を使えば、キーボード操作のみで一発で、素早く罫線を設定することができますよ。 キーボードからマウスに手を伸ばすという行為自体は1 例えば 罫線の引き方その1、罫線を一覧から選んで引く; 3.2. 　 （ツールバーなども初期状態に戻ります） 　４　右下に右下がりの直線を引くボタンがあるので、それをクリック .Borders(xlDiagon...続きを読む, エクセルで表を作りました。 線を消したい時の考え方も、今までと同じ。 「［ホーム］タブにあるボタンで罫線を設定できるんだから、［セルの書式設定］ダイアログボックスで設定する方法なんて覚えなくていいんじゃない？」 エクセルで真ん中に罫線を挿入する方法【セル分割による縦の中心線の挿入】 続いてセルを分割し、罫線として縦の線を追加する方法を確認していきます。 厳密には一つのセル自体を分けるのではなく、2セル分を使用し、その幅を半分にします。まずは、隣りあう2 「セルの書式設定 基本のキ（罫線編）」、「セルの書式設定 基本のキ（罫線で混乱しやすいポイント編）」では、リボンにあるボタンを使って、セルに罫線を設定する、とても簡単な方法をご紹介しました。 Dim Rc As Variant 「エクセルに興味があるから、ちょっと本でも読んでみよう」と思ったのはいいけれど、どれから読めばいいんだろうと迷っていませんか？ エクセルの本やテキストは、たくさん出版されていますが、多すぎて逆にどれを選べばいいのだろうと迷ってしまいますよね。 ダイアログボックス右下の［OK］ボタンをクリックすると、, 範囲選択したセルの下側に、二重線を引くことができたのですが、やはり範囲選択した状態ではどんな風に設定されたのかが分かりづらいので、, 範囲選択を解除すると、どんな風に設定されたかが分かりやすいです。 （線を引くボタンを押したあとで、プレビュー枠の線もクリックしてしまった方は線が消えてしまいます。もう一度どちらかをクリックすると再設定できます）, 今回は、下の図のオレンジ枠のブロックと、緑色の枠のブロックの2ブロックに対して指定を行ったわけですが、点線に変更した罫線は、各ブロックとも、上下をセルとセルとで挟まれた、その間の横罫線です。, プレビュー枠の「文字列」はセルのことを表しますから、上下をセルとセルとで挟まれた横罫線とは、左の図の矢印の部分の線に相当します。, ここで、左の図の、矢印の線はなぜ指定しないんだ？と思った方もいらっしゃるかもしれません。 ファイナルアンサー？（←古い）, では早速、A3からB5番地を範囲選択後、［セルの書式設定］ダイアログボックスで、二重線をその位置に設定してみてください。, ここで、［セルの書式設定］ダイアログボックスのプレビュー枠では、線が1本しか引かれなかったのに、, 実際に設定してみると、2本引かれてるではないか！と混乱してしまった方はいらっしゃいますか？, プレビュー枠で確認するのは、「罫線の本数」ではなく、「罫線の位置」です。 　　myRng.Cells(myCnt, myRng.Columns.Count).Offset(0, 1).Left, _ 　・表の範囲　：　A1:E20 Sub Sample() .Borders(xlDiagonalUp).Weight = xlHairline （練習用ファイルで実際に操作をしながらご覧いただいている方は、次の操作のために［元に戻す］ボタンをクリックして、線を引く前の状態に戻しておいてください。）, 今度は左の図のボタン。 参考URL：http://www.vector.co.jp/soft/win95/util/se247118.html, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 プレビュー枠で、該当する線を直接クリックする場合には、線と線とが交わるような位置ではクリックしないこと。