GBKEE

¦^´_ 1# tku0216
²¾°Ê·Æ¹«ÂI¿ï  Àx¦s®æ¤W ¦³¹Ï¤ùÀɮצWºÙ  ·|Åã¥Ü ¸ÓÀɮצWºÙªº¹Ï¤ù

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '¸Ó¤u§@ªíªº¨Æ¥ó µ{§Ç
   
2.     Dim xPath As String
   
3.     On Error Resume Next
   
4.     xPath = "d:\"                                       '­×§ï¬°¹Ï¤ùÀÉ ªº¸ô®|¸ê®Æ§¨
   
5.     [xlTarget].ClearComments
   
6.     If Target(1) = "" Then Exit Sub
   
7.     If Dir(xPath & Target) = "" Then Exit Sub
   
8.     Target.Name = "xlTarget"
   
9.     [xlTarget].NoteText " "
   
10.     With Target.Comment.Shape           'Àx¦s®æµù¸Ñ¤å¦r¹Ï®×
    
11.         .TextFrame.Characters.Font.ColorIndex = 1
    
12.         .TextFrame.Characters.Font.Size = 14
    
13.         .Fill.ForeColor.SchemeColor = 13
    
14.         .AutoShapeType = msoShapeRectangle
    
15.         .Line.ForeColor.SchemeColor = 53
    
16.         .Line.Weight = 2
    
17.         .Fill.UserPicture xPath & Target
    
18.         .ScaleWidth 4, 0
    
19.         .ScaleHeight 3, 0
    
20.         .Visible = True
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

¦p¹Ï
   

¤U¸ü (61.33 KB)

2012-2-16 12:11

GBKEE

¦^´_ 5# softsadwind
²¾°Ê·Æ¹«ÂI¿ï  Àx¦s®æ¤W ¦³¹Ï¤ùÀɮצWºÙ  ·|Åã¥Üµù¸Ñ­I´º¹Ï®×¬°¸ÓÀɮצWºÙªº¹Ï¤ù
Àx¦s®æ ªº¸ê®Æ¬°¤@§¹¾ãªº¸ô®|ÀɮצWºÙ(¹Ï¤ùÀÉ)

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '¸Ó¤u§@ªíªº¨Æ¥ó µ{§Ç
   
3.     Dim xPath As String
   
4.     On Error Resume Next
   
5.     [xlTarget].ClearComments                            '²M°£ ¤u§@ªí½d³ò xlTarget µù¸Ñ
   
6.     On Error GoTo 0
   
7.     If Target(1) = "" Then Exit Sub
   
8.     xPath = Dir(Target(1))                              '¬d¸ß Àx¦s®æ¸ê®Æ¬O§_¶Ç¦^¤@ÀÉ®×
   
9.     If xPath <> "" Then
   
10.         xPath = Target(1)
    
11.     Else
    
12.         xPath = "http://forum.twbts.com/templates/discuz6/images/logo.gif"  
    
13.     End If
    
14.     Target.Name = "xlTarget"
    
15.     [xlTarget].NoteText " "
    
16.     With Target.Comment.Shape                           'Àx¦s®æµù¸Ñ¤å¦r¹Ï®×
    
17.         .AutoShapeType = msoShapeRectangle
    
18.         .Line.ForeColor.SchemeColor = 53
    
19.         .Line.Weight = 2
    
20.         .Fill.UserPicture xPath                         'µù¸Ñ¹Ï®× ¸ü¤J¹Ï¤ù
    
21.         .Width = Target(1, 2).Resize(, 5).Width         'µù¸Ñ¹Ï®× ¼e«×
    
22.         .Height = Target(1, 2).Resize(10).Height        'µù¸Ñ¹Ï®× °ª«×
    
23.         .Visible = True
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# roy1221

¤U¸ü (53.7 KB)

2012-7-4 16:52