ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·Æ¹«¥ªÁä³QÂꤣ¯à¿ïlistbox2 listbox3

[µo°Ý] ·Æ¹«¥ªÁä³QÂꤣ¯à¿ïlistbox2 listbox3

½Ð±Ð¦blistbox1 ¥Î enter ¿é¼Æ¶q«á ¥i¥Î ·Æ¹«ª½±µ¿ïlistbox2 listbox3 ¥ô¤@item
¦ý ¦blistbox1 ¥Î ·Æ¹««ö½T©w¼Æ¶q«á  ·Æ¹«¥ªÁä³QÂꤣ¯à¿ïlistbox2 listbox3  ¥u¯à¦blistbox1§@·~
¦pªþ¥ó
½Ð°Ý°ÝÃD¥X¦b­þ
½ÐÀ°¦£¤@¤UÁÂÁÂ!
max

[attach]21084[/attach]

test0602.rar (66.92 KB)

max

TOP

©_©Çªº°ÝÃD
·Pı¥¢µJ«á¦^¤£¤FµJ
¸Ñªk

¨BÆJ1
Application.InputBox  (  Left:= ??, Top:= ?? )  
±a¤J Left , Top ¨Ï InputBox  Âл\¨ì ListBox1  
Left ,  Top ªº¨ú±o¥i¥Ñ    ListBox1 _MouseDown ¨Æ¥ó¨ú±oÂà´«

¨BÆJ2
Application.InputBox  ©I¥s§¹²¦«á, ­n¦A¥[¤W1¥y AppActivate UserForm1.Name

TOP

¸Ñªk2

¦Û¤v¥Î TextBox , «ö¶s ²Õ¦¨¦Û¤vªº  InputBox
À³¸Ó´N¤£·|¦³³o°ÝÃD

TOP

¦^´_ 4# bobomi

ÁÂÁÂ
¸Ñ¤@ §Ë¤£¥X
¸Ñ¤G run 3¦¸«á´N¶}©l¥d¤F
max

TOP

¥»©«³Ì«á¥Ñ 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
  1. Dim Sh As Worksheet, vntData1(), vntData2(), vntData3(), n1 As Integer, n2 As Integer, n3 As Integer
  2. '¼Ò²Õ³»ºÝªº Dim ÅÜ¼Æ Sh, vntData1(), vntData2()......
  3. '¬°³o¼Ò²Õ¤¤©Ò¦³µ{¦¡¥i©I¥sªº¼Ò²Õ¨p¥ÎÅܼÆ
  4. Private Sub UserForm_Activate()
  5.     '**********************************¤â³N³æ¤@
  6.     Set Sh = Sheets("¤â³N§÷®Æ©ú²Óªí1")
  7.     'ShÅܼƫü©w¨ì(¤u§@ªí)ª«¥ó ³o¼Ò²Õ¤¤©Ò¦³µ{¦¡¥i©I¥s ShÅܼÆ
  8.     Frame1.Caption = "§å »ù ½X     " & "  §÷  ®Æ  ¶µ  ¥Ø  " & "                  ³W®æ  " & " ¼Æ  ¶q"
  9.     ListBox1.ColumnCount = 4
  10.     ListBox1.ColumnWidths = "50,130,30,10"
  11.     °}¦C³]¸m1
  12.     Frame2.Caption = "§å »ù ½X     " & "  §÷  ®Æ  ¶µ  ¥Ø  " & "                  ³W®æ  " & " ¼Æ  ¶q"
  13.     ListBox2.ColumnCount = 4
  14.     ListBox2.ColumnWidths = "50,130,30,10"
  15.     °}¦C³]¸m2
  16.     Frame3.Caption = "§å »ù ½X     " & "  §÷  ®Æ  ¶µ  ¥Ø  " & "                  ³W®æ  " & " ¼Æ  ¶q"
  17.     ListBox3.ColumnCount = 4
  18.     ListBox3.ColumnWidths = "50,130,30,10"
  19.     °}¦C³]¸m3
  20.     '**********************************
  21. End Sub
  22. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  23.     Dim i As Integer
  24.     i = ListBox1.ListIndex
  25.     OpKeyA1
  26.     If ccc = "D" Then
  27.         Dim c0 As Integer
  28.         c0 = UBound(vntData1)
  29.         c0 = c0 + 2
  30.         With Sh  '³o¸Ì¥i¥H©I¥s¥¦
  31.             .Cells(c0, 3).Value = ListBox1.List(i1, 0)
  32.             .Cells(c0, 4).Value = ListBox1.List(i1, 1)
  33.             .Cells(c0, 5).Value = "D"
  34.             .Cells(c0, 1).Value = .Cells(c0 - 1, 1).Value
  35.             .Cells(c0, 2).Value = .Cells(c0 - 1, 2).Value
  36.         End With
  37.         °}¦C³]¸m1
  38.     End If
  39.     ListBox1.ListIndex = i
  40. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-6-4 00:29 ½s¿è
¦^´_  user999
listbox1 ¥Î ·Æ¹««ö½T©w¼Æ¶q«á  ·Æ¹«¥ªÁä³QÂꤣ¯à¿ïlistbox2 listbox3  ¥u¯à¦blistbox1§@·~ ...
GBKEE µoªí©ó 2015-6-3 15:42


«ö·Æ¹«¥kÁä¸ÑÂê
³o¤èªk²³æ¤Ó¦h¤F
§Ú­Ì´N¥Î GBKEE ª©¥Dªº¤èªk¨Óµ²®× ^^

Xl0000052.zip (29.66 KB)

TOP

ÁÂÁ¤j®a
·P®¦¦b¤ß
max

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD