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

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

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

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

3¤ë¥÷¥X³fÁ`ªí(2).rar (142.19 KB)

·Q¨Ï¥Î¦Û°Ê¤£¥Î¤â°Êªºµù¸Ñ /³Â·Ð¤Fª¦¤å«Ü¤[¤FÁÂÁÂ

VICKY12060709

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

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

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD