標題: 文具系統的問題 [打印本頁]

---

作者: JEAN    時間: 2013-11-14 10:46     標題: 文具系統的問題

[attach]16694[/attach]

請大家幫我看一下巨集程式如何改
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 = [中文姓名].Find(Target(1), lookat:=xlWhole)
            Range("B3") = xf.Offset(, -1)
        End If
    End If
    Application.EnableEvents = True
End Sub

---

作者: GBKEE    時間: 2013-11-14 11:46

回復 1# JEAN

1. Else
   
2.            Target(1).NumberFormatLocal = "G/通用格式"
   
3.             Set xf = [中文姓名].Find(Target(1), lookat:=xlWhole)
   
4.             Range("B3") = xf.Offset(, -1)
   
5.         End If

複製代碼

---

作者: JEAN    時間: 2013-11-14 14:56

回復 2# GBKEE

謝謝您~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)