- 帖子
- 13
- 主題
- 0
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 365
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2022-2-1
- 最後登錄
- 2024-11-20
|
回復 1# av8d
參考看看
UserForm 的程式碼- Dim Sh As Worksheet
- Private Sub UserForm_Initialize()
- Set Sh = ActiveSheet
- ListBox1_內容制定
- End Sub
- Private Sub ListBox1_Click()
- With ListBox1
- If .ListIndex = -1 Then Exit Sub
- Sh.Range(.List(.ListIndex, 1)).Select
- Selection = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1) '驗證 項目與位置
- End With
- End Sub
- Private Sub ListBox1_內容制定()
- Dim Ar(), R As Integer, i As Integer, ii As Integer
- Ar = Array("A", "F", "K", "P") '指定攔位
- R = 0
- With ListBox1
- .ColumnCount = 2 ' 顯示2個欄位
- .Font.Size = 14
- For i = 0 To 49 Step 4
- R = IIf(i > 3, R + 1, 0) '間隔14列的計數
- For ii = 0 To 3
- If i + ii + 1 > 50 Then Exit For
- .AddItem
- .List(i + ii, 0) = "項" & i + ii + 1
- .List(i + ii, 1) = Ar(ii) & IIf(R = 0, 1, R * 13 + R) '間隔14列的位置
- Next
- Next
- End With
- End Sub
|
|
發表於 2022-10-18 13:24
| 