Hsieh

¦^´_ 2# rick4615

¤U¸ü (6.61 KB)

2013-8-12 11:19

1. Sub ¥[¤J()
   
2. With ¤u§@ªí1
   
3.   For i = 1 To 3
   
4.   Set a = .Range("A1").Offset(, i)
   
5.      With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Cells(i, 1).Left, Top:=.Cells(i, 1).Top, Width:=100, Height:=20)
   
6.      .LinkedCell = a.Address
   
7.      .Object.Caption = i
   
8.      End With
   
9.   Next
   
10. End With
    
11. End Sub
    
12. Sub §R°£()
    
13. ActiveSheet.OLEObjects.Delete
    
14. End Sub
    
15. Sub ¸ê®Æ¿é¥X()
    
16. With ¤u§@ªí1
    
17. For i = 1 To .OLEObjects.Count
    
18.    If .OLEObjects(i).Object.Value Then
    
19.       Set a = Range(.OLEObjects(i).LinkedCell)
    
20.       MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value
    
21.     End If
    
22. Next
    
23. End With
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# rick4615

1. Sub ¥[¤J()
   
2. With ¤u§@ªí1
   
3.   For i = 1 To 3 '¥[¤J3­ÓCheckBox
   
4.   Set a = .Range("A1").Offset(, i)
   
5.      With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Cells(i, 1).Left, Top:=.Cells(i, 1).Top, Width:=100, Height:=20)
   
6.      .LinkedCell = a.Address '«ü©w³sµ²Àx¦s®æ
   
7.      .Object.Caption = i
   
8.      End With
   
9.   Next
   
10. End With
    
11. End Sub
    
12. Sub §R°£()
    
13. Dim Ob As OLEObject
    
14. For Each Ob In ActiveSheet.OLEObjects
    
15.    If Ob.progID = "Forms.CheckBox.1" Then Ob.Delete '¥u§R°£CheckBox
    
16. Next
    
17. End Sub
    
18. Sub ¸ê®Æ¿é¥X()
    
19. With ¤u§@ªí1
    
20. For i = 1 To .OLEObjects.Count
    
21. If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
    
22.    If .OLEObjects(i).Object.Value Then
    
23.       Set a = Range(.OLEObjects(i).LinkedCell) '³Q¤Ä¿ï¦aªºCheckBox³sµ²Àx¦s®æ
    
24.       MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value 'Åã¥Ü³Q¤Ä¿ïªº¶µ¥Ø
    
25.     End If
    
26. End If
    
27. Next
    
28. End With
    
29. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# rick4615

1. Sub ¸ê®Æ¿é¥X()
   
2. With ¤u§@ªí1
   
3. For i = 1 To .OLEObjects.Count
   
4. If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
   
5.    If .OLEObjects(i).Object.Value Then
   
6.       Set a = .Range(.OLEObjects(i).LinkedCell) '³Q¤Ä¿ï¦aªºCheckBox³sµ²Àx¦s®æ
   
7.       MsgBox Join(Application.Transpose(.Range(a.Offset(1), a.End(xlDown))), Chr(10)) 'Åã¥Ü³Q¤Ä¿ïªº¶µ¥Ø
   
8.    End If
   
9. End If
   
10. Next
    
11. End With
    
12. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 10# rick4615

1. Sub ex()
   
2. Dim Sht As Worksheet
   
3. Set Sht = ¤u§@ªí1
   
4.    With Sht.OLEObjects("ListBox1").Object '²M³æ¤è¶ô
   
5.       For i = 0 To .ListCount - 1 '²M³æ
   
6.       MyList = .List(i)
   
7.          With Sht.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
   
8.               DisplayAsIcon:=False, Link:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5)
   
9.               .Object.Caption = MyList '¥H²M³æ¬°CheckBox¼ÐÃD
   
10.          End With
    
11.       Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X