No.1ベストアンサー
- 回答日時:
こんばんは!
すでにセル結合はしてあるのですね。
一例です。
ごく簡単に
Sub Sample1()
Dim c As Range
For Each c In Range("B2:F4")
With c
If .Value = "" Then
.Borders(xlDiagonalUp).LineStyle = xlContinuous
Else
.Borders(xlDiagonalUp).LineStyle = xlNone
End If
End With
Next c
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.2
- 回答日時:
No.1です。
投稿後思ったのですが、あまりに手抜きをしすぎていたようなので
結合セルというのを考慮すれば
Sub Sample2()
Dim c As Range
For Each c In Range("B2:F4")
If c.MergeCells Then '//←念のため(範囲内の結合セルのみ対象)//
If c.MergeArea(1) = "" Then
c.MergeArea.Borders(xlDiagonalUp).LineStyle = xlContinuous
Else
c.MergeArea.Borders(xlDiagonalUp).LineStyle = xlNone
End If
End If
Next c
End Sub
こちらの方が少しだけ丁寧かも・・・
どうも失礼しました。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) Excelのマクロについて 1 2023/04/17 17:22
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
vlookupで返された値が空白だったら斜線をひく
会計ソフト・業務用ソフト
-
【VBA】結合セルの罫線処理について
Excel(エクセル)
-
-
4
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
5
斜め罫線の判定 ExcelVBA
Excel(エクセル)
-
6
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
7
【Excel VBA】空白の結合セルに右上り斜線を引く
Visual Basic(VBA)
-
8
Excel(VBA)データ入力に応じて複数範囲のセルの上に1本の斜線を引きたい
Excel(エクセル)
-
9
Excel VBA 条件に一致した言葉の下セルに斜線をひきたい
Visual Basic(VBA)
-
10
excel 空白セルに自動で斜線をひきたいです
Excel(エクセル)
-
11
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
12
別のシートから値を取得するとき
Visual Basic(VBA)
-
13
条件付き書式で自動で斜線の罫線を引く
Excel(エクセル)
-
14
Excel条件付き書式での罫線の処理について
Excel(エクセル)
-
15
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
16
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
17
エクセルで結合したセルに罫線を引きたい
Windows Me・NT・2000
-
18
特定の値のセルに罫線を引くマクロ
Excel(エクセル)
-
19
Excel データ入力に応じて自動的に斜線を引きたいのですが
Excel(エクセル)
-
20
エクセルで条件付きで罫線の斜線を引きたいです。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
セルを結合した場合の関数(COU...
-
エクセル ボタンを押すとセルの...
-
EXCELで、結合されたセルに連続...
-
VBAで結合したセルがクリアでき...
-
エクセルでチェックボックスを...
-
Excel セルを結合したものを抽...
-
エクセルでセルをクリックして“...
-
Excel 離れたセルへの連続デー...
-
エクセルVBAでセルのFormulaHid...
-
エクセルで作業した日の日付を残す
-
Excelの関数を教えてください。
-
エクセルで片方のセルに入力し...
-
結合セルのデータ消去でエラー...
-
Excelのカウントアップボタンに...
-
EXCEL VBAでたくさんのURLの一...
-
Excelの表に自動でナンバリング...
-
セルの値を取得してSQL文に組み...
-
参照先が関数の場合は計算でき...
-
VBAで “:” を含むセルの特定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
エクセル ボタンを押すとセルの...
-
EXCELで、結合されたセルに連続...
-
セルを結合した場合の関数(COU...
-
エクセルで片方のセルに入力し...
-
Excel 離れたセルへの連続デー...
-
VBAで結合したセルがクリアでき...
-
セルの値を取得してSQL文に組み...
-
Excelの表に自動でナンバリング...
-
エクセルでセルをクリックして“...
-
Excelのカウントアップボタンに...
-
エクセル 結合セル内に空白なら...
-
Excel セルを結合したものを抽...
-
VBAで困っています。
-
Excel2007 セルの削除について
-
【EXCEL】条件に合致するセルの...
-
エクセルでたくさんのセルを小...
-
エクセルで作業した日の日付を残す
-
Excelでnullになるような式のセ...
-
EXCEL VLOOKUP的コメント自動表示
おすすめ情報