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

Excel列标与列名转换问题，本质上是一个十进制数和二十六进制数的转换问题。记得以前学C、C#、JAVA等编程语言时，已经做过一些相关练习了。但是，老实说，在用公式法解决这个十进制转二十六进制的问题时还真是难到我了，花了好几个小时也没有解决。
于是，求助网络，在一篇文章的启发下，先实现了VBA编程方式来解决问题。
在此总结一下经验：
1. 编程方式的思路更为清晰一些（很容易识别程序逻辑，如核心算法）
2. 调试起来方便很多。Excel自带函数法严格来讲不算调试，只是不断的试错而已。而VBE中可通过DEBUG.PRINT语句输出中间变量及计算过程，对理清思路非常有用
3. 多看看别人的代码可以少走很多弯路

代码分享：
Sub GetExcelColumnName(ByVal ExcelColumnName As String, ByVal columnNumber As Long)

    Dim dividend As Long
    Dim columnName As String
    Dim modulo As Integer
    Dim n As Integer '循环次数
    
    dividend = columnNumber
    Debug.Print "Input: ColumnNumber = " & columnNumber
    Debug.Print "Calculation process:" & vbNewLine

    While (dividend > 0)
        n = n + 1
        modulo = (dividend - 1) Mod 26
        Debug.Print "Iteration No." & n
        Debug.Print "dividend = " & dividend & ", modulo = (dividend - 1) Mod 26 = " & modulo
        columnName = Chr(65 + modulo) + columnName
        dividend = Round((dividend - modulo) / 26, 0)
        Debug.Print "columnName = " & columnName & ", dividend = Round((dividend - modulo) / 26, 0) = " & dividend & vbNewLine
    Wend
    ExcelColumnName = columnName
    Debug.Print "Result: ColumnNumber = " & columnNumber & " <--> ColumnName = " & columnName & vbNewLine & vbNewLine
   
End Sub
测试代码：
Sub GetExcelColumnNameTest()
Dim result As String
    'For i = 676 To 678
        GetExcelColumnName result, 2147483647
       
    'Next
End Sub

测试结果：
Input: ColumnNumber = 2147483647
Calculation process:

Iteration No.1
dividend = 2147483647, modulo = (dividend - 1) Mod 26 = 22
columnName = W, dividend = Round((dividend - modulo) / 26, 0) = 82595524

Iteration No.2
dividend = 82595524, modulo = (dividend - 1) Mod 26 = 23
columnName = XW, dividend = Round((dividend - modulo) / 26, 0) = 3176750

Iteration No.3
dividend = 3176750, modulo = (dividend - 1) Mod 26 = 17
columnName = RXW, dividend = Round((dividend - modulo) / 26, 0) = 122182

Iteration No.4
dividend = 122182, modulo = (dividend - 1) Mod 26 = 7
columnName = HRXW, dividend = Round((dividend - modulo) / 26, 0) = 4699

Iteration No.5
dividend = 4699, modulo = (dividend - 1) Mod 26 = 18
columnName = SHRXW, dividend = Round((dividend - modulo) / 26, 0) = 180

Iteration No.6
dividend = 180, modulo = (dividend - 1) Mod 26 = 23
columnName = XSHRXW, dividend = Round((dividend - modulo) / 26, 0) = 6

Iteration No.7
dividend = 6, modulo = (dividend - 1) Mod 26 = 5
columnName = FXSHRXW, dividend = Round((dividend - modulo) / 26, 0) = 0

Result: ColumnNumber = 2147483647 <--> ColumnName = FXSHRXW

参考文章：
https://stackoverflow.com/questions/181596/how-to-convert-a-column-number-eg-127-into-an-excel-column-eg-aa

喜欢请您点赞，关注@悟禅禅 ，为您解决#Excel# 与#vba# 的难题
在软件开发的过程中，进制转换一直是一个必要而又麻烦的工作。虽然进制转换的原理并不难，但在不借助工具的前提下计算出结果依然是个折磨人的事情。
Excel中BASE()函数可以将十进制的数值快速的转换成16进制，8进制和2进制。
例一、将十进制数值“100”，分别转换成十六进制数值，八进制数值和二进制数值。
头@条@号“悟禅禅”原创
在单元格B3写入数值100后，在单元格C3中写入公式“=BASE(B3,16)”，就得到了100对应的16进制数值为“64”
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在单元格D3中写入公式"=BASE(B3,8)"，得到100对应的8进制数值“144”。
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在单元格E3写入公式“=BASE(B3,2)”，得到100对应的2进制数值“1100100”。
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在二进制数值的转换中，好多时候都希望结果有一个固定的位数，那么我们可以把上面的结果的位数固定到12位。将公式改为“=BASE(B3,2,12)”
头@条@号“悟禅禅”原创
得到一个高位补0的12位二进制结果“000001100100”
头@条@号“悟禅禅”原创
例二、当尝试将非数值进行转换的时候会会返回错误码“#VALUE!”，比如写入公式“=BASE("a",2,12)”
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
例三、当对含有小数的数值进行转换的时候，公式只对整数部分进行转换
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
与“BASE()函数”相对应的函数“DECIMAL()”函数的功能则是将不同进制的数值转换成十进制，感兴趣的小伙伴不妨看看我写的关于“DECIMAL()”函数的微头条。
喜欢请您点赞，关注@悟禅禅，为您解决Excel与Vba的难题。
#Excel技巧##财务Excel表格#

喜欢请您点赞，关注@悟禅禅 ，为您解决#Excel# 与#vba# 的难题
在软件开发的过程中，进制转换一直是一个必要而又麻烦的工作。虽然进制转换的原理并不难，但在不借助工具的前提下计算出结果依然是个折磨人的事情。
Excel中BASE()函数可以将十进制的数值快速的转换成16进制，8进制和2进制。
例一、将十进制数值“100”，分别转换成十六进制数值，八进制数值和二进制数值。
头@条@号“悟禅禅”原创
在单元格B3写入数值100后，在单元格C3中写入公式“=BASE(B3,16)”，就得到了100对应的16进制数值为“64”
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在单元格D3中写入公式"=BASE(B3,8)"，得到100对应的8进制数值“144”。
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在单元格E3写入公式“=BASE(B3,2)”，得到100对应的2进制数值“1100100”。
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
在二进制数值的转换中，好多时候都希望结果有一个固定的位数，那么我们可以把上面的结果的位数固定到12位。将公式改为“=BASE(B3,2,12)”
头@条@号“悟禅禅”原创
得到一个高位补0的12位二进制结果“000001100100”
头@条@号“悟禅禅”原创
例二、当尝试将非数值进行转换的时候会会返回错误码“#VALUE!”，比如写入公式“=BASE("a",2,12)”
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
例三、当对含有小数的数值进行转换的时候，公式只对整数部分进行转换
头@条@号“悟禅禅”原创
头@条@号“悟禅禅”原创
与“BASE()函数”相对应的函数“DECIMAL()”函数的功能则是将不同进制的数值转换成十进制，感兴趣的小伙伴不妨看看我写的关于“DECIMAL()”函数的微头条。
喜欢请您点赞，关注@悟禅禅，为您解决Excel与Vba的难题。
#Excel技巧##财务Excel表格#