|
何をどうしたいのか、ますます分からなくなってますが、コードの意味は理解して
いるのでしょーか ? 知らない語句があったらそこへカーソルを当てて、F1キーを
押してヘルプを出して調べる、という基本的な解析をしていれば、最初のIntersectで
"A1:A3以外のセルが変化しても中止される"ということが分かるはずだから、
>If Intersect(Target, Range("B1:B3")) Is Nothing Then Exit Sub
などというコードを途中に入れても、意味がないことも分かるはずです。
とにかく、提示されたコードをよく理解することが第一歩です。それが出来ないうちは
改造などできるはずがありません。自分で改造する自信がないなら、初めから希望する
処理内容を、正確かつ具体的に説明するような質問にするべきです。
よって今回で最後のレスとします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long, y As Long
Dim St As String
Dim RetR As Range
If Intersect(Target, Range("A1:B3")) Is _
Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
x = Range("C1").Value
If Target.Column = 1 Then
St = Range("A1").Text & Range("A2").Text & _
Range("A3").Text
Else
St = Range("B1").Text & Range("B2").Text & _
Range("B3").Text
End If
Select Case St
Case "ピーマン東京3月10日": y = x * ? '?は定数
以下、全てのパターンを書き出す
End Select
Select Case Target.Row
Case 1: Set RetR = Range("C3")
Case 2: Set RetR = Range("C4")
Case 3: Set RetR = Range("C5")
End Select
With Application
.EnableEvents = False
RetR.Value = y
.EnableEvents = True
End With
Set RetR = Nothing
End Sub
|
|