帖子: 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

softsadwind

中學生 Rank: 2

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

2^#

發表於 2011-2-22 15:15 | 只看該作者

不好意思我也是剛入門的
這個程式要作用你要確認你的資料是在data
或者你已經要用這個程式抓別的分頁的資料
那就是要把sheets("data")內的data改成最終分頁

i=sheets("data").Cells(1,2)-sheets("sheet1").Cells(1,2)
sheets("sheet1").range (Cells(j+1,k),(cells(j+1,k+2)=sheets("data").range (Cells(j+1,2),(cells(j+1,4))
這兩行都要改...怎麼改要看你的需求吧...
基本的做法就是人工改資料頁的名稱
進階就是可以看是自動抓第一個分頁當資料頁或者其他方式...這點我就不懂了

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-2-22 15:22 | 只看該作者

sheets("sheet1").range (sheets("sheet1").Cells(j+1,k),sheets("sheet1").(cells(j+1,k+2))

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 2011-2-22 16:35 | 只看該作者

回復 1# drewchen1

Sub 抓資料(K)
Dim J, K As Integer
If K <= 0 Then
MsgBox "K須大於0"
Exit Sub
End If
For J = 1 To 21
Sheets("sheet1").Cells(J + 1, K).Resize(, 3) = Sheets("data").Cells(J + 1, 2).Resize(, 3).Value
Next
End Sub

複製代碼

TOP

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

5^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-2-22 18:31 | 只看該作者

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)).value

學海無涯_不恥下問

TOP

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

7^#

發表於 2011-2-23 07:57 | 只看該作者

謝謝Hsieh 板主,原來少個value這程式已經可以用了
謝謝你
^^

DREWCHEN1

TOP