返回列表 上一主題 發帖

[發問] 新增欄位後 跳出"偵錯"視窗的原因?

kim595

帖子
36 
主題
16 
精華
0 
積分
134 
點名
0  
作業系統
Xp 
軟體版本
office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-1-7 
最後登錄
2019-1-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-3-25 17:26 | 只看該作者

[發問] 新增欄位後 跳出"偵錯"視窗的原因?

各位學長姐下午好 :)
這邊有遇到一個小小的問題,請路過的大俠們相救

我在新增欄位的時候(黃色部分)~跳出

執行階段錯誤'13':
型態不符合

雖然我都直接按"結束" 是沒有發生什麼問題
也可以新增

但還是想了解一下是哪裡出了問題
請各位前輩多提點了~感恩!!多謝 :)

暫放款試算表-z版本.rar (22.58 KB)
收藏 分享

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
7#
發表於 2011-3-28 14:35 | 只看該作者
敢請教兩位版主
本版是否有發表過VBA除錯教學？
若有的話建議置頂，新手都很須要這方面的知識。

TOP

kim595

帖子
36 
主題
16 
精華
0 
積分
134 
點名
0  
作業系統
Xp 
軟體版本
office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-1-7 
最後登錄
2019-1-6 
6#
發表於 2011-3-28 14:01 | 只看該作者
感謝兩位版主
經測試後已經沒有問題了

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-3-25 21:18 | 只看該作者
回復 4# Hsieh
原來如此 沒有看清楚題意.謝謝指點
你加上  If Target.Count > 1 Then Exit Sub 來化解樓主問題
我將 Target 指定為第一個Cell  就沒問題了
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target.Cells(1), [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
  3. Application.EnableEvents = False
  4. Target.Cells(1) = UCase(Target.Cells(1))
  5. Application.EnableEvents = True
  6. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-3-25 21:05 | 只看該作者
回復 3# GBKEE


    是插入整列所以觸發程序後的Target無法被確認所以跳出錯誤訊息
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-3-25 20:49 | 只看該作者
回復 1# kim595
我在新增欄位的時候(黃色部分)~跳出
黃色部分 在哪裡 沒看見

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-3-25 20:31 | 只看該作者
回復 1# kim595


    直接按結束你的事件就無法在驅動了
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
  3. If Target.Count > 1 Then Exit Sub
  4. Application.EnableEvents = False
  5. Target = UCase(Target)
  6. Application.EnableEvents = True
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題