動作としてはTextBox1に検索対象(管理№例100053)を入力(完全一致ではなく一部入力でも)該当する№がリストボックスに表示します
表示したリストから該当の№をクリックしたらsheet1のB列にカーソルが移動した対象を確認、
その№行の指定したセルに転記させるというながれになります
検索対象の桁数があるので下桁でも表示はするのですが
クリックしてカーソルがその対象とは違うところに移動してしまいます
問題なく動くときは頭の1桁検索しスクロールで対象をクリックした時になります
現状はこのようになってます
どのようにしたら改善するのでしょうか?(´;ω;`)
Private Sub TextBox1_Change()
' TextBox入力した時の処理
Dim i As Long
Dim Mydata As Variant
Dim lastRow As Long
Dim Cnt As Long
Dim searchTerm As String
Dim listBoxIndex As Integer
' 配列カウント初期化
Cnt = 1
' 最終行を取得
lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 2).End(xlUp).Row
' 2次元配列の要素数を変更
ReDim Mydata(1 To lastRow, 1 To 20)
' 検索対象が空の場合は処理を終了
searchTerm = Me.TextBox1.text
If Len(searchTerm) = 0 Then Exit Sub
For i = 1 To lastRow
If InStr(1, Sheets("Sheet1").Cells(i, 2), searchTerm) > 0 Then
' 配列に列の値と、セル番号を格納
Mydata(Cnt, 1) = i + 1
Mydata(Cnt, 2) = Cells(i, 2)
Mydata(Cnt, 3) = Cells(i, 3)
Mydata(Cnt, 4) = Cells(i, 4)
Mydata(Cnt, 5) = Cells(i, 5)
Mydata(Cnt, 6) = Cells(i, 6)
Mydata(Cnt, 7) = Cells(i, 7)
Mydata(Cnt, 8) = Cells(i, 8)
Mydata(Cnt, 9) = Cells(i, 9)
Mydata(Cnt, 10) = Cells(i, 10)
Mydata(Cnt, 11) = Cells(i, 11)
Mydata(Cnt, 12) = Cells(i, 12)
Mydata(Cnt, 13) = Cells(i, 13)
Mydata(Cnt, 14) = Cells(i, 14)
Mydata(Cnt, 15) = Cells(i, 15)
Mydata(Cnt, 16) = Cells(i, 16)
Mydata(Cnt, 17) = Cells(i, 17)
Mydata(Cnt, 18) = Cells(i, 18)
Mydata(Cnt, 19) = Cells(i, 19)
Mydata(Cnt, 20) = Cells(i, 20)
' 他の列のデータも同様に追加
' ...
' 配列カウント増加
Cnt = Cnt + 1
End If
Next i
' 検索で一致したデータをリストボックスに表示
With ListBox1
.ColumnCount = 20
.ColumnWidths = "30;55;40;0;150;90;130;130;0;0;60;150;0;0;0;0;120,60,130,30"
.List = Mydata
End With
End Sub
Private Sub ListBox1_Click()
' リストボックス内をクリックして該当セルを選択
Dim rowIndex As Integer
Dim targetCell As Range
' 選択された項目の行番号を取得
rowIndex = ListBox1.ListIndex + 2
' 対応するセルを選択
Set targetCell = Sheets("Sheet1").Cells(rowIndex, 2)
targetCell.Select
End Sub
Private Sub CommandButton1_Click()
Dim selectedRow As Integer
Dim r As Integer
If Me.ComboBox6 = "" Then
MsgBox "管理場所が入力されてません"
Exit Sub
End If
If Me.ComboBox7 = "" Then
MsgBox "担当者が入力されてません"
Exit Sub
End If
' リストボックス内で選択された行のインデックスを取得
selectedRow = ListBox1.ListIndex
For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If ListBox1.ListIndex = r - 2 Then ' 選択された行が有効かどうかを確認
' 選択された行に基づいてデータを転記
Cells(r, 18).Value = Me.TextBox4.Value
Cells(r, 19).Value = Me.ComboBox6.Value
Cells(r, 20).Value = Me.ComboBox7.Value
Cells(r, 21).Value = Me.TextBox2.Value
' 選択された行をリストボックスから削除
ListBox1.RemoveItem r - 2
Exit For ' 処理が完了したらループを終了
End If
Next r
End Sub
No.2ベストアンサー
- 回答日時:
No1です。
>転記するときにコンパイルエラーが出るようになりましたが・・・
それって、No1で回答した「Private Sub ListBox1_Click()」とは別のプロシージャの話ですよね?
No1の回答は「セルの選択」をご質問のようにしているだけで、後は何も変えていませんので、他のプロシージャに影響はしないはずです。
それに、「コンパイルエラー」なら、質問文にご提示のままでも出ていたはずだと思いますけれど・・?
No.1
- 回答日時:
こんばんは
>クリックしてカーソルがその対象とは違うところに移動してしまいます
ご質問はこの部分だけと解釈しました。(他は見ていません)
ご質問の内容とは直接関係はありませんけれど、該当するものをリストボックスに抽出した際に、行番号(?)を表示していますけれど、実際の行番号とはずれていますが、それは意図通りってことで良いのでしょうか?
まぁ、それはそのままという事にしておいて・・
クリックした際の処理は、
>Private Sub ListBox1_Click()
に記されていると思いますが、その内容を以下のようににすると、ご質問のような動作になるのではないでしょうか。
Dim rowIndex As Integer
rowIndex = ListBox1.ListIndex
If rowIndex > -1 Then _
Worksheets("Sheet1").Cells(ListBox1.List(rowIndex, 0) - 1, 2).Select
ありがとうございましたm(__)m
クリックで指定した所にちゃんと行くようになりました
転記するときにコンパイルエラーが出るようになりましたが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) VBAコードについて 2 2024/03/10 12:41
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAの質問になります Userform内で
Visual Basic(VBA)
-
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
VBA listBoxから
Visual Basic(VBA)
-
-
4
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
5
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません
Visual Basic(VBA)
-
6
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
7
VBA UserFormからの転記で
Visual Basic(VBA)
-
8
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
9
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
10
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
11
エクセルVBAの配列について
Visual Basic(VBA)
-
12
VBAの質問になります メッセージボックス
Visual Basic(VBA)
-
13
Excel マクロについての相談
Visual Basic(VBA)
-
14
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
15
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
16
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
17
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
18
エクセルVBAについて
Visual Basic(VBA)
-
19
引数に数値、文字列の混在
Visual Basic(VBA)
-
20
VBAのコードを教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのINDEXとMATCH関数でスピ...
-
VB6.0 ファイルの一括読込み
-
配列に画像を格納
-
Excelのセルの色指定をVBAから...
-
DataSetから、DataTableを取得...
-
エクセルの行の削除を配列で高...
-
VBA 配列に格納した値の平均の...
-
読み込みで一行おきに配列に格納
-
表にフィルターをかけ、絞った...
-
VBA listBoxについて
-
Excelのオートフィルタで抽出し...
-
array関数で格納した配列の型を...
-
エクセルでエラーを無視して一...
-
[エクセル]連続する指定範囲か...
-
C#で配列のフィールドを取得したい
-
CSVファイルの読み込みと表示(V...
-
【C#】二次元配列へのcsvファイ...
-
配列がとびとびである場合の書き方
-
INDEX(D:D,L3)の意味は?
-
エクセルで、絶対値の平均を算...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
ExcelのINDEXとMATCH関数でスピ...
-
array関数で格納した配列の型を...
-
[エクセル]連続する指定範囲か...
-
表にフィルターをかけ、絞った...
-
VBA listBoxについて
-
エクセルで、絶対値の平均を算...
-
配列がとびとびである場合の書き方
-
DataSetから、DataTableを取得...
-
[VBA]改行入りのセルの値を配列...
-
VBA 配列に格納した値の平均の...
-
配列のSession格納、及び取得方...
-
【VBA】ユーザーフォーム リス...
-
エクセルでエラーを無視して一...
-
SUMPRODUCT関数を用いた最小値
-
Excel VBA 配列の分割について
-
Excelのオートフィルタで抽出し...
-
VB6.0 ファイルの一括読込み
-
Excel オートフィルタのリスト...
-
VBAで指定期間の範囲を抽出し、...
おすすめ情報