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

[µo°Ý] ½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí

ListBox ²M³æ¤ºªº¸ê®Æ¼g¤J¤u§@ªí¤WªºÀx¦s®æ

½Ð±Ð°ª¤â,
¦p¦ó±NListBox ²M³æ¤ºªº¸ê®Æ¼g¤J¤u§@ªí¤WªºÀx¦s®æ,¦p¹Ï,
¿ï¨ú§Ç¸¹001,002«á,¸ê®Æ§e²{©óÀx¦s®æA9:E10.
ListBox°ÝÃD (2).zip (19.12 KB)
learner

TOP

¦^´_ 1# yliu
  1. Private Sub ListBox1_Change()
  2. Dim ar()
  3. With ListBox1
  4. For i = 0 To .ListCount - 1
  5.   If .Selected(i) Then
  6.   ReDim Preserve ar(s)
  7.   ar(s) = Array(i + 1, .List(i, 0), .List(i, 1), .List(i, 2), .List(i, 3))
  8.   s = s + 1
  9.   End If
  10. Next
  11. End With
  12. [A9:E19] = ""
  13. If s > 0 Then [A9].Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

·PÁÂHsiehª©¤jªºÀ°¦£¡A¥i¥H¨Ï¥Î¤F¡AÁÂÁ¡I
learner

TOP

[µo°Ý] ½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí

½Ð°Ýª©¤W°ª¤â,
¼g¤F¤@­ÓVBA,­n±N¤@¤u§@ªí¤W¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí,µ²ªG³£¥u¦³½Æ»s1µ§¸ê®Æ,½ÐÀ°¦£¬Ý¤@¤U¬O­þ¸Ì¦³°ÝÃD.
ListBox°ÝÃD(2).zip (24.97 KB)
learner

¦^´_ 4# yliu
  1. Private Sub CommandButton1_Click()
  2.     Dim rowcnt&, rowcnt_login&
  3.     Dim g As Integer, §Ç¸¹ As Range, I As Integer
  4.     Set §Ç¸¹ = Sheets("login").[B9:J19]                             'ª«¥ó : ³]©w½Æ»sªº½d³ò
  5.     g = Application.CountA(Sheets("final").[A:A]) + 1               'Ū¨úAø󦳸ê®Æ¼ÆªºÀx¦s®æ¼Æ +1
  6.     I = 1
  7.     Do Until §Ç¸¹.Range("A" & I) = "" Or I > §Ç¸¹.Rows.Count
  8.          '½d³ò ªº Range("A" & I)->½d³òªº"A"øó  ,Rows.Count;½d³ò¦C¼Æªº­pºâ
  9.         With Sheets("final")
  10.             .Cells(g, "A") = Sheets("login").ComboBox1.Value
  11.             .Cells(g, "B").Resize(1, §Ç¸¹.Columns.Count) = §Ç¸¹.Rows(I).Value
  12.             g = g + 1
  13.             I = I + 1
  14.         End With
  15.     Loop
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

GBKEE§A¦n,
½Ð°Ý­Y½Æ»s½d³ò¤£¬O³sÄò½d³ò®É, ¸Ó«ç»ò°µ?
¨Ò¦p: ¥Øªº¦a¤u§@ªí¡¨final¡¨ªºCÄæ¡y³W®æ¡z§R°£, ¨Ó·½¤u§@ªí¬O³sÄò½d³ò, ¦ý¥Øªº¦a¤u§@ªí¤£¬O³sÄò½d³ò®É.
learner

TOP

¦^´_ 6# yliu
  1. Private Sub CommandButton1_Click()
  2.     Dim g As Integer, E As Range
  3.     g = Application.CountA(Sheets("final").[A:A]) + 1               'Ū¨úAø󦳸ê®Æ¼ÆªºÀx¦s®æ¼Æ +1
  4.     For Each E In Sheets("login").[B9:B19]
  5.         If E = "" Then Exit For
  6.         With Sheets("final")
  7.             .Cells(g, "A") = Sheets("login").ComboBox1.Value
  8.             .Cells(g, "B").Resize(1, 2) = E.Resize(1, 2).Value
  9.             .Cells(g, "D").Resize(1, 6) = E.Cells(1, 4).Resize(1, 6).Value
  10.         End With
  11.         g = g + 1
  12.     Next
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE

¯uªº«ÜÁÂÁÂGBKEE, ¥H¤Î¤W¦¸À°¦£ªºHsieh.
·QÂÇ¥ÑExcel VBA¨Ó¸Ñ¨M¤u§@¤W¤@¨ÇÁcº¾ªº¸ê®Æ³B²z,¦ý§Ú¥u¾Ç¹L°ò¥»ªºVBA, ¥\¤O¹ê¦b¤£¨¬,
·P¿Eª©¥D­ÌµL¨pªº¸Ñµª,Åý§Ú¸Ñ¨M¤u§@¤W°ÝÃD.
learner

TOP

¦^´_ 7# GBKEE

GBKEEª©¤j,
©µ¦ù¥t¤@­Ó°ÝÃD, ¨Ï¥ÎListBox ,½Ð°Ý¦p¦óÅý¤w¿ï¨ú¥B¤wCOPY¨ì¤u§@ªí"final"ªº³æ¸¹&§Ç¸¹¤£·|¦A¦¸³Q¿ï¨úCOPY?

ListBox°ÝÃD(2).zip (26.2 KB)
learner

TOP

¦^´_ 9# yliu
  1. Private Sub CommandButton1_Click()
  2.     Dim g As Integer, E As Range, C As Range, ³æ¸¹ As String, SS As String, Rng As Range
  3.     Dim i As Integer
  4.     With Sheets("login")
  5.         ³æ¸¹ = .ComboBox1.Value
  6.         Set Rng = .[B9:B19]
  7.         SS = Application.Phonetic(Rng)                                                  'µ²¦X©Ò¦³§Ç¸¹
  8.     End With
  9.    
  10.     With Sheets("final").[A:A]
  11.         If Application.CountIf(.Cells, ³æ¸¹) > 1 Then
  12.             .Replace ³æ¸¹, "=xxx", xlWhole                                               ''Replace ¤èªk
  13.             With .SpecialCells(xlCellTypeFormulas, xlErrors)
  14.                 .Cells = ³æ¸¹
  15.                 For Each C In .Cells                                                     ''¤ñ¹ï¨ì §Ç¸¹ ½ð°£ ¦¹§Ç¸¹
  16.                     If InStr(SS, C.Offset(, 1)) Then SS = Replace(SS, C.Offset(, 1), "") 'Replace ¨ç¼Æ
  17.                     If SS = "" Then Exit Sub
  18.                 Next
  19.             End With
  20.         End If
  21.         For Each E In Rng
  22.             If E = "" Then Exit For
  23.             If InStr(SS, E) Then                                              '¤ñ¹ï¨ì §Ç¸¹
  24.                 g = Application.CountA(.Cells) + 1                            'Ū¨úAø󦳸ê®Æ¼ÆªºÀx¦s®æ¼Æ +1
  25.                 i = Application.CountA(Rng)
  26.                 .Cells(g, "A").Resize(1) = ³æ¸¹
  27.                 .Cells(g, "B").Resize(1, 2) = E.Cells(1).Resize(1, 2).Value
  28.                 .Cells(g, "D").Resize(1, 6) = E.Cells(1, 4).Resize(1, 6).Value
  29.             End If
  30.         Next
  31.     End With
  32. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD