ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

excel ²£¥Í¦h­Ó®Ö¨ú¤è¶ô.

excel ²£¥Í¦h­Ó®Ö¨ú¤è¶ô.

§Ú¦³¤@­Óªí³æ»Ý»s§@,¤º®e¬O®Ú¾Ú§Úµ¹¤©ªº¤å¦r,«ö·Ó¤å¦r¨Ó²£¥Í¦U­Ó®Ö¨ú¤è¶ô.
½d¨Ò¦p¹Ï


¦]¬°§Ú¦³¤W¦Ê¬q»Ý­n³]©w¦¨¬°®Ö¨ú¤è¶ô...¥Ø«e¬O¤@­Ó¤@­Ó¬ÝµÛ¤å¦r«á¿é¤J..«ÜºC...

¦^´_ 2# stillfish00


    ·PÁ¤j¤jªºÀ°§U,¤µ¤Ñ§ä¤F¤@¤Ñ¤F ʨ...

TOP

¦^´_ 1# mulder_shiu
C.TopLeftCell.Row

TOP

½Ð°Ý¦p¦ó¨ú±o®Ö¨ú¤è¶ôªº¦æ¦C¦ì¸m©O?

¥»©«³Ì«á¥Ñ mulder_shiu ©ó 2013-9-10 19:26 ½s¿è

Sub test()
S = 0
For Each C In ActiveSheet.CheckBoxes    'ªí³æªº±±¨î¶µ(®Ö¨ú¤è¶ô)
    S = S + IIf(C.Value = 1, 1, 0)
    If C.Value = 1 Then
       MsgBox C.Cells.Row    '·í±ø¥ó¦¨¥ß®É,¨ú±ocellsªº¦æ¼Æ©M¦C¼Æ
    End If
Next
MsgBox S
End sub

½Ð°Ý¤j¤jActiveSheet.CheckBoxes ·í±ø¥ó¦¡¦¨¥ß®É,§Ú·Q¨ú±o·í¤Ucellsªº¦æ¼Æ©M¦C¼Æ??

MWSnap069.jpg (18.31 KB)

MWSnap069.jpg

TOP

³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v ½ÐªþÀɬݬÝ



¥t¥~¦b½Ð±Ð¤@­Ó°ÝÃD,¦pªG¦p¹Ïªº®æ¦¡¶]±¼,¸Ó©¹­þÃäÀˬd¡H ...
sworder12 µoªí©ó 2013-9-10 12:05



§Ñ°O¸É¥R...ºu½ü©¹¤U²¾¤§«á,®Ö¨ú¤è¶ô·|º¥º¥©¹¤W¶]....

TOP

³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v ½ÐªþÀɬݬÝ

¬¡­¶Ã¯1.rar (6.26 KB)

¥t¥~¦b½Ð±Ð¤@­Ó°ÝÃD,¦pªG¦p¹Ïªº®æ¦¡¶]±¼,¸Ó©¹­þÃäÀˬd¡H¤£ª¾¹Dgoogle¸Ó«ç»ò·j´M...

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-9 06:09 ½s¿è
¦^´_  sworder12
³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v ½ÐªþÀɬݬÝ
¸Ñ¨M³y¦¨¨â­Ó®Ö¨ú¤è¶ô­«Å|.ªºµ{¦¡½X
GBKEE µoªí©ó 2013-9-8 13:56


97-2003ª©¥»¥H¤Î2010ª©¥»§Ú¦b®a°õ¦æ¤]¤@¼Ë...


TOP

¦^´_ 18# sworder12
³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v ½ÐªþÀɬݬÝ
¸Ñ¨M³y¦¨¨â­Ó®Ö¨ú¤è¶ô­«Å|.ªºµ{¦¡½X
  1. Option Explicit
  2. Sub Ex()
  3.     Dim C As Variant, B As Object, I As Integer, Rng(1 To 2) As Range
  4.     With ActiveSheet
  5.         Set Rng(1) = .Range("A:A").SpecialCells(2)  '³B¸Ì Aø󦳸ê®Æªº¤å¦rªº CheckBoxe
  6.         If .CheckBoxes.Count > 1 Then
  7.             For Each C In .CheckBoxes
  8.                 If Not Intersect(C.TopLeftCell.Offset(, -1), Rng(1).EntireColumn) Is Nothing Then
  9.                     If C.TopLeftCell.Offset(, -1) = "" Then
  10.                         C.TopLeftCell.Offset(, 1) = ""
  11.                         C.Delete
  12.                     Else
  13.                         C.Characters.Text = C.TopLeftCell.Offset(, -1)
  14.                         If Rng(2) Is Nothing Then
  15.                             Set Rng(2) = C.TopLeftCell.Offset(, -1)
  16.                         Else
  17.                             Set Rng(2) = Union(Rng(2), C.TopLeftCell.Offset(, -1)) '.Offset(, -1)
  18.                         End If
  19.                     End If
  20.                 End If
  21.             Next
  22.         End If
  23.         For Each C In Rng(1)        'Rng(2): CheckBoxe ªºTopLeftCellÀx¦s®æ
  24.             If Rng(2) Is Nothing Then
  25.                 Set B = .CheckBoxes.Add(C(1, 2).Left, C.Top, C.Width, C.Height)
  26.                 B.Characters.Text = C
  27.                 B.LinkedCell = C.Offset(, 2).Address
  28.             ElseIf Intersect(C, Rng(2)) Is Nothing Then
  29.                 Set B = .CheckBoxes.Add(C(1, 2).Left, C.Top, C.Width, C.Height)
  30.                 B.Characters.Text = C
  31.                 B.LinkedCell = C.Offset(, 2).Address
  32.             End If
  33.         Next
  34.     End With
  35. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^³ø¤@¤U
4F GBKEE ¤j¤jªºÁÙ¬O¨S¿ìªk¨Ï¥Î..³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v
9F oobird ¤j¤jªº¥i¥¿±`¨Ï¥Î
¦ý·Q½Ð±ÐÃB¥~°ÝÃD,¦pªG¨ä¤¤¾ã¦æ¤ºªº¸ê®Æ¦³ÅÜ°Ê,¦ý¤£¬O¥þ³¡.
¦pªG§Ú­«·s°õ¦æ¥¨¶°ªº¸Ü,·|»\¨ì«e¤@¦¸¥Í¦¨¥X¨Óªº®Ö¨ú¤è¶ô,³y¦¨¨â­Ó®Ö¨ú¤è¶ô­«Å|.
¦³¿ìªkÁקK¶Ü¡H¡H

TOP

¦^´_ 13# GBKEE
ÁÂÁ§A¡A¯u¬O¤@¹Ï³Ó¦Ê¨¥¡A¸Ñ»¡¸ÔºÉ

¦^´_ 14# stillfish00
ÁÂÁ§A¡A§A³o¾ã²zªº¸ê®Æ¥i¯uÄ_¶Q¡A¬Q¤Ñ¦bºô¸ô¨S¬d¸ß¨ì¸ê®Æ(À³¸Ó¬OÃöÁä¦r¨S¥Î¹ï)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD