返回列表下一主題上一主題發帖

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

KITTYBOY

　暱稱: KITTYBOY
　頭銜: KITTYBOY

小學生 Rank: 1

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

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

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

GBKEE