• ベストアンサー

EXCEL2000 VBA 罫線を引く その2

http://www.okweb.ne.jp/kotaeru.php3?q=564008 こちらで質問させていただき、#2の方法で出来たと思い締め切ったのですが、どうやらセルの高さが初期値でない場合、全部のセルに罫線を引く事がわかりました(汗) 1)あくまでも、データが入っている場合のみ罫線を引く方法 2)データが入っている行のみあとから行の高さを80にする方法 他に解決策があれば、よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • happypoint
  • ベストアンサー率36% (521/1422)
回答No.1

先ほども回答して滑り込みアウトだった者ですが・・・ 以下の方法ではどうでしょう? ※必要に応じて、 Const myCol As Long = 4や Const myKey As Long = 2の 数字の値を書き換えて使用してください。 Sub Sample() Dim myRow As Long Const myCol As Long = 4 'データ全体の列数(D列までデータがあるなら、4) Const myKey As Long = 2 '必ずデータがある列の番号(たとえばB列なら、2) ’範囲指定する myRow = ActiveSheet.Rows.Count myRow = Cells(myRow, myKey).End(xlUp).Row 'データ項目数を取得 Range(Cells(1, 1), Cells(myRow, myCol)).Select ’罫線を引く With Selection .Borders.LineStyle = xlContinuous End With End Sub

kyrie_esumi
質問者

お礼

今度こそ完璧に出来ました。 ありがとうございました♪

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • excel2000罫線の引き方について

    excel95から2000にバージョンアップし、罫線の引き方が かわり作業能率が落ち、困っております。 たとえばA1,A2セル(たてに二つのセル)のどちらの セルにも、いっぺんにセルの下辺にのみ罫線を引きたい場合 95の場合:2つのセルを選びツールバーの下罫線(「 _ 」 というようなアイコン)を押すとどちらのセルにも罫線がつく 2000の場合では、同じようにしたら下のセルにしか罫線が 引けません(この場合はA2セル)。 このようにしたい場合はいちいち、右クリック→セルの 書式設定→罫線で現在処理を行っていますが、他にいい方法 はありませんでしょうか。 また、セルを結合し中央揃えの場合も同様で使い勝手が悪いです。 あきらめるしかないのでしょうか。

  • Excel:セルの幅を個別の行に適用したい

    「excel:セルの大きさを小さくしたい」 http://okwave.jp/kotaeru.php3?q=2081753 ここで質問させてもらい、セルの幅や高さを指定する方法を教えてもらいました。 「エクセル基本講座 セル幅の調整」 http://www.eurus.dti.ne.jp/~yoneyama/Excel/cell_ido.htm#habatyousei ただ、このやり方ではシートの行全体に同じセル幅を適用することしかできません。 一行目はセル幅5で、 二行目はセル幅10で、 といったやり方は存在しないのでしょうか? どういうことがしたいかというと、 表を作っているのですが、その表では一行目に5個の項目があり、 それらを罫線で囲っています。 ところが二行目にはその倍以上の項目があり、 それらを罫線で囲まなければならないのですが、 罫線はセルの幅や高さに沿ってしか作成できないようで、 困っています。 よろしくお願いします。

  • EXCEL2010罫線が印刷できない

    EXCEL2010であるシートを印刷すると罫線の一部が表示されません。 ※EXCEL2013では印刷できます。 サイズはA3でそのプリンタからしかA3は印刷できません。 一部の行を非表示にしています。 ※罫線が印刷されない部分は非表示のセルと隣接していません。 罫線は一番細い点線です。 上手く印刷する方法はないでしょうか? ・印刷品質600⇒200 罫線が表示されて印刷されたが全体が大きくずれた ・罫線の引き直し   黒色の線で引きなおしたが効果なし ・非表示のセルを表示してから印刷 罫線が問題なく印刷できた  ※印刷はしたくないが必要なデータなので非表示のまま罫線を印刷したい ・行の高さの変更  効果なし

  • EXCEL VBA 罫線

    例えば、セルA5に数字か文字などが入っている場合にA2~F5、セルA100であればA2~F100に罫線を引く方法を教えてください。 ※Aの最終行で判断する。 よろしくお願いいたします。

  • 【Excel】罫線の作成

    Excel2003を使用しています。 罫線を引く際、線を引きたいセルを選択して、罫線メニューから「外枠」や「格子」等のボタンを押せば、簡単に引くことができますが、同じようなボタンを独自に作ることはできませんか? 希望としては… 3行4列のセルに(例えばA1:D3とした場合) A1:D1→上罫線 A3:D3→上罫線+下二重罫線 複数のシートに渡って、この罫線を引くのですが、選択するセルが違うので、作業グループではできません。罫線メニューのボタンをクリックするのと同じような操作で、罫線が引けると嬉しいのですが。。。 よろしくお願いします。

  • 【Excel】一番左の罫線は非表示ですが仕方ないのでしょうか?

    Excel2000(Win-XP)使用者です。 罫線を引くときいつも思うのですが、一番左と一番上の罫線はあるのかないのかわからず不便に思います。 例えば一番左上のセル(R1C1)を罫線で囲む場合、上と左の罫線は見えませんよね? そこで仕方なく1行1列余分な行と列を挿入して見えるようにしている訳ですが、もっといい方法がありはしないか・・・?と思い質問させていただきました。 なにかヒントがありましたらよろしくお願いいたします。

  • 不思議な罫線

    会社の前任者が作成した表なんですけど、タテ罫線が全部の列に設定されているんですが、その罫線はセルにデータがはいっているところまでが印刷されるんです。 今まで新しいデータを追加する時は行コピーしてそこに入力するのが普通だと思っていたんですけど、これは既に 罫線が引かれているのでその必要がありません。 すごく便利なんですけど、この罫線って一体どうやって 作成したのでしょうか? エクセルの達人がいらっしゃったら是非教えて下さい!

  • EXCEL2000 VBA レコードの入っているセルにのみ罫線

    EXCEL2000です。 CSVファイルを取り込んでエクセルシートに貼り付け(値だけを貼り付け)、罫線を受けて書式を整えるマクロを記録したいと思っています。 が、読み込むファイルのレコード数が毎日違う(10から100件程度)ので、取り込んだエクセルシートのセルに罫線がうまくつけられません。先に200程度セルに罫線をつけておく事も考えたのですが、そうすると印刷時にレコードのない部分まで印刷されてしまいます。一枚の紙に15件ほどしか入らないので、10の時に200だと何もレコードの入っていない紙が13枚ほど出てきてしまうのです。 レコードは横もちなのですが、ところどころ虫食いもあります。ただ、必ずB列だけはレコードがあります。 いくつかロジックを考えてみました。 1)Bのセルがnullでなければ、その横A1-D1までに罫線を引く。Bのセルがnullになったら罫線は引かない。それぞれセルごとに罫線が要ります。 2)Bのセルがnullでないセルまでを選ぶ方法。印刷のオプションに選択した範囲を印刷、というのがあるので、レコードが入っている範囲を選択する方法があればそれでもできるかなと。 どなたか教えていただければ幸いです。また、他に案があればよろしくお願いします。

  • VBAを使用し10行おきにセルの下に罫線を引く方法

    Excel2003のVBAを使用し、10行おきに太い罫線をセルの下側に引きたいのですが、ご存知な方教えて頂けないでしょうか? 出来る事なら、セルの中に×が入っている行は自動的に省いて(選ばず)10行おきに罫線を引きたいと思っています。 先日、解決した内容の質問ですが、新たに3行目から最終行までとか罫線を引きたい行を指定出来るようにコーディングいただけると大変助かります。

  • Excel:罫線を固定で残しておく方法はありますか

    エクセル作業で質問です。 色々なところからデータをコピーして貼り付けて表にしています。 作りたい表には罫線をつけているのですが、持ってきたデータによっては セルの周りに罫線があったりなかったりします。 常に貼り付けた場所には固定で罫線を表示させておく方法はありますか?

このQ&Aのポイント
  • 購入した覚えが無いのに引き落としされました。解約方法や返金の手続きについて知りたいです。
  • ESETセキュリティ ソフトウェア シリーズに関する購入問題について解説します。
  • ESETセキュリティ ソフトウェア シリーズの購入履歴がないのに引き落としされた場合の対処方法について詳しく説明します。
回答を見る

専門家に質問してみよう