这种判断,其代码怎么写呢?

janeyb

我的窗体中有三个文本控件,即textbox1,textbox2,textbox3,其值假设为A,B,C

它们的值返回到单元格cells(2,3)中组成A X B X C,

现在要根据B的值进行判断

如果B>40,则执行方案一,如果B<=40,则执行方案二

我就是不知,该如何对B值进行判断,毕竟它的来源是窗体textbox2,我应该把代码放在窗体里好呢还是放在表格中呢?

该怎么考虑怎么编写好呢?

守柔

简单地做了一个FUNCTION过程的示例,供参考

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-10-10 6:18:05 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00051^The Code CopyIn [用户窗体-UserForm1]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Private Sub CommandButton1_Click() If Me.TextBox1 = "" Or Me.TextBox1 = "" Or Me.TextBox3 = "" Then MsgBox "您必须在文本框中录入数据!", vbExclamation Me.TextBox1.SetFocus Exit Sub End If MsgBox "TEXTBOX2中的数据" & myFunction(CLng(Me.TextBox2)) Unload Me End Sub '---------------------- Function myFunction(myDate As Long) As String If myDate <= 40 Then myFunction = "小于40" Else myFunction = "大于40" End If End Function '----------------------

如果不用FUNCTION,也可以指定过程,定义一个模块级变量,以传递值.但楼主的示例中,Me.TextBox2是全局变量,可以直接引用.

janeyb

喔,你是在窗体的代码中来进行判断,如果是在表格的代码中,可能要达到这种要求,就有些困难,是吗?

守柔

以下是引用janeyb在2005-10-10 6:45:11的发言： 喔,你是在窗体的代码中来进行判断,如果是在表格的代码中,可能要达到这种要求,就有些困难,是吗?

我说过困难吗？你的问题在于你根本对程序的思路都没清楚，能编好程序吗？

什么叫表格的代码？“它们的值返回到单元格cells(2,3)中组成A X B X C”，如果不看你先前的问题，还以为你要返回到EXCEL单元格中呢？对不对？EXCEL中的单元格对象使用CELLS(ROWINDEX,COLUMNINDEX),而在WORD中,使用CELL(ROWINDEX,COLUMNINDEX).

这是一个非常简单的问题,却因为你根本没有表达清楚而造成的,其实很简单,你发一个附件,把目的要求写清楚就可以了,然后,体会一下是如何做的就行了.

正如所有的教程一样,不是所有看过了就能掌握的,需要理解,需要实践,在实践中理解与体会.

janeyb

守柔版主说的是,我下次会注意这个问题,对于我不懂的地方,还请你多多帮助和指点.