[發問] 將資料自動存入工作表(自動計算後)

kaiweidevil

想請教一下
    我在表一中有個按鈕程式碼是
        
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    (此欄為自動計算)
以上不知道是否有方法可以達到我想要的需求請各位前輩可以不吝指教謝謝

kaiweidevil

這三個是加在.
Offset(0, 4).Value = Sheets("輸入區").[b5].Value
Offset(0, 4).Value = Sheets("輸入區").[b9].Value
Offset(0, 4).Value = Sheets("輸入區").[b10].Value
的三個程式碼的下面嗎?

kaiweidevil

prince120101前輩
我把[b1:b1000].ClearContents
改成[b1:b4,b6:b8,b10:b10000].ClearContents(我是用最笨的方式做的)
B5,B9,B10就函數不會被刪除了但會出現  #N/A
這個有可以救嗎?

kaiweidevil

回復 6# prince120101


  雖然N/A不太會影響到，個人是想如果可以的話還是不顯示出來比較好，
(因為老闆每次經過看到都會問為什麼會出現N/A是不是程式出現問題，會不會造成資料的問題)
不過現在在使用中很正常很順暢，沒有其它問題，在此謝謝您的不吝指教