|
先日はありがとうございました。
一つ目の課題はクリア出来たのですが、次の課題がどうしてもわかりません。
次の課題というのも前回と似たようなものなのですが、
前回は
A1:C5の中に1を一つだけ表示する、
というコードをお願いしましたが、
今回は、
A1:C5の中に1を一つだけ表示し、
且つ、
A6:C10の中に1を一つだけ表示する、
というものがほしいのです。
前回教えていただいた式を参考にして、
単純にIFを二つ入れればできるんじゃないかと考えたのですが、
コードの中身が理解できていないせいでどうもうまくいきません。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim clvl As Variant
If Application.Intersect(Target, Range("A1:C5")) Is Nothing Then Exit Sub
If Target.Offset(-1, 0) <> "" Then
clvl = Target.Offset(-1, 0)
Range("A1:C5").ClearContents
Target.Offset(-1, 0) = clvl
End If
If Application.Intersect(Target, Range("A6:C10")) Is Nothing Then Exit Sub
If Target.Offset(-1, 0) <> "" Then
clvl = Target.Offset(-1, 0)
Range("A6:C10").ClearContents
Target.Offset(-1, 0) = clvl
End If
End Sub
出来れば今後のためにも自分で覚えていきたいので、
なにかヒントになるようなものを頂ければ幸いです。
よろしくお願いします。
|
|