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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで1月0日と表示される!!
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
Rangeメソッドは失敗しました。...
-
別シートのセルを絶対参照にする
-
エクセルで条件に一致したセル...
-
パスをセルから取得し保存 VBA
-
エクセルVBA 最終行を選んで並...
-
エクセルで複数のシートの同じ...
-
エクセルで別シートからの最大...
-
ExcelでTODAY関数を更新させな...
-
Excelで複数シートの選択セルを...
-
VBAで変数に関数式の結果をセッ...
-
VBAで、セル(Range)のオブジ...
-
エクセルで複写のように自動入...
-
マクロ 新しいシートにデータ...
-
INDIRECT(空白や()がある文字列...
-
エクセルで他のシートを動的に...
-
複数シートの同じセル内容を1シ...
-
エクセルで、加筆修正したセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
Excelで複数シートの選択セルを...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
別シートのセルを絶対参照にする
-
シート参照で変数を使いたい(EX...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで複写のように自動入...
-
エクセルの文字
-
Excelでスクロールすると文字が...
-
(Excel)あるセルに文字を入力...
-
Excelのファイル容量が減らない...
-
マクロ 新しいシートにデータ...
-
エクセルで別シートからの最大...
-
ExcelでTODAY関数を更新させな...
-
エクセルのセルに、マウスで選...
-
EXCELマクロで、シート間でのコ...
おすすめ情報