
お世話になっております。
ちょっと前に 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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
[VBA]ファイル名の末尾にA~Zを付けて検索したい
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
Excel VBAのカーソル位置
その他(プログラミング・Web制作)
-
8
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
9
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
10
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
11
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
12
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
Excel-Vba Textbox選択時のカーソル位置と文字選択
Excel(エクセル)
-
17
UserForm1.Showでエラーになります。
工学
-
18
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
大学定期試験過去問サイト「過...
-
5
http://ntt.setup/へログインし...
-
6
LINEで質問が出来る塾のアカウ...
-
7
前のアドレスに届いたメールを...
-
8
SNS(Twitter)の依存をやめたい ...
-
9
Surface pro4で起動はできまし...
-
10
インスタでブロックしたときに...
-
11
メールをパスワードつきで送る方法
-
12
再投稿です。 Twitterについて...
-
13
Wi-Fiをリセットしたら契約から...
-
14
steam版 apexのログアウト方法...
-
15
インスタグラムについて質問です
-
16
dアカウントが変更されました。...
-
17
彼女のインスタのアカウントを...
-
18
Excelのセルにユーザー名...
-
19
メールを返信したら、英語のメ...
-
20
メールアドレス 上バーの入力...
おすすめ情報
公式facebook
公式twitter