VBA中这2句话是什么意思啊。。

48是vbExclamation常数值,意思是警告消息(图标是感叹号的提示窗口)的意思,后面我会列出所有Msgbox常数及值和描述

可以换成这样写

MsgBox "朋友姓名不能为空啊", vbExclamation, "提示"

TextBox1SetFocus表示获得输入焦点,这时要是在键盘上输入字符就会在这个TextBox1文本框上。但应用在这里表示，是告诉 *** 作者哪个文框框要求输入的意思，比如，在有很多文本框要求输入时，可以忘了哪个没有输入，用文本框的SetFocus获取焦点的方法可以让 *** 作者一眼就可以看到问题所在。

MsgBox 参数

常数 值 描述

vbOKOnly 0 只有 OK 按钮（缺省值）

vbOKCancel 1 OK 和 Cancel 按钮

vbAbortRetryIgnore 2 Abort、Retry，和 Ignore 按钮

vbYesNoCancel 3 Yes、No，和 Cancel 按钮

vbYesNo 4 Yes 和 No 按钮

vbRetryCancel 5 Retry 和 Cancel 按钮

vbCritical 16 关键消息

vbQuestion 32 警告询问

vbExclamation 48 警告消息

vbInformation 64 通知消息

vbDefaultButton1 0 第一个按钮是缺省的（缺省值）

vbDefaultButton2 256 第二个按钮是缺省的

vbDefaultButton3 512 第三个按钮是缺省的

vbDefaultButton4 768 第四个按钮是缺省的

vbApplicationModal 0 应用程序形态的消息框（缺省值）

vbSystemModal 4096 系统强制返回的消息框

vbMsgBoxHelpButton 16384 添加Help按钮到消息框

VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口

vbMsgBoxRight 524288 文本是右对齐的

vbMsgBoxRtlReading 1048576 指定在希伯来语和阿拉伯语系统中，文本应当显示为从右到左读

在模块中定义2个全局变量iRow,iCol

然后在thisworkbook中的Workbook_Open()事件中，取得工作薄一开始时的初始单元格行号和列号，作为初始行号和列号：

Private Sub Workbook_Open()

iRow = ActiveCellRow

iCol = ActiveCellColumn

End Sub

再然后在sheet1的Worksheet_SelectionChange(ByVal Target As Range)事件中，加下如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim reRow As Integer, reCol As Integer

reRow = TargetRow

reCol = TargetColumn

TargetValue = "移动前单元格行号是：" & iRow & vbCrLf & "移动前单元格列号是：" & iCol

Cells(iRow, iCol) = ""

iRow = reRow

iCol = reCol

End Sub

哪里的textbox1？

假设是userform1的textbox1

在thisworkbook里添加代码

Private Sub Workbook_Open()

UserForm1Show

End Sub

在userform1里添加代码

Private Sub UserForm_Initialize()

TextBox1SetFocus

End Sub

以上就是关于VBA中这2句话是什么意思啊。。全部的内容，包括:VBA中这2句话是什么意思啊。。、VBA如何获取单元格焦点移动前的单元格的行号和列号、excel打开同时textbox1自动获取焦点，求vba代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！