242

view

90人以上が見ても回答が無いのは、回答者に答えるスキルが不足しているのでは無く、ご質問の文章や表現などに問題があると考えた事はありませんか？

「まったく状況や内容を知らない人が読む」という観点で質問を読み返してみて下さい。果たして何人の人が望んでいる事を理解出来るでしょうか？

見ていない人に文章で伝えるのはかなり大変なことですし、特に文字数制限がある掲示板では尚更です。込み入った内容の質問であればあるほど伝えるのは容易ではありません。書いてもらったコードをコピペで載せるのではなく、読む人の環境で再現させる事が出来るように記述される工夫が必要です。
時には内容を簡素化する必要もあるでしょう。簡素化した環境でレスを得て動作の確認が出来たなら、それを自分の環境に置き換える。その繰り返しでスキルも向上すると思います。

---

以下のコードが希望通りのものか分かりません。
実行すると画像のようになります。

Private Sub UserForm_Initialize()
Dim i As Long, j As Long, myItem, temp, myList()
Dim ws As Worksheet, r As Range

Me.StartUpPosition = 0
Me.Left = 586
Me.Top = 138

'タイトルを設定
Me.Caption = "印刷フォーム"
Label1.Caption = "日付リスト"
CommandButton1.Caption = "帳簿印刷"
CommandButton2.Caption = "帳票印刷"
CommandButton3.Caption = "請負印刷"
CommandButton4.Caption = "表紙印刷"
CommandButton5.Caption = "翌月更新"

Set ws = Worksheets("入出金帳簿")

myItem = Application.WorksheetFunction.Transpose(ws.Range("L4:L24"))

i = 0
For Each r In ws.Range("B4", ws.Range("B" & Rows.Count).End(xlUp))
If InStr(1, Join(myItem, vbTab), r.Text) > 0 Then
If r.Text <> ws.Range("L5").Text Then
ReDim Preserve myList(i)
myList(i) = r.Offset(0, -1).Value
i = i + 1
End If
End If
Next r

For i = 0 To UBound(myList)
For j = UBound(myList) To i Step -1
If myList(i) > myList(j) Then
temp = myList(i)
myList(i) = myList(j)
myList(j) = temp
End If
Next j
Next i

With CreateObject("Scripting.Dictionary")
For i = 0 To UBound(myList)
.Item(myList(i)) = Empty
Next
ListBox1.List = .Keys
End With

End Sub