- ベストアンサー
変動する最終行のみに罫線を引く
よろしくお願いします。 D列のD7から最終行(変動します)を選択して、その行のEからG列に上線は極細の線、 下線は二重線を引きたいのですが構文が解りません。 ご教示お願いします。
- 1211M
- お礼率54% (90/165)
- Excel(エクセル)
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こう言うことですか? Sub MyMacro() Range("D7").End(xlDown).Select Selection.Offset(0, 1).Borders(xlEdgeTop).Weight = xlHairline Selection.Offset(0, 1).Borders(xlEdgeBottom).LineStyle = xlDouble Selection.Offset(0, 2).Borders(xlEdgeTop).Weight = xlHairline Selection.Offset(0, 2).Borders(xlEdgeBottom).LineStyle = xlDouble Selection.Offset(0, 3).Borders(xlEdgeTop).Weight = xlHairline Selection.Offset(0, 3).Borders(xlEdgeBottom).LineStyle = xlDouble End Sub
関連するQ&A
- データ最終行の選択について
よろしくおねがいします AからZ列までデータが入っています 1行目はタイトルです 最終行は全て同一ですが毎回変わります。 例外でM1 N1は空白です 今↓の作業をしているのですが 'D2セルからR列最終セルを選択 Range(Cells(2, 4), Cells(Cells(65536, 1).End(xlUp).Row, 18)).Select そのまえに M2からMデータ最終行の和をM列のデータ最終行の二つ下のセルに N2からMデータ最終行の和をN列のデータ最終行の二つ下のセルに それぞれ記入してから D2からR列最終せるを選択したいのです 仮にデータ最終行を100とすると M2~M100の和をM102に N2~N100の和をN102に それぞれ記入して D2~R100を選択・・・という流れです。 最終行数を選択して それから2を引いて選択しても なぜかうまくいかなく困っております よろしくおねがいします
- ベストアンサー
- オフィス系ソフト
- Excel:決まったセルから常にあるセルの最終行の引き算
添付画像のA7~E7列に数値を入力していき、F列にB~Eの合計がSUM関数により表示されます。 必要に応じ、8行目以降にデータは累積していきます。 D4セルにC4からF列の常に最終行の引き算の数式を入れたいと思っています。 イメージは D4=C4-(F列の最終行)というものですが、具体的にどういう数式をD4セルに当てはめればよいでしょうか? 御教示宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 最終行の検索なんですが、、
きっと簡単だと思うのですが、最終行の検索が、、ど初心者でわかりません。 A列の最終行(可変)にあるB、C、D、Eの値を拾いたい。 データは別のシートにあります。 過去の質問を2時間くらい検索したけどVBA、マクロ関連が多く参考にできるものが見つからないのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- vbaで最終行に張り付け
Excelマクロについて教えてください。 sheet2にsheet1から選択した範囲を貼り付けております sheet2のC列が連続した値になっておりそれを軸に貼り付けをしたいのです。 sheet1のA1:g40の範囲をcutしたものを sheet2のC列の最終入力行の一段下の行に A列から貼り付けしたいのです。 よろしくお願いします
- 締切済み
- その他MS Office製品
- sedコマンドによる最終行の削除について
sedコマンドを使用してファイルの最終行を削除する方法を調べていたのですが 最終行の削除は問題なくできたのですが最終行から特定行までを消すため以下のコマンドを発行したのですがうまくいきませんでした。複数サイトを見てみたんですが構文自体は同じでしたのでおそらく問題ないとは思うですが何か気づく方がいたらお教えください。 以下実行コマンド sed -e '$-3,$d' sed_test.txt
- 締切済み
- Solaris系OS
- 条件に合致した行を削除
Excel2013 マクロをご指南ください。 A列からZ列までデータがあります。 最終行は常に変動します。 E列に日付。Z列に時刻。 全データの中で E列の日付で最も古い日付(同じ日付あり) 且つ Z列の時刻で6:00:00(6時)以前に合致する行を削除する マクロをご教示ください。
- ベストアンサー
- Excel(エクセル)
- EXCELの印刷にて、最終行の表の外枠線について
EXCELで作成した表で印刷が複数毎になる場合 表中の横線がある列が存在すると、ページの最終行の下線(表の外枠線)が消えてしまう。 印刷時に無条件に外枠だけを印刷する設定/方法はありますか? ※excel 2000です
- ベストアンサー
- オフィス系ソフト
- 表のスペース行を簡単につめられる操作はないか
ワード2003で、200行×3列の表があります。 今ある1つの行を見てみると3つの列のカラムがありますが、各カラムには最終の文字、あるいは改行とカラムの下の線までに隙間があります。隙間をつめるため下線を持ち上げていっていけるところまで持っていく作業をしているのですが、200行もあると作業が面倒です。 これらを一度に行えるような操作はないものでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel2003罫線(二重下線)が表示されない
Excel2003罫線(二重下線)が表示されない!! ページが3ページまでの複数になるので、印刷タイトルとして上3行を指定。 3行目は、区切りとして二重下線の罫線にしている。 印刷、もしくは、印刷プレビューで表示すると、1ページ目と3ページ目は きれいに表示されるが、2ページ目は、二重下線が、一重線だったり、 太線だったりする。 なぜでしょうか?
- ベストアンサー
- オフィス系ソフト
補足
ubku様 早速のご提示ありがとうございます。 最終行EからGにラインを引きたいのですが、質問が説明不足ですみません Dim i As Long i = Cells(Rows.Count, 4).End(xlUp).Row Range(Cells(i, 5), Cells(i, 7)).Select Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlHairline Selection.Borders(xlEdgeBottom).LineStyle = xlDouble と、したのですが、データーを増やして再度コマンドボタンを押すと 下の線は二重線になるのですが、上の線が太線になってしまいます。 これを解消する方法を、お教え願えないでしょうか。