返回列表 上一主題 發帖

[發問] 關於Worksheet_SelectionChange如何除錯？

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
1# 跳轉到 »
發表於 2014-3-14 13:24 | 顯示全部帖子
好像是因為設定為非陣列，所以會出現錯誤
可以先加上On Error Resume Next 應該可以順利執行
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. On Error Resume Next
  3.     Dim rngE As Range
  4.     end1 = [A65536].End(xlUp).Row
  5.     Set rngE = [E1].Resize(end1, 1)
  6.     If Not Intersect(Target, rngE) Is Nothing Then
  7.         If Target = "v" Then
  8.             Target = ""
  9.         Else
  10.             Target = "v"
  11.         End If
  12.     End If
  13. End Sub
複製代碼
動念成因積因成果 by huijuang

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題