光明**pvp什么装备好 pvp套装推荐

舞文 舞文
回答
  • 鐘意 鐘意

    sub 十六进制转换十进制()
    on error resume next
    dim i as integer
    for i=1 to[a65535].end(3).row()
    cells(i,1)=application.worksheetfunction.hex2dec(cells(i,1))
    next
    end sub
    刚学vba。不怎么会。对于像0x0这种不是十六进制的没进行处理(不会加个判断是否为16进制,见怪~!只是把16进制的转换成了10进制。代码放在模块。sub 十六进制转换十进制()
    on error resume next
    dim i as integer
    for i=1 to[a65535].end(3).row()
    if len(cells(i,1))<>0 and not(cells(i,1)like"*!0-9a-fa-f]*")then
    cells(i,1)=application.worksheetfunction.hex2dec(cells(i,1))
    else
    cells(i,1).clear
    end if
    next
    end sub
    现在加入了判断,不是16进制的做清空相应单元格处理。

类似问答
精品推荐

友情链接

友链互换QQ:

谷财 备案编号:蜀ICP备11019336号-3商务合作:235-677-2621

Copyright 2009-2020 Chengdu Sanzilewan Technology Co.,Ltd all rights reserve

抵制不良游戏 拒绝盗版游戏 注意自我保护 谨防受骗上当 适度游戏益脑 沉迷游戏伤身 合理安排时间 享受健康生活