|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
该网站是一个不错的网站,相信大家都是本着学习的态度进来的,相互帮助,相互学习,求得提高。但不可否认有个别人,别有用心,发信息有偿服务,妄图谋利。以下是经过:
几天前,我发了一个求助帖:
sub 物品分类 ()
Dim i As Integer, bz As String
For i = 2 To 16
' Select Case Cells(i, 2)
' Case Is = "氢氧化钠" or “盐酸” or “硫酸”
' bz = "强腐蚀物品"
' Case Is = "甲苯" or “乙醇”
' bz = "易燃易爆"
' Case Else
' bz = "一般物品"
' End Select
' Cells(i, 8).Value = bz
' Next
end sub
红字部分不对,这样写
Case Is = "氢氧化钠" or case is “盐酸” or case is “硫酸”
bz = "强腐蚀物品"
也不对,到底应该怎么写啊?
其实,这不是一个很难的问题,只不过对我这样的初学者来说是个麻烦。热心的网友很快给出了解决办法,但是有个叫francisco37的,发了私信给我,说给钱再帮忙解决问题。请大家鄙视该人!以下是截图:
|
|