µ{¦¡½X­×§ï

man65boy

½Ð¦Ñ®v­ÌÀ°¤p§Ì­×§ï¤@¤Uµ{¦¡½X¡A2ºØªºµ{¦¡µLªk¨ú±o¬Û¿Ä¡AªþÀÉ»¡©ú¡AÁÂÁÂ!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range, MM
With Target
     If .Columns.Count > 1 Then Exit Sub
     If .Column <> 6 Then Exit Sub '¥iÅܧóŪ¨úÄæ¦ì
     If .Row < 2 Then Exit Sub
     If Target.Count > 3 Then Application.ScreenUpdating = False
     '¶W¹L¤Tµ§ªº¡A­áµ²°õ¦æ¹Lµ{¡Aª½¨ìµ²§ô¡A¥[§Ö°õ¦æ³t«×
     For Each xR In Target
        With xR.Cells(1, 2)
             .FormulaR1C1 = "=VLOOKUP(RC[-1],²£«~½s¸¹!C[-6]:C[-2],2,0)"
             .Value = .Value
             .Replace "#N/A", "", Lookat:=xlWhole '²M°£§ä¤£¨ì²Å¦X½s¸¹ªº¿ù»~­È
             .Replace "0", "" '²M°£¹ïÀ³½s¸¹¡e«È¤á¦WºÙ¡f«oªÅ¥Õªº¢¯­È
        End With
        Next
End With
With Target
If Target.Columns.Count > 1 Then Exit Sub
If Target.Column <> Range("M1").Column Then Exit Sub
For Each xR In Target
    If xR = "" Then GoTo NEXT_CELL
    MM = Application.Match(xR, Sheets("Sheet1").Range("A:A"), 0)
    If IsError(MM) Then GoTo NEXT_CELL
    xR = Sheets("Sheet1").Range("B" & MM).Value
NEXT_CELL:

Next
End With
End Sub





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 13 And Target.Count = 1 Then UserForm3.Show 0
If Target.Column = 6 And Target.Count = 1 Then UserForm4.Show 0
End Sub

man65boy

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ·Ǥj¦Ñ®vªº¸ÑÃDÀ°¦£¡A§¹¥þ²Å¦X»Ý­n¡A·P¿E¤£ºÉ^^