GBKEE

¦^´_ 1# sunnyso


   

¤U¸ü (107.98 KB)

2013-11-1 08:46

GBKEE

¦^´_ 3# sunnyso
¶·½Ð¦³ Excel 2010 ªº¨Ó¸Ñµª

GBKEE

¦^´_ 7# sunnyso
­n¥ÎVBA

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim s As Shape, M(), i As Integer
   
4.     For Each s In ActiveSheet.Shapes
   
5.         If s.FormControlType = xlOptionButton Then
   
6.             ReDim Preserve M(i)
   
7.             M(i) = s.Name
   
8.             i = i + 1
   
9.         End If
   
10.     Next
    
11.     ActiveSheet.Shapes.Range(M).Select
    
12. End Sub

½Æ»s¥N½X