excel vba移位运算
Posted 红尘六欲
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel vba移位运算相关的知识,希望对你有一定的参考价值。
office excel vba移位运算
有时候要调整内存参数,或者计算相关频率,以及通过寄存器计算对应参数的值,可以通过excel表格自动计算,不用每次手动计算,由于比较老版本的office不支持bitand,无符号long类型,当计算数值达到2的31次方时会出错,经过反复测试,编写了相关代码
10进制转16进制字符串
'10进制字符串转带0x开头的16进制
Function Dec2Hex(value)
Dec2Hex = "0x" + Application.WorksheetFunction.Dec2Hex(value)
End Function
左移函数
'输入为10进制和左移位数
'返回10进制字符串
'如果直接乘以2的多少次方,计算2的31次方会报错无法计算
Function decLeftMove(value, bit)
Debug.Print value; bit
decLeftMove = value * Application.WorksheetFunction.Power(2, bit)
Debug.Print decLeftMove
End Function
例子
Function ddrctiming0(tmrd, trrd, trppb, trcd, trc, tras)
ddrctiming0 = Dec2Hex(decLeftMove(tmrd, 28) + decLeftMove(trrd, 24) + decLeftMove(trppb, 19) + decLeftMove(trcd, 14) + decLeftMove(trc, 8) + decLeftMove(tras, 0))
End Function
右移函数
当16进制long类型最高位为1时,普通计算方式会出错,先转换成二进制字符串,然后进行移位处理,最后转换为10进制
'返回2进制字符串
Function Hex2Bin(value)
value = Format(value, "00000000")
Debug.Print value
For i = 1 To 8
tmp = Application.WorksheetFunction.Hex2Bin(Mid(value, i, 1))
outStr = outStr + Format(tmp, "0000")
Next
'Debug.Print outStr
Hex2Bin = outStr
End Function
'返回10进制字符串
Function Bin2Dec(value)
strLen = Len(value)
Debug.Print "strLen:"; strLen
tmp = 0
For i = strLen - 1 To 0 Step -1
tmp = tmp + Mid(value, strLen - i, 1) * (2 ^ i)
Next
Bin2Dec = tmp
End Function
'bitstart 开始位0-31
'bitmask为需要多少位001为3位
Function hexRightMove(value, bitstart, bitmask)
Debug.Print value; bitstart
tmp = Right(value, Len(value) - 2) '去掉0x头
Debug.Print "0x:"; tmp
tmp = Hex2Bin(tmp)
Debug.Print "tmp:"; tmp
tmp = Right(tmp, bitstart + bitmask)
Debug.Print "right:"; tmp
tmp = Left(tmp, bitmask)
Debug.Print "left:"; tmp
tmp = Bin2Dec(tmp)
Debug.Print "dec:"; tmp
hexRightMove = tmp
End Function
例子
Function dmctmrd(timing0)
dmctmrd = hexRightMove(timing0, 28, 4)
End Function
===================================
作者:hclydao
http://blog.csdn.net/hclydao
版权没有,但是转载请保留此段声明
======================================
以上是关于excel vba移位运算的主要内容,如果未能解决你的问题,请参考以下文章