[發問] Excel 2010 建立按鈕 輸入索引值 擷取資料至指定欄位

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows 7
軟體版本: 64 bit
閱讀權限: 10
性別: 男
來自: taipei
註冊時間: 2011-5-31
最後登錄: 2011-6-7

3^#

發表於 2011-5-31 17:04 | 只看該作者

回復 givigan
問題在於資料庫的格式
請上傳簡單的dbf檔案以供測試
Hsieh 發表於 2011-5-31 16:36

您好
dbf在別台電腦上
直接開啟怕POS系統運作會出問題
所以我的想法是把dbf檔案複製到這台電腦上操作
複製過來以後直接用excel開啟
然後儲存成excel檔案
如下
http://givigan.myweb.hinet.net/test.xlsx

這樣會比較好操作嗎?

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-5-31 19:54 | 只看該作者

回復 3# givigan

既然dbf資料用複製的，就貼在同檔案的工作表內
在表格的工作簿內設置一個按鈕按鈕的程式碼如下

Private Sub CommandButton1_Click()
10
n = InputBox("輸入主索引", , "U952")
ar = Array("編號", "品名", "售價")
With Sheets("工作表2")
Set a = .[A:A].Find(n, lookat:=xlWhole)
If a Is Nothing Then MsgBox "無此編號": GoTo 10
Do Until n = ""
If Application.CountBlank([A1:I24]) = 0 Then MsgBox "A4紙張已滿": Exit Sub
Set b = Range("A1:I24").SpecialCells(xlCellTypeBlanks).Cells(1)
b.Resize(, 3) = ar
b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
n = InputBox("輸入主索引", , "U952")
Loop
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows 7
軟體版本: 64 bit
閱讀權限: 10
性別: 男
來自: taipei
註冊時間: 2011-5-31
最後登錄: 2011-6-7

5^#

發表於 2011-5-31 21:26 | 只看該作者

回復 4# Hsieh

好的感謝大大
明天上班時再試試看
多謝指導

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows 7
軟體版本: 64 bit
閱讀權限: 10
性別: 男
來自: taipei
註冊時間: 2011-5-31
最後登錄: 2011-6-7

6^#

發表於 2011-6-1 15:07 | 只看該作者

感謝大大，可以正常使用了，
不過我不會用按鈕@@
我用了個文字方塊指定巨集過去

這跟c++好像喔...

b.Resize(, 3) = ar
這個是往右移三格的意思嗎?

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Windows 7
軟體版本: 64 bit
閱讀權限: 10
性別: 男
來自: taipei
註冊時間: 2011-5-31
最後登錄: 2011-6-7

7^#

發表於 2011-6-6 18:55 | 只看該作者

本帖最後由 givigan 於 2011-6-6 19:33 編輯

回復 givigan

既然dbf資料用複製的，就貼在同檔案的工作表內
在表格的工作簿內設置一個按鈕按鈕 ...
Hsieh 發表於 2011-5-31 19:54

大大您好，前幾天本來程式可以正常運作
小弟修改了幾個幾個地方後
變成輸入商品編號進去資料有植入
但是輸入第二個編號的時候
他還是出現上一筆的資料
就算輸入的是沒有的編號
也不會顯示無此編號
依然會重複植入第一筆的資料

而我把大大的原本程式碼再複製過去
把工作表名稱改回工作表2
還是一樣情形@@
只會輸入第一筆的資料
是我電腦哪邊設定動到嗎?

檔案如下

excel2.rar (31.62 KB)
或
http://givigan.myweb.hinet.net/excel2.rar

Private Sub push()
10
n = InputBox("輸入商品編號", , "")
ar = Array("編號", "品名", "售價")
With Sheets("資料庫")
Set a = .[A:A].Find(n, lookat:=xlWhole)
If a Is Nothing Then MsgBox "無此編號": GoTo 10
Do Until n = ""
If Application.CountBlank([A1:I18]) = 0 Then MsgBox "A4紙張已滿": Exit Sub
Set b = Range("A1:I18").SpecialCells(xlCellTypeBlanks).Cells(1)
b.Resize(, 3) = ar
b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
n = InputBox("輸入商品編號", , "")
Loop
End With
End Sub

複製代碼