|
▼Statis さん:
早速ためしてみたのですがうまく動作しません。
シートモジュールとはVBAPROJECTのSheet1のことですよね。
初歩的なことを聞いて申し訳ございません。
>こんにちは
>
>シート1のシートモジュールにコピーしてください
>動作:セルA5に「1」か「2」を入力して「Enter」等で
> セルを移動すると動作します。(1,2以外は動作しません)
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim Sh As String
>With Target
> If .Address(0, 0) <> "A5" Then Exit Sub
> If .Cells.Count > 1 Then Exit Sub
> Select Case .Value
> Case 1: Sh = "A"
> Case 2: Sh = "B"
> Case Else: Exit Sub
> End Select
> Application.EnableEvents = False
> .Offset(1).Value = Worksheets(Sh).Range("B20").Value
> Application.EnableEvents = True
>End With
>End Sub
|
|