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

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

¦^´_ 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
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD