No.2ベストアンサー
- 回答日時:
No.1です!
たびたびごめんなさい。
前回の投稿で間違いがありました。
後者のコードが違います。
Sub test2()
Dim i, j As Long
For j = 1 To 3
For i = 1 To 5
If Cells(i, j).Interior.ColorIndex = 5 Then
Cells(i, j).Interior.ColorIndex = 1
End If
Next i
Next j
End Sub
に訂正してみてください。
何度も失礼しました。m(_ _)m
No.4
- 回答日時:
回答No3です。
もしかしてセルを塗りつぶすのではなくフォントの色を変えるのでしたら次のようにします。最初は
If Range("A1").Font.ColorIndex = 5 Then
Range("A1").Font.ColorIndex = 1
End If
次は
For ColnP = 1 To 3
For RowP = 1 To 5
If Cells(RowP, ColnP).Font.ColorIndex = 5 Then
Cells(RowP, ColnP).Font.ColorIndex = 1
End If
Next RowP
Next ColnP
この回答へのお礼
お礼日時:2011/07/03 16:25
なるほど、フォントのときにはそのまんまフォントにすればいいのですか。
参考になります。
ベストアンサはごめんなさい先着順とさせていただきまする。
No.3
- 回答日時:
最初は
If Range("A1").Interior.ColorIndex = 5 Then
Range("A1").Interior.ColorIndex = 1
End If
次は
For ColnP = 1 To 3
For RowP = 1 To 5
If Cells(RowP, ColnP).Interior.ColorIndex = 5 Then
Cells(RowP, ColnP).Interior.ColorIndex = 1
End If
Next RowP
Next ColnP
No.1
- 回答日時:
こんばんは!
先生ではなく、一般のおっさんですが・・・
一例です。
前者は
Sub test1()
If Range("A1").Interior.ColorIndex = 5 Then
Range("A1").Interior.ColorIndex = 1
End If
End Sub
後者は
Sub test2()
Dim i As Long
For i = 1 To 5
If Range("A" & i).Interior.ColorIndex = 5 Then
Range("A" & i).Interior.ColorIndex = 1
End If
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) エクセルVBAについて質問です。 セルA1に"あ" セルB3に"い" セルC5に"う" と入力されて 2 2023/06/10 13:24
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
- Excel(エクセル) excel vbaの配列なんですが・・・ 1 2022/12/26 18:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA:フォーム←→セルのア...
-
エクセルでセルをクリックする...
-
(エクセルVBA)セルを左クリッ...
-
結合されたセルの移動 VBA
-
IF関数で違う値もTRUEになる
-
excel マクロでの特殊文字入力方法
-
マクロのデータ削除
-
Excel VBA で色付きのセルの値...
-
VBAでの SendKeysの変数指定方法
-
vbaで指定したセルより下の行を...
-
ダブルクリックでセルに色をつ...
-
EXCELに画像を貼り付けマクロの...
-
Excelでプルダウンからフィルタ...
-
ファイルサーバー上のexcelファ...
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
VBA シートをコピーする際に Co...
-
Excelで、あるセルの値に応じて...
-
「段」と「行」の違いがよくわ...
-
VLOOKUPの列番号の最大は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
excel マクロでの特殊文字入力方法
-
ダブルクリックでセルに色をつ...
-
マクロのデータ削除
-
ExcelVBA コンボボックスに入力...
-
ファイルサーバー上のexcelファ...
-
VBA Rangeの足し算
-
(エクセルVBA)セルを左クリッ...
-
Excelのマクロで選択している行...
-
セルをクリックしたら色を変え...
-
エクセル:セルの色のコード番...
-
EXCEL(VBA) セルをクリックし...
おすすめ情報