Awright,根據你可能需要的一種非常簡單的方法,你需要做的第一件事就是知道他們要輸入信息的單元格(關注範圍),讓我們假設這個例子只有一個數據輸入到團隊工作表的第一個單元格中。因此,創建一個名爲「Button1的」按鈕,或者,你想和單擊事件使用此代碼:
Private Sub button1_click()
Teamsheet.Cells(row,column) = Yoursheet.Cells(destinyrow,destinycolumn)
End Sub
這會從一個工作表複製值到另一個,現在,如果你有你板材通過密碼鎖定,你必須在這之前解鎖,然後將其鎖定再這樣的代碼會是這樣的:
Private Sub button1_click()
On Error Resume Next
yoursheet.unprotect password:="yourpassword"
Teamsheet.Cells(row,column) = Yoursheet.Cells(destinyrow,destinycolumn)
On Error Resume Next
yoursheet.PROTECT password:="yourpassword"
End Sub
我澄清,這是一個非常簡單的方法,所以,如果你使用特定的細胞可複製通過一個,這會做(所以你可以讓anny計算兒子你的管理員表),但是當你複製範圍應該是這樣的:
Teamsheet.Range("A1:D3").Value = yoursheet.Range("A1:D3").Value
此外,請始終考慮他們如何輸入您需要的數據。
UPDATE:
比方說,你有一個團隊的工作簿和你是admin_workbook,概念是相似的。此代碼會做你需要什麼,但兩個工作簿應該在同一個文件夾或路徑:
Private Sub button1_click()
Var_data = Teamsheet.Cells(row,column)
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\admin_workbook.xls"
ThisWorkbook.Activate
Admin_sheet.Cells(destinyrow,destinycolumn) = var_data
Workbooks("admin_workbook.xls").Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub
首先你捕捉一個變種數據,那就請你打開你的管理的書,把你想要的單元格中的數據和關閉保存更改的工作簿(您決定保留此行還是保持打開工作簿並手動保存)。此外,Application.screenupdating它是一條線,可幫助您的屏幕在工作簿之間切換時不會滑動。
希望它可以幫助朋友!
當你說你想發送數據給自己,你討論一個郵件與Excel書作爲附件? – jsanchezs
沒有我的意思是隻提取數據,如果可能的話。因此,如果我的團隊正在使用的「macro_user」和我自己的「macro_owner」,我希望用戶輸入「macro_user」的數據傳遞給在表格中顯示數據的「macro_owner」,然後使用一些計算的單元格顯示整個團隊的統計數據。 –
你的意思是像他們輸入數據的工作表和一張鎖定的工作表讓你獲得他們輸入的值的副本? – jsanchezs