作者:乔山办公网日期:
返回目录:excel表格制作
转换成ASCII就可以知判断道了
Dim iA As Integer
iA = Asc(Range("a1").Value)
If (iA >= 65 And iA <= 90) Or (iA >= 97 And iA <= 122) Then
MsgBox "是英文字符版"
Else
MsgBox "不是权英文字符"
End If
用for 循环和zd mid函数结合,判断它的ascii码是不是 97至97+25或者,65至65+25
function check(a)
check =false
for i=1 to len(a)
t=asc(mid(a,i,1))
if (t>=97 and t<=122) or (t>=65 and t<=90) then check=true
next i
end function
写在excel 的模块里内;
然后excel 可以用check 判断是否容有字母了
如下图,zdB2中输内入公式容
=SUMPRODUCT((CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>64)*(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))<91))
下拉填充
你这个难度确实太高了,zd不自定义函数真没办法,下面出两个馊主意:
一、替换所有字母回以后,看是否为空,比如判断A1的公式为:
=""=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
UPPER(A1),"A",""),"B",""),"C",""),"D",""),"E","")
......
二、替换所有特殊字符以后,看是否和原来答相同,比如判断A1的公式为:
=A1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
UPPER(A1),"0",""),"1",""),"2",""),"3",""),"4","")
......