いつもお世話になります。
Private Sub CommandButton3_Click()
Dim 行 As String
Dim 列 As String
Dim 最終行 As String
Dim 検索行 As String
Dim メッセージ As Integer
Dim 一致 As Range
Dim myNO As Variant
Dim i As Long
Sheets(3).Select
最終行 = Range("A2").End(xlDown).Offset(1).Select
行 = ActiveCell.Row
列 = ActiveCell.Column
myNO = TextBox2.Value
検索行 = Range("A2").End(xlDown).Select
※・・・Set 一致 = Range("A2:検索検").Findwhat:=TextBox2,lookat:=xlWhole)
If 一致 Is Nothing Then
MsgBox "データがありません。新規コード入力します。"
Cells(行, 列 + 0) = UserForm1.TextBox2.Value
Cells(行, 列 + 1) = UserForm1.ComboBox7.Value
Else
i = Cells(行 - 1, "A")
Cells(i, 列 + 0) = UserForm1.TextBox2.Value
Cells(i, 列 + 1) = UserForm1.ComboBox7.Value
End If
End Sub
「エラー1004'Range'メソッドは失敗しました'Global'オブジェクト」とでます。※印が黄色になっています。
ユーザーフォーム1のテキストボックスの値をシート3のA列から検索して、一致すれば、A列の一致セルに上書き入力して、一致が無い場合はA列の空白セルに追加入力したいのです。よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
えっと、いろいろ改善の余地があるマクロなので、気がついたところを指摘していきます。
Dim メッセージ As Integer
この変数は使われてないので宣言は不要かと思います。(もし質問文のVBAが抜粋で、後で使うのなら別ですが)
最終行 = Range("A2").End(xlDown).Offset(1).Select
この「最終行」に範囲をSelectした結果を代入しているのは、意味がありません。最終行には True が代入されます。最終行のセル番地を代入したいのであれば、
最終行 = Range("A2").End(xlDown).Offset(1).Addresss
とする必要がありますが、その次の2行で行と列を取得しており、そして変数「最終行」はプロシージャの最後まで使われていません。
myNO = TextBox2.Value
この変数も最後まで使われていません。Findの引数として使おうとしたのかと思いますが、Findではもう一度TextBox2と書いてしまっています。
検索行 = Range("A2").End(xlDown).Select
これも先の最終行と同じく、Selectした結果を代入しているため、Trueが代入されてしまいます。今までの指摘は、マクロの動作に影響を与えるものではありませんでしたが、ここは違います。この後で検索範囲の一番下のセルとして使おうとしても、これではその番地が代入されないのです。
その次の、
Set 一致 = Range("A2:検索検").Findwhat:=TextBox2,lookat:=xlWhole)
は書式が崩れてますがですが、多分書きたいことは
Set 一致 = Range("A2:検索行").Find(what:=TextBox2,lookat:=xlWhole)
ですよね。しかし"A2:検索行"という範囲指定はできません。「検索行」は変数なので文字列に含めてしまってはいけません。「検索行」にセル番地が入っているのであれば、Range("A2:" & 検索行) あるいは Range("A2",検索行") のようにしないと正しく領域を指定できません。
以上を踏まえて、Range型の変数を使うようにして書き直してみました。
Private Sub CommandButton3_Click()
Dim 最終行 As Range 'Stringから変更
Dim 検索行 As Range 'Stringから変更
Dim 一致 As Range
Sheets(3).Select
Set 検索行 = Range("A2").End(xlDown)
Set 最終行 = 検索行.Offset(1)
Set 一致 = Range("A2", 検索行).Find(what:=TextBox2, lookat:=xlWhole)
If 一致 Is Nothing Then
MsgBox "データがありません。新規コード入力します。"
最終行.Value = UserForm1.TextBox2.Value
最終行.Offset(0, 1).Value = UserForm1.ComboBox7.Value
Else
一致.Value = UserForm1.TextBox2.Value '同じ値なので本来は不要
一致.Offset(0, 1).Value = UserForm1.ComboBox7.Value
End If
End Sub
ありがとうございました。
エラー無しに動きました。
ご指摘のとおりです。
宣言するところが理解できていません。
Set 一致 = Range("A2:検索").Findwhat:=TextBox2,lookat:=xlWhole)
のところも選択できなくて、自分なりに改良に改良をかさねて、
訳がわからなくなっていました。
VBAは本を買ってはじめてのもののわからないところばかりで・・・。
今後ともよろしくお願いいたします。
No.1
- 回答日時:
オブジェクト(コンボとか)をたくさん使ってるようなので、少しにして検証しました。
で、以下のようにすると一応動きます。============================================================
Private Sub CommandButton1_Click()
'変更前 Dim 行 As String
Dim 行 As Integer
'変更前 Dim 列 As String
Dim 列 As Integer
Dim 最終行 As String
Dim 検索行 As String
Dim メッセージ As Integer
Dim 一致 As Range
Dim myNO As Variant
'変更前 Dim i As Long
Dim i As Variant
Sheets(1).Select
最終行 = Range("A2").End(xlDown).Offset(1).Select
行 = ActiveCell.Row
列 = ActiveCell.Column
myNO = TextBox1.Value
’A2から、データのあるところまでを選択するように変更しました
検索行 = Range(Cells(2, 1), Cells(行 - 1, 列)).Select
’選択しているセルを検索するように変更しました
Set 一致 = Selection.Find(what:=TextBox1.Text, lookat:=xlWhole)
If 一致 Is Nothing Then
MsgBox "データがありません。新規コード入力します。"
Else
i = Cells(行 - 1, 1).Value
End If
End Sub
============================================================
せっかくお答え頂きましたが、うまく入力はされませんでした。
入力済みのA2~最終行が選択された状態でした。
書いて頂いた、構文を参考にさせて頂きます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
-
4
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
5
EXCEL VBA コンボボックス、テキストボックスが未入力のときメッセージを表示する方法
Excel(エクセル)
-
6
エクセルVBA テキストボックス検索
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
10
Excelで検索結果をテキストボックスに表示
Windows Vista・XP
-
11
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
12
テキストボックスの値を変数に代入したい。
Visual Basic(VBA)
-
13
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
14
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
-
15
抽出したデータを修正して元のセルに上書きしたい
Access(アクセス)
-
16
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
17
エクセルVBAでIME入力モードの制御
Excel(エクセル)
-
18
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
19
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
20
エクセルのユーザーフォームでVLOOKUPと同じ機能をするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
文字列の結合を空白行まで実行
-
vba 2つの条件が一致したら...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
エクセル 2つの表の並べ替え
-
DataGridViewに空白がある場合...
-
Cellsのかっこの中はどっちが行...
-
VBAで、離れた複数の列に対して...
-
VBAのFind関数で結合セルを検索...
-
マクロ 最終列をコピーして最終...
-
期限を超えた日付に警告のメッ...
-
vbaでシートより100より大きい...
-
VBA初心者です 検索した数字の...
-
Changeイベントでの複数セルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報