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

§ä¥X«ü©w¦WºÙªº¤u§@ªíªº¥k¤U¤èµù¸}(Footer)¤º®e

§ä¥X«ü©w¦WºÙªº¤u§@ªíªº¥k¤U¤èµù¸}(Footer)¤º®e

§Ú¦³¤@­ÓExcelÀÉ®×,¨ä¦WºÙ¬° FileA.xls
FileA.xls¤º¦³³\¦h¤u§@ªí,¨ä¤¤¦³¤@±i¤u§@ªíªº¦WºÙ¬°¡uCard¡v
¸Ó¤u§@ªíªº¥k¤U¤èµù¸}(footer)¤º®e¬°¡u03¡v

§Ú±N³o­ÓFileA.xlsÀɮצs©ñ¦b C ºÐ®Ú¥Ø¿ý¸Ì (C:\)

§Ú²{¦b­n¨Ï¥Î¤@­Ó·sªºExcelÀÉ®×,¦b¡u¤£¶}±Ò¡vFileA.xlsÀɮתº±¡ªp¤U,±N¸ÓÀɮתºCard¤u§@ªí¤¤ªº¥k¤U¤èµù¸}(Footer)¤º®e (§Y03)¶K¨ì·sÀɮתº A1 Äæ¦ì¸Ì.
§Ú­n¦p¦ó¼gMarco?   (§ä¨ì¤u§@ªí¦WºÙÁÙ·|¼g..... ­n§ä¨ìµù¸}ªº¤º®e´N¤£ª¾¹D«ç»ò³B²z¤F)

¥ýÁÂÁ¦U¦ì.:lol

¦^´_ 1# MRSA

¦]¬°¼Ó¥D¨S¦³´£¨Ñ½d¥»
©Ò¥H~ ´£¨Ñ¦p¦ó§PÂ_µù¸Ñªº¤è¦¡µ¹±z~
§Æ±æ¹ï§A¦³©ÒÀ°§U~
  1. Sub tt()
  2. If Range("A1").Comment Is Nothing Then
  3.    Range("A1") = 1
  4.    Else
  5.    Range("A1") = Range("A1").Comment.Text
  6.    Range("A2").AddComment Range("A1").Comment.Text
  7. End If
  8. End Sub
½Æ»s¥N½X
µù¸Ñ.JPG
2011-8-19 07:47
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620
³á.  ·PÁ±zªº¦^ÂÐ.
¤£¹L§Ú­nªº¤£¬O"Comment"ªº¥\¯à.
§Ú©Ò¿×ªºµù¸}¬O«ü"­¶­º/­¶§À"°Õ..
§Ú­n¦b¤£¶}±ÒÀɮתº±¡ªp¤U,§ä¥X¸ÓÀɮ׸̯S©w¦WºÙªº¤u§@ªíªº"¥k¤U¤è­¶§À"ªº¸ê®Æ, ¨Ã±N¸Óµ§¸ê®ÆÅã¥Ü©ó¥t¤@ÀɮתºA1Äæ¦ì¸Ì.
¥Ñ©ó§Ú¥Îªº¬O­^¤åª©ªºExcel, ­¶§À¥s§@Footer, ©êºp¸Ó±z»~·|¤F.
¤]½Ð¤j®a¦AÀ°­Ó¦£§a.
ÁÂÁÂ.

TOP

¤£¯à¤W¶Ç¤u§@ªí»¡©ú¶Ü¡H

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD