
お世話になっております。
ちょっと前に http://bit.ly/2bBRhzo で、
ユーザーフォームからNASの中にある図面(pdf)を
タブレットの画面に表示するというマクロを頂きました。
アドバイスして下さったみなさん、ありがとうございます。
ものすごく良く出来たマクロで、
びっくりしてるのですが、1点追加したい機能があります。
画像を見て頂ければおわかりのように、
ユーザーフォーム上に、テキストボックスが2つあります。
2段目右の「クリア上下」というボタンをタップしたら、
テキストボックスが2つともクリアになるのですが、
「クリア上下」をタップした後、
マウスカーソルが上のテキストボックス(TextBox1)に移動するようにしたいと思っております。
素人の感覚で考えると、「Range("A1").Select」で、
カーソルが「A1」セルに移動するので、
Range("TextBox1").Select とか
TextBox1.Value = "" とかで、
マウスカーソルがTextBox1の中に移動するような気がします。
ですが、実際にやってみたのですが、
両方とも機能しません。
Range("TextBox1").Select エラー
TextBox1.Value = "" 空欄になるだけでカーソルの移動なし
という状況です。
すいませんが詳しい方、説明の上手な方、直接、コードで説明できる方、
お手数ですがユーザーフォームでボタンを押したらカーソルがTextBox1に
移動する方法を教えて下さい。よろしくお願いします。
------------------------
追記
http://bit.ly/2bBRhzo でコードを書いて下さった。
ki-aaaさん、ありがとうございます。
軽くカスタムして使っておりますが、
細かいところまで、しっかり作りこんで頂いて
本当に感謝しております。
この場を借りて改めてお礼させて頂きます。
ありがとうございました。
※特に以下の件はチョー助かってます。
1)ボタン1発でパターンAとBの両方に対応している。
2)ファイルパスの書き換えが1か所
※NASのフォルダーが深いので助かりした。
3)「Sheet2」への書き込み
※忘れてました!サンプルにMacro1を記載しておいて良かったです

No.1ベストアンサー
- 回答日時:
「TextBox1.SetFocus」ではダメですか?
早速のご解答ありがとうございます。
>「TextBox1.SetFocus」~
でいけました。
いつも親切なご解答ありがとうございます。
PS
http://bit.ly/2bBRhzo のカスタマイズで力尽きてしまったので、
自分で調べる前に、こちらを頼ってしまいました、、、。
すいません。
機会がありましたら、またお願いします。
今回はありがとうございます。
No.2
- 回答日時:
TextBox1はオブジェクトなので、Range()で取得するものではなく、そのオブジェクトを直接操作するものです。
ANo.1にあるとおり、TextBox1.SetFocus()によってフォーカスが遷移します。
http://officetanaka.net/excel/vba/tips/tips17.htm
http://www.atmarkit.co.jp/ait/articles/1411/26/n …
ご解答ありがとうございます。
>http://bit.ly/2bOHYfS
こんな機能があるなんて知らなかったです。
それと
>TextBox1はオブジェクトなので、Range()で取得するものではなく、そのオブジェクトを直接操作するものです。
このあたりの基本的なことを勉強中です。
確かにガイドブックにそんなことが書かれていた気がします。
仕事で使っているので、「今すぐ必要!」という場合があり、
ついついこちらを頼ってしまうのですが、
ちょっとづつアドバイスして頂いた基本的なことも身に着けて
行きたいと思っております。
今回はご解答頂きありがとうございました。
機会がありましたら、またお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
[VBA]ファイル名の末尾にA~Zを付けて検索したい
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
4
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
9
UserForm1.Showでエラーになります。
工学
-
10
Excelマクロ、フォーム入力での矢印移動禁止
Excel(エクセル)
-
11
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
12
ユーザーフォームのSetFocusが働かない?
その他(プログラミング・Web制作)
-
13
Excel VBAのカーソル位置
その他(プログラミング・Web制作)
-
14
コマンドボタンのEnterイベント後に、フォーカスを移動したい。
その他(Microsoft Office)
-
15
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
16
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
17
ユーザーフォームへのデータ入力を繰り返す方法
Visual Basic(VBA)
-
18
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
19
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
携帯電話を解約してもSMSの受信...
-
5
大学定期試験過去問サイト「過...
-
6
Excelのセルにユーザー名...
-
7
Windows10でMicrosoftアカウン...
-
8
メールアドレス 上バーの入力...
-
9
大至急!パソコンのメールアカ...
-
10
みなさん iPhoneのキーチェーン...
-
11
インターネットカフェでCD書き...
-
12
Outlook
-
13
パソコンを買ったら、パソコン...
-
14
最近キレやすい人や文句悪口を...
-
15
iPhoneのウォレットでクレジッ...
-
16
ティックトックで気になる人の...
-
17
Twitterですが、機種変更してか...
-
18
au設定のログイン出来なくなり...
-
19
iPhone13のgmailの(Googleアカ...
-
20
Twitterのアプリでアカウントを...
おすすめ情報
公式facebook
公式twitter