Excel VBA質問箱 IV

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

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


38035 / 76732 ←次へ | 前へ→

【43841】Re:別シートのデータを条件別に取得
発言  maverick  - 06/10/26(木) 18:27 -

引用なし
パスワード
   見ましたが、疑問点が多いので整理しましょう。


シートが"元"、"OK"、"OK2"、"抽出"、"エラー"、"joblog"
とあるようですがそれぞれ甲Book、乙Bookどちらのシートでしょうか?

最初の質問にあった”ア”、”イ”のシートは"OK"、"OK2"に
置き換えられたと考えて良いですか?


>1.マクロ11
>Sub test1()
の中で
>  With Worksheets("甲").Range("A1") '★ここのWithを整理したい。
これは Worksheets("元") のことですか?

>   ’★ここで、「甲.xlsは変更されています。保存しますか?」のMsgボックスが出てくるが、自動的にNo(保存しない)を選択して閉じたい
甲.xlsは保存しなくて良いのですか?


>2.マクロ12(1-2-1と1-2-2をくっつけました)
>Sub FromTo作成()
の内で

>  Set WS4 = Worksheets("抽出")
>  Set WS4 = Worksheets("エラー")
WS4は"エラー"シートになります。
"抽出"シートは変数名を変えないと設定されません


>  Dim FT As String
>  
>  With WS1.Range("A1")
>  FT = (WS1.Range("N2").Value = WS1.Range("P2").Value)
>
>  If FT = "False" Then
>    .Range("N1:N65536").Copy Destination:=WS2.Range("A1")
>    .Range("P1:P65536").Copy Destination:=WS2.Range("B1")
>    .Range("D1:D65536").Copy Destination:=WS2.Range("F1")
>    .Range("X1:X65536").Copy Destination:=WS2.Range("G1")
>    
>  Else
>    .Range("N1:N65536").Copy Destination:=WS2.Range("A1")
>    .Range("O1:O65536").Copy Destination:=WS2.Range("B1")
>    .Range("Q1:Q65536").Copy Destination:=WS2.Range("C1")
>    .Range("D1:D65536").Copy Destination:=WS2.Range("F1")
>    .Range("X1:X65536").Copy Destination:=WS2.Range("G1")
>  End If
>  End With
分岐の話は置いといて、まず「WS2」はマクロ「FromTo作成」の中で設定されていません。
また、分岐の両方の「Destination」が「WS2」になっています。
最初の質問でシート”イッチ”、”チガウ”に分かれていたので
それぞれ"抽出"、"エラー"になるのですか?
>  WS4.Activate
そうするとこれはどちらでしょう?

最後に、これらのコードは乙Bookから実行されると考えて良いですか?
0 hits

【43790】別シートのデータを条件別に取得 モナ 06/10/25(水) 21:04 質問
【43794】Re:別シートのデータを条件別に取得 maverick 06/10/25(水) 23:50 回答
【43799】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 8:47 質問
【43823】Re:別シートのデータを条件別に取得 maverick 06/10/26(木) 12:07 発言
【43828】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 13:48 質問
【43841】Re:別シートのデータを条件別に取得 maverick 06/10/26(木) 18:27 発言
【43844】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 18:59 発言
【43874】Re:別シートのデータを条件別に取得 maverick 06/10/27(金) 11:58 発言
【43895】Re:別シートのデータを条件別に取得 モナ 06/10/28(土) 18:00 発言

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