vba十進制轉二進制


sub stor ()
dim stor,shi as long

stor = ""

n = range("b3")

shi = range("a3")

do while stor >0

stor = shi mod n & stor

shi = shi / n

loop

range ("e3") =stor

end sub

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM