No.2
- 回答日時:
ANo1さんの方法、参考になりました。
わたしはまだエクセル2000なので、VBAでの方法を考えてみました。
> もしくは入力してある最終行にカーソルがある時、改行を押した場合
改行を押した結果、「下の空白行のA~E列のどれかをセレクトした場合」ということでよろしいでしょうか?
ならば以下をお試しください。
1. 該当するシートのシートタブを右クリックして、[コードの表示]。
2. 出てきた白い所に、以下のコードを貼付けます。
'********これより下**********
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 3 Then Exit Sub
If Target.Column > 5 Then Exit Sub
If Application.WorksheetFunction.CountA(Cells(Target.Row, "A").Resize(, 5)) > 0 Then Exit Sub
With Cells(Target.Row, "A").Resize(, 5).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
'********これより上**********
3.Alt+F11キーでワークシートへもどります。
これでOK
No.3
- 回答日時:
マクロでやりたいご質問でしたね。
シート名タブを右クリックしてコードの表示を選び,下記をコピー貼り付けておきます。
private sub Worksheet_Change(byval Target as excel.range)
if application.intersect(target.cells(1), range("A:E")) is nothing then exit sub
with range("A2:E" & target.cells(1).row + 1).borders
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = 1
end with
end sub
#参考
「その行だけ」に書式を施すと,あとで印刷したり諸々に際して不都合の原因になる場合があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
行を挿入すると表の罫線が消えてしまわないようにしたい
その他(データベース)
-
マクロ最終行挿入
Excel(エクセル)
-
-
4
VBAで最終行まで罫線を掛ける方法
Excel(エクセル)
-
5
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
6
ExcelのVBAで連番を振る。
Excel(エクセル)
-
7
ExcelVBA データを消去すると罫線も消える?
その他(プログラミング・Web制作)
-
8
エクセルでデータがある部分だけ罫線で囲いたいです。
Excel(エクセル)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
VBA 最終行に10行、行を挿入する作業。
その他(Microsoft Office)
-
13
UserForm1.Showでエラーになります。
工学
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
16
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
17
検索して修正したデータの上書転記
Visual Basic(VBA)
-
18
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
19
Application.ScreenUpdating=Falseを使うと・・・。
Access(アクセス)
-
20
ラベルを表示したり非表示にしたりしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel VBA ピボットテーブルに...
-
SUMPRODUCTにて別シートのデー...
-
エクセルのブック分割マクロを...
-
エクセルの列の限界は255列以上...
-
ExcelのVlookup関数の制限について
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセル機能 オートフィルター
-
列幅を変えたエクセルのシート...
-
Excel 2段組み
-
別シートに成約をボタン1つで転...
-
エクセル マクロ 標準モジュー...
-
VBA 複数の列を高速で削除する...
-
エクセルVBAでエラーがでます。
-
Excelに自動で行の増減をしたい...
-
エクセルVBAで、ある文字を含ん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセルマクロを教えてほしい...
-
SUMPRODUCTにて別シートのデー...
-
Excel VBA ピボットテーブルに...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
Excelに自動で行の増減をしたい...
-
スプレッドシートでindexとIMPO...
-
エクセルで横並びの複数データ...
-
エクセル複数シートのデータを...
おすすめ情報