2か月ほど前に弥生会計やマネーフォワードクラウド会計への仕訳インポートを少しだけ楽にしたくて作成したユーザフォームがあるのですが、少し機能を追加したので備忘記録を記事にしておこうと思います。
前回作成したExcelのユーザーフォームはこちらの記事からどうぞ↓
ユーザーフォームのチェックボックス機能で日付と勘定科目を固定する機能を追加する
前回作ったユーザーフォームについては自分もちょこちょこと利用しているのですが、実際に使ってみないとわからないというか、使っているうちに「あ、こういった機能があったらいいな。」と思うことがでてきました。
具体的には
- 日付の「月」は毎回同じものを使うので固定しておきたい（
毎回入力するの面倒くさい）。 - 勘定科目は毎回同じものを使うので固定しておきたい（
毎回入力するの面倒くさい）。
といったことです。
例えば一か月分の領収書をこのユーザーフォームを使ってまとめて入力する場合、日付については何月何日の「何日」の入力については領収書によって変更になりますが、「何月」の部分についてはほとんど変わることはありません。
ということは6月の領収書のデータを入力する場合、6月の「月」の入力部分は固定しておいて、「日」の入力部分だけ変えて入力していければマシになります。
勘定科目についても同じ考えかたで、経費を支払った際に常に「現金」や「事業主借」や「役員借入金」などの科目で処理をしている場合には毎回、毎回勘定科目を選ぶ（入力）のは面倒なのではじめに固定しておいてあげると入力が少しはマシになります。
と、いうことで機能を追加したあとのユーザーフォームがこちらになります↓
前回からどこがかわったというと、この部分↓
チェックボックスを2つ追加して固定するかどうかを自由に選択できるようにしました。
「月を固定する」にチェックを入れると
こんな感じに表示されます。
「貸方科目を固定」にチェックを入れると同様に
こんな感じで表示されます。
で、実際にはどうなるかというと、データを入力して
「登録」ボタンを押すと、こんな感じになります↓
日付の「月」と「貸方科目」についてはデータが消去されずに残り、ほかの項目に関してはクリアされた状態になります。
ユーザーフォームのチェックボックス機能で日付と勘定科目を固定する機能を追加するコード
この動作を実現するためには
- ユーザーフォームにチェックボックスを追加する
- 追加したチェックボックスにチェックが入った場合のマクロのコードを追加する
必要があります。
ユーザーフォームのチェックボックスはチェックが入った時に「true」という状態になる決まりがあり、チェックが入っていない時は「false」という状態になるというルールがありますので、このルールを使ってマクロのコードを作成すればOKです。
過去の記事でもチェックボックスの説明をざっくりしているのでこちらの記事を参考にしていただければと思います↓
ということで前回作ったコードに追加を加えたものがこちら、ハイライト表示している部分が今回の追加部分になります↓
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | Private Sub CommandButton1_Click()' ■■入力内容を配列に格納してセルに転記する■■ Dim textBoxArray() As StringDim ctrl As ControlDim i As IntegerDim startColumn As IntegerDim ws As WorksheetDim my_month As LongDim kasikata As StringSet ws = ThisWorkbook.Worksheets("sheet1")' テキストボックスの数を取得Dim numOfTextBoxes As IntegernumOfTextBoxes = 0' テキストボックスの数を数えるFor Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" Then numOfTextBoxes = numOfTextBoxes + 1 End If Next ctrl' 配列のサイズをテキストボックスの数に合わせるReDim textBoxArray(1 To numOfTextBoxes)' 各テキストボックスの内容を配列に格納i = 1For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" Then textBoxArray(i) = ctrl.Text i = i + 1 End IfNext ctrl'セルに転記ws.ActivateDim lastrow As Longlastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1 startColumn = 0 ' 開始列（A列）を指定For i = LBound(textBoxArray) To UBound(textBoxArray) ' データをセルに書き込む ThisWorkbook.ActiveSheet.Cells(lastrow, startColumn + i).Value = textBoxArray(i) Next i' ■■テキストボックスの入力内容を消去する■■my_month = meTextBoxmonth.Valuekasikata = meTextBoxkasikata.ValuemeTextBoxmonth.Text = ""meTextBoxday.Text = ""meTextBoxkarikata.Text = ""meTextBoxkasikata.Text = ""meTextBoxkingaku.Text = ""meTextBoxnaiyou.Text = ""meTextBoxsiharai.Text = ""' ■■「月を固定する」にチェックがある場合の処理■■If meCheckBox1.Value = True Then meTextBoxmonth.Value = my_monthEnd If' ■■貸方科目を固定するにチェックがある場合の処理■■If meCheckBox2.Value = True Then meTextBoxkasikata.Value = kasikataEnd If' ■■テキストボックスの「月」又は「日」の入力部分を選択する■■If meCheckBox1.Value = True Then meTextBoxday.SetFocus Exit SubEnd If' ■■テキストボックスの「月」入力部分を選択する■■meTextBoxmonth.SetFocus End Sub |
ユーザーフォームのチェックボックス機能で日付と勘定科目を固定する機能を追加するコードのざっくり解説
今回機能を追加したコードについてざっくりと説明しておきます。ほんとにざっくりと。
まずはハイライトの11行目と12行目に関して、今回機能を追加するにあたって新しく変数を2つ追加することとしました
my_monthという変数とkasikataという変数をそれぞれ追加しています
この変数、my_monthという変数に対してユーザーフォームで入力した「月」のデータを格納し、kasikataという変数についてはユーザーフォームで入力した「貸方勘定科目」のデータを格納しておきます。
64行目と65行目の部分がその作業になります。
上の画像の例で行くと、my_monthという変数にはユーザーフォームで入力した7月のうち「7」というデータが格納され、kasikataという変数には貸方科目である「事業主借」というデータが格納されることになります。
そして、今回新しくユーザーフォームに追加したチェックボックスにチェックが入っているかどうかを if 式を使って判定させて行きます。
77行目から83行目の部分がその部分になります。
ユーザーフォーム上に追加した「月を固定する」チェックボックスにチェックが入った時。すなわち TRUE の状態になっているのであれば、ユーザーフォームに入力したデータを全部消去した後にユーザーフォームの「月」の入力欄に先ほどmy_monthという変数に格納したデータ（今回の場合は「7」）を入力するように指示をしています。
これによって一旦データは全て消去されるのですが、その後データを消去する前にmy_monthという変数の中に格納していたデータ（今回の場合は「7」）が再度入力されるので、見た目上は消去されずに固定されたように見せることができます。
貸方科目に関しても、同様の考え方でユーザーフォームに追加した「貸方科目を固定」チェックボックスにチェックが入っている場合、すなわち TRUE の状態の場合には、一旦データを消去した後に貸方科目の入力欄に先ほどkasikataという変数の中に格納した貸方勘定科目（今回の場合は「事業主借」）のデータを入力するように指示をしています。
最後の96行目から101行目に関しては、新しいデータを入力する際に入力のカーソルがユーザーフォーム上の「日」の部分からスタートするように指示をしています。
月を固定しているので、新しくデータを入力する際にユーザーフォームを上の「月」の欄にカーソルが移動すると面倒なので、あらかじめ「日」の欄にカーソルが移動するように指示している部分になります。
まとめ
弥生会計やマネーフォワードクラウド会計への仕訳インポートを少しだけ楽にしたくて作成したユーザフォームに機能を追加して「特定の項目を固定する機能」を追加する個人的方法を記事にしました。
何か参考になれば幸いです。
【本日の近況報告】
お風呂場の床の黒ずみ汚れや風呂椅子の白っぽくなった汚れ落としに何かいいものはないかと悩んでいたらリンレイの洗剤がいいらしいという広告を見かけたので試しに買ってみました。
我が家の場合は1回目で完璧に汚れが綺麗になることはなかたのですが、2回、3回と使っていくとどんどん汚れが綺麗になったので満足です。
スプレーして3分くらい放置してスポンジなどで擦ると汚れがよく取れたような気がします。
風呂汚れに悩まれている方は一度試してもいいかもしれません。
【本日の１曲】
Lucky Kilimanjaro/次の朝
ラジオから流れてきたのをなんとなく聴いていたら耳が反応した1曲。ラッキーキリマンジャロという日本のバンドの曲で、名前は聞いたことがあるけど曲を聴いたことがありませんでした。
スーパーカーとかサカナクションみたいなダンスロックチューン。かっこいい。
