办公自动化Excel笔记-认识VBA（二）数据赋值

数据赋值：将两个不同sheet表格中的表格完成赋值。

VBA 复制语句:  Sheets("表名1").Range("h46").Copy Sheets("表名2").Range("b22")

注意：1. 上面语句中的标点符号和括号均在英文模式下输入。

           2.上面语句解析：将表名1中的h46表格中的数据复制到表名2中b22的表格当中。

           3.表名1中的h46假如是一个数据范围，则将范围内的内容复制到表名2中b22开始的相应范围当中。

举例1：将数据录入表中h46:n55范围内的内容，复制到一作业部中b33开始的范围当中；

语句为：Sheets("数据录入").Range("h46:n55").Copy Sheets("一作业部").Range("b33")

VBA 赋值语句:  Sheets("表名1").Range("h46")= Sheets("表名2").Range("b22")

Sub 数据赋值()
     Dim mm, zj, bt
     mm=Sheets("表名1").Range("h46").Value
     Sheets("表名2").Range("b22")=mm
    bt = "管理系统-M.S.55555"        
   zj = MsgBox("数据赋值成功！！！", 1, bt)

End Sub

数据赋值语句如上所示，为方便确认数据赋值进度，添加了赋值完成后的弹窗，提示已数据赋值完成，并对弹窗的标题进行了特定设置（管理系统-M.S.55555）。