¤å¨ã¨t²Îªº°ÝÃD

JEAN

¤U¸ü (200.76 KB)
»â¥Î³æ

2013-11-14 10:44

½Ð¤j®aÀ°§Ú¬Ý¤@¤U¥¨¶°µ{¦¡¦p¦ó§ï
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xf As Range
    Application.EnableEvents = False
    If Target(1).Address(0, 0) = "B4" Then
        If Target(1) = "" Then
            Range("B3") = ""
        Else
            Set xf = [¤¤¤å©m¦W].Find(Target(1), lookat:=xlWhole)
            Range("B3") = xf.Offset(, -1)
        End If
    End If
    Application.EnableEvents = True
End Sub

GBKEE

¦^´_ 1# JEAN

1. Else
   
2.            Target(1).NumberFormatLocal = "G/³q¥Î®æ¦¡"
   
3.             Set xf = [¤¤¤å©m¦W].Find(Target(1), lookat:=xlWhole)
   
4.             Range("B3") = xf.Offset(, -1)
   
5.         End If

½Æ»s¥N½X

JEAN

¦^´_ 2# GBKEE

ÁÂÁ±z~~