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

(¤w¸Ñ¨M)µù¸Ñ¤º®e«ç»ò¨Ì¦¸Â^¨ú¦h¦UÀx¦s®æ

(¤w¸Ñ¨M)µù¸Ñ¤º®e«ç»ò¨Ì¦¸Â^¨ú¦h¦UÀx¦s®æ

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:02 ½s¿è

§Ú²{¦b¸Õ¤@¦U¤@¦UÀx¦s®æ§Ë¤W¥h
¦³¤ñ¸û²¼äªº¤è¦¡¶Ü
µù¸Ñ¤º®e.rar (7.45 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly
  1. Sub Ex()
  2.     Dim A
  3.     A = Application.Transpose([D1:D15].Value)
  4.     A = Join(A, Chr(10))
  5.     Range("A1").Comment.Text A
  6. End Sub
½Æ»s¥N½X

TOP

Sub commetxt()
    a = Join(Application.Transpose([d1:d15]), vbLf)
    '[a1].AddComment
    [a1].Comment.Text Text:=a

End Sub

TOP

¤£ºÞ«ü©wÀx¦s®æªºµù¸Ñ¦s¤£¦s¦b
  1. Sub Ex()
  2.     Dim A
  3.     A = Application.Transpose([D1:D15])
  4.     A = Join(A, Chr(10))
  5.     With Range("A1")
  6.        If .Comment Is Nothing Then .AddComment
  7.        .Comment.Text A
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¦U¦ì¤j¤jªº­×§ï
¤S¾Ç¨ì·sªº¤èªk

GBKEE ¤j¤]§Ë¥X¤F¤@¦U§Ú·Qª¾¹Dªº¤è¦¡
"¤£ºÞ«ü©wÀx¦s®æªºµù¸Ñ¦s¤£¦s¦b"
¯u¬O·PÁÂ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD