word子程序或函数未定义 子程序或函数未定义为什么

子程序是指你程序里面调用的程序，来看一下你的程序，Command1_Click() 里面哪里是子程序或者函数，可以发现你调用了一个VB的内置函数MSG,你想用这个函数来输出提示信息，不错。但是，想法很好，函数却用错了，你看一下MSDn会发现根本没有MSG()，近似的有MSGBOX()，这个函数正是输出内容的函数。调用之:

msgbox ("注意,你的1号框里没有任何内空请加入.")

这样没有内容输入的时候，这个提示“注意,你的1号框里没有任何内空请加入.”的对话框旧出来了，学一个函数一定要搞清出他的来历，用法

打开word时，提示“ 子过程或函数未定义”如何解决，急急急！

A.故障分析：一般这种情况是跟宏里面的VBA编辑器有关系，或者是用户版本几用户安装了新的工具箱所导致工具宏无法运行，出现出现“子过程或函数未定义”的故障。

B.解决方法：

一、如果制作了worddot模板的话，应该是dot模板被修改了，找到normal.dot文件删除掉应该就可以了。或者尝试进入【C:UsersSolomanAppDataRoamingMicrosoftWordSTARTUP】这个文件夹中，删掉里边的文件即可。再来重新运行word应用程序查看是否有异常。

二、如果在出现这种情况是由于你从前安装的工具箱某种原因被修改，导致工具(宏)无法运行，而产生这个提示。这种情况建议你删除工具箱，或者重新安装office版本。

三、因为word2007版本跟word2003版本程序有很大的不同，所以可能你运行了word2007会出现宏提示：“子过程或函数未定义”窗口的现象。所以我们可以尝试下载一个office2003或者word2003应用程序使用。下载运行程序对其进行“工具”----宏--安全性”如图所示：

四、当然牵扯到如果你熟悉vba编辑器的话，选“工具”----宏----Visual Basic编辑器，删除里面的宏程序，估计会解决。具体操作还要看实际情况。

微软的OFFICE是最为流行的办公软件，主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公处理软件的代表产品，可以作为办公和管理的平台，以提高使用者的工作效率和决策能力。Office 2000中文版有4种不同的版本：标准版、中小企业版、中文专业版和企业版。

在Office 2000中各个组件仍有着比较明确的分工：一般说来，Word主要用来进行文本的输入、编辑、排版、打印等工作；Excel主要用来进行有繁重计算任务的预算、财务、数据汇总等工作；PowerPoint主要用来制作演示文稿和幻灯片及投影片等；Access是一个桌面数据库系统及数据库应用程序；Outlook是一个桌面信息管理的应用程序；FrontPage主要用来制作和发布因特网的Web页面。

Microsoft Office XP是微软有史以来所发行的Office版本中最重要的版本，而且也被认为是迄今为止功能最强大、最易于使用的Office产品。新版Office放弃了以往以产品发布年命名的惯例！产品名称中的XP，是英文Experience（体验）的缩写，代表着新版Office在包容覆盖广泛设备的Web服务之后，将给用户带来丰富的、充分扩展的全新体验。

除核心的 Office XP 程序 — Microsoft Word、Excel、Outlook和 PowerPoint— 外，Office XP 专业版 中包含 Microsoft Access 2002，它是 Office XP 数据库解决方案，可帮助用户存储、访问和分析数据。

为什么提示子程序或函数未定义

Option Explicit

Private Sub Form_Click()

Dim X As Single, X_Input As String

Dim result As Single

Do

X_Input = InputBox("请输入一个X值")

If X_Input = "#" Then End

If Not IsNumeric(X_Input) Then

MsgBox "请重新输入!", 48 + vbOKOnly

Else

Exit Do

End If

Loop

X = Val(X_Input)

Sub1 X, result'调用过程，原来你的 y(x) 既不是函数也不是过程，测试一下对不对

Print result

End Sub

Private Sub Sub1(X As Single, Y As Single)

If X >= 1 Then

Y = 3 * X + 6

ElseIf -1 <= X < 1 Then

Y = 2

Else

Y = -5 * X - 3

End If

End Sub

子程序或函数未定义

光这些代码，4个地方需要在其他函数中预先定义或初始化

1、tm=tm+1 ，当然tm不初始化也没问题，默认初始值为0

2、N=A(J) ，这里A()没有初始化会报错

3、LoadPicture(T2(N)) ，这里T2()没有初始化也会报错

4、Label1=L1(A(A1)) ，这里L1()没有初始化也会报错

子程序或函数未定义

OpenPlay‘问题在这

你自己看清楚这些字母...

再看下你贴出来的第一行这里几个字母顺序Openpaly()

子程序或函数未定义

Option Base 1

Private Function FindMax(a() As Integer)

Dim Start As Integer

Dim Finish As Integer, i As Integer

Start = LBound(a)

Finish = UBound(a)

Max = a(Start)

For i = Start To Finish

If a(i) > Max Then Max = a(i)

Next i

FindMax = Max

End Function

Private Sub Command1_Click()

Dim arr1

Dim arr2(4) As Integer

arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

For i = 1 To 4

arr2(i) = CInt(arr1(i)) 'arr--->arr1

Next i

M = FindMax(arr2)

Print "最大值是: "; M

End Sub

for i 循环内 变量名写错了。

子程序或函数未定义问题

lblbomb.Caption = lblbomb.Caption + Chr(97 + Int(26 * Rnd))

写成Rnd()行吗?

提示子程序或函数未定义

你是用Picture控件,那控件名字叫什么?用了8个了吗？如果是一个的时候，一般是直接Picture1.Picture来引用，你现在在它后面直接加变量，有Picture1(1).Picture……Picture1(8).Picture，这样函数？检查

转载请注明出处51数据库 » word子程序或函数未定义 子程序或函数未定义为什么