WINDOWS XP EXCELL 2003です。
いつもお世話になります。
ご迷惑とは重々と承知しながら再度質問させていただきます。
1 御指導を賜りたいのは、
現在A列には月度を示す 01~12 が入力され月別にセルの背景色を塗りつぶしていますがこれをA列用のマクロを工夫してF列にも同様に適用したい。
例えば参照図で言うと
A7 05 ピンク
A8 05 ピンク
A9 06 ライトブルー
A10 07 草色 等のように
※参照図のF列のセルには背景色は適用していません。
2 参照図のそれぞれの設定は、
※計画 と 生産はセル位置だけの違いで生産の方は割愛します。
D1 ユーザー定義 mm/dd
D2 ユーザー定義 200000
D3 数値
A7 ユーザー定義 mm
マクロ
ボタン「計画入力」
Sub 計画入力()
Dim GYOU '追加
GYOU = Range("C65536").End(xlUp).Row + 1
Cells(GYOU, 2).Value = Range("D1").Value
Cells(GYOU, 3).Value = Range("D2").Value
Cells(GYOU, 4).Value = Range("D3").Value
End Sub
ボタン「セルセット」
Sub 計画セル()
Range("D1,D2,D3,D1").Select
End Sub
A列のセル塗りつぶし
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 8 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address Then
Target.Offset(0, 0).Value = Date
End If
Dim c As Integer
If Target.Column <> 2 Then Exit Sub
If Target.Value = "" Then
c = 0
Else
On Error GoTo line
Select Case Month(Target.Value)
Case 1: c = 46
Case 2: c = 4
Case 3: c = 39
Case 4: c = 6
Case 5: c = 7
Case 6: c = 8
Case 7: c = 43
Case 8: c = 3
Case 9: c = 44
Case 10: c = 24
Case 11: c = 40
Case 12: c = 17
End Select
End If
Target.Offset(0, -1).Interior.ColorIndex = c
Target.Offset(0, -1).Font.ColorIndex = IIf(c = 1, 2, 0)
Exit Sub
line:
Target.Offset(0, -1).Interior.ColorIndex = 0
Target.Offset(0, -1).Font.ColorIndex = 0
End Sub
御指導よろしく御願いします。
No.1ベストアンサー
- 回答日時:
再度質問ということは、前にも質問して、その回答が提示しているコードということでしょうか。
このコードの意味、理解していますか?
理解していれば、
If Target.Column <> 2 Then Exit Sub
を
If Target.Column <> 2 And Target.Column <> 7 Then Exit Sub
に変えるだけだということが容易に解ると思うのですが。
早速のご回答いただき有難うございました。
悩みに悩んだあげくに旨くいきほんとうに今は至福の一時です。
下記のことが中々分からず本当に済みませんでした。
And Target.Column <> 7 Then Exit Sub
No.2
- 回答日時:
>これをA列用のマクロを工夫してF列にも同様に適用したい。
それはあなたが出来なかった「色の選択」とは無関係の部分で,前回・前々回のご質問でも繰り返し回答済みの部分です。
寄せられた回答を丸ごと捨てるのも,そりゃあなたの自由ですが。
再掲:
private sub worksheet_change(byval Target as excel.range)
dim h as range
dim a
a = array(0, 46,4,39,6,7,8,43,3,44,24,40,17)
set target = application.intersect(target, range("B:B,F:F"))
if target is nothing then exit sub
for each h in target
h.offset(0, -1).interior.colorindex = a(val(h.offset(0, -1)))
next
end sub
本当に知識不足のわたしにお付き合いしていただき有難うございました。
ご迷惑をおかけして誠に申し訳なく思っています。
今後ともこれに懲りず御指導の程よろしく御願いします。
有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA:データ端に画...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
[EXCEL]ボタン押す→時刻が表に...
-
A1に入力された文字列と同じ文...
-
セルの色によって条件文をつけ...
-
エクセルで特定の文字列が入っ...
-
Excel グラフのプロットからデ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルマクロで偶数行(又は...
-
エクセル マクロ オートフィ...
-
エクセル 時間の表示形式AM/PM...
-
エクセル マクロで数値が変っ...
-
セルではなく行や列、シート全...
-
Excelのフィルター後の一番上の...
-
VBAで「Shift+ctrl+↓」のような...
-
エクセルの列幅以上の文字列を...
-
オートフィルターで抽出してコ...
-
空白行から空白行までの合計値...
-
エクセルVBAのEntireRow.Hidden...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報