麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請問以下程式為何不能執行 [打印本頁]

作者: drewchen1 時間: 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
不知要如何改才能使用

作者: softsadwind 時間: 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))
這兩行都要改...怎麼改要看你的需求吧...
基本的做法就是人工改資料頁的名稱
進階就是可以看是自動抓第一個分頁當資料頁或者其他方式...這點我就不懂了

作者: Hsieh 時間: 2011-2-22 15:22

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

作者: GBKEE 時間: 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

複製代碼

作者: drewchen1 時間: 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用法不懂,所以不知怎問起不過還是謝謝各位幫忙
^^

作者: Hsieh 時間: 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

作者: drewchen1 時間: 2011-2-23 07:57

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)