[h1]在做行政事业单位内控制度诊断的过程中，需要即时录入诊断意见，或者，即时查询以前录入的意见。此进，需要掌握查询与保存知识。以下，是基本原理，供初学者阅读参考。[/h1]
本实例的功能是，让窗体的文本框自动显示被选中行中的单元格值。新增窗体的对象表达与当前行代码的学习，是需要初学者掌握的。
一、数据查询
Sub文本查询()
'对象，声明一个工作对象
Dim sh As Worksheet
Set sh=Worksheets("制度")
'变量，声明一个整数型变量
Dim r As Integer
r=ActiveCell.Row’当前单元格的行号
Rows(r).Select’当前行被选中
'对象，声明一个窗体
Dim US As UserForm1
Set US=UserForm1
’给窗体中的文本框取数
US.TextBox1=sh.Cells(r,1)
US.TextBox2=sh.Cells(r,11)
US.TextBox7=sh.Cells(r,12)
End Sub
本实例的功能是，让窗体的文本框成为数据录入的窗口，让文本框中的内容保存到指定的电子表格中。
二、数据保存
Sub保存()
'对象
Dim sh As Worksheet
Set sh=Worksheets("制度")
'变量
Dim r As Integer
r=ActiveCell.Row
'对象
Dim US As UserForm1
Set US=UserForm1
sh.Cells(r,1)=US.TextBox1
sh.Cells(r,11)=US.TextBox2
sh.Cells(r,12)=US.TextBox7
Ｅnd sub
三、代码简化
以后，如果觉得类似于下列的语句有点烦，我们还要使用ＷＩＴＨ语句进行简化
原代码如下；每个单元格前都有SH，即制度的工作表。
sh.Cells(r,1)=US.TextBox1
sh.Cells(r,11)=US.TextBox2
sh.Cells(r,12)=US.TextBox7
简化后的代码，
WITHSH
.Cells(r,1)=US.TextBox1
.Cells(r,11)=US.TextBox2
.Cells(r,12)=US.TextBox7
ENDWITH
当然，你也可以将US用WITH语句替换掉。
财务建模：自动获取上市公司报表数据的报表分析工具（教学模型）
|
|
转播
