stillfish00

¦^´_ 1# ¤pµØ
¥i¥H¦bUS1¤¤¼g¤@­ÓFunction ­pºâ

¨Ò¦p­pºâ3P¤¤ªºÁ`¤À:

1. Function CalSum_3P() As Integer
   
2.   CalSum_3P = 0
   
3.   For i = 1 To 55  'OptionButton1 to OptionButton55
   
4.     If Me.Controls("OptionButton" & i).Value = True Then
   
5.       CalSum_3P = CalSum_3P + (5 - (i - 1) Mod 5)
   
6.     End If
   
7.   Next
   
8. End Function

½Æ»s¥N½X

stillfish00

¦^´_ 3# ¤pµØ

¦^´_ 1# ¤pµØ
¥i¥H¦bUS1¤¤¼g¤@­ÓFunction ­pºâ

¤U¸ü (229.6 KB)

2014-2-18 09:18

«ç»ò¥Î?¨Ò¦p¦bCommandButton1_Click()¤¤¥[¤J

1. If ComboBox1.Value = "3P" Then MsgBox "Á`¤À : " & CalSum_3P()

½Æ»s¥N½X

OptionButton³£¦³¦Û¤vªº¦WºÙ¡A3P¤¤ªº¦WºÙ¬O±qOptionButton1¨ìOptionButton55
¦]¬°¬O·Ó¶¶§Ç¤S¦³³W«ß ¨C¦¸5­Ó
¨Ì OptionButton1  =>  5¤À
     OptionButton2  =>  4¤À
     .........¨Ì¦¹Ãþ±À
©Ò¥HOptionButtonXX ªº¤À¼Æ¥i¥H¥Î(5 - (i - 1) Mod 5) ªí¥Ü (Mod¬O¨ú¾l¼Æ)
ÁÙ¦³¡A¦]¬°function©ñ¦bªí³æUS1¤¤¡A©Ò¥HMe.Controls«üªº´N¬OUS1.Controls

stillfish00

¦^´_ 5# ¤pµØ
°²³]Frame©³¤U³£5­ÓOptionButton¡A³£«ö¶¶§Ç :

1. Function GetOption(ByRef vFrame As Variant) As Integer
   
2.   Dim i
   
3.   For i = 0 To vFrame.Controls.Count - 1
   
4.     If vFrame.Controls(i).Value = True Then
   
5.       GetOption = 5 - i
   
6.       Exit For
   
7.     End If
   
8.   Next
   
9. End Function

½Æ»s¥N½X

¨Ò : CommandButton1_Click()¤¤

1. x.Cells(recond, 7) = GetOption(Me.Frame1)
   
2. x.Cells(recond, 8) = GetOption(Me.Frame2)

½Æ»s¥N½X

stillfish00

¦^´_ 7# ¤pµØ
¦]¬°§A¥u¬O§â¤À­¶³]¬°¥i¿ï¡A¦ý¬O¨S¦³¿ï¥¦

1. MultiPage1.Page1.Enabled = False
   
2. MultiPage1.Page2.Enabled = False
   
3. MultiPage1.Page3.Enabled = False
   
4. Select Case ComboBox1.Value
   
5.   Case "3P"
   
6.     MultiPage1.Page1.Enabled = True  '³]¬°¥i¿ï
   
7.     MultiPage1.Value = 0  '¿ï¾Ü²Ä1­Ópage
   
8.   Case "L1", "L2", "L3"
   
9.     MultiPage1.Page2.Enabled = True  
   
10.     MultiPage1.Value = 1  '¿ï¾Ü²Ä2­Ópage
    
11.   Case "L4", "L5", "L6"
    
12.     MultiPage1.Page3.Enabled = True
    
13.     MultiPage1.Value = 2  '¿ï¾Ü²Ä3­Ópage
    
14. End Select

½Æ»s¥N½X