先頭文字の文字コードを16進表記で返す関数

引数として「A」を渡したら「41」、「あ」を渡したら「82A0」を返す関数。

Function GetHexCode(xs As String) As String
    GetHexCode = Hex(Asc(xs))
End Function

ワークシートから呼び出してもいいし、VBAの中で呼び出してもOK。

月配列T2.x系

T2.x系を確定させることにしました。
T2.x系はMS-IMEのローマ字デーブルで全定義を実装できます。
(.regファイルを読みこませる必要はありますが管理者権限は不要です。)
T2.x系と言ってはみたものの結局納得の行く版は一つだけでした。


月配列T2.0 (2016/06/28版)

ゅとしこょ　つんいのりー
はか☆てた　くう★゛き゜
すふせなさ　っる、。・

ねそひほめ　むゃよみぬ
けもらおえ　あまにをちゆ
ぁぃへれや　わろぅぇぉ


…そんなわけで現在はT3.x系の開発に着手してます。(^_^;)

月配列T1.x系

そろそろ版を整理したいと思います。
配列手帳とTwitterを振り返って「安定版」と感じた版にバージョン番号を振ってみました。

My月配列には現在大きく分けてT1.x系とT2.x系の2系統があります。
T1.x系とT2.x系の違いはMS-IMEのローマ字テーブルで全定義を実装できるかどうかです。
T2.x系はMS-IMEのローマ字テーブルで全定義を実装できます。
今回はT1.x系を投稿します。


月配列T1.0 (2015/03/12版)

ゅとしこょ　つんいのりち
はか☆てた　くう★゛きー
すふになさ　っる、。゜

ぁそれほめ　むゃみやぇ
ぃけらあよ　まおもをえ
ぅへゆせね　わろひぬぉ


月配列T1.1 (2015/07/27版)

ゅとしこょ　つんいのりち
はか☆てた　くう★゛きー
すふになさ　っる、。゜

ゆそれねめ　むゃみやぬ
ほけらおよ　あまもをえ
ぁぃぅせへ　わろひぇぉ


月配列T1.2 (2015/11/15版)

ゅとしこょ　つんいのりち
はか☆てた　くう★゛きー
すふになさ　っる、。゜

ゆそれねめ　むゃよみぬ
へけらおほ　あまもをえ
ぁぃぅせや　わろひぇぉ


MS-IMEで全定義を実装できないと言う点を除けばT1.2はとても気に入ってます。
TypeWellでGeniusに到達したのもこの版の時のはず。

久しぶり

うわ、ものすごく放置してたｗ
て言うかこのブログの存在忘れてたよｗ

フィボナッチ数

１から１００番目までのフィボナッチ数をセルに書き出すコードをひねらず率直に書いてみた。

Sub Fibonacci()

    a = 1
    b = 1

    For i = 1 To 100

        Select Case i
            Case 1
                c = a
            Case 2
                c = b
            Case Else
                c = a + b
                a = b
                b = c
        End Select

        Cells(i, "A").Value = c

    Next i

End Sub

まぁ、エクセルの場合ワークシートに数式を書いたほうが全然簡単なんですけどね…。(^_^;)