- ©«¤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
|
¦^´_ 6# afu9240
ÁÙ¦³¶i¨BªÅ¶¡
§V¤O¥[ªo- Option Explicit
- Dim strx As Integer, MyData As Worksheet
- Private Sub MultiPage1_Change()
- If MultiPage1.SelectedItem.Index = 2 Then
- With SpinButton1
- .Enabled = .Min > 0
- If .Min = 0 Then MsgBox "¸ê®Æ®w¬OªÅªº!!!!"
- '¥i±N °]²£½s¸¹¤Uªº¸ê®Æ²¾ªÅ¬Ý¬Ý
- End With
- End If
- End Sub
- Private Sub SpinButton1_Change()
- Dim Ar, i As Integer
- With SpinButton1
- If .Min = 0 Then Exit Sub
- Ar = Array(14, 2, 1, 3, 4, 5, 6, 7, 11, 8, 9, 12, 10)
- For i = 0 To UBound(Ar)
- Controls("l" & i + 1).Caption = MyData.Cells(.Value, Ar(i))
- Next
- Label46.Caption = "²Ä " & .Value - 1 & " µ§" & IIf(.Value = .Max, " - ³Ì«á¤@µ§¤F", "")
- End With
- End Sub
- Private Sub UserForm_Activate()
- MultiPage1_Change
- End Sub
- Private Sub UserForm_Initialize()
- Set MyData = Sheets("¤u§@ªí1")
- With MyData.Range("A1").End(xlDown)
- If .Row = Rows.Count Then
- SpinButton1.Min = 0
- Else
- SpinButton1.Min = 2
- SpinButton1.Max = .Row
- SpinButton1.Value = SpinButton1.Min
- End If
- End With
- ListBox1.ColumnCount = 10
- ListBox1.ColumnWidths = "50,50,50,50,70,70,70,70,70,70"
- ComboBox1.List = Array("¤H¤O¸ê·½³¡", "¸ê°TªA°È³¡", "µÅT¸ê§÷³¡", "µÅT·~°È³¡", "§Þ³N³¡" _
- , "¹q¤l¬ãµo³¡", "µÅT¾÷ºc³¡", "µÅT«ÈªA", "¼t°È", "°]°È³¡", "½]®Ö", "Á`¸g²z«Ç")
-
- '*************¥H¤U¦Û¤v¸Õ¸Õ¬Ý **********
- End Sub
½Æ»s¥N½X |
|