owen9399

回復 10# owen9399
    dear 大大:

      序號         公司名稱       紀念品   
   103001        浩騰           全家50元

  如何  連動

   輸入  103001   連動成     
    103001        浩騰           全家50元
   串通再一起

  謝謝

owen9399

回復 9# GBKEE


    Dear 大大:
     更改版

    如何
    用表單  
    輸入  序號   就 自動帶出 公司名稱 與 紀念品
   
   並將  進貨 與 交帳 統計起來
   存在  統計表中

  謝謝

GBKEE

回復 12# owen9399

1. '進貨輸入
   
2. Option Explicit
   
3. Dim Text_Ar(1 To 5)
   
4. Private Sub UserForm_Initialize()
   
5.     Dim I As Integer
   
6.     For I = 1 To 5
   
7.      Set Text_Ar(I) = Me.Controls("TEXTBOX" & I)
   
8.     Next
   
9. End Sub
   
10. Private Sub CommandButton1_Click()  '輸入
    
11.     With ActiveSheet
    
12.         With .Range("A" & .Rows.Count).End(xlUp).Offset(1)
    
13.             .Resize(1, 5) = Text_Ar
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Private Sub CommandButton2_Click()  '清除
    
18.     Dim I As Integer
    
19.      For I = 1 To 5
    
20.       Text_Ar(I).Text = ""
    
21.     Next
    
22. End Sub
    
23. Private Sub CommandButton3_Click()
    
24.     Unload Me    '退出
    
25. End Sub

複製代碼

owen9399

回復 13# GBKEE


    Dear 大大 :
   
   如果 想用 下拉式 選擇  序號 ,然後  自動顯示 帶出 公司名稱 與 紀念品
    輸入序號    103001  
    變成    103001    浩騰     全家50元券   
     再輸入  進貨的 數量
    用表單 方式 的下拉式  輸入

     並且 統合 總數量  按照 序號 排列
   
     謝謝