程序碼就大致如下:
Columns("D,T:W,AA").Select
'Range("D,T:W,AA").Select
' Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
' False
Selection.CreateNames Top:=True
....
原先都還可以正常選取D、T~W、AA欄位,然後取頂端列的名稱做公式名稱,今不知又出什麼問題了..
一直出現 "執行階段錯誤'13': 型態不符合"
縱始我將其改成用Range物件也一樣會在偵錯時停在那行陳述式上..(紅色字體處)
另我用了新空白簿用錄製的方法,一樣選了一些欄位,然後訂定公式名稱,結果出來的程序碼都一樣...這到底問題出在哪呢?請教高手了~~感恩~~
補:
剛改了下
Columns("D,T:W,AA").Select
'Range("D,T:W,AA").Select
改成
Columns("D:D,T:W,AA:AA").Select
' Range("D:D,T:W,AA:AA").Select
結果用columns時一樣會有問題..
但改用range後就OK..
真是奇怪,明明上回都OK的,columns也是用錄製時直接貼上來用的
這兩者是為什麼不行呢?
另欄位要改成D:D....先前錄製時用columns就真的只有一個D..難道是我貼錯了~
求解中..謝謝
X




























































































