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

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

¦^´_ 8# GBKEE
¦^´_ 9# oobird

§Ú¥Î±±¨î¤u¨ã½c´¡¤JCheckBox1«á¡A¥H¥kÁä¿ï¥Î¥X²{ªº¬O¡uÀ˵øµ{¦¡½X¡v
§Ú¥Îoobird¤j9#ªºµ{¦¡´¡¤JCheckBoxes«á¡A¥H¥kÁä¿ï¥Î¥X²{ªº¬O¡u«ü©w¥¨¶°¡v
³o¬O¤£¤@¼Ëªºª«¥ó¶Ü?

¡uÀ˵øµ{¦¡½X¡v»P¡u«ü©w¥¨¶°¡vªº¨Ï¥Î¤è¦¡¤£¤@¼Ë¡A½Ð¦U¦ì°ª¤â¦³¨S¦³²ßºD©Ê¥Î¨º¤@ºØ¤ñ¸û¦n¥Î¡C

{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 9# oobird
¦^´_ 2# oobird

§Ú¥Îoobird¶Wª©2#ªºµ{¦¡½X¥[¤WLinkedCellÄݩʤ]¥i¥H¥Î¨Ó­pºâ¡A¦ý«ö¥kÁä¿ï¶µ¤¤¡u«ü©w¥¨¶°¡v´NÅܦ¨¦Ç¦â¤£¯à¿ï¥Î¡C
OLEObjects.Add¬O§_¤ñCheckBoxes.Add¨Ï¥Î¤W§ó¦³¼u©Ê?
  1. Sub ¿ï¨ú®æ_FormsCheckBox()
  2.     For Each C In Selection.Cells.SpecialCells(2)
  3.         Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
  4.                                            Left:=C.Left, Top:=C.Top, Width:=C.Width, Height:=C.Height)
  5.         b.Object.Caption = C.Value
  6.         b.LinkedCell = C.Address '³sµ²¸Ó¦ì¸m¥HTRUE¡BFALSEªí¥Ü¡A¥H§Q«áÄò²Î­p
  7.         'C.Value = False '°_©l­È³]©w
  8.     Next
  9. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 12# ML089


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-9-6 11:17 ½s¿è

¦^´_ 12# ML089
½¤F¤@¤U®Ñ¡A¦³¼g¨ì Forms Control ©M ActiveX Control ¦U¦ÛÀuÂI¡A¾ã²z¤@¤U¡C

Forms Control ¡G
    ¡¯¥i¥Î¦b Chart sheets¡AActiveX Control ¤£¯à¡C
    ¡¯»P¤u§@ªíªºµ²¦X¸ûºò±K¡A¹³"¼ÐÅÒ"©Î"«ö¶s"¥i¦b¤½¦¡¦C¥h°Ñ¦Ò¡A¥H°ÊºA¦a³]©w±±¨î¶µ¤å¦r¡C
        ¤S¦p"²M³æ¤è¶ô"¥i¦b¨ä±±¨î¶µªº¿é¤J½d³ò«ü©w¤w©w¸qªº½d³ò¦WºÙ¡C
    ¡¯®e©ö¦P®É«ü©w«Ü¦h­Ó±±¨î¶µ¨ì¦P¤@­ÓVBAµ{§Ç¡A­n¹F¨ì¦P¼Ë¥\¯à ActiveX Control »Ý­n¤ñ¸û½ÆÂøªºª«¥óÃþ§Oªº¤èªk¡C
    ¡¯·í¨Ï¥Î¦hµøµ¡©Î¤À³Îµøµ¡®É¡AActiveX Control ¥u·|§@¥Î¦b­ìµøµ¡¡AForms Control ·|§@¥Î¦b¥ô¦óµøµ¡¡C

ActiveX Control ¡G
    ¡¯ActiveX Control ±±¨î¶µªº¥~Æ[¦³¸û¦hÄÝ©Ê¥i¥H½Õ¾ã¡C
    ¡¯¦³¤ñ¸û¦hºØÃþªº±±¨î¶µ¥i¨Ï¥Î¡C
    ¡¯¥i¥H¦^À³±±¨î¶µ¦hºØ¤£¦PÃþ«¬ªº¨Æ¥ó¡AForms Control ¥u¯à¹ïÀ³°õ¦æ¤@­Ó¥¨¶°¡C

TOP

¦^´_ 14# stillfish00
ÆZ¤£¿ùªº¸àÄÀ¡A¨ü±Ð¤F¡I

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

¦^³ø¤@¤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

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

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

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

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

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD