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

[µo°Ý] ®Ö¨ú¤è¶ô³sµ²¥¨¶°°ÝÃD´M°Ý

[µo°Ý] ®Ö¨ú¤è¶ô³sµ²¥¨¶°°ÝÃD´M°Ý

DEAR  ALL ¤j¤j -
1.¤@¯ë¨Ï¥Î®Ö¨ú¤è¶ô"Àx¦s®æ³sµ²"¦Ü  A1®É-®Ö¨ú¤è¶ô¦³¤Ä¨úA1=TRUE  ®Ö¨ú¤è¶ôµL¤Ä¨úA1=FALSE
2.¤µ®Ö¨ú¤è¶ô§ï³sµ²¥¨¶°(¹Ï¤@).¤£ºÞ ®Ö¨ú¤è¶ô¦³µL¤Ä¨úA1§¡¥u¯à¨q¥XTRUE.
3.½Ð°Ý¥¨¶°¦³µL¿ìªk¦p¹Ï¤G¯ë¤§µ²ªG.®Ö¨ú¤è¶ô¦³¤Ä¨úA1=TRUE  ®Ö¨ú¤è¶ôµL¤Ä¨úA1=FALSE
·Ð¤£§[½ç±Ð.  THANKS*10000
¹Ï¤@
SUB ®Ö¨ú¤è¶ô()
  Sheet1.Select
  Range("A1") = "TRUE"
End Sub
¹Ï¤G
SUB ®Ö¨ú¤è¶ô1()
  ®Ö¨ú¤è¶ô¦³¤Ä¨ú
  Sheet1.Select
  Range("A1") = "TRUE"
  ®Ö¨ú¤è¶ôµL¤Ä¨ú
   Sheet1.Select
  Range("A1") = "FALSE"
End Sub
ù

DERA SIR
¤p§Ì±N±z¤§¥¨¶°³s¦Ü  ®Ö¨ú¤è¶ô
¥X²{ "°õ¦æ¶¥¬q¿ù»~.§ä¤£¨ì«ü©w¦WºÙ¶µ¥Ø"
µ{¦¡°±©ó¦p¤U
Set S = ActiveSheet.Shapes("®Ö¨ú¤è¶ô")
·Ð¤£§[½ç±Ð THANKS*10000
ù

TOP

DEAR  ¨â¦ì¤j¤j
   ·PÁ±z­Ì¤§«ü¾É.OK°Õ ¨ü¥ÎµLºÉ  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD