返回列表 上一主題 發帖

每隔多少欄插入多少欄程式錯誤需幫忙

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2012-9-19 21:32 | 顯示全部帖子
本帖最後由 luhpro 於 2012-9-19 21:34 編輯
所以我該從一開始的定義就開始改是嗎？
還是可以把 Columns 用別的參數做取代呢？
謝謝∼
Genie 發表於 2012-9-19 17:08

意思是以 Columns 來表示多個欄位時,
後面要放表示欄位名稱的英文字而不能放數字, (數字是表示多列時在用的)
不過這倒可以用 Chr(64 + 欄位序號) 的方式來轉換.

轉換後的程式可以如下 :

Columns(Chr(64 + BeginCol) & ":" & Chr(64 + BeginCol + InsCol - 1)).Insert Shift:=xlToRight

你程式中上列應是 InsCol 而非 InsRow 喔.

另 tempCol = Range(Cells(myRow, 255), Cells(myRow, 255)).End(xlToLeft).Column
可以簡化為 :  tempCol = Cells(myRow, 255).End(xlToLeft).Column

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2012-9-19 22:13 | 顯示全部帖子
本帖最後由 luhpro 於 2012-9-19 22:14 編輯

回復 5# chin15
晤...
這個討論區系統好像沒有類似 "留言" 的功能
所以只能用回文的方式來回應囉.

--- 以下是回應的內容 ---
嗯...
你提供的方式比我的完善多了,
值得記下來.

PS 剛剛發了個報告, 以為是留言功能,
但又發現好像討論串看不到 "報告" 的內容, 所以請管理者忽略該報告.

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題