hex309’s diary

備忘録としてぼちぼちやります。VBAネタが多くなりそうです

アルゴリズム

基数変換(n進数を10進数に変換)

10進数をn進数に変換するコードを紹介したので、今回は逆です。以前、10進数をn進数に変換するコードはコチラです。hex309.hatenablog.com hex309.hatenablog.comというわけで、コチラ。 'n進数を10進数に変換 Private Sub ConvertIntoDecimalTest() 'Conver…

基数変換(ループバージョン)

基数変換のループバージョンです。 以前紹介した再帰バージョンはコチラ。 hex309.hatenablog.com 今回も16進数までの対応です。16進数の文字列への変換を行うGetHexStringプロシージャは、再帰バージョンと同じです。 まぁ、こっちのほうがシンプルですよね…

アルゴリズムの本

実は、こんな本を買いました。 アルゴリズム大事典 (I・O BOOKS) 作者: 橋本英美 出版社/メーカー: 工学社 発売日: 2013/11 メディア: 単行本 この商品を含むブログ (3件) を見る サンプルのコードがVBAというところが珍しいですかね。 VBAのコード自体は、…

基数変換

今回は、基数変換です。10進数をn進数に変換します(16進数まで)。 普通にループで処理すればいいんですけど、あえて再帰で。 '基数変換(10進数をn進数に変換する) Private Sub RadixConversionTest() Debug.Print RadixConversion(777, 16) End Sub Priv…

クイックソート(配列バージョン)

始めたばかりですが、息切れ始まった感じです。 とりあえず、クイックソートの配列バージョンです。正直、エラー処理などもっとスマートにできる気がしますが、公開します。 Private Sub QuickSortArrayTest() Dim temp As Variant Dim data(0 To 3) As Vari…