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

Excel µù¸Ñªº°ÝÃD

Excel µù¸Ñªº°ÝÃD

¤j®a¦n
·Q½Ð°Ý­n¦ba1ªºµù¸Ñ¸Ì­±  µù¸Ñ"µª®×µ¥©ó X  "
¨ä¤¤X=B1+C1ªº¼Æ¦r
¸Ó«ç»ò¼g¦bVBA¸Ì­±©O
ÁÂÁ¤j®a

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-28 21:00 ½s¿è

¦^´_ 1# mukila
¥Î¿ý»s¥¨¶°¸Õ¸Õ¬Ý, µM«á¦bVBA ¤¤,±N¤½¦¡¥N¤J¤å¦r¤¤¸Õ¸Õ¬Ý.

TOP

¦^´_ 1# mukila
  1. Sub nn()
  2. With Range("A1")
  3. If .Comment Is Nothing Then
  4.    .AddComment Text:=CStr([B1] + [C1])
  5.    Else
  6.    .Comment.Text CStr([B1] + [C1])
  7. End If
  8. .Comment.Visible = False
  9. End With
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD