精华内容
下载资源
问答
  • Excel中通过VBA将十六进制转十进制
  • VBA 16进制转2进制

    千次阅读 2016-01-14 21:57:47
     '16进制转2进制方法Hex2Bin  str = Application.WorksheetFunction.Hex2Bin(Mid(value, iloop, 1))    '字符串左补0操作 0->0000  outStr = outStr + Format(str, "0000")   Next For iloop...
    Private Sub CommandButton1_Click()
    


    Dim value As String
    Dim arow As Integer
    Dim aline As Integer


    value = Application.ActiveSheet.TextBox1
    aline = Application.ActiveSheet.TextBox2


    Dim str As String
    Dim outStr As String


    For iloop = 1 To 8


        '使用excel函数时候必须WorksheetFunction
        '16进制转2进制方法Hex2Bin
       str = Application.WorksheetFunction.Hex2Bin(Mid(value, iloop, 1))
       
       '字符串左补0操作 0->0000
       outStr = outStr + Format(str, "0000")
       
    Next

    For iloop = 2 To 33

    ActiveSheet.Cells(aline, iloop).value = Mid(outStr, iloop - 1, 1)

    Next

    End Sub


    展开全文
  • VBA实现单精度浮点数与十六进制字符串相互转换,并提供2个相互转换的示例 第一个按钮: "A1录入十六进制8位字符串; B1输出单精度浮点数结果" 第个按钮 "将B1作为单精度浮点数输入 C1输出16进制结果
  • VB代码十进制小数转二进制? 一个十进制转二进制的函数 Public Function D2B(D As Integer) As String D2B = "" Do While D > 0 D2B = D Mod 2 & D2B D = D \ 2 Loop End Function Private Sub Form_Load...
    VB代码十进制小数转二进制?
    

    一个十进制转二进制的函数
    Public Function D2B(D As Integer) As String
        D2B = ""
        Do While D > 0
            D2B = D Mod 2 & D2B
            D = D \ 2
        Loop
    End Function
    
    
    Private Sub Form_Load()
        Me.Caption = D2B(8)
    End Sub
    
    另外的办法:
    
    Function dToTwo(n As Integer) As String
    Dim S As String
    S = ""
    Do While n <> 0 
        a = n Mod 2 
        n = n \ 2 
        S = Chr(48 + a) & S
    Loop
    dToTwo= S
    End Function




    表格中的vba自动打印?


    一个表格中我可以做到通过变换序号改变打印区域的内容,然后想通过控件自动打印,就是我在上面输入我要打印的内容的起始序号和终止序号,然后点击按钮就会自动打印。主要是后面的打印的命令实在不会,求回答?


    回答:
    录制个打印的宏,稍微改造一下即可,把序号作为循环
    比如如下代码
    sub aa()
    dim i
    for i=10 to 20 '序号
    '改变序号的代码写到这个位置
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    next
    end sub


    展开全文
  • 利用Hex函数可以将十进制数转换为十六进制数,工作表函数HEX2DEC可以将十六进制数转换为十进制数。 十进制数字 十六进制转换 十进制转换 52667 CDBB 52667 75075 12543 75075 39477 ..

    目录

    示例

    实现代码

    VBA的Hex函数

    利用工作表函数进行进制转换

    以文本形式表示数字

    单元格的Prefix属性与Excel的TransitionNavigKeys属性

    其他进制数字在VBA中的表示方法


    示例

        利用Hex函数可以将十进制数转换为十六进制数,工作表函数HEX2DEC可以将十六进制数转换为十进制数。

    十进制数字十六进制转换十进制转换
    52667CDBB52667
    750751254375075
    394779A3539477
    793621360279362
    78305131E178305
    7263311BB972633
    88242158B288242
    61281EF6161281
    15536111553
    3758192CD37581
    998481860899848
    9596257C9596
    870851542D87085
    46067B3F346067
    87461155A587461
    322957E2732295
    9711917B5F97119

     

    实现代码

    Option Explicit
    
    Sub 转换进制()
        Dim RowN As Long
        For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row
            'VBA函数
            Cells(RowN, "B").Value = "'" & CStr(Hex(Cells(RowN, "A").Value))
            '工作表函数
            Cells(RowN, "C").Value = WorksheetFunction.Hex2Dec(Cells(RowN, "B").Value)
        Next
    End Sub
    

    VBA的Hex函数

        VBA的Hex函数可以将十进制数转换为十六进制数,其结果将返回一个代表十六进制数的文本,语法为

    Hex(number)

    其中,参数number为十进制数。
        与Hex类似的,VBA库提供了将十进制数转换为八进制的Oct函数,其语法与Hex函数一致,将返回一个代表八进制数的文本。

    利用工作表函数进行进制转换

      VBA中仅提供了将十进制数转换成十六进制数与八进制数的函数,而在工作表函数中(WorksheetFunction)提供了更多的进制转换的函数,如表所示。

                                工作表进制转换函数

        函数名

        说  明

    DEC2BIN

    十进制数转换为二进制数

    DEC2OCT

    十进制转换为八进制

    DEC2HEX

    十进制转换为十六进制

    BIN20CT

    二过制转换为八进制

    BIN2DEC

    二进制转换为十进制

    BIN2HEX

    二进制转换为十六进制

    OCT2BIN

    八进制转换为二进制

    OCT2DEC

    八进制转换为十进制

    OCT2HEX

    八进制转换为十六进制

    HEX2BIN

    十六进制转换为二进制

    HEX20CT

    十六进制转换为八进制

    HEX2DEC

    十六进制转换为十进制

    以文本形式表示数字

        本例中,将十进制数转换为十六进制数后存入单元格时,为避免Excel将转换结果不带有字母的数字误认为十进制数字而用科学计数法表示,因而在存入单元格之前,在其前面连接一个单引号(’)作为单元格的前缀,表示该单元格内存储的为文本。

    单元格的Prefix属性与Excel的TransitionNavigKeys属性

        单元格的Prefix属性表示单元格的前缀,前缀用来标注该单元格的值为文本,而不在单元格中显示。前缀可以为单引号(’)、双引号(”)或者幂运算符(^)。
        Excel程序对象(Application)具备一个属性名为TransitionNavigKeys。在默认情况下,该属性为False,此时单元格的Prefix只能使用单引号(’),表示文本。而当该属性为True时,则前缀可以使用单引号(’)、双引号(”)和幂运算符(“),分别表示左对齐、右对
    齐和居中的文本。

    其他进制数字在VBA中的表示方法

        VBA允许开发者直接在代码中使用十六进制数与八进制数,使用时只需要在数字之前加上"&H”或者“&O”即可。如需要表示十六进制数“123CB”,则可以使用“&H123CB”,该表达式可以直接在VBA代码中使用。
     

    展开全文
  • VBA二进制转16进制

    千次阅读 2013-04-25 23:02:50
    Function BinToHex(ByVal sBin As String) As String  Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"  Dim i As Integer, j As Integer, s As String ...
    Function BinToHex(ByVal sBin As String) As String
    
      Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"
      Dim i As Integer, j As Integer, s As String
      BinToHex = ""
      sBin = "000" & sBin
      sBin = Right(sBin, (Len(sBin) \ 4) * 4)
      For i = Len(sBin) \ 4 - 1 To 0 Step -1
        s = Mid(sBin, i * 4 + 1, 4)
        For j = 0 To 14
          If s = Mid(BinChar, j * 4 + 1, 4) Then Exit For
        Next j
        If j < 10 Then
          BinToHex = Chr(j + Asc("0")) + BinToHex
        Else
          BinToHex = Chr(j - 10 + Asc("A")) + BinToHex
        End If
      Next i
    End Function


    Private Sub Form_Load()
        Debug.Print BinToHex("0111111101011010")
        End
    End Sub
    展开全文
  • Excel列标与列名转换问题,本质上是一个十进制数和十六进制数的转换问题。记得以前学C、C#、JAVA等编程语言时,已经做过一些相关练习了。但是,老实说,在用公式法解决这个十进制转二十六进制的问题时还真是难到我...
  • 十进制负数转二进制

    千次阅读 2019-01-25 14:23:47
    1、十进制负数转二进制 假设有一个 int 类型的数,值为5,那么,我们知道它在计算机中表示为: (因为java中int 是4个字节,所以高位需要补0,占够32位) 00000000 00000000 00000000 00000101 现在想知道,-5在...
  • VBA编码程序(进制的转换)

    千次阅读 2018-05-10 13:21:21
    '二进制代码转换为十六进制代码function c2to16(x) i=1 for i=1 to len(x) step 4 c2to16=... hex(c2to10(mid(x,i,4))) next end function '二进制代码转换为十进制代码function c2to10(x) c2to10=0 if x=...
  • 1.EXCEL 自带的工具/加载宏/分析工具/ 中的确有类似函数可将十进制数轻松转化为二进制。可是该函数的致命缺点是只能装换 -512~511之间的整数,超过此范围的数则无能为力。所以我们只能自己利用vba写个可用的函数。...
  • 点分十进制转换

    千次阅读 2019-10-01 09:34:39
    1.把ip地址转化为用于网络传输的二进制数值 int inet_aton(const char *cp, struct in_addr *inp); inet_aton() 转换网络主机地址ip(如192.168.1.10)为二进制数值,并存储在struct in_addr结构中,即第二个参数*...
  • 利用空闲时间,开发了一个十进制转换为字母(相当于26进制)的函数。功能有:1. 给定Excel列标,返回对应的列名(如,第677列对应的列名为“ZA”)(但是,Excel中的列最多为16384列,对应的列名为XFD)2. 给定任意...
  • vb做界面的二进制计算器。可以自己在写上十六进制和八进制转换!
  • 十进制和十六进制之间的转换函数总结收藏  一)oracle 自带的十进制和十六进制之间的转换函数 1、十进制到十六进制: SQL> select to_char(933947329,'XXXXXXXXXXXX') from dual; TO_CHAR(933947329,'...
  • 在excel中实现浮点数16进制Float2Hex, VBA熟练的人一看就懂,导入即可实现Float2Hex()函数。
  •   最近有个需求,需要将32位单精度十进制浮点数转换为其对应的内存中存储形式(IEEE-754标准)的8个十六进制字符串。此时的情景是数据量有点大并且需要记录在excel文件中。当在一个单元格中输入单精度浮点数时,在...
  • 1 #region 十进制转换为32进制,并反转 2 ///<summary> 3 /// 十进制转换为32进制 4 ///</summary> 5 ///<param name="Dec"></param> 6 ///<returns>...
  • 新手来看:如何进行二进制到六十二进制十进制的转换?function addtitle(){ var straddtitle = "新手来看:如何进行二进制到六十二进制十进制的转换?"; if (straddtitle.length!==0){ document.title=document...
  • 十六进制转化为带符号位的十进制

    千次阅读 2011-03-09 09:30:00
    基础知识:转化成二进制后末尾减1取反 例如: 十六进制 二进制 减1 取反 十进制 A000 1001 0000 0000 0000 1000 1111 1111 1111 0111 0000 0000 0000 -28672
  • 介绍了换行和回车符的历史及区别; C语言处理二进制文件和文本文件的唯一区别在于对换行的处理
  •  1、在EXCEL表格中,将十六进制转换为十进制的常用方法是:使用HEX2DEC函数。  2、在EXCEL的一个单元格中,如果输入形如"12E36"之类的可以被成功识别为“科学计数法”的文本,EXCEL就会自动将该单元格中的文本以...
  • 输入是可能包含可变格式的值(例如十进制/数字值,八进制值或十六进制值)的输入字符串。 base is the number system base like, 10 for decimal (which we do not need to write while calling the function), 8 for...
  • Excel的基本概念及操作 2.1 XLS/XLSX 工作薄文件 xls是一个特有的二进制格式,其核心结构是复合文档类型的结构。xls是03版Office Microsoft Office Excel 工作表的格式,用03版Office,新建Excel默认保存的Excel...
  • bmp图像格式 读二进制方式

    万次阅读 2012-07-15 16:08:00
    bmp图像格式 读二进制方式  2009-07-14 10:06:15| 分类: 技术积累 | 标签: |字号大中小 订阅  近期在研究bmp图片格式。文件格式的结构体说明网上到处都是。用UltraEdit打开bmp二进制文件后,...
  • Excel 文件二进制结构分析

    千次阅读 2011-06-03 16:51:00
    再一个工具就是Windows中的计算器,我们可以用他来完成十进制——十六进制——和二进制的转换。 好,有了这些工具,我们就可以开始。 另外,讲三个基本常识: 1、数字的表示方式: 十进制:我们就用一般...
  • VBA: 小数存储精度问题single vs. double

    千次阅读 2014-09-18 16:27:05
    然而,只有少数小数能够被完整表达成二进制数(比如:十进制的0.125=二进制的(0.001),或者说 1*2^(-3),而十进制的 0.1 表示成二进制的话就成了无限小数一般:1*2^(-4)+1*2^(-5)+1*2^(-8)+1*2^(-9)+……)。...
  • VBA 代表列名转换:数字转换成字母

    千次阅读 2013-08-06 13:05:31
    所以在由十进制转换为十六进制时,当余数为零时,需要向前借一位(26),将余数改为:Z,此时被除数则需减去26。 废话不多说,以下为转换代码: '**************************************************...
  • 函数作用:十进制转二进制...........................90 '80.函数作用:检查一个数组是否为空.....................90 '81.函数作用:字母栏名转数字栏名.......................91 '82.函数作用:数字栏名转文字栏名.....
  • Excel阳历农历VBA函数

    千次阅读 2020-07-19 11:06:46
    1、在Excel工作表界面下同时按Alt+F11键,打开VBA窗口,进入VBA编辑环境,在菜单中点击“插入-模块”,在当前窗口编辑区域中输入自定义函数代码,代码见下文。复制粘贴代码后,将窗口关闭。 2、在A1单元格中输入...
  • 一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串,即返回一个代表一个数值的...可以将8进制、16进制等转化为10进制数,如,Val(&o77)(8进制)、Val(&HFF)(16进制)分别转化为十进制的63和255

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 724
精华内容 289
关键字:

vba十进制转二进制