|
ユーザーフォーム1の内容を下記に変更しました。
下記コードでご教授願います。
【ユーザーフォーム1】
Private Sub UserForm_Initialize()
txt1.Value = sheets("A").Range("A1").Value
End Sub
▼りん さん:
>初心者K さん、こんにちわ。
>
>
>>【ユーザーフォーム1】
>>Private Sub UserForm_Initialize()
> ↓ここがフォームのあるブック
>> With ThisWorkbook
> ↓ここもフォームのあるブック
>> For i = 1 To .Worksheets.Count
> ↓これはダイアログで新しく開かれたブック
>> If Worksheets(i).Name = "A" Then
> ↓ここもフォームのあるブック
>> Me.txt_1.Value = .Worksheets("A").Range("A1").Value
>> End If
>> Next i
>>
>> End With
>>
>>End Sub
>処理対象のブックが錯綜してますが、どのブックのワークシート"A"のセルA1の値をテキストボックスに取り込みたいのでしょうか?
|
|