Excel VBA質問箱 IV

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

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


37323 / 76732 ←次へ | 前へ→

【44580】Re:複数ファイルの一元化について
発言  ドルフィン  - 06/11/22(水) 11:27 -

引用なし
パスワード
   ◆ハチ様

>> <設定条件>
>> 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
0 hits

【44569】複数ファイルの一元化について ドルフィン 06/11/21(火) 23:36 質問
【44577】Re:複数ファイルの一元化について ハチ 06/11/22(水) 9:21 発言
【44578】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 9:44 質問
【44580】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 11:27 発言
【44581】Re:複数ファイルの一元化について maverick 06/11/22(水) 12:26 回答
【44583】Re:複数ファイルの一元化について maverick 06/11/22(水) 12:54 発言
【44585】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 13:06 お礼

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