![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
VBAのコードを作成してくれるよう、ChatGPTに依頼してみました。
以下、ChatGPTの回答からの引用です。
私は検証はしていないので、ご自身で検証並びに必要なモディファイを行って下さい。
---------------------------------------------------------------------
Excelで特定の罫線の色に基づいてセルの数をカウントするVBAコードを紹介します。このコードは、赤と青の罫線を持つセルの数をカウントし、その結果を新しいシートに出力します。
以下の手順に従ってください:
1. **Excelを開く**
2. **Alt + F11**を押してVBAエディタを開く
3. **挿入** → **モジュール**を選択し、新しいモジュールを作成
4. 次のコードをそのモジュールに貼り付ける
```vba
Sub CountCellsByBorderColor()
Dim ws As Worksheet
Dim cell As Range
Dim redBorderCount As Long
Dim blueBorderCount As Long
Dim borderColor As Long
Dim newSheet As Worksheet
' 調べるシートを設定
Set ws = ThisWorkbook.Sheets("Sheet1") ' 調べるシート名に変更してください
' 赤と青の罫線をカウント
redBorderCount = 0
blueBorderCount = 0
For Each cell In ws.UsedRange
With cell.Borders(xlEdgeLeft)
borderColor = .Color
If borderColor = RGB(255, 0, 0) Then
redBorderCount = redBorderCount + 1
ElseIf borderColor = RGB(0, 0, 255) Then
blueBorderCount = blueBorderCount + 1
End If
End With
With cell.Borders(xlEdgeRight)
borderColor = .Color
If borderColor = RGB(255, 0, 0) Then
redBorderCount = redBorderCount + 1
ElseIf borderColor = RGB(0, 0, 255) Then
blueBorderCount = blueBorderCount + 1
End If
End With
With cell.Borders(xlEdgeTop)
borderColor = .Color
If borderColor = RGB(255, 0, 0) Then
redBorderCount = redBorderCount + 1
ElseIf borderColor = RGB(0, 0, 255) Then
blueBorderCount = blueBorderCount + 1
End If
End With
With cell.Borders(xlEdgeBottom)
borderColor = .Color
If borderColor = RGB(255, 0, 0) Then
redBorderCount = redBorderCount + 1
ElseIf borderColor = RGB(0, 0, 255) Then
blueBorderCount = blueBorderCount + 1
End If
End With
Next cell
' 結果を新しいシートに表示
Set newSheet = ThisWorkbook.Sheets.Add
newSheet.Name = "BorderColorCount"
newSheet.Cells(1, 1).Value = "赤い罫線のセル数"
newSheet.Cells(1, 2).Value = redBorderCount
newSheet.Cells(2, 1).Value = "青い罫線のセル数"
newSheet.Cells(2, 2).Value = blueBorderCount
End Sub
```
5. コードを保存し、VBAエディタを閉じる
6. Excelに戻り、**Alt + F8**を押して「CountCellsByBorderColor」を実行
これにより、特定のシート上の赤と青の罫線を持つセルの数をカウントし、新しいシートに結果を出力します。シート名や色のRGB値は必要に応じて調整してください。
No.2
- 回答日時:
No1です。
>「ユーザー定義関数」が理解できません。
理解できないものを説明したところで無駄だとは思いますけれど・・
https://oshiete.goo.ne.jp/qa/2550692.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。 3 2023/10/21 16:09
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Excel(エクセル) 罫線の横棒の隣に文字を書きたい 5 2022/11/28 17:31
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
- Excel(エクセル) Excelのマクロを教えていただけないでしょうか? 1 2023/07/06 19:56
- Excel(エクセル) 行数が不規則な一週間ごとの合計値の計算をVBAで実行したいです。 2 2024/04/29 18:40
- Excel(エクセル) エクセルの罫線が消えます。 5 2023/09/08 09:58
- Word(ワード) ワードでの罫線の改行につい 4 2022/10/24 11:05
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- Visual Basic(VBA) Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について 9 2024/07/06 18:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの数を求めたい
-
Excelの外枠太罫線を2~3倍さ...
-
excel2003 罫線だけを保護したい
-
Excelの条件付き書式設定の太い...
-
EXCELで、下線の太さを変...
-
OpenOfficeのCalcで罫線の削除...
-
【エクセル】謎の枠線の消し方
-
罫線の色を薄くしたい
-
罫線が引かれているセルの個数...
-
Excel VBA 空白セル以外のセル...
-
Excel条件付き書式での罫線の処...
-
エクセルで文字を入力すると罫...
-
決まった罫線のなかで、文章入...
-
Excelに初期設定されている罫線...
-
エクセルの罫線と文字の色が勝...
-
エクセルで選択範囲以外に色を...
-
条件付き書式で自動で斜線の罫...
-
【至急】word 表の中を箇条書き...
-
斜め罫線の判定 ExcelVBA
-
エクセルのクイックアクセスツ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
Excelの外枠太罫線を2~3倍さ...
-
excel2003 罫線だけを保護したい
-
EXCELで、下線の太さを変...
-
【エクセル】謎の枠線の消し方
-
罫線の色を薄くしたい
-
エクセルで罫線も一緒に並び替...
-
エクセルで文字を入力すると罫...
-
パワーポイントで、表の一部を...
-
決まった罫線のなかで、文章入...
-
エクセル
-
罫線が引かれているセルの個数...
-
エクセル表の罫線(縦)が消せ...
-
エクセルのアンダーラインについて
-
エクセル 入力されていない線...
-
EXCELのオートフィルタで罫線が...
-
勝手に背景に色が付いて困っ...
-
罫線の色をまとめて変更する
-
条件付き書式で自動で斜線の罫...
-
Wordで表のセル幅を超えたら次...
おすすめ情報