第16講 10進数をn進数に翻訳するマクロ
第4話 翻訳の範囲を16進数まで広げる
cx
を実現するプログラム例
Private Sub CommandButton1_Click()

  CommandButton2_Click
  Dim a As Long, b(1000) As Integer, n As Integer
  n = Cells(3, 10)
  Do While 1
    a = Int(100000 * Rnd)
    If a > 0 Then Exit Do
  Loop
  Cells(4, 1) = a
  Call f(a, b(), n, 0)
    
End Sub

Sub f(a As Long, b() As Integer, n As Integer, g As Integer)
  
  b(g) = a Mod n
  a = Int(a / n)
  If a > 0 Then
    Call f(a, b(), n, g + 1)
  Else
    b(g + 1) = -1
    Call h(b())
  End If
  
End Sub

Sub h(b() As Integer)

  Dim i As Integer, ik As Integer
  i = 0
  Do While 1
    If b(i) = -1 Then
      ik = i - 1
      Exit Do
    End If
    i = i + 1
  Loop
  For i = ik To 0 Step -1
    If b(i) < 10 Then Cells(5, 1 + ik - i) = b(i)
    If b(i) = 10 Then Cells(5, 1 + ik - i) = "A"
    If b(i) = 11 Then Cells(5, 1 + ik - i) = "B"
    If b(i) = 12 Then Cells(5, 1 + ik - i) = "C"
    If b(i) = 13 Then Cells(5, 1 + ik - i) = "D"
    If b(i) = 14 Then Cells(5, 1 + ik - i) = "E"
    If b(i) = 15 Then Cells(5, 1 + ik - i) = "F"
  Next
  
End Sub

Private Sub CommandButton2_Click()
  
  Rows("4:20000").Select
  Selection.ClearContents
  Cells(1, 1).Select
  
End Sub

参考ダウンロード添付ファイル

短いプログラムでも結構難解ですよね。
次話以降丁寧に説明していきます。

第3話へ 第5話へ
004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ