新增欄位後跳出"偵錯"視窗的原因? - Excel程式區

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-3-25 20:49 | 顯示全部帖子

回復 1# kim595
我在新增欄位的時候(黃色部分)~跳出
黃色部分在哪裡沒看見

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-3-25 21:18 | 顯示全部帖子

回復 4# Hsieh
原來如此沒有看清楚題意.謝謝指點
你加上 If Target.Count > 1 Then Exit Sub 來化解樓主問題
我將 Target 指定為第一個Cell 就沒問題了

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Cells(1), [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
Application.EnableEvents = False
Target.Cells(1) = UCase(Target.Cells(1))
Application.EnableEvents = True
End Sub

複製代碼

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。