Board logo

¼ÐÃD: [µo°Ý] ¤£¥ÎVBA, ¦p¦ó§Ö³t¿ï©w©Ò¦³ªºRadio Button? [¥´¦L¥»­¶]

§@ªÌ: sunnyso    ®É¶¡: 2013-10-31 22:16     ¼ÐÃD: ¤£¥ÎVBA, ¦p¦ó§Ö³t¿ï©w©Ò¦³ªºRadio Button?

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

ÁÂÁÂ
[attach]16523[/attach]
§@ªÌ: GBKEE    ®É¶¡: 2013-11-1 08:46

¦^´_ 1# sunnyso


    [attach]16527[/attach]
§@ªÌ: sunnyso    ®É¶¡: 2013-11-1 10:48

¦^´_ 2# GBKEE

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

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

ÁÂ
§@ªÌ: GBKEE    ®É¶¡: 2013-11-1 11:03

¦^´_ 3# sunnyso
¶·½Ð¦³ Excel 2010 ªº¨Ó¸Ñµª
§@ªÌ: owen06    ®É¶¡: 2013-11-1 11:48

¦^´_ 3# sunnyso


  §ä¤£¨ìªº¸Üª½±µ«öCTRL+G¸Õ¸Õ
§@ªÌ: Hsieh    ®É¶¡: 2013-11-1 15:03

¦^´_ 3# sunnyso

[attach]16540[/attach]
§@ªÌ: sunnyso    ®É¶¡: 2013-11-1 15:43

¦^´_ 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    ®É¶¡: 2013-11-1 20:49

¦^´_ 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    ®É¶¡: 2013-11-1 22:12

¦^´_ 8# GBKEE


  ·PÁÂ:handshake




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)