1、用VBA写一个自定义函数,如函数名写为 to36( )
按键ALT+F11,则打开VBA代码编辑器,
菜单中[插入]—[模块],粘贴以下代码进去。
Function to36(a As Long)
n="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Do
If a < 36 Then n = Mid(n, a + 1, 1) & n: Exit Do
m = a Mod 36
n = Mid(n, m + 1, 1) & n
If a = 36 Then n = 1 & n: Exit Do
a = (a - m) / 36
Loop
End Function
2,在单元格中设置公式,并使用以上的自定义函数,
如在 A1中输入100, B1中设置公式 =to36(A1) , 结果显示为36进制的 2S
没想到花了半天时间解开密码,出来的居然是这些东西。"章旭友非常失望的摇摇头,但是眼睛依然紧盯着荧幕.
在需要输入流水号的单元格中使用公式: =IF(B1<>"",ROW(A1),"") 下拉复制公式。 2、流水号的格式是什么格式?假设为字母加8位数字,选中该列,右击,设置单元格格式,自定义:"A"00000000。
开奖这种东西是完全随机的,这次开过的数字下次完全可能再出现
打倒封建迷信。。
看来无论那些随机的还是有规律的东西,都是有规律可循的。