ªð¦^¦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
ù

¦^´_ 1# rouber590324
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub EX_®Ö¨ú¤è¶ô1()
  3.     Dim S As Shape
  4.     Set S = ActiveSheet.Shapes("®Ö¨ú¤è¶ô")
  5.     Sheet1.Range("A1") = IIf(S.OLEFormat.Object.Value = 1, "True", "False")
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¦^´_ 3# rouber590324

¸Õ¬Ý¬Ý¥i¤£¥i¥H¡A¥Î GBKEE ª©¥D¤j¤jªºµ{¦¡­×§ïªº
  1. Option Explicit
  2. Sub EX_®Ö¨ú¤è¶ô1()
  3.     Dim S As Shape
  4.     Set S = ActiveSheet.Shapes(1)
  5.     Sheet1.Range("A1") = IIf(S.OLEFormat.Object.Value = 1, "True", "False")
  6. End Sub
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

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

TOP

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