請問excel裡面ㄉ函數有沒有以下ㄉ功能
還是需要使用什ㄇ方法可以做到
例如~~2ㄍexcel檔案~~一ㄍ為資料表~~一ㄍ回資料庫
我在資料表裡~~打入顧客編號後
顧客ㄉ所以資料會顯示在資料表上
~~~~~~有沒有辦法~~~~~~
直接在之資料表上作修改舊可以變更資料庫ㄉ檔案
不需要再去資料庫作修改
2006-07-05 11:20:53 · 2 個解答 · 發問者 震東 2 in 電腦與網際網路 ➔ 軟體
”費用試算”檔案中有個工作表”data”.”修改表”檔案中有個工作表”total”.費用試算data內容:日期部門文具費郵電費2005/6/1A0043002002006/6/2A0052001002006/6/3A0041002002006/6/4A0053001002006/6/5A0063001002006/6/5A006200100”修改表”工作表”total”內容:A004日期部門文具費郵電費12005/6/1A004300200在”total”工作表的vba的thisWorkbook中新增程式碼: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Windows("費用試算").Activate ActiveWorkbook.Save ActiveWindow.CloseEnd SubPrivate Sub Workbook_Open() Workbooks.Open Filename:=ActiveWorkbook.Path & "\費用試算.XLS" '檔案的路徑,可自行修改 Application.Windows("費用試算").Visible = False Worksheets("total").SelectEnd Sub在”total”工作表新增一個下拉式方塊及按鈕,按鈕的程式碼如下:Private Sub CommandButton1_Click() Application.ScreenUpdating = False v1 = Range("h2").Value Range("I2:L2").Copy Windows("費用試算").Activate Worksheets("data").Activate Worksheets("data").Cells(1 + v1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues Windows("費用試算").Visible = False Windows("修改表").Activate Sheets("total").Select Range("H1").Select MsgBox "修改成功" Application.ScreenUpdating = TrueEnd Sub下拉式方塊的屬性中,linkedcell輸入H1(如上表黃底A004),listfillrange輸入A2:A4(輸入所有客戶編號),Listrows輸入列數.它的程式碼如下:Private Sub ComboBox1_Change() Range("H2").FormulaR1C1 = "=MATCH(R1C8,部門,0)" Range("i2").FormulaR1C1 = "=INDEX(明細2,MATCH(R1C8,部門,0),1)" Range("J2").FormulaR1C1 = "=INDEX(明細2,MATCH(R1C8,部門,0),2)" Range("K2").FormulaR1C1 = "=INDEX(明細2,MATCH(R1C8,部門,0),3)" Range("L2").FormulaR1C1 = "=INDEX(明細2,MATCH(R1C8,部門,0),4)" Range("L3").SelectEnd Sub明細2,部門:使用定義名稱及動態陣列,選工具列的"插入">"名稱">"定義">輸入資料後要按新增.現有名稱:明細2 參照到:=OFFSET([費用試算.xls]data!$A$2,0,0,COUNTA([費用試算.xls]data!$A:$A),COUNTA([費用試算.xls]data!$A:$AA))現有名稱:部門 參照到=OFFSET([費用試算.xls]data!$B$2,0,0,COUNTA([費用試算.xls]data!$B:$B),1)請先試做,有疑問再提出.
2006-07-06 17:17:53 補充:
因為試做所以data的部門代號有重複,但真的使用時資料庫的客戶編號不能重複才能使用,不然只會修改第一筆.
2006-07-08 11:16:46 補充:
請問試作有問題嗎?
2006-07-06 13:06:54 · answer #1 · answered by 牛仔褲1431 6 · 0⤊ 0⤋
這有類似的
▶▶http://qoozoo2014091500.pixnet.net/blog
2014-09-23 23:03:34 · answer #2 · answered by Anonymous · 0⤊ 0⤋