GBKEE

¦^´_ 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

GBKEE

¦^´_ 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