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
 

 

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

 

目录
 
示例
 
实现代码
 
VBA的Hex函数
 
利用工作表函数进行进制转换
 
以文本形式表示数字
 
单元格的Prefix属性与Excel的TransitionNavigKeys属性
 
其他进制数字在VBA中的表示方法
 

示例
 
    利用Hex函数可以将十进制数转换为十六进制数，工作表函数HEX2DEC可以将十六进制数转换为十进制数。
 
十进制数字
十六进制转换
十进制转换
52667
CDBB
52667
75075
12543
75075
39477
9A35
39477
79362
13602
79362
78305
131E1
78305
72633
11BB9
72633
88242
158B2
88242
61281
EF61
61281
1553
611
1553
37581
92CD
37581
99848
18608
99848
9596
257C
9596
87085
1542D
87085
46067
B3F3
46067
87461
155A5
87461
32295
7E27
32295
97119
17B5F
97119
 
 
实现代码
 
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代码中使用。
  

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