作者:乔山办公网日期:
返回目录:excel表格制作
可以考虑用自定义百函数
按ALT+F11进入VBA编辑界面度,插入模块
写自定义问函数代码
若十二答进制数用0,1,2,3,4,5,6,7,8,9,A,B表示版,
则函数格式格式
Function xl换十二进制(ByVal x As Long) As String
Dim s(11)
Dim ss As String, i, k As Integer
For i = 0 To 9
s(i) = i
Next i
s(10) = "A"
s(11) = "B"
ss = ""
Do While x > 0
k = x Mod 12
ss = s(k) & ss
x = Int(x / 12)
Loop
xl换十二进制 = ss
End Function
然后在权excel中就可以正常使用,如
16进制HEX,2进制BIN,8进制OCT,10进制DEC,需要转换的时候输入函数转换,进制之间加2:如将A1单元格16进制转8进制”=HEX2OCT(A1)“
择你百想保密的工作表为当前工作表 工具下的保护 保护工作表(如果你想让整个文件里面的所有工作表都保密就选择度保护工作簿) 输入密码 (到时你自己用的时候要取消保护时用的) 然后把下面的选项(有两个是默认打勾的) 全部不勾版选 确定 再写一遍 确定 然后 最重要的一点 一定要保存一下 这样你再打开权的时候才能生效 这次你自己再打开一次试试 一定连选择单元格都不能了
下面以16进制转换成10进制说明一下详细的步知骤,其他进制的转换和这个一样的,只不过函数变化一下而已,
如下图所示,想把道B2中的16进制数转化成10进制数放到C2中
在C2中输入“=HEX2DEC(B2)”,注意是引号里面的内,引号不要输入,输完后按回车键即可
还有其他进制的转换,如八进制转容换16进制OCT2HEX
10进制转2进制的公式:=DEC2BIN()
10进制转8进制的公式:=DEC2OCT()
10进制转16进制的公式:=DEC2HEX()
2进制转8进制的公式:=BIN2OCT()