- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-6-3 15:44 ½s¿è
¦^´_ 5# user999
listbox1 ¥Î ·Æ¹««ö½T©w¼Æ¶q«á ·Æ¹«¥ªÁä³QÂꤣ¯à¿ïlistbox2 listbox3 ¥u¯à¦blistbox1§@·~
¦bªí³æ(¤£§tªíÀY)ªº¥ô¤@¦ì¸m,«ö¤U·Æ¹«¥kÁä¤@¦¸¦^¨ìªí³æ.
listbox2 listbox3,·Æ¹«¥ªÁä³QÂê¥i¸Ñ°£.
«Øijקï§Aªºµ{¦¡½X- Dim Sh As Worksheet, vntData1(), vntData2(), vntData3(), n1 As Integer, n2 As Integer, n3 As Integer
- '¼Ò²Õ³»ºÝªº Dim ÅÜ¼Æ Sh, vntData1(), vntData2()......
- '¬°³o¼Ò²Õ¤¤©Ò¦³µ{¦¡¥i©I¥sªº¼Ò²Õ¨p¥ÎÅܼÆ
- Private Sub UserForm_Activate()
- '**********************************¤â³N³æ¤@
- Set Sh = Sheets("¤â³N§÷®Æ©ú²Óªí1")
- 'ShÅܼƫü©w¨ì(¤u§@ªí)ª«¥ó ³o¼Ò²Õ¤¤©Ò¦³µ{¦¡¥i©I¥s ShÅܼÆ
- Frame1.Caption = "§å »ù ½X " & " §÷ ®Æ ¶µ ¥Ø " & " ³W®æ " & " ¼Æ ¶q"
- ListBox1.ColumnCount = 4
- ListBox1.ColumnWidths = "50,130,30,10"
- °}¦C³]¸m1
- Frame2.Caption = "§å »ù ½X " & " §÷ ®Æ ¶µ ¥Ø " & " ³W®æ " & " ¼Æ ¶q"
- ListBox2.ColumnCount = 4
- ListBox2.ColumnWidths = "50,130,30,10"
- °}¦C³]¸m2
- Frame3.Caption = "§å »ù ½X " & " §÷ ®Æ ¶µ ¥Ø " & " ³W®æ " & " ¼Æ ¶q"
- ListBox3.ColumnCount = 4
- ListBox3.ColumnWidths = "50,130,30,10"
- °}¦C³]¸m3
- '**********************************
- 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 '³o¸Ì¥i¥H©I¥s¥¦
- .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
- °}¦C³]¸m1
- End If
- ListBox1.ListIndex = i
- End Sub
½Æ»s¥N½X |
|