2022-02-02

技術関連リンク集（Microsoft関連）

（最終更新日：2022/2/2）

Microsoft関連のリンク集。ググればすぐなんですけど、存在すら忘れることがあるので

VBAの勉強方法

知人にちょっと聞かれたので。

渡しの場合は完全に独学でしたけれど、やはりネットなり書籍なりで一度は一通り勉強しました（忘れてるものも多いけど）。

で、これはVBAに限った話ではないのですが、何か技術的なものの勉強をするときは、試験があれば、その対策書籍を見るようにしています。

試験対策なので、ポイントが上手にまとまっていますし、ある程度の広い範囲をカバーするので、全体を俯瞰するのにもちょうどいいんですよね。

VBAの試験といえば、VBAエキスパートですが、その対策書籍があるのがこちら。

vbae.odyssey-com.co.jp

まずは、こちらを使って一通りやってみるのが良いかなと思います。

あと、大切なのは、ExcelにせよAccessにせよ、そのアプリケーションについても詳しくなることが必要だと思います。VBAの命令を覚えるだけじゃなくて、Excelの機能もちゃんと知っておくことが大切かと。

2017-03-26

VBAの仕様書

VBA 資料

いつも、リンク先を検索することになるので、ここに書いておきます。

VBAの仕様書は以下からダウンロードできます。

[MS-VBAL]: VBA Language Specification

サイトも英語ですが、仕様書も英語です（当たり前か）。

更新も行われていて、最新版は、12/15/2016のものです（2017/3/26現在）。

2017-03-25

Rangeオブジェクトと引数のカッコの話

VBA

先日、次のようなコードを見る機会が有りました。

Sub CopySample1()
    Range("A1").Copy (Cells(1, 2))
    Range("A2").Copy (Range("B2"))
End Sub

このコード、どちらもCopyメソッドの引数Destinationを指定しています。違いと言えば、貼り付け対象のセル（Rangeオブジェクト）をCellsプロパティで指定しているか、Rangeプロパティで指定しているかです。

このコードですが、「Range("A2").Copy (Range("B2"))」がエラーになります。

しかし、次のコードの場合、どちらもエラーにはなりません。

Sub CopySample2()
    Range("A1").Copy Cells(1, 2)
    Range("A2").Copy Range("B2")
End Sub

「CopySample1」プロシージャと「CopySample2」プロシージャの違いは、引数を「()」で囲んでいるかいないかです。

では、この「()」で囲んだことで何が起きているのか、次のコードで確認してみます。

Sub TypeNameTest()
    Debug.Print "Cells : " & TypeName((Cells(1, 1))), TypeName(Cells(1, 1))
    Debug.Print "Range : " & TypeName((Range("A1"))), TypeName(Range("A1"))
End Sub

TypeName関数は、引数に関する情報（主にデータ型）を返します。
実行結果は次のようになります。

Cells : Range Range
Range : Empty Range

TypeName関数の引数にCellsプロパティを使ったものとRangeプロパティを使ったものの2パターン。さらに、それぞれ引数そのものをカッコで囲んだものと囲まないものの2パターンです。
Cellsプロパティが両方とも「Range」を返しているのに対し、Rangeプロパティの方は、引数そのものをカッコで囲んだ方は「Empty」が返っています。
この「Empty」ですが、実はこのテストをする時にセルA1には何も入力されていません。何も入力されていないセルの値はEmptyなので、それが返っています。
念のため、セルA1に文字列を入力して、このコードを実行すると「String」が返りました。

ということは、「(Range("A1"))」と指定したときには、セルの値を評価している、ということになります。つまり「(Range("A1").Value)」ということですね。

となると、最初のコード（再掲します）で、「Range("A2").Copy (Range("B2"))」がエラーになったのも理解できます。

Sub CopySample1()
    Range("A1").Copy (Cells(1, 2))
    Range("A2").Copy (Range("B2"))
End Sub

「()」で囲んだことで、「Range("B2")」が、「Range("B2").Value」と解釈されたということです。となると、Copyメソッドの引数にはRangeオブジェクトを指定しなくてはなりませんから、エラーになるのも当然と言えます。
それに対して、「(Cells(1, 2))」の方は、「()」で囲んでもRangeオブジェクトを返していたので、エラーにはならなかった、ということです。

2017-03-20

基数変換（n進数を10進数に変換）

VBA アルゴリズム

10進数をn進数に変換するコードを紹介したので、今回は逆です。

以前、10進数をn進数に変換するコードはコチラです。

hex309.hatenablog.com
hex309.hatenablog.com

というわけで、コチラ。

'n進数を10進数に変換
Private Sub ConvertIntoDecimalTest()
    'ConvertIntoDecimalプロシージャに指定する引数は「変換する値」「変換する値の基数」
    Debug.Print ConvertIntoDecimal("309", 16)
End Sub

Private Function ConvertIntoDecimal(ByVal ConvertValue As String, ByVal Radix As Long) As Long
    Dim NumOfDigits As Long
    Dim temp As String
    Dim Answer As Long
    Dim i As Long
    
    temp = StrReverse(ConvertValue)
    NumOfDigits = Len(ConvertValue)
    
    For i = 1 To NumOfDigits
        Answer = Answer + GetDecimalNumber(Mid$(temp, i, 1)) * Radix ^ (i - 1)
    Next
    ConvertIntoDecimal = Answer
End Function

Private Function GetDecimalNumber(ByVal Digit As String) As Long
    Dim temp As Variant
    temp = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
    GetDecimalNumber = Application.Match(Digit, temp, 0) - 1
End Function

2017-03-20

基数変換（ループバージョン）

VBA アルゴリズム

基数変換のループバージョンです。
以前紹介した再帰バージョンはコチラ。
hex309.hatenablog.com

今回も16進数までの対応です。16進数の文字列への変換を行うGetHexStringプロシージャは、再帰バージョンと同じです。
まぁ、こっちのほうがシンプルですよね。

'基数変換（10進数をn進数に変換する）ループバージョン
Private Sub RadixConversionLoopTest()
    Debug.Print RadixConversionLoop(777, 16)
End Sub

Private Function RadixConversionLoop(ByVal num As Long, ByVal Radix As Long) As String
    Dim Quotient As Long
    Dim Remainder As Long
    Dim Answer As String
    Quotient = num
    Do
        Remainder = Quotient Mod Radix
        Quotient = Quotient \ Radix
        Answer = GetHexString(Remainder) & Answer
    Loop Until Quotient = 0
    RadixConversionLoop = Answer
End Function

Private Function GetHexString(ByVal num As Long) As String
    Dim temp As Variant
    temp = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
    GetHexString = temp(num)
End Function