GBKEE

¦^´_ 4# mark15jill
¸Õ¸Õ¬Ý

DSC00220[1].JPG.rar (13.38 KB)

¤U¸ü¦¸¼Æ: 49

2013-3-25 20:34

GBKEE

¦^´_ 6# Jared
¦ýµ{¦¡´N§PÂ_§ä¤£¨ìDAY_i.Caption ³o­Ó¦¨­û....
¨S¦³Àɮ׬ݤ£¨ì DAY_i ¬O¦p¦ó³]©wªº,¬O³o¼Ë¶Ü?

1. Controls("DAY_" & I).Caption

½Æ»s¥N½X

¦^´_ 4# mark15jill

¹Ï¤ù¤Wªºµ{¦¡½X,»Ý­n¦³¦n²´¤O¤~¬Ýªº¨ì,¦ó¤£¥N½X¶K¤W¨Ó

GBKEE

¦^´_ 9# Jared

1. ³o­Ó¤ëªº²Ä¤@¤Ñ    DateSerial(ComboBox1, ComboBox2, 1)
   
2. ³o­Ó¤ëªº³Ì«á¤@¤Ñ DateSerial(ComboBox1, ComboBox2.Value + 1, 0)

½Æ»s¥N½X

­×§ï 5# ÀÉ®× ªí³æµ{¦¡½X ¦p¤U

1. Option Explicit
   
2. Dim Class_OB(1 To 7, 1 To 6) As New Class1
   
3. Private Sub UserForm_Initialize()
   
4.     Dim I As Integer
   
5.      ¤é´Á¶µ
   
6.     For I = 1980 To 2099
   
7.         ComboBox1.AddItem I
   
8.     Next
   
9.     ComboBox1.Value = Year(Date)
   
10.     For I = 1 To 12
    
11.         ComboBox2.AddItem I
    
12.     Next
    
13.     ComboBox2.Value = Month(Date)
    
14. End Sub
    
15. Private Sub ComboBox1_Change()
    
16.     ¤ë¾ä
    
17. End Sub
    
18. Private Sub ComboBox2_Change()
    
19.     ¤ë¾ä
    
20. End Sub
    
21. Private Sub ¤ë¾ä()
    
22.    ¤ë¾ä²M°£
    
23.     If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then ¸U¦~¾ä
    
24. End Sub
    
25. Private Sub ¸U¦~¾ä()
    
26.     Dim R As Integer, I As Date, WD As Integer
    
27.      R = 1
    
28.      For I = DateSerial(ComboBox1, ComboBox2, 1) To DateSerial(ComboBox1, ComboBox2.Value + 1, 0)
    
29.         WD = Weekday(I)
    
30.         With Controls(R & "_" & WD)
    
31.             .Enabled = True
    
32.             .Caption = Day(I)
    
33.             .ControlTipText = I
    
34.         End With
    
35.         If WD = 7 Then R = R + 1
    
36.      Next
    
37. End Sub
    
38. Private Sub ¤é´Á¶µ()
    
39.     Dim OBtop As Integer, OBLeft As Integer, R As Integer
    
40.     Dim OB_1 As Integer, OB_2 As Integer
    
41.     R = Label1.Top + 30
    
42.       For OB_2 = 1 To UBound(Class_OB, 2)
    
43.         For OB_1 = 1 To UBound(Class_OB, 1)
    
44.             With Controls.Add("Forms.OptionButton.1", OB_2 & "_" & OB_1)
    
45.                 .Visible = True
    
46.                 .Top = R '
    
47.                 .Left = Controls("Label" & OB_1).Left
    
48.                 'Controls("Label" & OB_1)->¤w«Ø¥ß¬P´Á¤§ Label±±¨î¶µ
    
49.                 '¦WºÙ¨Ì§Ç¬°Label1,Label2,Label3,Label4,Label5,Label6,Label7.
    
50.                 .Height = 15
    
51.                 .Width = 30
    
52.                 .ControlTipText = ""
    
53.             End With
    
54.             Set Class_OB(OB_1, OB_2).OB = Controls(OB_2 & "_" & OB_1)
    
55.         Next
    
56.         R = R + 30
    
57.      Next
    
58. End Sub
    
59. Private Sub ¤ë¾ä²M°£()
    
60.     Dim E As Control
    
61.     For Each E In Me.Controls
    
62.         If E.Name Like "*_*" Then
    
63.             E.Enabled = False
    
64.             E.Caption = ""
    
65.             E.ControlTipText = ""
    
66.         End If
    
67.     Next
    
68. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 14# Jared
ª«¥óÃþ§O¼Ò²Õ Class1

1. Option Explicit
   
2. Public WithEvents OB As MSForms.OptionButton
   
3. Private Sub OB_Click()
   
4.     'MsgBox OB.Caption
   
5.     '¦~¤ë¤é
   
6.     Sheet1.[a1] = OB.ControlTipText
   
7.     '¤é´Á
   
8.     'Sheet1.[a1] = OB.Caption
   
9. End Sub

½Æ»s¥N½X

¤U¸ü (52.75 KB)

2013-3-26 14:52

GBKEE

¦^´_ 17# mark15jill
   

<¤Ñ¼Æ¹ï  ¬P´Á¿ù¶Ã>

¬P´Á¿ù¶Ã: §A¬O¥Î¦ó¨ç¼Æ
¶Ç¤Wµ{¦¡½X¬Ý¬Ý

GBKEE

¦^´_ 19# mark15jill
§A¦n¹³Â¶¤F¤@°é.
¦^´_ 21# mark15jill
»s§@¶§¾ä¸U¦~¾ä»P¼í2¤ë¬O¨S¦³Ãö«Yªº

1. Sub Ex()
   
2.     Dim D As String
   
3.     D = "2013/2/21"
   
4.     MsgBox D & " «á¤@¤Ñ " & DateSerial(Year(D), Month(D) + 1, 0)
   
5.     '¨C¤ëªº«á¤@¤Ñ
   
6.     MsgBox Format(D, "aaa")
   
7. End Sub

½Æ»s¥N½X