[浏览完整版]
标题：数字为文本，并且不能改为数字列，有没有便捷的方法简化这个代码
1楼
hbfnmxb 发表于：2024/5/2 16:31:00数字为文本，并且不能改为数字列，有没有便捷的方法简化这个代码
If e.Col.Name = "学费" Then
If e.Text = "16980" OrElse e.Text = "17000" OrElse e.Text = "17250" OrElse e.Text = "17280" OrElse e.Text = "17500" OrElse e.Text = "17600" OrElse e.Text = "17800" OrElse e.Text = "18000" OrElse e.Text = "18100" OrElse e.Text = "18200" OrElse e.Text = "18500" OrElse e.Text = "18600" OrElse e.Text = "18700" OrElse e.Text = "18800" OrElse e.Text = "18900" OrElse e.Text = "19000" OrElse e.Text = "19200" OrElse e.Text = "19300" OrElse e.Text = "19500" OrElse e.Text = "19800" OrElse e.Text = "20000" OrElse e.Text = "20500" OrElse e.Text = "20800" OrElse e.Text = "20900" OrElse e.Text = "21000" OrElse e.Text = "21500" OrElse e.Text = "21600" OrElse e.Text = "21780" OrElse e.Text = "21800" OrElse e.Text = "22000" OrElse e.Text = "22500" OrElse e.Text = "22800" OrElse e.Text = "23000" OrElse e.Text = "23100" OrElse e.Text = "23250" OrElse e.Text = "23500" OrElse e.Text = "23800" OrElse e.Text = "24000" OrElse e.Text = "24500" OrElse e.Text = "24600" OrElse e.Text = "24700" OrElse e.Text = "24750" OrElse e.Text = "24800" OrElse e.Text = "25000" OrElse e.Text = "25500" OrElse e.Text = "25800" OrElse e.Text = "25900" OrElse e.Text = "26000" OrElse e.Text = "26250" OrElse e.Text = "26400" OrElse e.Text = "26500" OrElse e.Text = "26800" OrElse e.Text = "26840" OrElse e.Text = "27000" OrElse e.Text = "27500" OrElse e.Text = "27700" OrElse e.Text = "27750" OrElse e.Text = "27800" OrElse e.Text = "28000" OrElse e.Text = "28300" OrElse e.Text = "28500" OrElse e.Text = "28600" OrElse e.Text = "28800" OrElse e.Text = "29000" OrElse e.Text = "29280" OrElse e.Text = "29600" OrElse e.Text = "29700" OrElse e.Text = "29800" OrElse e.Text = "30000" OrElse e.Text = "30800" OrElse e.Text = "31000" OrElse e.Text = "31800" OrElse e.Text = "31900" OrElse e.Text = "32000" OrElse e.Text = "32500" OrElse e.Text = "32800" OrElse e.Text = "33000" OrElse e.Text = "33800" OrElse e.Text = "33900" OrElse e.Text = "34000" OrElse e.Text = "34900" OrElse e.Text = "35000" OrElse e.Text = "35900" OrElse e.Text = "35995" OrElse e.Text = "36000" OrElse e.Text = "36800" OrElse e.Text = "36900" OrElse e.Text = "37000" OrElse e.Text = "38000" OrElse e.Text = "38500" OrElse e.Text = "38800" OrElse e.Text = "39000" OrElse e.Text = "39800" OrElse e.Text = "39900" OrElse e.Text = "40000" OrElse e.Text = "41000" OrElse e.Text = "41544" OrElse e.Text = "42000" OrElse e.Text = "42500" OrElse e.Text = "43500" OrElse e.Text = "43800" OrElse e.Text = "44500" OrElse e.Text = "45000" OrElse e.Text = "45600" OrElse e.Text = "45800" OrElse e.Text = "45900" OrElse e.Text = "46000" OrElse e.Text = "46600" OrElse e.Text = "48000" OrElse e.Text = "49600" OrElse e.Text = "49800" OrElse e.Text = "50000" OrElse e.Text = "51000" OrElse e.Text = "52000" OrElse e.Text = "54900" OrElse e.Text = "55000" OrElse e.Text = "56000" OrElse e.Text = "57000" OrElse e.Text = "58000" OrElse e.Text = "59800" OrElse e.Text = "60000" OrElse e.Text = "62000" OrElse e.Text = "63000" OrElse e.Text = "65000" OrElse e.Text = "68000" OrElse e.Text = "69000" OrElse e.Text = "70000" OrElse e.Text = "71000" OrElse e.Text = "72000" OrElse e.Text = "73000" OrElse e.Text = "75000" OrElse e.Text = "76000" OrElse e.Text = "78000" OrElse e.Text = "79800" OrElse e.Text = "80000" OrElse e.Text = "85000" OrElse e.Text = "88000" OrElse e.Text = "90000" OrElse e.Text = "95000" OrElse e.Text = "98000" OrElse e.Text = "100000" OrElse e.Text = "108000" OrElse e.Text = "1600000" Then
e.Style = "小于零值"
End If
End If
谢谢老师！
[此贴子已经被作者于2024/5/2 16:31:35编辑过]
2楼
hbfnmxb 发表于：2024/5/3 16:40:00老师，有没有办法？
3楼
hbfnmxb 发表于：2024/5/5 13:28:00老师不在，要沉下去了
4楼
linyunu 发表于：2024/5/5 13:44:00If e.Col.Name = "学费" Then
Select Case e.Text
Case 16980,17000,17250,17280 ...
e.Style = "小于零值"
End Select
End If
5楼
hbfnmxb 发表于：2024/5/5 16:55:00填写需要的数值？
6楼
有点蓝 发表于：2024/5/5 21:17:00这个代码想要做什么？
必须要判断具体的值？If e.Text = "16980"就可以，If e.Text = "16981"就不行？这些值有没有什么规律？
7楼
hbfnmxb 发表于：2024/5/6 7:59:00不是数值，是文本，学费，没规律；有的一万多，有的两万多，有的10万多不等。我也想尝试变成数值列，但这个学费中还有“免费”与“待定”。因此无法转为数值列。麻烦老师。感谢感谢！
8楼
y2287958 发表于：2024/5/6 8:13:00把这些数值写到一个单元格中，然后判断即可。可以传个例子上来
9楼
有点蓝 发表于：2024/5/6 8:41:00什么样的数据符合判断要求？怎么样的不符合要求？举例说明一下
10楼
y2287958 发表于：2024/5/6 9:11:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目11.table |