在VBA中如何使用CODE（）函数

mxf21cn

Code函数

为什么不能用在VBA里？

Sub 号码生成()
C1 = Left$(Cells(1, 2))
C2 = MidB$(Cells(1, 2), 3, 2)
D1 = CODE(C1)
D2 = CODE(C2)
E1 = Weekday(D1)
E1 = Weekday(D2)
F2= MOD( TEXT(D1,0),4)
Cells(4, 2) = f1 & E2
End Sub
提示参数不可选(这里的C1、C2等是变量，为了便于和表中的单元格C1、C2 作比较)

oOhjMvvI.rar (7.81 KB, 下载次数: 6)

2008-8-3 19:49 上传

点击文件名下载附件
Left（），MidB（），Weekday（），MOD（）函数如何在VBA中实现

[此贴子已经被作者于2008-8-3 21:49:19编辑过]

yuanzhuping

QUOTE:

以下是引用mxf21cn在2008-8-3 19:49:59的发言：

Left（），MidB（），Weekday（），MOD（）

他们为什么不能用在VBA里？

Sub 号码生成()
C1 = Left(Cells(1, 2))
C2 = MidB(Cells(1, 2), 3, 2)
D1 = CODE(C1)
D2 = CODE(C2)
E1 = Weekday(D1)
E1 = Weekday(D2)
F2= MOD( TEXT(D1,0),4)
Cells(4, 2) = f1 & E2
End Sub
提示参数不可选

C1单元格在VBA中要这样：Cells(1, 3)或者Range("C1")

提示参数不可选是因为Left函数没有指定返回数量的字符，也就是length参数没有指定。

mxf21cn

这里使用的C1是为了好比较数值，这里主要的问题是code 函数在VBA中没有，left 可以用left$来替换，但CODE函数不知该怎么来实现

ifhwfu

谁说没有？是使用  asc 函数。

Sub test1()
    MsgBox Asc("A")
End Sub

ifhwfu

工作表函数  char(数字)   显示某一个字符

工作表函数  code(字符)   显示某一个字符的 ASCII 码

在 VBA 中，用  chr 代替  char

用 asc 代替  code

mxf21cn

QUOTE:

以下是引用ifhwfu在2008-8-3 23:20:35的发言：

工作表函数  char(数字)   显示某一个字符

工作表函数  code(字符)   显示某一个字符的 ASCII 码

在 VBA 中，用  chr 代替  char

用 asc 代替  code

用ASC代替code 得到的代码并不相同，用ASC得到的ASCII码 好像和CODE的编码不同，

如ASC（“张”）=－ 10811   （负数）    ，CODE（“张”）=54725（正数）　

不等，但５４７２５－６５５３６＝－１０８１１

但ASC（“Ａ”）= ６５　　    ，CODE（“Ａ”）=６５　　　相等

这样算出来的号码就会不同

mxf21cn

如果能找到ＡＳＣ与ＣＯＤＥ所取得的代码的数字关系，我觉得就可以用ＡＳＣ来代替ＣＯＤＥ了

1249994139

ifhwfu 发表于 2008-8-3 23:20
工作表函数  char(数字)   显示某一个字符工作表函数  code(字符)   显示某 ...

又学到了，谢谢分享

jiminyanyan

1249994139 发表于 2019-3-29 18:49
又学到了，谢谢分享

这么老的帖子给你翻出来了。。。

lan8930

学习了，非常感谢