![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.1ベストアンサー
- 回答日時:
ぶどうとさん、おはようございます。
ご質問を読むとListviewに表示する以前に問題が少々あるように思います。
それは、TextBoxです。
テキストボックスに入力された文字が日付に変換できるかなどを検証する必要があります。また、(画像を見る限りシリアル値のようですが)データがシリアル値なのかも問題になるかもです。
TextBox1 から TextBox2までの(日付)範囲でリストを(F列を対象)抜き出しListviewに表示
コマンドボタンに
Dim i As Long, j As Long, cnt As Long
Dim stDate As Date, endDate As Date
Dim findRow() As Variant
'文字が日付に変換できるかなどを検証
If Not IsDate(TextBox1.Value) _
And Not IsDate(TextBox2.Value) Then
MsgBox ("日付を正しく入力してください")
Exit Sub
End If
'ListView1をクリア
ListView1.ListItems.Clear
'TextBox1と2を比較(大小を決める)
If CDate(TextBox1.Value) <= CDate(TextBox2.Value) Then
stDate = CDate(TextBox1.Value)
endDate = CDate(TextBox2.Value)
Else
stDate = CDate(TextBox2.Value)
endDate = CDate(TextBox1.Value)
End If
'条件に一致した行番号を配列に入れる
'ソートが必要な場合、行番号配列作成前に
For i = 4 To Cells(Rows.Count, "F").End(xlUp).Row
If stDate <= Cells(i, "F").Value _
And endDate >= Cells(i, "F").Value Then
ReDim Preserve findRow(cnt)
findRow(cnt) = i
cnt = cnt + 1
End If
Next
'配列の値を元にシートのリストをListView1に表示
For i = 0 To UBound(findRow)
With ListView1.ListItems.Add
.Text = i + 1
For j = 1 To 4 'カラム分繰り返す
.SubItems(j) = Cells(findRow(i), "B").Offset(, j).Value
Next j
End With
Next i
カウント変数が分かり難かったらごめんなさいね
シートオブジェクトは指定していませんので明示してください。
お休みのところ本当にありがとうございました。
思い通りに作成していただきありがとうございました。
ListViewは検索してもなかなか思うようなのが
なく困っておりました。これをもとに
幅がひろがるとおもいます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ListView重複データ削除 2 2022/08/05 18:12
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Excel(エクセル) Powershell エクセル検索 完全一致の方法 1 2022/06/05 20:19
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
-
4
ListViewで列を指定して表示させる方法
Excel(エクセル)
-
5
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
-
6
Excel VBA ListViewサブアイテムの文字色
その他(プログラミング・Web制作)
-
7
リストビューの項目の内容を変更する方法は?
Visual Basic(VBA)
-
8
vba listviewにおけるtextのAlingmentを中央にしたい
Excel(エクセル)
-
9
VBAでListViewのフォントを変更する方法
Visual Basic(VBA)
-
10
ListViewから選択中の文字列を取得
Visual Basic(VBA)
-
11
ListViewの画面の更新
Visual Basic(VBA)
-
12
ListViewの行選択について
Visual Basic(VBA)
-
13
ListViewのチェックボックスについて
Excel(エクセル)
-
14
リストビューをスクロールさせるには
Visual Basic(VBA)
-
15
ListViewの複数選択について
Visual Basic(VBA)
-
16
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
ListViewで、非表示列って作れますか?
Visual Basic(VBA)
-
19
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
20
VBAのリストボックスをマウスでスクロール
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
VBAコードについて教えてくださ...
-
[vb.net] 起動したFrom2を閉じ...
-
重複確認
-
ExcelVBA修正のお願い
-
マクロの記録を使用したマクロ...
-
{ CONTROL Forms.Label.1}が...
-
エクセルのVBAコードについて教...
-
VBの色を変えるにはどうしたら...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
VBA 別ブックからコピペしたい...
-
A列B列どちらにもあるのを抽...
-
Excelに保存されているユーザー...
-
VBAコンボボックスで選択した値...
-
Excel(M365) Vlookup/セル反転(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAなくなるの?
-
VBAでCOPYを繰り返すと、処理が...
-
vba 削除
-
プログラミング
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
エクセルのVBAコードについて教...
-
久しぶりのプログラミング
-
ユーザーフォームに別シートか...
-
エクセルVBAコードで教えて下さ...
-
VBA 別ブックからコピペしたい...
-
ExcelのVBAコードについて教え...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
エクセルVBA
-
Geogebraの操作方法について
-
マクロの記録を使用したマクロ...
-
Excel(M365) Vlookup/セル反転(...
-
Excel 範囲指定スクショについ...
おすすめ情報