![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
ユーザフォームに「ユーザ名」を入力します。
(1)テキストボックスの入力有無の確認
(2)ユーザ名の重複の確認
上記を実行させようとしているのですが、「コンパイルエラー 修飾子が不正です」が表示
されてしまいます。
にわか覚えのVBAでどうしたらよいか・・わかりません。
ご教授願います。。m(__)m。。
**********以下
'[登録ボタン]を押した時の処理
Private Sub user_touroku_button_Click() ←★ここでエラー発生!!
'-------------------------------------------------
Dim check As Long '重複有無
Dim rowsCount As Long '表の現在行数
'必須項目のチェック(ユーザ名)
If user_txt.Text = "" Then
MsgBox "ユーザ(案件)名を入力してください。", vbExclamation, "入力エラー"
user_txt.Text.SetFocus
Exit Sub
End If
'ユーザ名の重複チェック
On Error Resume Next
check = 0
check = WorksheetFunction.Match(user_txt.Text, Range("ユーザ一覧").Columns(5), 0)
On Error GoTo 0
If check > 0 Then
MsgBox "このユーザ(案件)名はすでに登録されています", vbExclamation, "重複エラー"
user_txt.Text.SetFocus
Exit Sub
End If
'-----------------------------------------------------
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
パッと見ただけで確認はしていませんが、
user_txt.Text.SetFocus
はNGです。(2ヶ所ありますね)
user_txt はテキストボックス
user_txt.Text はテキストボックスに入力された文字列
SetFocusを指定できるのはテキストボックスなので、
user_txt.SetFocus
としなければなりません。
あっ!!そのようですね。。
単純なミスでした、、すみません。。
これで動きました。ホントお騒がせいたしました。
ありがとうございます!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAの質問で配列について
Visual Basic(VBA)
-
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
-
4
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
5
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
6
ACCESS 一番最新の日付の金額を出したいのですが・・
その他(データベース)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
9
ExcelでVBAを使用した際に、『パス名が無効です』とエラーになります。
Excel(エクセル)
-
10
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
11
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
12
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
13
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
14
dbFailOnError とは?
その他(データベース)
-
15
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
16
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
17
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
18
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
19
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
20
Access サブフォームでの選択行の取得
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理 特定の文字以降を...
-
[コンパイルエラー 修飾子が不...
-
SQLでテキストボックスの文字を...
-
findを使うのか?
-
プログラミングによるオセロゲ...
-
ダブルコーテーション付きでCSV...
-
VBAでcsvファイルもシートもあ...
-
StringGridの中身をCSV形式で保...
-
Excelマクロ 空白セルを無視し...
-
SQLファイルの読み込み
-
CSVで余計な空行が入る
-
バッチコマンドで指定行を抽出...
-
VBAで複数のCSVからレコードセ...
-
【ExcelVBA】300万件越えCSVか...
-
[common lisp]データ読み込みに...
-
プログラミングについて教えて...
-
CSVデータの文字列置換
-
Ruby 改行文字の認識
-
Fortran:列数の分からないデー...
-
VB.netでShellExecuteがしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理 特定の文字以降を...
-
Access VBA エラー2448について
-
VBA テキストボックスを選択状...
-
[コンパイルエラー 修飾子が不...
-
verilog HDLについての質問です...
-
SQLでテキストボックスの文字を...
-
型の値をDataGridViewセルに変換...
-
teratermで、ファイル名をinput...
-
フォームのResizeイベントについて
-
MS-DOSバッチファイルコマンド...
-
複数の数字が書かれた文字列をs...
-
分数の計算のプログラミングです。
-
エクセルVBAで公用宣言した...
-
ruby テキストファイル書き出し...
-
バッチ for /f 空白、スペース...
-
プログラミングによるオセロゲ...
-
言語[RUBY]を用いて、特定列を...
-
Fileの読み込み処理について
-
バッチファイル フォルダ名をフ...
-
TEXTファイルを日付・時刻で保存。
おすすめ情報