[求助]在VBA里有16进制转10进制的函数吗

alton · 发表于 2006-2-20 10:50

新手提问：在VBA里有16进制转10进制的函数吗

[此贴子已经被作者于2006-2-20 10:51:26编辑过]

plxmm · 发表于 2006-2-20 11:20

DEC2HEX 函数。先加载分析工具库加载宏方可使用。

alton · 发表于 2006-2-20 11:23

这个只能在EXCEL里面用，在VBA里好像没有这个函数。

plxmm · 发表于 2006-2-20 11:24

以下是引用[I]alton[/I]在2006-2-20 11:23:06的发言：[BR]这个只能在EXCEL里面用，在VBA里好像没有这个函数。

这个问题可是比尔.盖茨的事情了。

alton · 发表于 2006-2-20 11:27

VBA里有HEX、OCT函数，没有DEC函数

lotustower · 发表于 2006-2-20 11:34

Ref:

http://cat14051.mysinablog.com/index.php?op=ViewArticle&articleId=48876

alton · 发表于 2006-2-20 11:40

好复杂

彭希仁 · 发表于 2006-2-20 11:46

你可以自定义一个函数解决这个问题。

会吧？

如12ab =11+10*16+2*16*16+1*16*16*16

[此贴子已经被作者于2006-2-20 11:52:49编辑过]

alton · 发表于 2006-2-20 11:48

不会[em04][em04][em04]

彭希仁 · 发表于 2006-2-20 11:54

Left 函数示例本示例使用 Left 函数来得到某字符串最左边的几个字符。 Dim AnyString, MyStr AnyString = "Hello World" ' 定义字符串。 MyStr = Left(AnyString, 1) ' 返回 "H"。 MyStr = Left(AnyString, 7) ' 返回 "Hello W"。 MyStr = Left(AnyString, 20) ' 返回 "Hello World"。 Dim MyString MyString = "The dog jumps" ' 设置字符串初值。 Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps"。 Mid(MyString, 5) = "cow" ' MyString = "The cow jumps"。 Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe"。 Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe"。

[此贴子已经被作者于2006-2-20 11:58:41编辑过]

		自动登录	找回密码
密码			免费注册