|
◆ハチ様
>> <設定条件>
>> 1.P情報*.xlsの B2セル + C2セルを「プリンタ全情報」A2セルに設定
>> 2.P情報*.xlsの D4セルを「プリンタ全情報」B2セルに設定
>> 3.P情報*.xlsの D5セルを「プリンタ全情報」C2セルに設定
>> 4.P情報*.xlsの D6セルを「プリンタ全情報」E2セルに設定
>
>に書き直せば良さそうですね。
-----------------------------------------------------------
ちなみに私のレベルだと以下の抜粋コードが精一杯です。
結果も「1.P情報*.xlsの B2セル + C2セルを「プリンタ全情報」A2セルに設定」が思う通りに出ません。
本当に初心者で申し訳ありませんが、ご教授の程、お願い致します。
------抜粋コード-------------------------------------------
With myWB.Sheets("プリンタ")
MsgBox .Range("B2") & .Range("C2") & .Range("D4") & .Range("D5") & .Range("D6")←ディスプレイ用に使用しています。
.Range("B2").Copy _
ThisWorkbook.Sheets("プリンタ情報").Range("A65536").End(xlUp).Offset(1)
.Range("C2").Copy _
ThisWorkbook.Sheets("プリンタ情報").Range("A65536").End(xlUp).Offset(1)
'
.Range("D4").Copy _
ThisWorkbook.Sheets("プリンタ情報").Range("B65536").End(xlUp).Offset(1)
.Range("D5").Copy _
ThisWorkbook.Sheets("プリンタ情報").Range("C65536").End(xlUp).Offset(1)
.Range("D6").Copy _
ThisWorkbook.Sheets("プリンタ情報").Range("D65536").End(xlUp).Offset(1)
'
' .Range("A1", .Range("C65536").End(xlUp)).Copy _
' ThisWorkbook.Sheets("プリンタ情報").Range("A65536").End(xlUp).Offset(1)
'
End With
|
|