| こんにちは。
Private Sub CommandButton11_Click()
With Worksheets("Sheet1")
.Range("A1").AutoFilter _
Field:=15, Criteria1:="<>完成"
End With
End Sub
に対して
Private Sub UserForm_Initialize()
Private Sub UserForm_Initialize()
Worksheets("Sheet1").Activate
Dim i As Long
Dim MyArray(1, 17)
ListBox1.ColumnCount = 17
For i = 1 To 17
MyArray(0, i) = Cells(1, i * 1 + 1)
Next i
ListBox1.List() = MyArray
With ListBox1
.Font.Size = 10
.TextAlign = fmTextAlignLeft
.Font.Name = "Arial Unicode MS"
.ColumnWidths = "30;70;40;80;180;50;180;30;160;60;60;120;80;90;60;70;100"
Dim lastRow As Integer
lastRow = Range("A65536").End(xlUp).Row
For i = 2 To lastRow
.AddItem Cells(i, 1).Value
.List(.ListCount - 1, 1) = Cells(i, 2).Value
.List(.ListCount - 1, 2) = Cells(i, 3).Value
.List(.ListCount - 1, 3) = Cells(i, 4).Value
.List(.ListCount - 1, 4) = Cells(i, 5).Value
.List(.ListCount - 1, 5) = Cells(i, 6).Value
.List(.ListCount - 1, 6) = Cells(i, 7).Value
.List(.ListCount - 1, 7) = Cells(i, 8).Value
.List(.ListCount - 1, 8) = Cells(i, 9).Value
.List(.ListCount - 1, 9) = Cells(i, 10).Value
.List(.ListCount - 1, 10) = Cells(i, 11).Value
.List(.ListCount - 1, 11) = Cells(i, 12).Value
.List(.ListCount - 1, 12) = Cells(i, 13).Value
.List(.ListCount - 1, 13) = Cells(i, 14).Value
.List(.ListCount - 1, 14) = Cells(i, 15).Value
.List(.ListCount - 1, 15) = Cells(i, 16).Value
.List(.ListCount - 1, 16) = Cells(i, 17).Value
Next
End With
Dim myRange As Range, r As Range
Set myRange = Worksheets("Sheet1").Range("A1:Q1000").SpecialCells(xlCellTypeVisible)
For Each r In myRange
ListBox1.AddItem r.Value
Next
End Sub
としたのですが反映されません。どこが間違っているのでしょうか
すみません再度お願いします。
また、最大化、最小化のサイトで
UserFormに記述
Private Const GWL_STYLE = -16
Private Const SC_CLOSE = &HF060 'メニューの「×」（閉じる）
Private Const MF_BYCOMMAND = &H0& '定数の設定
Private Const WS_THICKFRAME = &H40000 'ウィンドウのサイズ変更
Private Const WS_MINIMIZEBOX = &H20000 '最小化ボタン
Private Const WS_MAXIMIZEBOX = &H10000 '最大化ボタン
の部分は、どこに記述したらよいのでしょうか
すみません。お手数おおかけいたします。
|
オートフィルタ抽出データをリストボック..
/ハツ Mail (18/10/22(Mon) 21:48) #13315