|
Excel上にボタンを設け、ボタン押したらユーザーフォームが立ち上がり
TextBox内にデータが自動抽出されるプログラムを作成しましたが、
ユーザーフォームが立ち上がりません。(Initializeが原因なのでしょうか?!)
下記にコードを書きましたので、ご教授願います。
【モジュール】
Sub UserForm1VIEW()
SetCurrentDirectory ("\\・・・")
Application.Dialogs(xlDialogOpen).Show
vbyesno1 = MsgBox("データを入力しますか??", _
vbQuestion + vbYesNo, "選択画面")
If vbyesno1 = vbYes Then
UserForm1.Show
ElseIf vbyesno1 = vbNo Then
MsgBox ("入力を中止しました。")
Exit Sub
End If
End Sub
【ユーザーフォーム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
|
|