| |
▼nana さん：
こんにちは
確認はしてないのですが、こんな感じ、多分大丈夫とは思います？
>すいません、初心者なもので
>これは例えばどのようなものを入れていいのか
>分からないのですが・・・
>>'rangeオブジェクトが上位オブジェクトを指定されていないので指定するように
>>'変更の必要あり
↑これが分からないんですね？
>
>▼neptune さん：
'////////////シートモジュール////////
Private Sub Worksheet_Change(ByVal Target As Range)
call なんかの処理(Target)
End Sub
>>
>>'////////////標準モジュール///////////////
sub なんかの処理(Target as range)
>>> Dim celTarget As Range
>>> Dim cel As Range
>>> Dim ixCol As Long
dim sh as worksheet '追加
set sh=sheets(target.parent.name) ’追加
>>>
'例えば↓のrangeオブジェクトの親オブジェクトを明記する必要あり
'面倒なのでこれだけ修正しておきます。後は何をやっているか理解して、
'自分で修正してください。
Set celTarget = Intersect(Target, sh.Range("A1"))
>>> If celTarget Is Nothing Then Exit Sub
以下省略
>>end sub
#無駄な引用は止めて下さい。無駄に長くなって見難いだけです。
#申し訳ないですが、私はご自分でやった上で不明なところは相談に乗りますが、
#そのまんま全部は書かない性質ですので悪しからず。
|
|
neptune
- 08/10/29(水) 18:49 -
