checkerboard数值写入
前言
上一篇完成checkerboard的整体框架的搭建,本次实现makeLCD点击后,将对应输入框的值复制进入sheet1中。
一、需要更改的位置
右键点击属性
将对应page,bottton,以及TextBox的名称全更改成对应的英文名字,便于后续编程
二、具体代码
1.Workbook
代码如下(示例):
'打开工作簿时,打开控件
Private Sub Workbook_Open()
UserForm1.Show
End Sub
2.make LCD点击后将数据保存至对应的单元格
代码如下(示例):
Private Sub Make_LCD_Click()
Sheets("Sheet1").Range(Cells(1, 1), Cells(1, 1)) = Base_Name.Value
Sheets("Sheet1").Range(Cells(2, 1), Cells(2, 1)) = Substrate.Value
Sheets("Sheet1").Range(Cells(3, 1), Cells(3, 1)) = Substrate_height.Value
Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 1)) = Magnification.Value
Sheets("Sheet1").Range(Cells(5, 1), Cells(5, 1)) = On_Retardance.Value
Sheets("Sheet1").Range(Cells(6, 1), Cells(6, 1)) = Off_Retardance.Value
End Sub
输出
点击运行,程序运行,并点击 Make LCD后,单元格出现对应的字符和数值
下一小节,讲解checkerboard的原理和分解。