ExcelVBAのユーザー入力ボックスデータから複数のフィルターを使用してコピーする方法
ディーパック
inputboxを介してユーザーから複数の入力を取得し、テーブルをフィルタリングしたいと思います。1つの列のみがフィルタリングされます。次に、行データ全体を別のシートにコピーします。以下のコードを使用しました。問題は、1つの国をフィルタリングするために使用できることです。
列Fに国がたくさんあります。入力ボックスに2つ以上の国を入力する必要があります。次に、コピーして貼り付けます。ループを追加したいのですが。しかし、私は方法がわかりません。助けて
Private Sub CommandButton1_Click()
Dim str1 As Variant
Dim Tbl As ListObject
Dim FiltRng As Range
Dim RngArea As Range
Set Tbl = Sheet1.ListObjects("DataTable")
str1 = Application.InputBox("Select the Country Code")
If str1 = False Then
MsgBox "Please select one Country", , "Input"
Exit Sub
Else
Tbl.Range.AutoFilter Field:=6, Criteria1:=str1
For Each RngArea In Tbl.Range.SpecialCells(xlCellTypeVisible).Rows
If RngArea.Row > 1 Then
If Not FiltRng Is Nothing Then
Set FiltRng = Application.Union(FiltRng, RngArea)
Else
Set FiltRng = RngArea
End If
End If
Next RngArea
If Not FiltRng Is Nothing Then
FiltRng.Copy Sheets("Sheet2").Range("A2")
End If
End If
Sheet1.ListObjects("DataTable").Range.AutoFilter Field:=6
End Sub
Zsmaster
InputBoxからループで読み取ることができます。次のコードを試してください。
Sub Macro3()
Dim arr() As String
Dim size As Long
size = 1
Do
str1 = Application.InputBox("Select the Country Code")
ReDim Preserve arr(size)
arr(size) = str1
size = size + 1
Loop While (str1 <> vbNullString) And (str1 <> False)
ActiveSheet.Range("$A$1:$F$5").AutoFilter Field:=6, Criteria1:=arr, Operator:=xlFilterValues
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
- 前の投稿：RecyclerViewの制約レイアウトに問題があります
- 次の投稿：communicating with data or methods in vue and addEventListener
関連記事
Related 関連記事
- 1
ExcelVBAユーザーフォームチェックボックスを使用して複数の行にデータを入力する
- 2
ボタンが押されたときにユーザーから入力フィールドをコピーして変数に保存する方法
- 3
複数のコンボボックスを使用してデータをフィルタリングする方法
- 4
複数のコンボボックスを使用してデータをフィルタリングする方法
- 5
Solrアナライザーのトークンストリームから複数値フィールドにデータを入力する方法は？
- 6
vbaを使用して複数のデータフィールドを持つExcelピボットテーブルから小計を削除する方法
- 7
ajaxからのデータを使用してvuetify選択ボックスにデータを入力する方法
- 8
ユーザー入力を使用してコンボボックスにデータを入力します
- 9
ExcelVBAを使用してInnerTextに複数の範囲データをコピーまたは挿入する方法
- 10
Excelvbaユーザーフォームコンボボックスで選択した行の列からデータを抽出します
- 11
入力フィールドに基づいてkafkaの複数のトピックにjsonデータストリームを送信する方法
- 12
ユーザー入力に基づいてデータフレームに複数のフィルターを適用するPythonの方法
- 13
複数のユーザーを選択してデータベースからデータをフィルタリングする
- 14
セルの範囲からユーザーフォームにコンボボックスを入力する
- 15
ユーザー入力に従ってピボット テーブルから値をフィルター処理する方法
- 16
Excel VBを使用して、テキストボックスが2つ以上のユーザーフォームからのものであるテキストボックスにデータを入力するよりも優れたデータを入力するにはどうすればよいですか？
- 17
ユーザーフォームからのデータ入力を使用してワークシートを非表示および再表示する方法
- 18
Pythonを使用して、複数の動的選択フィールドを持つページからデータをスクレイピングする方法は？
- 19
vbscriptを使用して1つのユーザーフォームで複数の入力ボックスを作成する方法
- 20
複数のEJSデータフィールドのonClickから複数のフォームフィールドにデータを入力する方法
- 21
「FOR」ループを使用してデータの複数の列を計算し、それをユーザーフォームに表示するExcelVBA関数
- 22
Javaを使用して複数のcsvファイルからデータを入力する方法
- 23
同じテーブルから複数の選択ボックスにデータを入力します
- 24
シートデータを重複せずにユーザーフォームコンボボックスに挿入します-ExcelVba
- 25
ユーザーモデルのafter_createコールバックを使用して、異なるモデルからデータをプルし、3番目のモデルにデータを入力します
- 26
ボタンを使用して複数のラベルをクリップボードにコピーする方法
- 27
ShinyRでのユーザーの選択に応じてデータを収集するための動的/複数の入力ボックスの作成
- 28
ExcelVBAのinputboxを使用してピボットテーブルをフィルタリングする方法
- 29
入力フィールドからデータをコピーするjavascriptonclick関数の最適化
コメントを追加