|
▼daihan さん:
ウッシ さん、おはようございます。
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> '品名コード、重量検索時用の変数
> Dim hRng As Range
> Dim col As Variant
> With Target
> '変更セルが複数の場合終了
> If .Count > 1 Then Exit Sub
> '変更セルがA2、C2以外の場合終了
> If Intersect(.Cells, Range("A2,C2")) Is Nothing Then Exit Sub
試そう(実体に即した修正をしよう)と理解を始めたんですが、
上記、Worksheet_Change(...と言う事と、6行目の'変更セルがA2、C2以外の場合終了というコメントから、[Sheet1]のA2、C2に値を入れたらD2が表示される仕組みだと理解しました。
これまた私の説明不足が原因で申し訳ありませんが、[Sheet1]のA2〜C2迄が数万行入ったシートがあって、そのD列を[Sheet2]を表引きしながらマクロで埋めたかったのです。
理解しながら、その形に改造を試みていた途中でHirofumiさんのレスが入って、内容的に私の思いと一致しているみたいだったので、そちらを先に試してしまいました。
すいません。m(_ _)m
そこで、素人の私が改造するより、思いが伝われば玄人のウッシさんに直してもらった方が早いと思いますので勝手ばかり言ってすいませんが、お願いできますでしょうか? よろしくお願いします。m(_ _)m
|
|