| |
▼UO3 さん：
>▼亜矢 さん：
>
>以下２点、おしえてください。
>（できるだけ同じ状況を作り出すため）
>
>１．ボタンクリックして起動されるプロシジャ（ユーザーフォームを表示しているプロシジャ）の
> コードを、すべて（Sub から End Sub まで）アップいただけませんか。
>
>２．ユーザーフォーム側で、アップされたコードがあるプロシジャのコードをすべて
> （Sub から End Sub まで）アップいただけませんか。
>
>状況としては、フォーカスがユーザーフォームにあって、でも、アップされたダイアログは
>エクセル側からでていて、そのエクセルがフォーカスを持っていないので【固まっている】
>そんな症状のような予感がします。
それではコードをアップします。よろしくお願いします。
'シートにあるボタンです。
Private Sub CommandButton9_Click()
Call Module1.コンピュータ名を取得する_WSH
If Module1.PC名 = "NPC" Then
On Error Resume Next
DeleteSetting "NPC", "Main"
UserForm7.TextBox1.Text = GetSetting("NPC", "Main", "TEXt1")
UserForm7.TextBox2.Text = GetSetting("NPC", "Main", "TEXt2")
UserForm7.TextBox3.Text = GetSetting("NPC", "Main", "TEXt3")
UserForm7.TextBox4.Text = GetSetting("NPC", "Main", "TEXt4")
UserForm7.TextBox5.Text = GetSetting("NPC", "Main", "TEXt5")
ElseIf Module1.PC名 = "YMC" Then
On Error Resume Next
DeleteSetting "YMC", "Main"
UserForm7.TextBox1.Text = GetSetting("YMC", "Main", "TEXt1")
UserForm7.TextBox2.Text = GetSetting("YMC", "Main", "TEXt2")
UserForm7.TextBox3.Text = GetSetting("YMC", "Main", "TEXt3")
UserForm7.TextBox4.Text = GetSetting("YMC", "Main", "TEXt4")
UserForm7.TextBox5.Text = GetSetting("YMC", "Main", "TEXt5")
Else
MsgBox "このパソコンでは使用できません,管理者に相談して下さい"
End If
UserForm7.Show
End Sub
'ユーザーフォーム７にTextbox1からTextbox5を配置しています。
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Application.FileDialog(msoFileDialogFilePicker)
.Show
Name=.SelectedItems(1)
TextBox1.Text= Name
End with
End sub
↑
Textbox1からTextbox５まである
|
|
亜矢
- 12/2/15(水) 21:55 -
