- 締切済み
AdvancedFilter 検索 複数条件
cj_moverの回答
- cj_mover
- ベストアンサー率76% (292/381)
＃２ー４、ｃｊです。＃４補足欄拝見しました。 すみません、私は車知らないので、ご説明の前提になっているであろうそちらの常識的な部分が 理解できないままでいます。 > プリウス、 > かつ20を含むが良いのですが、 > この場合書いて頂いた中で、何番があてはまりますか？ "プリウス"と"20"を抽出条件とした場合、 プリウス 15,ヨタハチ 20 のようなセルをヒットさせたいのなら、その説明で十分ですけれど、 当初の例示からすると、これはヒットしない方がいいのですよね？ そういう意味では、どれでもいいように書いたつもりです。 実データ見ないと何とも言えないので、どれか選べるように複数提示しました。 どれがいいのかは実ファイルで試して検証して貰わないと、こちらから判断できる程の情報がありません。 どれから試せばいいか、という意味でしたら、２）あたりをどうぞ。 さしあたり、返答まで。
関連するQ&A
- VBAで複数検索、AdvancedFilter
AdvancedFilterを使って、検索を行っているのですが、応答なしと固まってしまったり、動作が重くなったりするのですが、原因わかりますでしょうか？ 3000行くらいなのですが、ユーザーフォームを立ち上げて、検索、結果を見て、また検索をしようとすると固まったりして動かなくなって強制終了になる場合があります。 軽くなる方法はありますか？ Private Sub CommandButton1_Click() Worksheets("商品マスタ").Activate If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData ActiveWindow.ScrollRow = 3 Range("S1:AA4").ClearContents Range("S1:AA4").NumberFormatLocal = "@" Range("T2:U2").Value = Range("B2:C2").Value Range("V2:X2").Value = Range("D2").Value Range("Y2:Z2").Value = Range("E2:F2").Value Range("AA2").Value = Range("G2").Value If Me.TextBox1.Value <> "" Then ' コード Range("U3").Value = "*" & Me.TextBox1.Value End If If Me.TextBox2.Value <> "" Then ' メーカー Range("V3").Value = "*" & Me.TextBox2.Value & "*" End If If Me.TextBox3.Value <> "" Then ' シリーズ Range("W3").Value = "*" & Me.TextBox3.Value & "*" End If If Me.TextBox4.Value <> "" Then ' サイズ Range("W3").Value = "*" & Me.TextBox4.Value & "*" End If If Me.TextBox5.Value <> "" Then ' 入荷日 Range("T3").Value = Me.TextBox5.Value End If If Me.TextBox9.Value <> "" Then ' 仕入れ先 Range("Z3").Value = Me.TextBox9.Value End If If Me.TextBox12.Value <> "" Then ' 単体価格 Range("AA3").Value = Me.TextBox12.Value End If If Me.TextBox6.Value <> "" Then ' 在庫数 Range("Y3").Value = Me.TextBox6.Value End If If Cells(3, Columns.Count).End(xlToLeft).Column > 19 Then Range("A2:G" & Rows.Count).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("S2").CurrentRegion, Unique:=False End If Range("S1:AA4").ClearContents ActiveWindow.ScrollColumn = 4 Range("A2").Activate End Sub Private Sub CommandButton2_Click() Unload Me End Sub
- 締切済み
- Excel（エクセル）
- Excel VBA テキストボックスを検索
テキストボックス３に数値を入力し ExcelのA列にあるか検索をかける。 ある場合は、B列の同じ行に 「みーつけた！」と入力。 その設定で組んでみたのですが、 テキストボックス３にデータを6桁入力しようとすると 6桁目にオーバーフローエラーが出ます。 このプログラムの何処がおかしいのでしょうか？ Private Sub TextBox3_Change() Dim Number As Integer If TextBox3.Value <> "" Then '空じゃない場合 Number = TextBox3.Value Call 検索(Number) MsgBox TextBox3.Value End If End Sub Sub 検索(ByVal Number As Variant) Dim FoundCell As Range Set FoundCell = Range("A:A").Cells.Find(What:=Number, lookat:=xlPart) If FoundCell Is Nothing Then Else FoundCell.Activate Range("O" & ActiveCell.Row).Value = "みーつけた！" End If End Sub
- ベストアンサー
- Excel（エクセル）
- このＶＢＡ、もうちょっとシンプルにできないですか？
自力でＶＢＡを書いてみたのですが、長くなってしまいました。 もうちょっとシンプルにするアイディアがあればお願いします。 やりたいことは、 (1)ユーザーフォームのテキストボックス内が空欄だったら「無視」 (2)テキストボックスの中が空欄でなければ「書き込み」 以上のことをやりたいのですが、テキストボックスが6種類あるので単純に記述すると結構長くなってしまいました。 特に問題がなければ、その旨をお願いします。 If TextBox1 = "" Then If TextBox2 = "" Then If TextBox3 = "" Then If TextBox4 = "" Then If TextBox5 = "" Then If TextBox6 = "" Then MsgBox ("得点が入力されていません。") ElseIf TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If ElseIf TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value ElseIf TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If ElseIf TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value If TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If End If ElseIf TextBox3 <> "" Then Sheets("総合（得点）").Cells(t + 6, u) = TextBox3.Value If TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value If TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If End If End If ElseIf TextBox2 <> "" Then Sheets("総合（得点）").Cells(t + 5, u) = TextBox2.Value If TextBox3 <> "" Then Sheets("総合（得点）").Cells(t + 6, u) = TextBox3.Value If TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value ・ ・ ・ こんな感じで規則的に記述しただけです。（文字数が多いので最後は省略しました） 段差がなくて見づらいですが、宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルマクロ＿テキストボックスをシートに反映（その２）
エクセルマクロ初心者です。（２００３使用＿ユーザーフォーム） 先ほどは大変お世話になりました。 複数行に応用させようとしたのですが、管理番号が余計に記載（テキストボックス（出荷日など）が空欄であっても、管理番号だけはとられてしまいます）されてしまいます。すみませんが、ご教授よろしくお願いいたします。 リストボックス１のデータは、Sheet1を表示しています。→管理番号はSheet2のＡ最終行に記載されます。 テキストボックス１（回答日）は、上記の管理番号記載のとなりに、 テキストボックス２（出荷日）は、テキストボックス１記載のとなりに、 ・・・とテキストボックス４（コメント）（これはＫ列）に１行で記載されます。 ↑ここまでは、教えていただいたので、完璧なのですが、 テキストボックス２～４までの内容を、あと複数行（４件）追加できるように試してみたのですが、空欄であっても管理番号だけは常に記載されてしまいます。 テキストボックス２と５に記載されている場合は、Sheet2に値を反映させるが、空欄の場合は、値を反映させないようにしたいのです。 （Sheet1=データベース） Ｃ５ Ｄ５ 管理番号 品名 アカ12 りんご アオ56 みかん クロ34 なし クロ89 すいか アオ12 もも （Sheet2=入力シート） Ａ（管理番号） Ｂ（回答日） Ｃ（出荷日） Ｄ（数量） Ｋ（コメント） アオ56 8月9日 8月10日 75 送り先の確認 アオ56 8月11日 80 クロ34 9月4日 9月5日 80 （今回は、２行で作成した場合のマクロを記載しました） Private Sub UserForm_Initialize() With ListBox1 .ColumnWidths = "0;0;50;50" .ColumnCount = 4 .RowSource = "Sheet1!A5:D" & Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row End With End Sub Private Sub CommandButton1_Click() If TextBox2.Value Then Dim lRow As Long With Worksheets("Sheet2") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox1.Value) Then .Range("B" & lRow + 1).Value = TextBox1.Value End If If IsDate(TextBox2.Value) Then .Range("C" & lRow + 1).Value = TextBox2.Value End If If IsNumeric(TextBox3.Value) Then .Range("D" & lRow + 1).Value = TextBox3.Value End If .Range("K" & lRow + 1).Value = TextBox4.Value End With End If If TextBox5.Value Then Dim llRow As Long With Worksheets("Sheet2") llRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & llRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox5.Value) Then .Range("C" & llRow + 1).Value = TextBox5.Value End If If IsNumeric(TextBox6.Value) Then .Range("D" & llRow + 1).Value = TextBox6.Value End If .Range("K" & llRow + 1).Value = TextBox7.Value End With End If Dim myCtrl As Control For Each myCtrl In Controls If TypeName(myCtrl) = "TextBox" Then myCtrl.Value = vbNullString End If Next End Sub （ユーザーフォーム） リストボックス１＝Sheet1のデータを反映 テキストボックス１（回答日） テキストボックス２（出荷日）,テキストボックス３（数量）,テキストボックス４（コメント）←１件目 テキストボックス５（出荷日）,テキストボックス６（数量）,テキストボックス７（コメント）←２件目 ↑１件目のみでコマンドボタンを押した場合は、１件目のみの管理番号取得をしたいのです。が今は、２件目が空欄でも管理番号はとられてしまいます。 長くなってしまいすみません。 どなたかご回答いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセル2010、VBAや関数について
Private Sub CommandButton1_Click() Worksheets("商品マスタ").Activate Application.Calculation = xlCalculationManual If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData ActiveWindow.ScrollRow = 3 Range("AI1:AQ4").ClearContents Range("AI1:AQ4").NumberFormatLocal = "@" Range("AJ2:AK2").Value = Range("B2:C2").Value Range("AL2:AM2").Value = Range("D2").Value Range("AO2").Value = Range("E2").Value Range("AP2").Value = Range("V2").Value Range("AQ2").Value = Range("W2").Value Range("AN2").Value = Range("D2").Value If Me.TextBox1.Value <> "" Then ' コード Range("AK3").Value = "*" & Me.TextBox1.Value End If If Me.TextBox2.Value <> "" Then ' メーカー Range("AL3").Value = "*" & Me.TextBox2.Value & "*" End If If Me.TextBox3.Value <> "" Then ' <--シリーズ Range("AM3").Value = "*" & Me.TextBox3.Value & "*" End If If Me.TextBox4.Value <> "" Then ' <--サイズ Range("AN3").Value = "*" & Me.TextBox4.Value & "*" End If If Me.TextBox5.Value <> "" Then ' 入荷日 Range("AJ3").Value = Me.TextBox5.Value End If If Me.TextBox9.Value <> "" Then ' 仕入れ先 Range("AP3").Value = Me.TextBox9.Value End If If Me.TextBox12.Value <> "" Then ' 単体価格 Range("AQ3").Value = Me.TextBox12.Value End If If Me.TextBox6.Value <> "" Then ' 在庫数 Range("AO3").Value = Me.TextBox6.Value End If If Cells(3, Columns.Count).End(xlToLeft).Column > 34 Then Range("A2:W" & Rows.Count).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("AI2").CurrentRegion, Unique:=False End If Range("AI1:AQ4").ClearContents ActiveWindow.ScrollColumn = 4 Range("A2").Activate Application.Calculation = xlCalculationAutomatic End Sub このようなマクロを組んでいるのですが、とても反応が遅いのですが、 シートにはA4-AG2000にデータが入っていて、 G4-U2000には =SUMIFS('[在庫.xlsx]02'!$AD:$AD,'[在庫.xlsx]02'!$AQ:$AQ,$A421,'[在庫.xlsx]02'!$AS:$AS,$F$2,'[在庫.xlsx]02'!$AT:$AT,G$2) このような関数が入っております。 これが原因で、動作が遅くなっているのでしょうか？ 行の挿入等もとても遅いのですが、 G-U列の関数をやめてVBAで転記してから、検索をかけたら、早くなるのでしょうか？ G-U列には関数での表記しかわからなかったため、関数をいれております。 解決法があれば教えてください。
- ベストアンサー
- Excel（エクセル）
- ユーザーフォームでの任意の文字を含む検索について
初心者の質問で申し訳ございません。 ユーザーフォームを利用して検索ボタンを作りました。 ユーザーフォームでテキストボックスを２個と コマンドボタン１個を作成し、 テキストボックス１に検索したい氏名を入力して コマンドボタンを押すと、 ワークシートに作成されたデータのD列から 一致するものを検索し、 一致したデータのA列にある「番号」をテキストボックス２、 表示する。 このサイトで教えていただき、以下のようなプログラムで 検索することができました。 しかし、テキストボックス１の文字が完全に一致すれば結果は出るのですが、 文字を含むものを検索するように改良したいのですがどのようにすればいいのか 分からず困っています。 よろしくお願いいたします。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub CommandButton1_Click() Dim res If TextBox1.Text <> "" Then res = Application.Match(TextBox1.Text, Sheets("データ").Columns(4), 0) If IsNumeric(res) Then TextBox2.Text = Sheets("データ").Cells(res, "A").Value Else TextBox2.Text = "Not Found" End If Else TextBox2.Text = "" End If End Sub
- 締切済み
- オフィス系ソフト
- ExcelVBAで行と列の検索
Ａ Ｂ Ｃ Ｄ Ｅ １ コード あ い う え ２ １０ ○ ○ ３ ２０ ○ ○ ４ ３０ ○ 上記の表が5000件あります。Textbox1に入力し検索ボタンを押すと A列のコードを検索して一致する列の○のあるところの１行目の項目 をtextbox2に表示したいのですがうまく行きません。 よろしくお願い致します。 Private Sub CommandButton1_Click() '検索フォームボタン Dim i As Long Dim 最終行 As String Dim サーチ行 As Long Sheets(1).Activate 最終行 = Range("A1").End(xlDown).Row サーチ行 = 0 For i = 2 To 最終行 If TextBox1.Value = Range("A" & i) Then If Range("B" & i, "N" & i) = "" Then TextBox2.Text = Range("B1", "N1") サーチ行 = i Exit For End If End If Next If サーチ行 = 0 Then MsgBox TextBox1.Value & "データはありません。", vbInformation, "無し" End If TextBox1.SetFocus End Sub エラーはでません。データはありませんとなります。
- ベストアンサー
- その他（プログラミング・開発）
- VBAの計算について教えてください。
お世話になります。 VBA超初心者です。 教えて頂けると助かります。 ユーザーフォームにテキストボックス１、２、３を作成し、それらを計算させて テキストボックス４に表示をさせたいと考えています。 テキストボックスに入力するパターンは以下の２種類です。 (1)すべてのテキストボックスに数値が入る (2)テキストボックス３のみに数値が入る 行いたい計算は、“（テキストボックス１ × テキストボックス２） ＋ テキストボックス３”です。 曲りなりに作成してみましたが、テキストボックス３の数値を変えた時や削除した時などに、 テキストボックス４に入っている数値が残っていたりと、思うようにできません。 作成したものを掲載しておきます。 何卒よろしくお願いします。 テキストボックス１を変更したとき １、３に数値が入っていれば、以下の計算を。 それ以外は“０”をテキストボックス４へ Private Sub TextBox1_Change() If TextBox1.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) Else TextBox4 = 0 End If End Sub テキストボックス２を変更したとき ２、３に数値が入っていれば、以下の計算を。 それ以外は“０”をテキストボックス４へ Private Sub TextBox2_Change() If TextBox2.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) Else TextBox4 = 0 End If End Sub テキストボックス３を変更したとき １、２、３に数値が入っていれば、以下の計算を。 １か２に数値がなく、３に数値があれば、３の数値をテキストボックス４へ。 それ以外は“０”をテキストボックス４へ Private Sub TextBox3_Change() If TextBox1.Value = True And TextBox2.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) ElseIf TextBox1.Value = False or TextBox2.Value = False And TextBox3.Value = True Then TextBox4 = Val(TextBox3.Text) Else texbox24 = 0 End If End SubEnd Sub
- ベストアンサー
- Visual Basic
- VBAのFor構文で
質問させていただきます。 IF textBox1.value = "" then End If のように、VBAのテキストボックスが空白の場合に起動する構文を作ろうと考えているのですが、 このテキストボックスの数が多いので、どうにかして短く出来ないかと考えています。 VBAのテキストボックスを直接For構文で変更する事は可能なのでしょうか？ 例えば For i = 1 to 20 IF textBox(i).value = "" then End If Next i 上記のような構文では実際に動かしたときにtextBoxの指定がされていないのでエラーが出てしまいます。 やはり、各テキストボックスごとに構文を作らなければならないのでしょうか？ もし可能なら、その方法を教えていただきたいです。
- ベストアンサー
- オフィス系ソフト
補足
全て試させて頂きました。３は検索しても結果が出なかったので、３は省いて、１、２についてはきちんと結果が出ました！！ 感動してしまいました。 ありがとうございます。 質問なのですが、１、２について、 T列の空白部分も引っかかってきていたのですが、T列が空白の場合、出てしまうのでしょうか？