[µo°Ý] µù¸Ñªº¤è¦¡

vicky12060709

·QÂIB4戓B7¡A´N¥i¥HN4¥X²{µù  §Ú§Æ±æÂI¨ì³o­Ó§å¸¹´N¥i¥H§â B5&C5 &F5&@G5&K5&*1.13----¯à°µ¨ì¦VN4Àx¦s®æªºµù¸Ñªºµù

vicky12060709

ÁÂÁ ¤j¯«¯ÅªºÀ°¦£  

¥i¥H ¥Î¤F ¡A¤è«K¦h¤F ÁÂÁÂ

GBKEE

¦^´_ 1# vicky12060709

¸Õ¸Õ¬Ý
Sheet35,(PE³U) ¼Ò²Õªºµ{¦¡½X (¤u§@ªí¹w³])

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim xText As String, Rng As Range, i As Integer, e As Variant
   
4.     With Target
   
5.             If .MergeCells Then  '¬O¦X¨ÖÀx¦s®æ
   
6.                 If .Rows.Count >= 4 And .Cells(1).Column = 14 Then  '¦³4­Ó¥H¤WÀx¦s®æ ¥B¦b NÄæ
   
7.                     Set Rng = Range("A" & .Rows(1).Row)                    '³]©wAÄ檺¦ì¸m
   
8.                     xText = "µL­­¨Ï¥Î:" & vbLf
   
9.                     For i = 1 To .Rows.Count
   
10.                         For Each e In Array("B", "C", "F", "G", "K")         'B5&C5 &F5&@G5&K5&*1.13----¯à
    
11.                             xText = xText & " " & IIf(e = "G", "@", "") & Rng.Range(e & i)
    
12.                         Next
    
13.                         xText = xText & "*1.13" & vbLf
    
14.                     Next
    
15.                     With Target.Cells(1)
    
16.                             If .Comment Is Nothing Then .AddComment
    
17.                             With .Comment
    
18.                                     .Text xText
    
19.                                     .Shape.TextFrame.AutoSize = True   '¦Û°Ê½Õ¾ã
    
20.                             End With
    
21.                     End With
    
22.                 End If
    
23.            End If
    
24.     End With
    
25. End Sub

½Æ»s¥N½X