VBA：私はVBAにまだ新しいよ

Question

複数の条件を持つセルの値に基づいてドキュメントを開くには、私は、次のタスクを達成するためのアドバイスを探しています： 私はA1と2 Checkboxes (Serverbox1 & Localbox2)

A1があるセルを持っていますアップルのファイル名を表すApple1、Banana1などの値を持つプルダウンメニュー。 Excelは、選択したファイルを開き、セルまたは範囲をエクスポートする必要があります。例えば、WB1からWB2までA2をエクスポートボタンをクリックしてエクスポートします。

Private Sub exportData_Click()

Dim WB1 as Workbook

Dim WB2 as Workbook

Server="C:\Server\Apple1.xls"

Local="C:\Local\Apple1.xls"

Set WS1=ThisWorkBook

Set WB1=ActiveWorkbook

WS2=WB2.Sheets(1)

Set WB2=Workbooks.Open(Server OR Local) どういうわけか、それは自動的に変更する必要があります。ファイルは、それが上記の入力に基づいてApple1.xlsまたはBanana1.xlsにデータをコピーし続ける開いたらだけIf A1 = Apple1 & Serverbox.value = false & Localbox2.value= true

を適用

そしてSet WB2=Workbooks.Open(Local)A1 = Apple1 & Serverbox.value = true & Localbox2.value= false場合

はだからSet WB2=Workbooks.Open(Server)にのみ適用されます。

ws2.range("A2")=ws1.range("A2")

私はオートが何かを保存心配する必要はいけない、それは手動のプロセス（推奨）となります。 私は助けていただきありがとうございます！

Answer 1

ここでは、使用できるアイデアを紹介します。いくつかの場所でコードを更新する必要があります。

Server="C:\Server\" & A1 & ".xls" 'Get the filename from Cell A1 

Local="C:\Local\" & A1 & ".xls" 'Get the filename from Cell A1 


If (Serverbox.value = true & Localbox2.value= false) Then 
    WB2=Workbooks.Open(Server) 
End If 

If (Serverbox.value = false & Localbox2.value= true) Then 
    WB2=Workbooks.Open(Local) 
End If