執行階段錯誤-2147417848(80010108) Automation錯誤 - Excel程式區

[發問] 執行階段錯誤-2147417848(80010108) Automation錯誤

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-4-22 19:36 | 顯示全部帖子

回復 1# li_hsien

資料驗證清單在2003好像不能跨工作表，不過可以用定義名稱來跨工作表使用，如下的程式碼試看看行不行

final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row
Names("範圍").RefersToLocal = "=Temp_Substance!$A$2:$A$" & final_substance
'建立Substance下拉選單
With Worksheets("規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=範圍"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "請以下拉選單方式選取"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

複製代碼

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。