- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
6#
發表於 2015-6-3 15:42
| 只看該作者
本帖最後由 GBKEE 於 2015-6-3 15:44 編輯
回復 5# user999
listbox1 用 滑鼠按確定數量後 滑鼠左鍵被鎖不能選listbox2 listbox3 只能在listbox1作業
在表單(不含表頭)的任一位置,按下滑鼠右鍵一次回到表單.
listbox2 listbox3,滑鼠左鍵被鎖可解除.
建議修改你的程式碼- Dim Sh As Worksheet, vntData1(), vntData2(), vntData3(), n1 As Integer, n2 As Integer, n3 As Integer
- '模組頂端的 Dim 變數 Sh, vntData1(), vntData2()......
- '為這模組中所有程式可呼叫的模組私用變數
- Private Sub UserForm_Activate()
- '**********************************手術單一
- Set Sh = Sheets("手術材料明細表1")
- 'Sh變數指定到(工作表)物件 這模組中所有程式可呼叫 Sh變數
- Frame1.Caption = "批 價 碼 " & " 材 料 項 目 " & " 規格 " & " 數 量"
- ListBox1.ColumnCount = 4
- ListBox1.ColumnWidths = "50,130,30,10"
- 陣列設置1
- Frame2.Caption = "批 價 碼 " & " 材 料 項 目 " & " 規格 " & " 數 量"
- ListBox2.ColumnCount = 4
- ListBox2.ColumnWidths = "50,130,30,10"
- 陣列設置2
- Frame3.Caption = "批 價 碼 " & " 材 料 項 目 " & " 規格 " & " 數 量"
- ListBox3.ColumnCount = 4
- ListBox3.ColumnWidths = "50,130,30,10"
- 陣列設置3
- '**********************************
- End Sub
- Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- Dim i As Integer
- i = ListBox1.ListIndex
- OpKeyA1
- If ccc = "D" Then
- Dim c0 As Integer
- c0 = UBound(vntData1)
- c0 = c0 + 2
- With Sh '這裡可以呼叫它
- .Cells(c0, 3).Value = ListBox1.List(i1, 0)
- .Cells(c0, 4).Value = ListBox1.List(i1, 1)
- .Cells(c0, 5).Value = "D"
- .Cells(c0, 1).Value = .Cells(c0 - 1, 1).Value
- .Cells(c0, 2).Value = .Cells(c0 - 1, 2).Value
- End With
- 陣列設置1
- End If
- ListBox1.ListIndex = i
- End Sub
|
|
發表於 2015-6-2 17:53
| 
