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

[µo°Ý] µù¸Ñ¤j¤p°ÝÃD½Ð±Ð

[µo°Ý] µù¸Ñ¤j¤p°ÝÃD½Ð±Ð

Dear all ¤j¤j -
1.¦p¹Ï¤@ ®Ñ¼g¦Û°Ê¥[¤Jµù¸Ñ¥\¯à-°õ¦æok
2.¦p¹Ï¤G ±ý½Õ¾ãµù¸Ñ®Ø¤§¤j¤p.°õ¦æ«á¥X²{"ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk"????
2.1½Ð±Ð¦p¦ó½Õ¾ãµù¸Ñ®Ø¤§¤j¤p  ·Ð¤£§[½ç±Ð   thanks*10000

¹Ï¤@
Sub µù¸ÑA001()
    X = Sheet3.Range("GZ41")
    Sheet3.Select
    Sheet3.Cells(X, 6).Select
    Selection.ClearComments
    Sheet3.Cells(X, 6).Select      
    Sheet3.Cells(X, 6).AddComment
    Sheet3.Cells(X, 6).Comment.Visible = False   
    Sheet3.Cells(X, 6).Select
    Sheet3.Cells(X, 6).Comment.Text Text:= _
        "»¡©ú:" & Chr(10) & "" & Sheet3.Range("HA42") & ""
    Range("F53").Select   
End Sub
¹Ï¤G
    Selection.ShapeRange.ScaleWidth 2.05, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.67, msoFalse, msoScaleFromTopLeft
ù

¦^´_ 1# rouber590324


    [a1].Select  '­n­×§ïµù¸ÑªºÀx¦s®æ
Selection.Comment.Shape.ScaleWidth 2.05, msoFalse, msoScaleFromTopLeft
Selection.Comment.Shape.ScaleHeight 1.67, msoFalse, msoScaleFromTopLeft

TOP

THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD