![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
エクセル・VBAでテキストボックスに入力された文字を
Excel(エクセル)
-
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
-
4
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
7
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
8
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
9
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
10
VLOOKUP関数とテキストボックスの連携
Excel(エクセル)
-
11
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
-
12
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
13
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
14
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
17
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
18
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
19
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 2つの表の並べ替え
-
エクセルVBA intersect colu...
-
Cellsのかっこの中はどっちが行...
-
VBAで指定範囲内の空白セルを左...
-
VBAで10行おきにセルの下に罫線...
-
VBAを用いて条件付きの平均値、...
-
【Excel VBA】 B列に特定の文字...
-
VBA 何かしら文字が入っていたら
-
難問 VBA 今日の日付より前に対...
-
データグリッドビューの一番最...
-
VBAを使って検索したセルをコピ...
-
エクセルで結合セルがあるため...
-
列の順番を入れ替えて吐き出
-
VBAの初心者なのですが、「並び...
-
C# dataGridViewの値だけクリア
-
エラーコード1004
-
DataGridViewへ列の追加と、デ...
-
B列の最終行までA列をオート...
-
Excel 複数列から語句を含む行...
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
文字列の結合を空白行まで実行
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
VBAの構文 3列置きにコピーし...
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報