- 帖子
- 91
- 主題
- 20
- 精華
- 0
- 積分
- 118
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-11-30
- 最後登錄
- 2016-1-14
|
文具系統的問題
請大家幫我看一下巨集程式如何改
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 |
|
發表於 2013-11-14 10:46
| 
