教えてください。
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)
-
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
-
4
VBAに関して
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
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
12
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
13
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
14
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
-
15
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
16
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
17
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
18
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
19
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
20
VBA UserFormからの転記で
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
VBAユーザーホームテキストボッ...
-
エンドロール風テキストの表示...
-
テキストファイルから読み込ん...
-
AS3 mc0~5をまとめて処理する
-
シンボル化解除の方法
-
photoshopで書いた四角の枠の中...
-
PYTHONのtkinterについて
-
python ボタンを押すと複数の関...
-
Access2000 実行時エラー '3061':
-
VBScriptでMsgBoxのYesNoボック...
-
マスクをとるとオーバーフロー...
-
【VB.NET】別Formのボタンが押...
-
四乗根を英語で言うと・・・
-
別のアプリケーションのテキス...
-
変数に256文字以上のテキストを...
-
UWSCのBTN関数について。
-
C言語でネットワーク範囲のIPア...
-
VBSでMid関数を使ったらエラー...
-
テキストボックスの中身をリセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
テキストファイルから読み込ん...
-
VBAユーザーホームテキストボッ...
-
縦横比率のを変えずに画像のサ...
-
外部SWFファイルを再生バーでコ...
-
複数ボタンの生成 - actionscript
-
ラッコって?
-
ActonScriptでムービークリップ...
-
コンプトン散乱について
-
addChildで描画した絵(シンボル...
-
upc 7915と mc7915ctは互換性有...
-
ActionScript3のMovieClipについて
-
AS3.0 設置した画像を次のラベ...
-
AS3 mc0~5をまとめて処理する
-
2つの取り込んだ画像を交差さ...
-
Flashで外部jpgファイルをmcに...
-
flash as3 ムービークリップの...
-
3つのムービークリップ再生・巻...
-
日本ヒューレット・パッカード...
-
四角形の端っこをドラッグした...
おすすめ情報