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

[µo°Ý] ½Ð°Ý¦³¤èªk§ä¥X¦³µù¸ÑªºÀx¦s®æ¶Ü

[µo°Ý] ½Ð°Ý¦³¤èªk§ä¥X¦³µù¸ÑªºÀx¦s®æ¶Ü

­YAÄ榳´X¤dµ§¸ê®Æ¡A³¡¤ÀÀx¦s®æ¦³´¡¤Jµù¸Ñ¡A½Ð°Ý¥i§_¦bBÄæ¤U¤½¦¡§ä¥X¦³µù¸ÑªºÀx¦s®æ¡C
julie

¦^´_ 5# Hsieh


    to hsieh
«D±`·PÁÂ,¸Õ§@¦¨¥\.
joyce

TOP

¦^´_ 4# leiru

³o»Ý­n¦Û©w¸q¨ç¼Æ¨Ó¨ú±o
  1. Function GetComment(Rng As Range) As String
  2. If Not Rng.Comment Is Nothing Then
  3.   GetComment = Rng.Comment.Text
  4. End If
  5. End Function
½Æ»s¥N½X
¨ú¥Xµù¸Ñ.rar (7.37 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«ä,·Q½Ð±Ð¦p¦ó¨ú¥Xµù¸ÑÀx¦s®æ¤ºªºµù¸Ñ,§Æ±æ¥i¥H¹ïÀ³¨ì¥t¤@Äæ,¨Ò¦p:A3¤ÎA5Àx¦s®æ¤º¦³µù¸Ñ,«h¦bB3¤ÎB5Åã¥Ü¥Xµù¸Ñ.ÁÂÁÂ
joyce

TOP

¥Îctrl+G,ÂI"¯S®í"¡A¿ïµù¸Ñ¡A§Y¥i¹F¨ì§Ú·Q­nªº¡AÁÂÁ¤j¤j¸Ñµª¡C
julie

TOP

¥Îctrl+G,ÂI"¯S®í"¡A¿ïµù¸Ñ¡C
­Y¤@©w­n¥Î¤½¦¡¡A¥u¦³Get.Cell¨ç¼Æ¥i¥Î
¦pGet.Cell(46,A1)

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD