|
▼Jaka さん:
Jakaさん、おはようございます。
初心者に優しいレスありがとうございます。
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim scr As Integer
> If Target.Count > 1 Then Exit Sub
> If Target.Address(0, 0) <> "C2" Then Exit Sub
> If Target.Value = "" Then Exit Sub
> If Application.IsNumber(Target.Value) = False Then Exit Sub
これまた私の説明不足が原因で申し訳ありませんが、[Sheet1]のA2〜C2迄が数万行入ったシートがあって、そのD列を[Sheet2]を表引きしながらマクロで埋めたかったのです。
> If Target.Value < 40 Then
> scr = 40
> Else
> scr = Target.Value
> End If
それと、上記の<40で判断されているのは?
どういう意図なのでしょうか?
> Application.EnableEvents = False
> kns = "OFFSET(Sheet21!A1,MATCH(A2,Sheet21!A:A,0)-1," & _
> "MATCH(" & scr & "+19,Sheet21!1:1,1)-1,1,1)"
> ans = Application.Evaluate(kns)
> Range("D2").Value = ans
> Application.EnableEvents = True
すいませんが、上記のApplication.EnableEvents = の意味(何の為に)と、この間の処理内容を教えて頂けませんか?
1つでも多くの手法を身に着けたいと思いますので、
何卒よろしくお願いします。m(_ _)m
|
|