|
初心者K さん、こんにちわ。
>【ユーザーフォーム1】
>Private Sub UserForm_Initialize()
>
> txt1.Value = sheets("A").Range("A1").Value
>
>End Sub
ダイアログで開かれたブックが対象として考えました。
標準モジュールに
Sub UserForm1VIEW()
'SetCurrentDirectory ("\\・・・")
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
'分岐
vbyesno1 = MsgBox("データを入力しますか??", _
vbQuestion + vbYesNo, "選択画面")
'
If vbyesno1 = vbYes Then
UserForm1.Show
ElseIf vbyesno1 = vbNo Then
MsgBox "入力を中止しました。", vbExclamation
End If
Else
MsgBox "キャンセル又は非表示ブック", vbExclamation
End If
End Sub
フォームに
Private Sub UserForm_Initialize()
'ダイアログで開かれたブックが対象
Me.Txt_1.Value = "このブックにAシートなし"
With Application.ActiveWorkbook
For i = 1 To .Worksheets.Count
If .Worksheets(i).Name = "A" Then
Me.Txt_1.Value = .Worksheets("A").Range("A1").Value
Exit For
End If
Next i
End With
End Sub
これでフォームはちゃんと出ましたよ。
|
|