Office中国论坛/Access中国论坛

标题: [求助]敬请指教!请进 [打印本页]

作者: kydgcl 时间: 2006-8-17 04:49
标题: [求助]敬请指教!请进
各位前辈.你们好.我是一个初学者.能找到这么一个好的论坛真是幸运!

近段想做一份电子表格.里面要用到VB代码.输入如下:

'高中低
Function 高中低(数字)
Select Case 数字
Case >50
高中低 ="1"
Case >25
高中低 ="2"
Case <24
高中低 ="3"

Case ""
高中低 = ""

Case Else
高中低 = "#找不到#"

End Select
End Function

目的是这样的. <24的数字"低"来表示.

                         >25的数字"中"来表示.

                        >50的数字"高"来表示.

输入模块里面后.在单元格里面显示的是乱码.敬请各高手前辈帮忙看一下.这写入模块的语法错在那里.并帮忙修正!在此说谢谢了!!!谢谢.

Case Is > 25---------大于25的数字?  那么51以上也是大于25的数字?

Case Is > 50--------------这里也是大于50以上??是否与> 25这里混合了?

烦请各位先生指导.只要(1)=51到400 ( 2)=25到50. (3)=0到24

苦思不得其法!!在线等待各高手指导!谢谢了!

[此贴子已经被作者于2006-8-17 7:38:55编辑过]

作者: 情比金坚 时间: 2006-8-17 08:15
既然无法理解select case 用if……then……不也一样吗？

select case 只能顺序判断，到else才做其它判断

[此贴子已经被作者于2006-8-17 0:16:06编辑过]

作者: kydgcl 时间: 2006-8-17 14:08
恳请版主按我所列.换用其它代码或格式帮我列出一份吧.谢谢了.初学都从无知开始~~~

作者: 老鬼 时间: 2006-8-17 18:33
CASE 0 TO 24

CASE 25 TO 50

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)