问一个宏里的传递参数的问题

wy23456283

定义一个宏比如

sub msg(I)'i是传递参数

if i=1then

msgbox "yes!"

else

msgbox "no!"

end if

end sub

在宏里是不支持的，有没别的办法代替？

守柔

试试用FUNCTION END FUNCTION过程。

可以在本论坛中搜索该示例。

wy23456283

FUNCTION不行，我是在窗体域中，调用某个宏，需要给这个宏传递个参数，

这样讲太抽象，比如在文字框，光标易出时传递参数为1，如果是别的类型的窗体

域光标移出，这传递参数为2。就这样的意思。function不是宏过程，调用不了的。

守柔

请先按要求测试一下，再说。 '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-1 14:12:30 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Option Explicit '本示例要求,所有文字型窗体域的默认书签名不改变 '文档处于保护窗体状态,或者保护文档/窗体/节 '所有的文字型窗体域在退出时要求运行Example宏. Sub Example() Select Case BKValue Case 1 MsgBox "您刚从文字型窗体域中退出!" Case 2 MsgBox "您刚从复选框型窗体域中退出!" Case 3 MsgBox "您刚从下拉型窗体域中退出!" End Select End Sub '---------------------- Function BKValue() As Byte Dim Bk As String On Error GoTo ErrHandle Bk = Selection.Bookmarks(1).Name If Bk Like "Text*" Then BKValue = 1 If Bk Like "Check*" Then BKValue = 2 If Bk Like "Dropdown*" Then BKValue = 3 Exit Function ErrHandle: Exit Function End Function '----------------------

[此贴子已经被作者于2005-6-5 8:04:37编辑过]

守柔

另参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-5 08:03:54 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example(Bkvalue As String) Select Case Bkvalue Case "T" MsgBox "您刚从文字型窗体域中退出!" Case "C" MsgBox "您刚从复选框型窗体域中退出!" Case "D" MsgBox "您刚从下拉型窗体域中退出!" End Select End Sub '---------------------- Sub SelectionExit() Dim FormFieldName As String FormFieldName = VBA.Left(Selection.Bookmarks(1).Name, 1) Example (FormFieldName) End Sub '----------------------