返回列表下一主題上一主題發帖

[發問] 輸入[編號]自動顯示[姓名],查無資料時,如何清空儲存格

dou10801

中學生 Rank: 2

帖子: 150
主題: 43
精華: 0
積分: 235
點名: 107
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-4-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-2-7 22:34 | 顯示全部帖子

[發問] 輸入[編號]自動顯示[姓名],查無資料時,如何清空儲存格

本帖最後由 dou10801 於 2023-2-7 22:43 編輯

輸入[編號]自動顯示[姓名],查無資料時,如何清空儲存格,感恩.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range
Application.ScreenUpdating = False
If Target.Count > 2 Or Target.Column <> 2 Then End
   Set xF = [摘要!a:a].Find(Target.Value, Lookat:=xlWhole)
   If xF Is Nothing Then
      MsgBox "找不到!"
      工作表2.Cells(Target.Row, 3) = ""
      '工作表2.Cells(Target.Row, 2) = ""  '這行無作用
      Exit Sub
   Else
      m1 = xF(2, 1)
      工作表4.Cells(m1, 2).Copy 工作表2.Cells(Target.Row, 3)
   End If
Application.ScreenUpdating = True
   Set xF = Nothing
End Sub