Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11010 / 76734

←次へ　｜　前へ→


	【71266】Re:FileDialog(msoFileDialogFilePicker)

sasa - 12/2/16(木) 17:53 -


	引用なし

	パスワード

>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

MouseDownイベントで不具合の場合の定番ですが、
かわりにMouseUpイベントを用いれば良いとおもいます。
そうすればマウスクリックして処理するインターフェースも変わりませんし...
最後に AppActivate Caption も記述しておけば良いでしょう。

それより気になるのは
↓同じことの羅列です。まとめたほうが良いと思います。
　If Module1.PC名 = "NPC" Then
　　'
　　UserForm7.TextBox1.Text = GetSetting("NPC", "Main", "TEXt1")
　　'省略
　ElseIf Module1.PC名 = "YMC" Then
　　'
　　UserForm7.TextBox1.Text = GetSetting("YMC", "Main", "TEXt1")
　　'省略
　Else

9 hits

▼

【71247】FileDialog(msoFileDialogFilePicker) 亜矢 12/2/14(火) 20:00