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