[µo°Ý] µù¸Ñ¤º´¡¤J¹Ï¤ù

dafa

½Ð±Ð¦U¦ì¥ý¶i
¦pªþ¥ó~¦]¬YºØ»Ý¨D§Ú¦bµù¸Ñ¤º´¡¤J¹Ï¤ù
§Ú·Q­n¦Û°Ê¤Æ¤@ÂI©ó¬O§Ú¿ý»s¤F§Ú´¡¤J¹Ï¤ùªº°Ê§@
¦ý¬O«oµLªk°õ¦æ
½Ð¦U¦ì¥ý¶iÀ°§Ú¬Ý¤@¤U»Ý­n­×§ï­þ¸Ì
ÁÂÁÂ

dafa

¦^´_ 8# GBKEE
·PÁÂ3¦ì¼ö¤ßªº«e½ú
§Úªº°ÝÃDªGµM¬O¥X¦b´C¬D¿ï¨ìµù¸Ñ
§Úªº°ÝÃD¤w¸Ñ¨M
ÁÙ­n·PÁÂH¤j´£¨Ñ¥t¤@­Ó¤èªkÅý§Ú¦³§ó¦h¦¬Ã¬

GBKEE

¦^´_ 5# dafa
¤Ä¿ï   ¥uÅã¥Üµù¸Ñ«ü¼Ð    ¶··Æ¹«²¾°Ê¨ìÀx¦s®æ¦ì¸m¤W     µù¸Ñ¤~·|¥X²{

1. Option Explicit
   
2. Sub Ex()     '¥ÎNoteText ª½±µ ¼W¥[Àx¦s®æµù¸Ñ
   
3.     With [A1]
   
4.         .NoteText " "                                   'Àx¦s®æµù¸Ñ¥[¤J ¤@­Ó ªÅ¥Õ¦r¤¸
   
5.         With .Comment.Shape
   
6.             .Fill.UserPicture "D:\EX2.GIF"              '«ü©w­I´º¹Ï¤ù
   
7.             .Line.ForeColor.SchemeColor = 53
   
8.             .Line.Weight = 2
   
9.             .AutoShapeType = msoShapeRoundedRectangle  '«ü©wµù¸Ñª«¥óªº¹Ï®×Ãþ«¬
   
10.         End With
    
11.     End With
    
12. End Sub
    
13. Sub Ex1()   '½Õ¾ã¨C¤@­Óµù¸Ñ
    
14.     Dim C As Comment
    
15.     For Each C In ActiveSheet.Comments
    
16.         With C.Shape
    
17.             .Fill.UserPicture "D:\EX1.GIF"        '«ü©w­I´º¹Ï¤ù
    
18.             .Line.ForeColor.SchemeColor = 53
    
19.             .Line.Weight = 2
    
20.             .Height = 100
    
21.             .Width = 100
    
22.         End With
    
23.     Next
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# dafa

¤£ª¾§A¥[¤Jªº¹Ï¤ù¦WºÙ¥H¬Æ»ò¤è¦¡Åýµ{¦¡Åª¨ú
¥H¤U¥N½X¬°A1¿é¤J¹Ï¤ù¦WºÙ§t°ÆÀɦW
°õ¦æµ{¦¡«á·|§PÂ_A1¬O§_§t¦³µù¸Ñ
µM«áµù¸Ñ¹Ï¤ù·|§ï¦¨A1©Ò«ü©wªº¹Ï¤ù
»Pµù¸ÑÅã¥Ü»P§_µLÃö

1. Sub ex()
   
2. Dim MyComment As Comment
   
3. Set MyComment = Range("A1").Comment
   
4. fd = InputBox("¿é¤J¹Ï¤ùÀɮץؿý", , "D:\")
   
5. If MyComment Is Nothing Then
   
6. With Range("A1").AddComment
   
7. .Shape.Fill.UserPicture fd & [A1]
   
8. End With
   
9. Else
   
10. MyComment.Shape.Fill.UserPicture fd & [A1]
    
11. End If
    
12. End Sub

½Æ»s¥N½X

register313

¦^´_ 5# dafa

GBKEEª©¤j ©Ò¨¥¥¿½T
­n¦bµù¸ÑÅã¥Üªºª¬ºA¤§¤U¤~¯à¥[¤J¹Ï¤ù

1. Sub Macro4()
   
2. 
   
3.     Range("A1").Select
   
4.     Range("A1").AddComment
   
5.     Range("A1").Comment.Visible = False
   
6.     Range("A1").Comment.Text Text:="JJSR:" & Chr(10) & ""
   
7.   
   
8.     Range("A1").Comment.Visible = True             '¥[¤J¦¹¦æ Åã¥Üµù¸Ñ
   
9.    Range("A1").Comment.Shape.Select True      '¥[¤J¦¹¦æ ¿ï¨úµù¸Ñ
   
10. 
    
11.     Range("A1").Comment.Text Text:="JJSR:" & Chr(10) & ""
    
12.     Selection.ShapeRange.Fill.Transparency = 0#
    
13.     Selection.ShapeRange.Line.Weight = 0.75
    
14.     Selection.ShapeRange.Line.DashStyle = msoLineSolid
    
15.     Selection.ShapeRange.Line.Style = msoLineSingle
    
16.     Selection.ShapeRange.Line.Transparency = 0#
    
17.     Selection.ShapeRange.Line.Visible = msoTrue
    
18.     Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    
19.     Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    
20.     Selection.ShapeRange.Fill.Visible = msoTrue
    
21.     Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    
22.     Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
    
23.     Selection.ShapeRange.Fill.UserPicture "C:\1.jpg"
    
24.    
    
25. End Sub

½Æ»s¥N½X

dafa

¦^´_ 2# GBKEE


    ·PÁÂG¤j¦^ÂÐ
¦ý¬OÁÙ¬O¤£¦æ·|¥X²{¿ù»~
½ÐG¤j¶]¤@¤U§Ú¿ý»sªº¥¨¶°À³¸Ó·|¤ñ¸û²M·¡
¦A³Â·Ð¤@¤U ÁÂÁÂ

Hsieh

¦^´_ 3# PJChen

ÀÉ®×¥\¯àªí
¿ï¶µ
¶i¶¥

¤U¸ü (66.96 KB)

2012-2-3 17:27

PJChen

¦^´_ 2# GBKEE

½Ð°Ý¥H¤W³]©wExcel 2010ª©¥»¦b¦ó³B¥i¥H¬Ý¨ì?

GBKEE

¦^´_ 1# dafa
­×§ï³o¸Ìªº¿ï¶µ ¬Ý¬Ý

¤U¸ü (71.13 KB)

2012-2-3 16:25