[µo°Ý] ¤£¥ÎVBA, ¦p¦ó§Ö³t¿ï©w©Ò¦³ªºRadio Button?

sunnyso

¤£¥ÎVBA, ¦p¦ó§Ö³t¿ï©w©Ò¦³ªºRadio Button? ³o¨Çradio¥i¯à¤À§G¦b¤u§@ªíªº¥ô¦ó¦a¤è.

ÁÂÁÂ
Radio button.rar (12.54 KB)

¤U¸ü¦¸¼Æ: 9

2013-10-31 22:16

GBKEE

¦^´_ 1# sunnyso


   

¤U¸ü (107.98 KB)

2013-11-1 08:46

sunnyso

¦^´_ 2# GBKEE

·PÁ¶Wª©, ½Ð°ÝExcel 2010 ¦b­þùاä?

ÁÙ¦³Word ¤]¦³Ãþ¦üªº¤èªk¶Ü?

ÁÂ

GBKEE

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

owen06

¦^´_ 3# sunnyso


  §ä¤£¨ìªº¸Üª½±µ«öCTRL+G¸Õ¸Õ

Hsieh

¦^´_ 3# sunnyso

¤U¸ü (193.2 KB)

2013-11-1 15:03

sunnyso

¦^´_ 6# Hsieh

·PÁ¶Wª©©M¦U¦ì¼ö¤ß¤j¤jªº¸Ñ»¡,

ÁÙ¦³¤@­Ó°ÝÃD, ¬O§_¥i¥u¿ï©w¯S©wªºobject ¨Ò¦p¥u¿ï©w radio button ¦Ó¤£¿ï©w checkbox ©O?

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

sunnyso

¦^´_ 8# GBKEE


  ·PÁÂ:handshake