| |
見ましたが、疑問点が多いので整理しましょう。
シートが"元"、"ＯＫ"、"ＯＫ２"、"抽出"、"エラー"、"joblog"
とあるようですがそれぞれ甲Book、乙Bookどちらのシートでしょうか？
最初の質問にあった”ア”、”イ”のシートは"ＯＫ"、"ＯＫ２"に
置き換えられたと考えて良いですか？
>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から実行されると考えて良いですか？
|
|
maverick
- 06/10/26(木) 18:27 -
