Excel VBA質問箱 IV

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

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


23548 / 76732 ←次へ | 前へ→

【58550】Re:標準モジュールで実行するには
発言  nana  - 08/10/29(水) 17:07 -

引用なし
パスワード
   neptune さん
早速のご回答ありがとうございます。

すいません、初心者なもので
これは例えばどのようなものを入れていいのか
分からないのですが・・・

すいませんがよろしくお願い致します。

>'rangeオブジェクトが上位オブジェクトを指定されていないので指定するように
>'変更の必要あり
>sub なんかの処理(Target as range)

▼neptune さん:
>▼nana さん:
>こんにちは
>
>こんな感じです。
>>何とか色々調べて下記のようなものを作成しましたが、
>>これを標準モジュールで「マクロの実行」で実行したいのですが
>>どのように書き換えればいいのでしょうか。
>>
>>PrivateをPublicに換えればいいのでは、というところまで
>>いったのですが。
>>よろしくお願いします。
>'////////////シートモジュール////////
>>Private Sub Worksheet_Change(ByVal Target As Range)
>  call なんかの処理(Target)
>>End Sub
>
>'////////////標準モジュール///////////////
>'rangeオブジェクトが上位オブジェクトを指定されていないので指定するように
>'変更の必要あり
>sub なんかの処理(Target as range)
>>  Dim celTarget As Range
>>  Dim cel As Range
>>  Dim ixCol As Long
>>  
>'例えば↓のrangeオブジェクトの親オブジェクトを明記する必要あり
>>  Set celTarget = Intersect(Target, Range("A1"))
>>  If celTarget Is Nothing Then Exit Sub
>>  
>>  If celTarget = "" Then Exit Sub
>>  
>>  On Error Resume Next
>>  ixCol = WorksheetFunction.Match(celTarget, Range("E1:J1"), 0)
>>  On Error GoTo 0
>>  If ixCol = 0 Then
>>    MsgBox "転記先が見つかりませんでした。シートを確認・修正の上、もう一度 A1 の値を選択してください。", vbCritical
>>    Exit Sub
>>  End If
>>  ixCol = ixCol + Range("E1").Column - 1
>>
>>
>>  For Each cel In Range("B2:B4")
>>    Cells(cel.Row, ixCol).Value = cel.Value
>>  Next
>
>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 お礼

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