GBKEE

回復 30# owen9399
請在對照 29# 看看我說了什麼!

1. Private Sub CommandButton3_Click() 'UserForm2的查詢程式碼
   
2. Dim I As Integer, Rng As Range
   
3.      With Sh(2)
   
4.           .Range("AA1").CurrentRegion = ""  '加這行 UserForm2表單執行一次後可不需這程式碼
   
5.          .AutoFilterMode = False
   
6.          For I = 1 To UBound(ar)
   
7.             If ar(I) <> "" Then .Range("A1").AutoFilter I, ar(I)
   
8.          Next
   
9.         .Range("A:h").SpecialCells(xlCellTypeVisible).Copy .Range("AA1")
   
10. '原本是 .Range("A:i").SpecialCells(xlCellTypeVisible).Copy .Range("AA1")
    
11.          .AutoFilterMode = False
    
12.          Set Rng = .Range("AA1").CurrentRegion.Offset(1)
    
13.      End With
    
14.   ListBox1.RowSource = Rng.Address
    
15. End Sub

複製代碼

owen9399

回復 31# GBKEE


    Dear 大大:
  我有新的問題 要問
  如附件
  
  將 輸入進貨表的數據 分出給 阿美 阿仁 小王

並把相同公司 的數量 總計  (進貨 出貨 總計)  
  謝謝

GBKEE

回復 32# owen9399
選擇進貨表中的資料範圍,用指令[資料]-> [自動篩選],將各業務員依次的篩選資料,複製到各業務員的工作表裡
自己試試,用錄製巨集,看看程式碼,練習一下,

owen9399

回復 33# GBKEE


    Dear 大大 :

   我有做出 部份的篩選 按 阿美總庫存 按鈕 ,再點選  阿美總庫存 的表 就分類出來

   1.篩選後的加總 不會
   2.按 阿美總庫存 按鈕 自動跑到 秀出 阿美總庫存的資料表


  謝謝

祝 中秋佳節 愉快

GBKEE

回復 34# owen9399
進步好多,讚.

1. Private Sub CommandButton3_Click()
   
2.     Dim y
   
3.     Dim Joken3 As String
   
4.     Joken3 = "小王"
   
5.     If Joken3 = "" Then Exit Sub
   
6.     With Sheets("進貨表")
   
7.         '若在篩選中，先解除顯示全部
   
8.         If .FilterMode Then .ShowAllData
   
9.         '以〔第5欄．業務員〕進行篩選
   
10.         .[A1].AutoFilter Field:=5, Criteria1:=Joken3
    
11.         '取得篩選後，最後一筆資料的〔列號〕
    
12.         y = .[A65536].End(xlUp).Row
    
13.         '進行貼轉資料
    
14.         .Range("A1:F" & y).Copy [小王總庫存!A1]
    
15.         '再恢復全表
    
16.         .ShowAllData
    
17.         '取消[自動篩選] 下拉箭號
    
18.         .[A1].AutoFilter
    
19.         MsgBox [SUM(小王總庫存!F:F)]  '篩選後的加總
    
20.   End With
    
21.   Beep
    
22. End Sub

複製代碼

owen9399

回復 35# GBKEE


    dear 大大:
   請問一下 如何在 進貨表 中 , 按一下 阿美庫存表 就秀出來

  謝謝

owen9399

大大
我找出來了
如何在 進貨表 中 , 按一下 阿美庫存表 就秀出來

指令:
Sheet2.Activate

owen9399

DEAR GBKEE 版大:
我在 阿美庫存表中 加入 查詢功能
為函數改為 VBA程式

如何 改成 VBA 程式
將 下拉式選單的 查詢公司 重覆的 不顯示出來 , 並統計 出貨數量 與 進貨數量 的總合

謝謝

如附件

GBKEE

回復 38# owen9399
[阿美總庫存] 模組預設事件程序之程式碼

1. Option Explicit
   
2. Private Sub Worksheet_Activate()          '活頁簿: 選擇工作表的預設事件
   
3.     '進階篩選  公司名稱  'Columns.Count ->工作表的總欗數 ->最後一欗
   
4.     Range("B:B").AdvancedFilter xlFilterCopy, , Cells(1, Columns.Count), True
   
5.     With Range("I2").Validation   '資料的驗證清單
   
6.         .Delete
   
7.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
8.         xlBetween, Formula1:="=" & Range(Cells(2, Columns.Count).Address, Cells(1, Columns.Count).End(xlDown).Address).Address
   
9.         .IgnoreBlank = True
   
10.       
    
11.     End With
    
12. End Sub
    
13. Private Sub Worksheet_Change(ByVal Target As Range)
    
14.     Application.EnableEvents = False
    
15.     If Target.Address(0, 0) = "I2" Then
    
16.         Range("J2") = [SUMIF(B:B,I2,D:D)]   '工作表的函數在 VBA用中括號計算  [ <- 工作表的函數  -> ]
    
17.         Range("K2") = [SUMIF(B:B,I2,F:F)]
    
18.     End If
    
19.     Application.EnableEvents = True
    
20. End Sub

複製代碼

owen9399

回復 39# GBKEE


    dear 版大:
   我有貼上測試,但是 出貨數量 與 進貨數量 並無統計  ,未同步
   該如何做
   謝謝