owen9399

請問各位大大 如何設計

庫存輸入計算

1.秀出輸入表單
2.將表單的資料儲存在 工作表1 中
3.選擇 下拉式時 將資料儲存


謝謝

GBKEE

回復 1# owen9399
如此的問題等同請人替你設計一程式,這不是本討論版的主旨
(羅馬不是一天造成的,多瀏灠練習VBA會進步的)

owen9399

我有修改 一些程式

下拉式 輸入 不會
查詢 不會

GBKEE

回復 3# owen9399
Private Sub UserForm1_Initialize() 不是表單的內建事件程序

程式偵錯方法: 滑鼠移動到 要偵錯的程式碼中,按 F8逐行執行 檢視 即時運算視窗 , 區域變數視窗  可偵錯

下載 (43.85 KB)

2013-9-5 10:49

owen9399

謝謝大大  GBKEE
但是,如何將 下拉式的值  輸入到 SHEET1 中的位置

owen9399

修改 下拉式選單 完成
但 如何 輸入整筆資料 (新增) ?

GBKEE

回復 6# owen9399

1. Dim Ar()
   
2. Private Sub UserForm_Initialize()
   
3.     ComboBox1.RowSource = Range("L2:L5").Address
   
4.     ComboBox2.RowSource = Range("N2:N6").Address
   
5.     ComboBox3.RowSource = Range("M2:M4").Address
   
6.     Ar = Array(TextBox1, ComboBox1, ComboBox2, TextBox2, TextBox3, ComboBox3, TextBox4, TextBox5, TextBox6)
   
7. End Sub
   
8. Private Sub CommandButton1_Click()
   
9.     Dim nrow As Integer
   
10.     With Worksheets("sheet1")
    
11.         nrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    
12.         '由工作表欗底部最後一個列,往上到第一個有資料的列號+1
    
13.        .Range("a" & nrow).Resize(, UBound(Ar) + 1) = Ar
    
14.     End With
    
15. End Sub

複製代碼

owen9399

大大 :

我有輸入 你的程式碼

我卻無法 執行 ?

那裡出錯

Hsieh

回復 6# owen9399


    所有欄位都是要使用者輸入嗎?
如果是這樣你只要使用EXCEL的內建表單就可達成所有功能
如果數量的欄位要經過計算，那計算的方式是怎樣?
看你的數據不懂庫存差額欄位是怎麼算出來的

GBKEE

回復 8# owen9399

1. Dim Ar()   '模組的最頂端   宣告此模組的程序可用之變數

複製代碼