Excel宏，发送用户数据

Question

所以我目前正在学习SQL Server，但现在我只是在学习时正在做一个标准的办公室管理工作。 我从来没有真正地使用过之前对VB有过的小知识，但决定设计一个工作宏，让我的团队变得更容易一些。 宏只是非常简单地允许用户输入数据，统计数据等，并给出百分比或平均统计量，从而导致总数让用户知道统计数据是否已经在当天，周，月等时被击中。 它运作良好，但我想添加一个“SUBMIT”按钮，当用户点击它时，它会将他们输入到指定单元格中的数据发送给我自己。我不知道该怎么做，如果需要的话，我现在无法访问像SQL，Visual Studio等系统，只是说基本的管理工作。

是否需要将其作为CSV提交？还是可以将它从用户的表单直接提交给我设计的另一个宏，以便为整个团队提供结果？如我所说，我对这个想法完全陌生。

干杯人。

Answer 1

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它是一条线，可帮助您的屏幕在工作簿之间切换时不会滑动。

希望它可以帮助朋友！