Excelのアクティブセルについて質問です。

Question

japan-nan

31

31もっと見る

500pt

コンピュータインターネット

Excelのアクティブセルについて質問です。

添付図のように、C5セルを選択するとC5セルを赤く塗りつぶし、H5にC5の値を入れる。それを5行目だけでなく6行目～複数行毎で実行したいです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRng5 As Range
Set myRng5 = Range("C5:G5")
myRng5.Interior.ColorIndex = 2
If Intersect(Target, myRng5) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Interior.ColorIndex = 45
End Sub

回答の条件

1人10回まで

登録：2021/09/22 07:13:47
終了：2021/09/22 22:06:22

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

たか · Accepted Answer · 2021-09-22T13:38:44+09:00

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myRng5 As Range
    Set myRng5 = Range("C" & ActiveCell.Row & ":G" & ActiveCell.Row)
    myRng5.Interior.ColorIndex = 2
    If Intersect(Target, myRng5) Is Nothing Or Target.Count > 1 Then Exit Sub
    Target.Interior.ColorIndex = 45
    Cells(ActiveCell.Row, "H").Value = ActiveCell.Value
End Sub

Excelのアクティブセルについて質問です。

ベストアンサー

たか120202021/09/22 13:38:44

コメント（0件)

この質問への反応（ブックマークコメント）