- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# vicky12060709
¸Õ¸Õ¬Ý
Sheet35,(PE³U) ¼Ò²Õªºµ{¦¡½X (¤u§@ªí¹w³])- Option Explicit
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim xText As String, Rng As Range, i As Integer, e As Variant
- With Target
- If .MergeCells Then '¬O¦X¨ÖÀx¦s®æ
- If .Rows.Count >= 4 And .Cells(1).Column = 14 Then '¦³4Ó¥H¤WÀx¦s®æ ¥B¦b NÄæ
- Set Rng = Range("A" & .Rows(1).Row) '³]©wAÄ檺¦ì¸m
- xText = "µL¨Ï¥Î:" & vbLf
- For i = 1 To .Rows.Count
- For Each e In Array("B", "C", "F", "G", "K") 'B5&C5 &F5&@G5&K5&*1.13----¯à
- xText = xText & " " & IIf(e = "G", "@", "") & Rng.Range(e & i)
- Next
- xText = xText & "*1.13" & vbLf
- Next
- With Target.Cells(1)
- If .Comment Is Nothing Then .AddComment
- With .Comment
- .Text xText
- .Shape.TextFrame.AutoSize = True '¦Û°Ê½Õ¾ã
- End With
- End With
- End If
- End If
- End With
- End Sub
½Æ»s¥N½X |
|