excel - VBA Excel-将数据更新到另一个工作表
问题描述
我是使用 excel vba 的新手,我创建了一个用户表单(Collection_form),我将从验证列表中输入来自不同成员的不同金额。目标:我想在单击提交按钮后根据来自不同工作表(Collection_Report)表中的集合表单的输入更新所有单元格。单击提交按钮后数据应成功更新并清除内容(Collection_form),以便为下一个成员捕获数据。
Submit Code:
Sub Submit_Click()
'
' Submit_Click Macro
'
'
'name
Sheets("Collection_Form").Select
Range("E14:G14").Select
Selection.Copy
Sheets("Collection_Report").Select
Range("B1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
'ActiveCell.Offset(0, 1).Select
'ActiveSheet.Paste
'ActiveCell.Offset(0, -1).Select
'ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Month
Sheets("Collection_Form").Select
Range("E9:F9").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Attendance
Sheets("Collection_Form").Select
Range("E11").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Loan Interest
Sheets("Collection_Form").Select
Range("AV17").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Loan Payment
Sheets("Collection_Form").Select
Range("AV18").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'MGR
Sheets("Collection_Form").Select
Range("AV19").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'SHARES
Sheets("Collection_Form").Select
Range("AV20").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'INSURANCE
Sheets("Collection_Form").Select
Range("AV21").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'OTHER
Sheets("Collection_Form").Select
Range("AV22").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'MEMBERS
Sheets("Collection_Form").Select
Range("AV23").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'FINE
Sheets("Collection_Form").Select
Range("AV24").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'BANK TOTAL
Sheets("Collection_Form").Select
Range("G25").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'CASH TOTAL
Sheets("Collection_Form").Select
Range("H25").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook. Save
MsgBox ("Record Saved")
End Sub
解决方案
推荐阅读
- angular - DataTables 加载数据,但按钮和排序在 Angular 4 中没有按预期运行
- vb.net - 一个子的多个事件
- openshift - 挂载到 VPC 的 minishift 文件夹不可写
- node.js - 带有 Upsert 的 findOneAndUpdate 总是插入一个新用户
- python - Python/Scrapy 转到不同的 URL
- python - 如何理解二进制表示函数的递归
- python - 将列表对象转换为字典
- r - 计算矩阵列表的元素分位数 R
- javascript - 同时使用 Laravel 和 Angularjs 路由
- javascript - 反应基本形式问题