关于数据转换！

rongjun · 发表于 2004-11-28 18:18

请各位高手帮忙，如何用VBA将表中的数据转换？具体问题在附件中！

X0lkkOR5.rar (5.58 KB, 下载次数: 20)

rongjun · 发表于 2004-11-28 21:09

apolloh兄，你的结果不对啊！另外公式我已经有了，现在我想用VBA做一个！请兄弟再帮忙！

rongjun · 发表于 2004-11-28 21:19

多谢hzg7818 版主出手！问题基本解决，

但还有一种情况未注意，如果计算求和结果个位为0，那么10-0=10，最后一位应该表示为X

apolloh · 发表于 2004-11-28 21:34

以下是引用rongjun在2004-11-28 21:09:00的发言：apolloh兄，你的结果不对啊！另外公式我已经有了，现在我想用VBA做一个！请兄弟再帮忙！

对不起刚才看错题了

Function ISBN10TO13(Str10 As String) As String Dim a As Byte Dim b As Byte Dim i As Byte Dim T As String If InStr(1, Str10, "/") <> 0 Then Str10 = Left(Str10, InStr(1, Str10, "/") - 1) Str10 = "978" & Left(Replace(Str10, "-", ""), 9) For i = 0 To 5 a = a + Mid(Str10, (i + 1) * 2, 1) b = b + Mid(Str10, i * 2 + 1, 1) Next i T = 10-(a * 3 + b) Mod 10 If T = "10" Then T = "X" ISBN10TO13 = Str10 & T End Function

tR1egKBT.rar (7.84 KB, 下载次数: 21)

忘了用10减了，改一下

[此贴子已经被作者于2004-11-28 22:00:07编辑过]

rongjun · 发表于 2004-11-29 13:04

谢谢hzg7818 版主和apolloh兄，先回去研究研究，有问题再来请教各位！非常感谢！

rongjun · 发表于 2004-11-29 21:46

再次感谢两位！

apolloh兄的代码简单易懂！

hzg7818 版主的代码我实在看不懂，版主能不能在代码后帮我加些注解？比如像UBound(strTemp)，我都不知道它返回的是什么数据？请帮忙，谢谢！

rongjun · 发表于 2004-11-30 12:05

顶上去，各位高手们来帮我解释一下代码啊！谢谢！

老鬼 · 发表于 2004-11-30 12:24

UBound(strTemp)是数组的上限，LBound(strTemp)是数组的下限

rongjun · 发表于 2004-11-30 13:14

以下是引用老鬼在2004-11-30 12:24:00的发言： UBound(strTemp)是数组的上限，LBound(strTemp)是数组的下限

这个我知道，如果strTemp是1TO100，UBound(strTemp)会返回100，

还有其他的很多代码都不理解，比如strTemp返回什么等等？请版主解释一下！

清风_ll · 发表于 2004-11-30 13:30

以下是引用rongjun在2004-11-30 13:14:00的发言：

还有其他的很多代码都不理解，比如strTemp返回什么等等？请版主解释一下！

strTemp返回一个数组,

strTemp = Split(strISBN, "-")

就是从参数strISBN中返回一个以“-”分隔的数组

比如如果strISBN=“123-456-789”,则strTemp返回一个数组

strISBN(0)="123"

strISBN(1)="456"

strISBN(2)="789"

LBOUND(strISBN)=0

UBOUND(strISBN)=2

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