【分享成果，随喜正能量】很多时候，不是优秀才自律，而是自律了，才会变得优秀；那些看起来被命运眷顾的人，大多数都有不为人知的付出和艰辛；成功的路上并不拥挤，无论你是大步流星，还是步步为营，只要用自律和坚持去浇灌，终会守得花开不败的一天。
《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件（ActiveX Controls）”的第2节：文本框（Text Box）的应用之一
第二节 文本框（Text Box）的应用之一
大家好，我们开始学习文本框控件，文本框是一个空白字段，用户可以在其中填充一段文本。这个控件在VBA学习中是非常重要的，我们要掌握这个控件的使用方法，并在自己的工程中多加利用。
1 在工作表中创建文本框
1）在工具栏中点击“开发工具”，“插入”，在弹出的表单中选择文本框控件：
2）在工作表上拖动就会添加文本框，如下界面。
3）退出“设计模式”
这个时候文本框就可以利用了，我们可以在其中编辑文本，也可以作为输入和输出的工具。
2 自定义文本框的格式
根据上节介绍的方法，来自定义我们需要的文本框的格式。需要注意的是在设置自定义格式的时候一定要在“设计模式”下进行：
1）右键点击属性，做下面的字体设置：
点击“Font”属性后的三个点，展开后选择字体和字形和大小，我们选择36号字。
2）同理再次点击属性，选择ForeColor属性，选择“突出显示”，这时在文本框中的数字就是我们最后得到的大小和颜色显示了。
建立文本框是为了应用，我们在下面的代码中将利用代码来控制显示值。
3 让文本框显示当前单元格的值
我们看下面的代码，代码的作用是让文本框显示当前单元格的值：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
TextBox1.Text = Target.Value
End If
End Sub
代码截图：
代码解读：
上述代码非常简单，就是在选择单元格时，让文本框中显示单元格的值，但在之前要增加一个判断，就是选择的是一个单元格。如果是多个单元格不执行上述操作。
下面我们看代码的执行效果：
今日内容回向：
1） 如何自定义文本框控件？
2） 如何让文本框显示当前工作表单元格的值？
本讲内容参考程序文件：工作簿15.xlsm
分享成果，随喜正能量