【Excel/VBA】クラスを使って請求書作成

コロナの影響で今日は自宅待機。

テレワーク端末は支給されなかったので、家のパソコンで作ろうとしてるVBAツールの予習をする。

テレワーク(準テレワーク)って雑音が入らなくってすてき。

ああ、あこがれのテレワーク。

ExcelVBAで請求書作成ツールを作成。
例に使うのは変な請求書だけれども、本チャンの作ろうとしてるツールに近いものなのでご容赦ください。

データシートに取引先と請求単価、件数を入力しておき、1行ずつ請求書を起こしていくもの。取引先によって「請求書はこうゆう形にしてほしい」とわがままを言う先があるので、一律の形にならないものあり。その対処も入れています。（ツールの書式4の場合）

標準モジュールとクラスモジュールを使っています。
なぜクラスを使うかというとクラスを使うのが「VBAできる人っぽい」から、無理矢理に使おうとしている。

実際どうゆうときに使うべきなのか、クラスの利用に限らず「これでよかったのだろうか。もっとベストな素敵な方法があったのではないか」といつもいつも完成後も迷いは消えません。

コード

■クラス　cData　こちらを構造体（？）として使います

‘構造体(取引先毎)
Public no As String
Public name As String
Public tanka1 As Long
Public tanka2 As Long
Public tanka3 As Long
Public ken1 As Long
Public ken2 As Long
Public ken3 As Long
Public kijitu As Date
Public syosiki As Long
Public flag As Boolean

Sub getdata(ByVal r As Long)　　’データ取得メソッド
　With wsData
　　no = .Cells(r, colA).Value ‘取引先ID
　　name = .Cells(r, colB).Value ‘取引先名
　　tanka1 = .Cells(r, colC).Value ‘単価1
　　tanka2 = .Cells(r, colD).Value ‘単価2
　　tanka3 = .Cells(r, colE).Value ‘単価3
　　ken1 = .Cells(r, colF).Value ‘件数1
　　ken2 = .Cells(r, colG).Value ‘件数2
　　ken3 = .Cells(r, colH).Value ‘件数3
　　kijitu = .Cells(r, colM).Value ‘支払期日
　　syosiki = .Cells(r, colN).Value ‘書式区分

　　’金額が０の場合flagはFalse
　　If .Cells(r, colL).Value = 0 Then
　　　　flag = False
　　Else
　　　　flag = True
　　End If
　End With
End Sub

■クラス　cInput　構造体cDataを利用して請求書作成するメソッドとして使います