- 帖子
- 30
- 主題
- 5
- 精華
- 0
- 積分
- 33
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-1-6
- 最後登錄
- 2015-2-4
|
想請教一下
我在表一中有個按鈕程式碼是
Sub 新增()
Sheets("輸入區").Select
i = [b1].Value
Sheets(i).Select
xrow = [A65536].End(xlUp).Row
Cells(xrow + 1, 1).Select
With Cells(xrow + 1, 1)
.Value = Sheets("輸入區").[b1].Value
.Offset(0, 1).Value = Sheets("輸入區").[b2].Value
.Offset(0, 2).Value = Sheets("輸入區").[b3].Value
.Offset(0, 3).Value = Sheets("輸入區").[b4].Value
.Offset(0, 4).Value = Sheets("輸入區").[b4].Value
.Offset(0, 5).Value = Sheets("輸入區").[b6].Value
.Offset(0, 6).Value = Sheets("輸入區").[b7].Value
.Offset(0, 7).Value = Sheets("輸入區").[b8].Value
.Offset(0, 8).Value = Sheets("輸入區").[b9].Value
.Offset(0, 9).Value = Sheets("輸入區").[b10].Value
End With
Sheets("輸入區").Select
[b1:b1000].ClearContents
End Sub
是當表一的下面輸入我需要的資料後依"編號"將日期、批號......放入與編號相同的工作表中
例：
編號：Z167
日期：1040125
批號：15010001
零件編號：A00050
零件品名：20W磁台組
數量：100
託工單號：15010065
入庫單號：15010012
單價：0.5
小計：50
表二是零件貟料庫(只是簡單的將A、B、C欄全部選取然後將其輸入一個名稱(DB))
A欄 B欄 C欄
1 零件編號 零件品名 單價
2 A00050 20W磁台組 0.5
表三會顯示出(工作表名稱是"Z167")
編號 日期 批號 零件編號 零件品名 數量 託工單號 入庫單號 單價 小計
Z167 1040125 15010001 A00050 20W磁台組 100 15010065 15010012 0.5 50
今天我有個問題
1.上面的按鈕程式碼只能將我輸入的資料自動存入相同編號的工作表中
我希望的是我在表一輸入零件編號時零件品名和單價會自動秀出且小計欄可以自動算出(單價*數量)在按了按鈕後貟料會自動存入
希望的如下
編號：Z167 (此欄為手動輸入)
日期：1040125 (此欄為手動輸入)
批號：15010001 (此欄為手動輸入)
零件編號：A00050 (此欄為手動輸入)
零件品名：20W磁台組 (此欄為依輸入零件編號而自動秀出)
數量：100 (此欄為手動輸入)
託工單號：15010065 (此欄為手動輸入)
入庫單號：15010012 (此欄為手動輸入)
單價：0.5 (此欄為依輸入零件編號而自動秀出)
小計：50 (此欄為自動計算)
以上不知道是否有方法可以達到我想要的需求請各位前輩可以不吝指教謝謝 |
|
發表於 2015-1-25 01:07
| 
