[發問] [求助]輸入公司表格如何聯結

owen9399

請問各位大大:

我有 製作一份 簡易的進銷存 公司清單
但是 不知 如何使 它們的資料 聯結

又 再度麻煩 各位高手

詳細遇到的問題     範本中有說明

感謝
輸入公司表格範本解說.rar (7.13 KB)

下載次數: 11

2012-2-8 11:18

owen9399

1.輸入資料  共分為 兩個區域:  一個是 交帳資料 輸入   ,另一個  是進貨資料 輸入
2.輸入後 分別存入 各區的儲存資料庫
3.日報表 與 年報表 分別 只是 顯示方式不同
4.庫存清單 是 總應付份數 與 進貨數量    的相加減, 而產生 退回.多領.尚欠等 進銷存的計算

希望 有大大能做出來  
本人  非常感謝

owen9399

我有新增對應的程式
於 輸入資料  共分為 兩個區域:  一個是 交帳資料 輸入   ,另一個  是進貨資料 輸入

但是 其他該如何設定

如附件 輸入公司表格(練習0210).rar (14.39 KB)

下載次數: 6

2012-2-10 17:05

owen9399

請問各位大大 可以先做出 日報表的連結嗎?

感恩!

GBKEE

回復 4# owen9399
日報表的連結嗎?
如何連結?? 沒說清楚

owen9399

回復 5# GBKEE


    大大你好:

連結的方式:

當輸入資料後,資料就會儲存在 交帳資料庫中 ,而日報表 就是 把交帳資料庫的資料 以日期區分出來

假設:
交帳資料表 輸入資料如下
公司序號        公司        張數        價格        應付份數        日期        備註
101001        王品        35        1500        35        2012/2/6       
101001        王品        50        1450        50        2012/2/6       
101003        西堤        80        1300        80        2012/2/6       
101001        王品        40        1450        40        2012/2/10       
101004        頂好        60        1200        60        2012/2/10       
101001        王品        10        1500        10        2012/2/13       
101005        家樂福        50        1300        50        2012/2/12       

而日報表 分別分類 顯示  如下:

                        日報表                2012/2/6       
公司序號        公司        張數        價格        應付份數        日期        備註
101001        王品        35        1500        35        2012/2/6       
101001        王品        50        1450        50        2012/2/6       
101003        西堤        80        1300        80        2012/2/6       
                                               


                        日報表                2012/2/10       
公司序號        公司        張數        股數        應付份數        日期        備註
101001        王品        40        1450        40        2012/2/10       
101004        頂好        60        1200        60        2012/2/10       

以此類推...

而且 當輸入 新資料的 公司 日期   ,就自動產生新的表格

owen9399

假設 輸入公司等資料 新增3筆 就產生  新的日報表
並 自動畫好 表格 + 日期 + 新增的資料3筆

GBKEE

回復 7# owen9399
Shets("輸入資料")

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim xM
   
3.     If Intersect(Target, Range("A2:A11")) Is Nothing Or Target(1) = "" Then Exit Sub
   
4.     xM = Application.Match(Target, [公司序號].Columns(1), 0)
   
5.     Target.Cells(1, 2) = [公司序號].Cells(xM, 2)
   
6. End Sub
   
7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
8.     On Error Resume Next
   
9.     [序號].Validation.Delete
   
10.     If Intersect(Target, Range("A2:A11")) Is Nothing Then Exit Sub
    
11.     Range("Q2", [Q2].End(xlDown)).Resize(, 2).Name = "公司序號"
    
12.     Target.Name = "序號"
    
13.     With [序號].Validation
    
14.         .Delete
    
15.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    
16.         Operator:=xlBetween, Formula1:="=" & [公司序號].Columns(1).Address
    
17.     End With
    
18. End Sub

複製代碼

交帳資料庫 : 日期的格式 請修改為 "yyyy/mm/dd" 格式

1. Sub 按鈕3_Click()
   
2.     Dim Rng As Range, S As String, xi As Integer
   
3.     Dim Sh As Worksheet
   
4.     Set Sh = Sheets("日報表")                                                 ' 日報表
   
5.     Sh.Cells.Clear
   
6.     With Sheets("交帳資料庫")
   
7.         If .AutoFilterMode Then .AutoFilterMode = False                         '取消篩選
   
8.         .Range("a1").AutoFilter                                                 '[自動篩選] 篩選出一個清單
   
9.         Set Rng = .AutoFilter.Range.Columns(6).Cells                            '[自動篩選]的第6欄
   
10.         For xi = 2 To Rng.Count                                                  '處裡:  第二欄 單元格
    
11.             If InStr(S, "," & Rng(xi) & ",") = False Then                       '檢查 儲存格 是否已出現過
    
12.                 .Range("a1").AutoFilter Field:=6, Criteria1:=Rng(xi).Text             '沒出現: 指定為篩選值
    
13.                 S = S & "," & Rng(xi) & ","                                          '加入已出現過的字串中
    
14.             .UsedRange.SpecialCells(xlCellTypeVisible).Copy Sh.Cells(Rows.Count, "b").End(xlUp).Offset(2)   '複製: 資料表中篩選出的資料
    
15.             End If
    
16.         Next
    
17.         .AutoFilterMode = False                                                  '取消篩選
    
18.     End With
    
19.     Sh.Activate
    
20. End Sub

複製代碼

owen9399

回復 8# GBKEE


    謝謝大大指導  
'因為有測試但是程式出現 錯誤 , 不知如何修正
權限 快達成

GBKEE

回復 9# owen9399
傳檔看看