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

[µo°Ý] ½Ð°Ý¦³Ãöªí³æ¬d¸ß°ÝÃD

[µo°Ý] ½Ð°Ý¦³Ãöªí³æ¬d¸ß°ÝÃD

¦U¦ì¤j¤j¤Î¶W±jª©¥D¦n
              ªþ¥ó¬d¸ß³¡¤À ­û¤u©m¦WÄæ¿é¤J"¼B¼wµØ",·|¦bsheets2Åã¥Ü¸ê®Æ,¦ýAÄæ~DÄ檺¸ê®Æ«oµLªkÅã¥Ü,,,,¦³°ª¤â¥i¥H¸Ñ´b¶Ü????«D±`·P®¦  ÁÂÁÂ

      Q20181004.zip (51.89 KB)
yvonne

¦^´_ 1# afu9240
  1. Private Sub CommandButton3_Click() '¬d¸ß
  2.     Dim a As Range
  3.     Dim r As Integer, i As Integer, j As Integer
  4.     If TextBox12.Text = "" Then
  5.         MsgBox "½Ð¿é¤J¥¿½Tªº­È"
  6.         Exit Sub
  7.     End If
  8.     Application.ScreenUpdating = False
  9.     ListBox1.Clear
  10.     Worksheets("¤u§@ªí2").Range("A:P").ClearContents
  11.     With Worksheets("¤u§@ªí1")
  12.         r = Application.CountA(.Range("E:E"))
  13.         For Each a In .Range("E1:E" & r)
  14.             If InStr(1, a, TextBox12, vbTextCompare) Then
  15.                 With ListBox1
  16.                     .AddItem
  17.                     i = .ListCount
  18.                     For j = 0 To 9 '¨S¦³¸õ¦ì¥i¤£¥²Step 1 ' For j = 9 To 0 Step -1 ¤~»Ý­n
  19.                         .List(i - 1, j) = a.Offset(, j)
  20.                     Next
  21.                 End With
  22.                 Worksheets("¤u§@ªí2").Cells(i, 1).Range("A1:N1") = .Cells(a.Row, 1).Range("A1:N1").Value
  23.         End If
  24.     Next
  25.     End With
  26.     Application.ScreenUpdating = True
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤u§@ªí2  B1¥k©Ô¤U©Ô{=INDEX(¤u§@ªí1!F:F,SMALL(IF(¤u§@ªí1!$E$2:$E$13=$A$1,ROW($2:$13),4^8),ROW(A1)))&""
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 2# GBKEE


   ·PÁÂG¤jª©¥D ±o¦^ÂР ·PÁÂ*100000
yvonne

TOP

¦^´_ 2# GBKEE

G¤jª©¥D ±z¦n  

   ¤£¦n·N«ä,·Q¦A½Ð±Ð±z¤@­Ó°ÝÃD~~~¦p¤U¹Ï~~­n¦p¦ó°µ³æ¤@¶µ¥Ø°µ­×§ïÀx¦s(ªþ¤WÀÉ®×,  ºÃ´b¤¤ ½Ð¨ó§U~~ÁÂÁÂ
20181011.gif

20181011.zip (46.01 KB)
yvonne

TOP

¤£¦n·N«ä  §Ú¤w¸g¸Ñ¨M¤F
yvonne

TOP

¦^´_ 6# afu9240
ÁÙ¦³¶i¨BªÅ¶¡
§V¤O¥[ªo
  1. Option Explicit
  2. Dim strx As Integer, MyData As Worksheet
  3. Private Sub MultiPage1_Change()
  4.     If MultiPage1.SelectedItem.Index = 2 Then
  5.         With SpinButton1
  6.             .Enabled = .Min > 0
  7.             If .Min = 0 Then MsgBox "¸ê®Æ®w¬OªÅªº!!!!"
  8.             '¥i±N °]²£½s¸¹¤Uªº¸ê®Æ²¾ªÅ¬Ý¬Ý
  9.         End With
  10.     End If
  11. End Sub
  12. Private Sub SpinButton1_Change()
  13.     Dim Ar, i As Integer
  14.     With SpinButton1
  15.         If .Min = 0 Then Exit Sub
  16.         Ar = Array(14, 2, 1, 3, 4, 5, 6, 7, 11, 8, 9, 12, 10)
  17.         For i = 0 To UBound(Ar)
  18.             Controls("l" & i + 1).Caption = MyData.Cells(.Value, Ar(i))
  19.         Next
  20.         Label46.Caption = "²Ä " & .Value - 1 & " µ§" & IIf(.Value = .Max, " - ³Ì«á¤@µ§¤F", "")
  21.     End With
  22. End Sub
  23. Private Sub UserForm_Activate()
  24.     MultiPage1_Change
  25. End Sub
  26. Private Sub UserForm_Initialize()
  27.     Set MyData = Sheets("¤u§@ªí1")
  28.     With MyData.Range("A1").End(xlDown)
  29.         If .Row = Rows.Count Then
  30.              SpinButton1.Min = 0
  31.         Else
  32.             SpinButton1.Min = 2
  33.             SpinButton1.Max = .Row
  34.             SpinButton1.Value = SpinButton1.Min
  35.         End If
  36.     End With
  37.     ListBox1.ColumnCount = 10
  38.     ListBox1.ColumnWidths = "50,50,50,50,70,70,70,70,70,70"
  39.     ComboBox1.List = Array("¤H¤O¸ê·½³¡", "¸ê°TªA°È³¡", "­µÅT¸ê§÷³¡", "­µÅT·~°È³¡", "§Þ³N³¡" _
  40.     , "¹q¤l¬ãµo³¡", "­µÅT¾÷ºc³¡", "­µÅT«ÈªA", "¼t°È", "°]°È³¡", "½]®Ö", "Á`¸g²z«Ç")
  41.    
  42.    '*************¥H¤U¦Û¤v¸Õ¸Õ¬Ý **********
  43. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


    ·PÁÂG¤j¹ªÀy»P¦^´_~~~§Ú·|§V¤Oªº  ÁÂÁÂ
yvonne

TOP

¦^´_ 2# GBKEE

G¤j±z¦n
        ¦pªGÄæ¦ì¶W¹L10­Ó·|Åã¥Ü¤U¤è¹Ï¼Ë°ÝÃD~~,,¦³¿ìªk³B²z¶Ü???·PÁÂ*1000
yvonne

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD