No.6ベストアンサー
- 回答日時:
>実際の手順を教えてもらえませんか
(1)問題にしているワークシートを開く
(2)メニユーのツール-マクロ-VBEをクリック。
VBEの画面になります。
(3)左側のフレーム(四角い部分)に「プロジェクト」と表題に部分にある問題のシート名をWクリック。
(4)右側のフレーム(コードウインドウ)の「General」の右の▼をクリックして「Worksheet」をクリック。
(5)Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
がでますが無視。
(6)electionChangeが出ている欄の▼をクリックして
「Change」をクリック。
(7)Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
となります。
(8)この真中に、回答のVBAプログラムをコピペします。最初行と最後行はダブらないよう、コピペ対象から外すこと。
(9)表示-オブジェクトをクリックして、ワークシート画面に戻り、操作をする。
No.5
- 回答日時:
#4です。
Changeの引数、Targetで変更されたセル範囲が全て渡されます。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
それをループで処理しています。
Dim r As Range
For Each r In Target
No.4
- 回答日時:
シートタブを右クリックし、コードの表示で出てきたVBE画面の空いている所にコピペします。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
If r.Column = 1 Then
Select Case UCase(r.Value)
Case "A"
r.Offset(0, 1).Interior.ColorIndex = 3
Case "B"
r.Offset(0, 1).Interior.ColorIndex = 5
Case "C"
r.Offset(0, 1).Interior.ColorIndex = 6
Case "D"
r.Offset(0, 1).Interior.ColorIndex = 7
Case "E"
r.Offset(0, 1).Interior.ColorIndex = 8
Case Else
r.Offset(0, 1).Interior.ColorIndex = xlColorIndexNone
End Select
End If
Next r
End Sub
大文字と小文字を区別するなら UCase(r.Value) を r.Value にします。
お礼が遅くてすいません。
教えて頂いた方法でできたのですが、上記マクロでセルの場所はどこで指定しているのですか?
マクロはど素人なので、教えてもらえませんか?
No.3
- 回答日時:
シートのChangeイベントプロセジュアーに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Select Case Target.Value
Case "a"
Cells(1, "B").Font.Color = vbRed
Case "b"
Cells(1, "B").Font.Color = vbCyan
Case "c"
Cells(1, "B").Font.Color = vbYellow
Case "d"
Cells(1, "B").Font.Color = vbBlue
End Select
End If
End Sub
A1の値で、B1セルの文字の色を変えます。
お礼が遅くてすいません。
マクロはど素人なので、もう少し詳しくというか、実際の手順を教えてもらえませんか?
「Changeイベントプロセジュアー」とかいった用語がわかりません。
すいません。
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) マクロ、条件付き書式のfont.color 1 2023/03/28 01:10
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- その他(Microsoft Office) マクロについて教えて下さい 3 2022/05/28 15:36
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- その他(Microsoft Office) エクセルに関しての質問 2 2022/06/25 18:40
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
エクセルで1月0日と表示される!!
-
Rangeメソッドは失敗しました。...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
ファイル起動時、毎回 シート1...
-
エクセルの文字
-
Excelシートの保護時にデータの...
-
別シートのセルを絶対参照にする
-
シート参照で変数を使いたい(EX...
-
複数シートの同じセル内容を1シ...
-
VBAで変数に関数式の結果をセッ...
-
(Excel)あるセルに文字を入力...
-
エクセルで複写のように自動入...
-
エクセルで指定のセルのみ完全...
-
エクセルで、加筆修正したセル...
-
自動で複数セルの内容をシート...
-
ExcelでTODAY関数を更新させな...
-
Excelにて、カタカナだけのセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
別シートのセルを絶対参照にする
-
Rangeメソッドは失敗しました。...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで、加筆修正したセル...
-
シート参照で変数を使いたい(EX...
-
エクセルで複写のように自動入...
-
Excelで複数シートの選択セルを...
-
INDIRECTを使わず excelで複数...
-
ExcelでTODAY関数を更新させな...
-
式の説明をお願いします。
-
excelでハイパーリンクになって...
-
エクセルのルビがついたセルを...
-
Excelでスクロールすると文字が...
-
エクセル ハイパーリンクで画像...
おすすめ情報