| |
▼β さん：
>▼洋子 さん：
>
>>自力で何とかできました。
>
>それは祝着です。
>用済みですけど、アップしようとしていたコードを参考までに。
>
>シートモジュールに。
>★のところは、好きなセルを好きな順番で。
>最初のセルを最後にも記述してください。（アップしたコード例ではG8)
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> Dim adr As Variant
> Dim a As Range
> Dim x As Long
>
> adr = Array("G8", "I10", "K14", "M18", "H24", "K31", "N27", "G8") '★
> Set a = Range(Join(adr, ","))
> If Intersect(Target(1), a) Is Nothing Then Exit Sub
> x = WorksheetFunction.Match(Target(1).Address(False, False), adr, 0)
> Range(adr(x)).Select
>
>End Sub
β さん：最後までご指導有難うございます。
因みに
Private Sub Worksheet_Change(ByVal Target As Range)を使ったコードが二つあるためエラーとなるようです。回避方法ありますか？ちなみ下記子どとなります。
Private Sub Worksheet_Change(ByVal Target As Range)
Const TgCel = "N5" ' <-- 特定セルを指定
If Not Intersect(Range(TgCel), Target) Is Nothing Then
If Range(TgCel) <> "" Then
'MsgBox "セル" & TgCel & " に値が入力されました。"
Call 貼付 ' <-- 実行するマクロ指定
End If
End If
End Sub
宜しくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
