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

[µo°Ý] ³æ¤¸®æ内®eÂର§åª`

[µo°Ý] ³æ¤¸®æ内®eÂର§åª`

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-5 00:17 ½s¿è

请问¥i§_¥ÎVBAµ{¦¡°µ¨ì§â¤@¦C单¤¸®æªº内®e转为该¦C¬Û应单¤¸®æªº§åª`,¦pA1¤¤¬OA+B,§åª`¤]变为A+B
»¯§B¥­

With [a1]
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Text
End With

TOP

·P谢¸Ñµª,§Ú·Q§â¤@¦Cªº单¤¸®æ©Î¬O¤@个单¤¸®æ区°ìªº单¤¸®æªº内®e³£转¦¨§åª`,¤£¬O¥u¬O¤@个单¤¸®æ,请¦A帮§Ú
»¯§B¥­

TOP

Sub YY()
For Each c In [a:a].SpecialCells(2)
With c
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Text
End With
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD