- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
回復 9# 霸氣走全身
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SCunt&, xF As Range
With Target
If .Row = 1 Or .Count > 1 Then Exit Sub
If .Column = 2 Or .Column = 5 Then 'B欄/E欄
On Error Resume Next
Me.Shapes("_" & .Address(0, 0)).Delete
On Error GoTo 0
If .Value = "" Then Exit Sub
SCunt = Me.Shapes.Count
Set xF = [對照!B:B].Find(.Value, Lookat:=xlWhole)
If xF Is Nothing Then Exit Sub
xF(1, 2).Copy .Cells(1, 2)
If SCunt = Me.Shapes.Count Then Exit Sub
Me.Shapes(SCunt + 1).Name = "_" & .Address(0, 0)
End If
End With
End Sub
'============================= |
|
發表於 2019-8-4 09:14
| 
