[求助]敬请指教!请进

kydgcl

各位前辈.你们好.我是一个初学者.能找到这么一个好的论坛真是幸运!

近段想做一份电子表格.里面要用到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编辑过]

情比金坚

既然无法理解select case 用if……then……不也一样吗？

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

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

kydgcl

恳请版主按我所列.换用其它代码或格式帮我列出一份吧.谢谢了.初学都从无知开始~~~

老鬼

CASE 0 TO 24

CASE 25 TO 50