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

½Ð°Ý¦p¦ó±N checkbox ³z©ú¤Æ¡H

½Ð°Ý¦p¦ó±N checkbox ³z©ú¤Æ¡H

¦U¦ì¦n
§Ú¥Î¤U¦Cªº¤è¦¡¼W¥[¤@­Ócheck box¡A
¦ýµLªk§ï¦¨³z©úªº
²£¥Í¤§«á¡AÀ˵øÄÝ©Ê¡A
backstyle ½T¹ê¬O"fmBackStyleTransparent"¡A
¦ý­I´º«o¤´¬°¥Õ¦â¡C

½Ð¦U¦ì¨ó§U¸Ñ¨M¡AÁÂÁ¡I

    s = .Cells(Target.Row, Target.Column).Top '©Ò¿ï¾Üªº¥Ø¼Ð¦ì§}
    l = .Cells(Target.Row, Target.Column).Left
    Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=l + 70, Top:=s + 5, Width:=40, Height:= _
        20)
        ob.Name = "CheckBox" & Target.Row
        ob.Object.AutoSize = True
        ob.Object.BackStyle = 0
        ob.Object.SpecialEffect = 0
        ob.Object.Caption = "¤é"

¦^´_ 1# esperanto


   
backstyle ½T¹ê¬O"fmBackStyleTransparent"¡A
ob.Object.BackStyle = 0


    ³o¤G­Ó¬Ý°_¨Ó³£¬O¥¿½Tªº¡A§Ú¸ÕµÛ°õ¦æ¤]³£¯àÅý¥L³z©ú¤Æ¡A
    §A­n¤£­n§Ë­ÓÀɮרӬݬݡA¬Ý¬O§_ÁÙ¦³¨ä¥L¦a¤è¦³°ÝÃD¡C

TOP

test.rar (9.81 KB)

§ïÅÜ"G"Ä檺´Ó«K·|¦Û°Ê¥[¤J®Ö¨ú¤è¶ô¡A
¦ý­I´ºµLªk³z©ú¤Æ

½Ð¦U¦ì¨ó§U¡I

TOP

¦^´_ 3# esperanto
Forms±±¨î¶µ¤¤ CommandButton,Label ,Image ªºBackStyle = 0 ¦b¤u§@ªí¤¤¦³®Ä
CheckBox.1 ªº BackStyle = 0   ¦b¤u§@ªí¤¤µL®Ä
«Øij
  1. ob.Object.BackColor = Target.Interior.Color
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


    ­ì¨Ó¦p¦¹¡C
   
    ¤s¤£Âà¸ôÂà¡A§Ú¤Ó°õµÛ³z©ú¤Æ¤F¡A
    ÁÂÁÂGBKEEÂI¿ô§Ú¡I

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD