教えてください。
excel VBAで商品管理ソフトを作成しました。一連の流れは完成しましたが、やはりマクロの不慮の改変等が気になるので、ユーザーホームの作成も始めました。
早速の壁が、バーコードリーダーを用いて入庫作業をしますが、メインテキストボックスに入力したら、目的のシートに値は入るものの、カーソルが消えて毎回選択をしないといけません。メインテキストボックスにカーソルが常に表示されるマクロを教えてほしいです。
ちなみに、
’メインテキストボックス TabIndex 1
Private Sub mc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Target As Range
If mc.Value = "" Then Exit Sub
Set Target = ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Target.Value = mc
mc.Value = ""
End Sub
Private Sub dm_Change() ’ダミーテキストボックス TabIndex 2
mc.SetFocus
End Sub
Private Sub CommandButton1_Click()
Unload UserForm2
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>メインテキストボックスにカーソルが常に表示されるマクロを教えてほしいです。
仕様が良く分からないのですが 単純にセルに値を代入した後に
メインテキストボックスにカーソルを置く場合は
Private Sub mc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Target As Range
・
・
mc.Value = ""
Cancel = True
End Sub
値を残したければ
mc.Value = "" は不要です
また、他のイベントを発生させたい場合は
If mc.Value = "" Then Exit Sub で抜けるので
値を入れずに他のイベントトリガーを踏む必要があります
値を入れている場合でも他のコントロールイベントを実行したい場合は
工夫が必要かと思いまう
ご質問の趣旨を取り違いて 頓珍漢な回答でしたら忘れてください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) ワークシートチェンジ 1 2022/02/01 11:19
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
- Word(ワード) word_VBA_フォームからダイアログそこからの復帰について 2 2021/12/13 23:44
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAコンボボックスで選択した値をシートに転記したい
Visual Basic(VBA)
-
引数に数値、文字列の混在
Visual Basic(VBA)
-
VBAに関して
Visual Basic(VBA)
-
-
4
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
5
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
6
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
7
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
Visual Basic(VBA)
-
8
Excel VBA 文字列のセルを反映させたいです
Visual Basic(VBA)
-
9
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
10
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
11
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
12
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
13
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
14
Excel マクロについて
Visual Basic(VBA)
-
15
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
16
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
17
月ごとに作成している日報ファイルを、VBAでコピーし日付ごとのシートにしたい
Visual Basic(VBA)
-
18
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
19
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
20
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
VBAユーザーホームテキストボッ...
-
テキストファイルから読み込ん...
-
エンドロール風テキストの表示...
-
photoshopで書いた四角の枠の中...
-
VBScriptでMsgBoxのYesNoボック...
-
テキストボックスの中身をリセ...
-
YOASOBI
-
【Photoshop】レイヤー効果の境...
-
別のアプリケーションのテキス...
-
RPG(AS400)の本、サイトってあ...
-
PythonのTkinterイベントについて
-
五芒星は、悪魔崇拝とどういう...
-
プログラミング、アーキテクチ...
-
PYTHONのtkinterについて
-
×ボタンを無効化したいのですが...
-
キープレスとボタンクリックの...
-
UWSCのBTN関数について。
-
パーセントで配置したフラッシ...
-
webページ上、TABフォーカス出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
VBAユーザーホームテキストボッ...
-
外部SWFファイルを再生バーでコ...
-
縦横比率のを変えずに画像のサ...
-
テキストファイルから読み込ん...
-
自由線とレイヤー画面との位置関係
-
ピクチャーコントロールのデバ...
-
四角形の端っこをドラッグした...
-
AS3でうまく動作しません
-
看護師です。体温表のマクロを...
-
AS3.0 でフェードイン、
-
ステージの背景画像のみ拡大縮...
-
AS3 mc0~5をまとめて処理する
-
AS3.0でマウスボタンの状態を調...
-
AS3.0 設置した画像を次のラベ...
-
外部より取り込んだ.swfのサイ...
-
spriteで直線を引いたときに線...
-
xmlから作ったサムネールを移動...
-
Flash マウスの位置で速さの変...
-
flash ブラウザのサイズに合わ...
おすすめ情報