|
Book1にユーザーフォームを作り
コマンドボタンを作成
Book1のオープンイベントに以下のコードを。
Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub
コマンドボタンに以下コードを
Option Explicit
Private Sub CommandButton1_Click()
Dim wbName As String
wbName = ThisWorkbook.Path & "\"
Workbooks.Open wbName & "Book2.xls"
Unload Me
Workbooks("book2.xls").Sheets("sheet1").Range("a1").value = _
Workbooks("Book1.xls").Sheets("sheet1").Range("a1").value
End Sub
Book1を開くとユーザーフォームが立ち上がるので
コマンドボタンをクリック。
Book2を開いてBook1A1セルの値をBook2A1セルへ転記
ユーザーフォームを閉じて終了。
Book1、Book2は同じフォルダにあることが条件です。
参考まで。
|
|