返回列表 上一主題 發帖

[發問] 請問以下程式為何不能執行

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-22 14:57 | 顯示全部帖子

[發問] 請問以下程式為何不能執行

請教大大們幫忙解惑,
    小弟寫一個程式要將data sheet 的局部資料貼到sheet1 結果顯示錯誤
Sub Macrol()
       Dim i As Integer
       i=sheets("data").Cells(1,2)-sheets("sheet1").Cells(1,2)
       If i=1 Then
        Call 抓資料(7)
End Sub
Sub 抓資料(k)
Dim J,K As Integer
For j=1 to21
sheets("sheet1").range (Cells(j+1,k),(cells(j+1,k+2)=sheets("data").range (Cells(j+1,2),(cells(j+1,4)).......電腦顯示這句是錯的
next
End Sub
不知要如何改才能使用
收藏 分享
DREWCHEN1

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
2#
發表於 2011-2-22 17:45 | 顯示全部帖子
謝謝各位大大回覆,Sub 抓資料(k) 是一種副程式用法,所以這程式只在以下這句語法問題
sheets("sheet1").range (Cells(j+1,k),(cells(j+1,k+2)=sheets("data").range (Cells(j+1,2),(cells(j+1,4)).......電腦顯示這句是錯的
經使用hsieh板主方式,程式執行不會錯誤但資料確無移過去sheet1 ,不知差在哪我改成
sheets("sheet1").range (sheets("sheet1").Cells(j+1,k),sheets("sheet1").(cells(j+1,k+2))=sheets("data").range (sheets("data").Cells(j+1,2),sheets("data").(cells(j+1,4))
結果是資料欄空白
gbkee板主使用resize方式因我照著打顯示語法錯誤,我對resize用法不懂,所以不知怎問起不過還是謝謝各位幫忙
^^
DREWCHEN1

TOP

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
3#
發表於 2011-2-23 07:57 | 顯示全部帖子
謝謝Hsieh 板主,原來少個value這程式已經可以用了
謝謝你
^^
DREWCHEN1

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題