　暱稱: KITTYBOY
　頭銜: KITTYBOY

帖子: 29
主題: 11
精華: 0
積分: 41
點名: 0
作業系統: WINDOW XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-4
最後登錄: 2011-11-1

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-5-26 14:34 | 只看該作者

[發問] 請教BY固定列抓取資料庫資料之方式

DAER  ALL 大大
  如附檔
  1. SHEET("2").RANGE("A2") = SHEET("2").RANGE("A2
   ") 為基準
   1.1  SHEET("2").RANGE("A14") = SHEET("3").RANGE("A2
   ")
   SHEET("2").RANGE("A26") = SHEET("4").RANGE("A2
   ")
      SHEET("2").A欄每12列之儲存格抓取
         SHEET("").A欄  A2  A3 ..... 之值
   請教各位大大程式如何書寫 THANKS

B.JPG (109.62 KB)

A.rar (8.82 KB)

樓主熱帖

KITTYBOY

　暱稱: KITTYBOY
　頭銜: KITTYBOY

小學生 Rank: 1

帖子: 29
主題: 11
精華: 0
積分: 41
點名: 0
作業系統: WINDOW XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-4
最後登錄: 2011-11-1

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2011-5-26 17:08 | 只看該作者

DEAR ALL 大大
感謝您們之指導符合小弟需求 THANKS ROBERT 05/26

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兔年全勤獎章

3^#

發表於 2011-5-26 16:44 | 只看該作者

回復 1# KITTYBOY
是這樣嗎?

Sub Ex()
Dim i%, ii%
ii = 2
With Sheets("2")
For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row Step 12
.Cells(i, "A") = Sheets("1").Cells(ii, "A")
ii = ii + 1
Next
End With
End Sub

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2011-5-26 15:45 | 只看該作者

樓主~ 因為我不知道妳是要key in sheet2中 "A"欄位資料後才出現"B"欄位的資料
   還是說直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
      下面是我依設一個按鍵的方式~
      直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
      但是執行後~ 因樓主sheet1中第148列以後的資料是有問題的~ 所以~ 程式碼執行後會產生錯誤

Private Sub CommandButton1_Click()
Do Until Sheet2.Range("A" & 2 + I) = ""

Sheet1.Range("A" & 2 + N) = Sheet2.Range("A" & 2 + I)
Sheet1.Range("B" & 2 + N) = "材料預估需求量(a)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "MIS需求(a')"
N = N + 1
Sheet1.Range("B" & 2 + N) = "庫存量(b)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "在途量(c)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "寄售庫(d)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "最低存量(e)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存(f)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存DOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "建議請購量(g)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "預計請購量"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存+預計請購DOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "備註(更新日)"
N = N + 1

I = I + 1
Loop
End Sub

學習才能提升自己

TOP