Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23543 / 76732 ←次へ | 前へ→

【58555】Re:標準モジュールで実行するには
回答  neptune  - 08/10/29(水) 18:49 -

引用なし
パスワード
   ▼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

#無駄な引用は止めて下さい。無駄に長くなって見難いだけです。
#申し訳ないですが、私はご自分でやった上で不明なところは相談に乗りますが、
#そのまんま全部は書かない性質ですので悪しからず。
0 hits

【58547】標準モジュールで実行するには nana 08/10/29(水) 16:35 質問
【58548】Re:標準モジュールで実行するには neptune 08/10/29(水) 16:50 回答
【58550】Re:標準モジュールで実行するには nana 08/10/29(水) 17:07 発言
【58555】Re:標準モジュールで実行するには neptune 08/10/29(水) 18:49 回答
【58556】Re:標準モジュールで実行するには neptune 08/10/29(水) 18:52 発言
【58549】Re:標準モジュールで実行するには neptune 08/10/29(水) 16:51 発言
【58552】Re:標準モジュールで実行するには nana 08/10/29(水) 17:45 発言
【58553】Re:標準モジュールで実行するには sasa 08/10/29(水) 18:05 回答
【58554】Re:標準モジュールで実行するには nana 08/10/29(水) 18:15 発言
【58559】Re:標準モジュールで実行するには sasa 08/10/29(水) 23:27 発言
【58560】Re:標準モジュールで実行するには nana 08/10/30(木) 9:07 お礼

23543 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free