エクセルで領収書、ユーザーフォームのVBAで印刷をコントロール

ryousyu_userformeyecatcha

エクセルで領収書を作成します。

ユーザーフォームのVBAを使って印刷全体をコントロールできるようにします。
今回がこのテーマの記事の最終回となります。

 

こんにちは、じゅんぱ店長(@junpa33)です。

 

今回は、領収書印刷をコントロールするためのパネル(ユーザーフォーム)作成と設定を行います。

このテーマ(領収書の作成)については、今回の記事が最終回となります。

 

これまでの流れについては、先の記事でご確認いただけます。

 

<<<一つ前の記事を読み返す<<<

領収書の金額をオシャレに表示』へ

kingakuhyoujieyecatchaエクセルVBA 領収書の金額をオシャレに表示するコツ。

 

 

ユーザーフォームをデザインする

 

MEMO
領収書作成のエクセルVBA全コードを確認することが出来ます。

ryousyu_VBAkanseieyecatchオリジナルな領収書作成のエクセルVBA モジュール記述の全コード集

 

作成して、印刷していくための操作ボタンを設置したコントロールパネルを作っていきます。

コントロールパネルは、タブによるページ切り替えで、単独印刷画面と連続印刷画面を表示できるようにします

 

それでは、

作業ごとに区切りながら説明していきます。

 

ユーザーフォームを表示する

 

VBEからユーザーフォームボタンをクリック

contpanel001a1

 

すると、このような感じになります。

contpanel002a1

 

この”User form”で作業していきますが、適宜 拡大縮小をしてください。

 

ユーザーフォームの表示のタイミングを設定をする

 

”発行データ入力シート”での作業の時に使用しますので、その時に表示されているようにします。

 

「印鑑を自動で挿入」の記事で解説したことと同様に、

”発行データ入力シート”がアクティブの時に表示される設定とします。

シートモジュール(発行データ入力のシートモジュール)に記述します。

コード⑨

コード
Private Sub Worksheet_Activate()
  If コントロールパネル.Visible Then Exit Sub
  コントロールパネル.Show vbModeless
End Sub

contpanel017a

このように記述してください。

 

コントロールパネルの”発行日入力窓”設定

 

まず最初に

”User form”という名称を”コントロールパネル”に変更します。

contpanel003a

つぎに

ツールボックスボタンを押してツールを使えるようにします。

contpanel004_1

 

ツールボックスボタンの中の”A のラベルボタン”をおしてタイトル付けをします。

contpanel005a1

 

発行年月日を入力できる設定をします。

ツールボックスボタンの中の”ab| のテキストボタン”をおしてテキスト入力ボックスをセットします。

contpanel006a1

 

同様に作業を繰り返して、

「(元号)(ねん)年 (つき)月 (にち)日」を完成させてください。

contpanel007

 

コマンドボタンを配置します。

ツールボックスからコマンドボタン(プッシュ型のボタンマークのもの)を選択してください。

contpanel009a1

 

入力した発行日情報をデータ利用するエクセルVBA

 

ここで使う変数

  • 元号の代入先としての変数・・・・Gen
  • 年の代入先としての変数・・・・・Nen
  • 月の代入先としての変数・・・・・Tuk
  • 日の代入先としての変数・・・・・Nit

ここで設定する変数は、このプロジェクトのモジュール間を跨いで利用しますので、変数宣言もそれが可能になる宣言方法で行います。

 

テキスト入力ボックスに入力したデータをVBAコード化します。

コードの入力ウインドウを開きます。

 

日付を入力したときに”日付入力ボタン”をクリックして、データを確定するコードです。

ユーザーフォームモジュール(コントロールパネルのモジュール)に記述します。

コード⑩

コード

Private Sub 日付入力_Click()
  Gen = コントロールパネル.Controls("元号").Value
  Nen = コントロールパネル.Controls("ねん").Value
  Tuk = コントロールパネル.Controls("つき").Value
  Nit = コントロールパネル.Controls("にち").Value
End Sub

 

このようになります。

contpanel010a

 

次に変数の宣言のためのコードを記述します。

 

コードの設置場所は”標準モジュール”に記述した”コード①”の上 一番最初です。そこに置いてください。

関連記事

エクセルVBA 変数の適用範囲を宣言方法でコントロールする

vbasengeneyecatchエクセルVBA 変数の適用範囲を宣言方法でコントロールする

 

コード⑪

コード

  Public Gen As String
  Public Nen As Variant
  Public Tuk As Variant
  Public Nit As Variant

 

このようになります。

contpanel011a

 

さらに、コード②の中にコード⑫を設置します。設置場所に注意ください。

CHECK
Worksheets(“発行データ入力”).Select
aR = ActiveCell.Row
の下に設置してください。

これで発行日の和暦を表示します。

”元号” の部分は、「平成」でも「令和」でもOKです。

 

コード⑫

コード

  If Nen = "" Then Nen = " "
  If Tuk = "" Then Tuk = " "
  If Nit = "" Then Nit = " "
  Range("B" & aR).Value = Gen & Nen & "年" & Tuk & "月" & Nit & "日"
  Range("H" & aR).Value = "済"

 

このようになります。

contpanel016a2

 

タブで変わるページを設置する

 

1件毎選択して印刷していくボタンを設置します。

 

マルチページの設置方法についてはこちら↓の記事でも確認していただけます。

エクセルVBAマルチページ作成。秘密鍵コードで非表示化!

multipageeyecatchエクセルVBAマルチページ作成。秘密鍵コードで非表示化!

 

まず、ツールボックスの”マルチページ”ボタンを選択してタブでページ切り替えができるようにします。

先ほど作成した「コントロールパネル」の「日付入力」ボタンの下に設置してください。

 

このような感じです。

contpanel013a1

 

次に、タブの文字を大きくハッキリ表示させます。

 

プロパティの選択で”MultiPage1”をプルダウンメニューから選択します。

”Font”のところで文字のスタイルを変更してください。

”Page1”を「連続印刷

”Page2”を「単独印刷」  とタイプしてください。

contpanel014a1

 

ユーザーフォームのVBAで印刷をコントロールする

 

ユーザーフォーム上に単独印刷と連続印刷の2種類のコントロールページを作ります。

単独印刷ページをつくる

 

ここで使う変数

  • 印刷指定のため選択したセルの行番号・・・・aR
  • 印刷指定した宛先名・・・・・・・・・・・・PVa

 

それでは次に単独印刷のために必要な項目を設定していきます。

作業の流れ

 

まず”ラベル”を4つ設置します。

先ほどと同じように、ツールボックスボタンの中の”A のラベルボタン”をおしてラベルを付けます。

  1. Caption 「一件づつ印刷をする場合の設定をします。」
    (オブジェクト名)一件づつ印刷文字色はForeColorで選択できます。
  2. Caption 「印刷対象宛名」
    (オブジェクト名)印刷対象宛名
  3. Caption 「宛名をクリックすると最新に更新します。」
    (オブジェクト名)宛名をクリック文字色はForeColorで選択できます。
  4. Caption 「印刷宛名」
    (オブジェクト名)印刷宛名文字色はForeColorで選択できます。ボックスの色はBackColorで選択できます。

コマンドボタンを配置します。

ツールボックスからコマンドボタン(プッシュ型のボタンマークのもの)を選択してください。

  1. Caption 「印刷スタート」
    (オブジェクト名)一件印刷

 

このような感じで仕上げてください。カラーリングは適宜設定されたらと思います。

contpanel015

 

ラベル部分のコード設定

 

ラベル「宛名をクリックすると最新に更新します。」を実行するコードを記述します。

4のラベルのところでクリックすると今印刷される宛先が表示されるというコードです。

”印刷宛名”の表示部分を”ダブルクリック”するとコードウインドが表示されますので、そこに記入してください。

ユーザーフォームモジュール(コントロールパネルのモジュール)での記述になります。

 

コード⑬

コード
Private Sub 印刷宛名_Click()
  宛名確認
End Sub

と記述してください。

contpanel018

 

つぎに”宛名確認”のマクロ(VBA)を標準モジュール(module1)に記述します。

コード⑭

コード
Sub 宛名確認()
  Dim PVa As String
  Worksheets("発行データ入力").Select
  aR = ActiveCell.Row
  PVa = Range("D" & aR).Value
  コントロールパネル.印刷宛名.Caption = PVa
End Sub

contpanel019a

このようになります。

印刷スタートボタンの起動設定

 

「印刷スタート」ボタンの設置をしていきます。

先ほどと同じように、「印刷スタート」ボタンをダブルクリックするとコードウインドが開きます

ユーザーフォームモジュール(コントロールパネルのモジュール)での記述になります。

このように記述してください。

コード⑮

コード
Private Sub 一件印刷_Click()
  一件を印刷
End Sub

 

contpanel020

 

”一件を印刷”のマクロ(VBA)を標準モジュール(module1)に記述します。

コード⑯

コード
Sub 一件を印刷()
  領収書作成
  Worksheets("領収書").PrintOut from:=1, To:=2, Preview:=True
  Worksheets("発行データ作成").Select
End Sub

 

コードの「領収書作成」は”一件を印刷”の命令(マクロ)の中にあって、領収書作成のマクロを実行しなさいということです。
contpanel021a

 

”印刷スタートボタン”を押すと印刷プレビュー画面が表示されるようになります。

プレビューを確認したうえで印刷するような設定です。

印刷するときはプレビュー画面上の「印刷」をクリックしてください。

 

これで単独印刷の設定は完了です。

 

連続印刷ページをつくる

 

ここで使う変数

  • コントロールパネルで印刷を指定した始点番号・・・・STA
  • コントロールパネルで印刷を指定した終点番号・・・・STO
  • 印刷指定した始点のデータがあるセルの行番号・・・・Arow
  • 印刷指定した終点のデータがあるセルの行番号・・・・Orow
  • 印刷指定の始点・終点番号の入力エラーに番号を付与・ErrNo
  • メッセージボックスからの返答を代入する変数・・・・rea

ここで使う関数・メソッド

  • 印刷指定された支店・終点番号を探す関数・・・・Match
  • ユーザーからの返答を動作に反映させる関数・・・MsgBox

 

MEMO
Match関数の使い方についての記事はこちらです。

vbamatcheyecatch001エクセルVBAで使うMatch関数 活用度アップでテッパン関数に!

 

MsgBoxの使い方についてはこちらの記事が参考になります。

vbamsgboxeyecatchメッセージボックス MsgBox実際の使い方を最速に理解

 

次に連続印刷のために必要な項目を設定していきます。

一連の作業

 

先ほどと同様に作業します。

 

”ラベル”を4つ設置します。

先ほどと同じように、ツールボックスボタンの中の”A のラベルボタン”をおしてラベルを付けます。

  1. Caption 「連続して印刷をする場合の設定をします。」  (オブジェクト名)連続印刷 文字色はForeColorで選択できます。
  2. Caption 「伝票番号 開始番号」   (オブジェクト名)開始番号
  3. Caption 「伝票番号 終了番号」   (オブジェクト名)終了番号文字色はForeColorで選択できます。
  4. Caption 「入力番号確認」   (オブジェクト名)番号確認文字色はForeColorで選択できます。 ボックスの色はBackColorで選択できます。

 

伝票番号を入れるテキストボックスを設置します。

ツールボックスボタンの中の”ab| のテキストボタン”をおしてテキスト入力ボックスをセットします。

  1. 開始番号のテキストボックス(オブジェクト名)伝票番号始点
  2. 終了番号のテキストボックス(オブジェクト名)伝票番号終点

 

コマンドボタンを配置します。

ツールボックスからコマンドボタン(プッシュ型のボタンマークのもの)を選択してください。

  1. Caption 「入力確認」(オブジェクト名)入力確認ボタン
  2. Caption 「印刷開始」(オブジェクト名)印刷開始

 

このような感じになります。

contpanel022

 

連続印刷の伝票番号チェックVBAコード

 

コントロールパネルのコードウインドに以下のコードをタイプしてください。

“入力確認ボタン”を押したときの動きを指示しています。始点終点の伝票番号を入力しているかいないかの条件分岐をしています。

そのあと「領収書連続印刷準備」というマクロでmoduleウインドに移ります。

 

コントロールパネルのコードウインドに記述します。

ユーザーフォームモジュール(コントロールパネルのモジュール)での記述になります。

コード⑰

コード
Private Sub 入力確認ボタン_Click()
  If コントロールパネル.Controls("伝票番号始点").Value = "" Then
    MsgBox "印刷開始伝票番号がありません。", vbOKOnly, "メッセージ"
    Exit Sub
  End If
  If コントロールパネル.Controls("伝票番号終点").Value = "" Then
    MsgBox "印刷終了伝票番号がありません。", vbOKOnly, "メッセージ"
    Exit Sub
  End If
  コントロールパネル.番号確認.Caption = Me.伝票番号始点.Value & "から" & Me.伝票番号終点.Value & "まで印刷します。"
  領収書連続印刷準備
End Sub

contpanel023

 

 

”moduleウインド”の一番上に 追加で変数の定義を行います。

標準モジュール(Module1)の一番最初に記述します。

コード⑱

コード

  Public STA As Long
  Public STO As Long
  Public Arow As Variant
  Public Orow As Variant
  Public ErrNo As Long

 

次に「領収書連続印刷準備」というプロシージャーを記述します。

標準モジュール(Module1)に記述します。

始点終点番号の正誤をチェックするコードです。

 

MEMO

Gotoステートメントの使い方についてはこちらを参考にしてください。

VBAGotoeyecatch001Gotoステートメントの利用法を最速に理解。毒コードと薬コード

 

コード⑲

コード
Sub 領収書連続印刷準備()
  ErrNo = 0
  STA = コントロールパネル.伝票番号始点.Value
  STO = コントロールパネル.伝票番号終点.Value
  Worksheets("発行データ入力").Select
  On Error GoTo Err_trap1
  Arow = WorksheetFunction.Match(STA, Range("A:A"), 0)
  On Error GoTo Err_trap2
  Orow = Application.WorksheetFunction.Match(STO, Range("A:A"), 0)
  If Arow > Orow Then
    MsgBox "伝票番号は昇順で指定してください。", vbYes, "メッセージ"
    Exit Sub
  End If
  Exit Sub
Err_trap1:
  MsgBox "印刷開始伝票番号が存在していません。", vbYes, "メッセージ"
  コントロールパネル.伝票番号始点.Value = ""
  コントロールパネル.伝票番号終点.Value = ""
  ErrNo = 1
  Exit Sub
Err_trap2:
  MsgBox "印刷終了伝票番号が存在していません。", vbYes, "メッセージ"
  コントロールパネル.伝票番号始点.Value = ""
  コントロールパネル.伝票番号終点.Value = ""
  ErrNo = 1
End Sub

 

contpanel024a

このようになります。

 

印刷スタートボタンを設定します。

 

コントロールパネルのコードウインドに以下のコードを記述してください。

このコードはメッセージウインドウを出してチェックを促します。

ユーザーフォームモジュール(コントロールパネルのモジュール)での記述になります。

コード⑳

コード
Private Sub 印刷開始_Click()
  rea = MsgBox("印刷を始めますか?", vbYesNo + vbQuestion + vbDefaultButton2, "メッセージ")
  If rea = vbNo Then Exit Sub
    If コントロールパネル.Controls("伝票番号始点").Value = "" Then
      MsgBox "印刷開始伝票番号がありません。", vbOKOnly, "メッセージ"
      Exit Sub
    End If
  コントロールパネル.番号確認.Caption = Me.伝票番号始点.Value & "から" & Me.伝票番号終点.Value & "まで印刷します。"
  If コントロールパネル.Controls("伝票番号終点").Value = "" Then
    MsgBox "印刷終了伝票番号がありません。", vbOKOnly, "メッセージ"
    Exit Sub
  End If
  コントロールパネル.番号確認.Caption = Me.伝票番号始点.Value & "から" & Me.伝票番号終点.Value & "まで印刷します。"
  領収書連続印刷実行
End Sub

 

contpanel025a

 

次に「領収書連続印刷実行」というマクロを”moduleウインド”に記述します。

標準モジュール(Module1)に記述します。

コード㉑

コード
Sub 領収書連続印刷実行()
  領収書連続印刷準備
  If ErrNo = 1 Then Exit Sub
  For n = Arow To Orow
    Worksheets("発行データ入力").Select
    Range("A" & n).Select
     領収書作成
     Worksheets("領収書").PrintOut from:=1, To:=2
  Next n
 Worksheets("発行データ入力").Selectコントロールパネル.伝票番号始点.Value = ""
  コントロールパネル.伝票番号終点.Value = ""
End Sub

 

contpanel026

 

連続印刷については、”印刷スタート”ボタンを押すと、印刷プレビュー画面なしに、すぐに印刷が始まります。

印刷プレビュー画面を表示すると、動作がすべて一旦停止してしまうので、連続にならないからです。

 

以上でVBAコード記入作業は終わりです。

 

お疲れさまでした。

 

全体の見栄えをチェックします。

 

これで入力したデータがすべて領収書テンプレートに表示されるようになりました。

最後に領収書テンプレートの文字サイズや文字の配置を整えて、見栄えをチェックしてください。

 

VBAでこれらの表示設定のセットはすべて可能ですが、ここはセルの書式設定を使ったほうが速くて簡単です。

発行先名  文字の大きさ14

領収金額  文字の大きさ14で太字

内訳金額  配置を右詰め

 

他にも気になるところは適宜 設定変更してください。

 

ユーザーフォームのVBAで印刷をコントロールのまとめ

 

これでオリジナルな領収書の作成方法の解説は終了です。

 

”発行データ入力シート”のセルには数式などは全く入っていませんので、データはそのまま加工利用することがでます。

記述しましたコードをご利用に応じてカスタマイズして、さらに自分なりに使いやすくしてください。

 

一応 完成品のエクセル「領収書作成.xlsm」をダウンロードできるようにしています。

ダウンロードで入手できるものは、VBAマクロの保護をしていますので、改変することはできません。

このソフトはご自分で業務でお使いいただくのはフリーですが、

転載や転売については許可しておりませんので、ご使用にならないよう固くお断りいたします。

 

最初から記事を読み返す。<<<

領収書テンプレートづくりから』へ

 

改訂新版 てっとり早く確実にマスターできるExcel VBAの教科書
定番参考書の改定新版が、動画付きになりもっと分かり易くなった
vbastudy022a
vbastudy023a

電子書籍版「改訂新版 てっとり早く確実にマスターできるExcel VBAの教科書」をamazonで見てみる

(著者)大村あつし
(出版社)技術評論社
(税込価格)2,508円(本体2,280円+税)

30冊を超えるExcelのマクロやVBAの解説書を執筆してきた著者による考え抜かれた本書の内容と構成。
独創的な解説手法で必ずExcel VBAが理解できます!
初級からの参考書ですが、より実践的切り口での解説をしています。
QRコードから操作の流れを動画(無音です)で確認することもできるようになりました。
文章解説と動画との関係性は、主は文章での解説、サポートが動画になります。

 

エクセルVBAの独習を始めるためのポイントについて vbastudyeyecatchエクセルVBAを独学で習得するためのポイントは?良書との出会いは重要 基礎知識習得のためのオンライン学習講座の参考記事 Udemy1eyecatchエクセルVBA初級者がUdemyで動画学習する講座おすすめ5選と無料講座の上手な使い方。
  今回の記事はここまでです。
最後までご覧いただき有難うございました。

 

領収書作成シリーズ一覧
ryousyumihoneyecatcha
知る人ぞ知る「領収書作成の鬼仕事」。領収書の作成と印刷をEXCELを利用して超時短の仕事に変えてみます。 一度システムを作ってしまえばあとは永年無料で超時短です。 これでレジの感熱紙領収書では不可という顧客にも対応できて「手書き領収書地獄」 ...
続きを読む
ryousyusho_tempeyecatch3aa
領収書発行ソフトを無料DLで利用できます。市販領収書サイズのA6版で1枚づつ印刷します。 また、この業務実使用のエクセルVBAソフトの自作法を解説していきます。 初回はテンプレートづくりです。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
ryousyuineieyecatcha
領収書の作成はエクセルで売上データなどから容易く作成することはできます。 が、自動化して、しかも発行者印を押してとなると、参考となるものが非常に少ないです。 今回、自店で使っているやり方を紹介いたしますので参考にしていただければと思います。 ...
続きを読む
ryousyudataeyecatcha
エクセルVBAを使って独自に作った領収書に、発行情報をまとめた一覧表からのデータを反映させます。 こうすれば、その一覧表のデータ内容を変更するだけで簡単に登録修正や再発行ができるようになります。 こんにちは、じゅんぱ店長(@junpa33) ...
続きを読む
kingakuhyoujieyecatcha
エクセルVBAを使って領収書を作成する時に金額表示を工夫するとオシャレに表現することができます。 数字1文字ごとに書体を変えることもできます。 お店独自のオンリーワンの領収書を作ることもできます。 こんにちは、じゅんぱ店長(@junpa33 ...
続きを読む
ryousyu_userformeyecatcha
エクセルで領収書を作成します。 ユーザーフォームのVBAを使って印刷全体をコントロールできるようにします。 今回がこのテーマの記事の最終回となります。 こんにちは、じゅんぱ店長(@junpa33)です。 今回は、領収書印刷をコントロールする ...
続きを読む
ryousyuyousi
領収書作成シリーズ一覧 領収書の用紙について 一般的に市販されている領収書は、小切手帳判(84x175mm)やA6ヨコ版(105x154mm)が中心です。 そこで今回作成した領収書は、A6ヨコサイズに設定しています。 使用する用紙についてで ...
続きを読む
printerselecteyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、紆余曲折しながら今、メインで使っているプリンターの話題についてです。 今まで幾つかの機種を使って来ましたが、現在一番フィットしているプリンターについてです。 業務作業で、プリンター ...
続きを読む
ryousyu_VBAkanseieyecatch
エクセルVBAを使って、オリジナルな領収書の作成を解説してきました。 ここで、各モジュールに記述するVBA全コードを一覧で紹介します。 VBAコード配置の確認に利用してください。 こんにちは、じゅんぱ店長(@junpa33)です。 「領収書 ...
続きを読む

 

 

業務効率UPのためにエクセルVBAを使いだして、始めのうちに知っておきたい内容を記事にしています。

vbaintfixeyecatch
エクセルVBA関数で、数値の整数部分だけを分離します。 整数値取得のFix関数でなくInt関数の使用の場合でも、 他の関数との組み合わせで解決することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回のテーマは、数値の整 ...
続きを読む
vbarndeyecatch
エクセルVBAのRnd関数で乱数を取得します。 実用のためにはコードに簡単な加工をする必要があります。特に乱数値の整数化とRandomizeは必須です。 6.5兆通りのパスコードの生成方法も解説しています。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbaroundupdowneyecatch
エクセルVBA 数値の切り上げ、切り捨てをするときには注意しなければいけません。 RoundUp関数とRoundDown関数を使う時に負の数が混在していると、そのままだと誤った計算結果になることがあります。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbaroundeyecatch
エクセルVBAでも数値を四捨五入したい時は、Round関数を利用することが多いです。 Round関数の使い方はワークシートと同様ですが、ただ大きな注意点があります。 ここではその注意点も含めて使い方の説明を行います。 こんにちは、じゅんぱ店 ...
続きを読む
vbamaxminaveeyecatch
エクセルVBAで、ワークシート関数 Max・Min・Averageを利用して最大値・最小値・平均を求めます。 「簡単で短いエクセルVBAコード組み立て」を目指す上では、ワークシート関数は強い味方です。 こんにちは、じゅんぱ店長(@junpa ...
続きを読む
vbainsteeyecatch
InStr関数・InStrRev関数は、文字列操作系の関数の中でも最重要です。 この関数により指定の文字(列)の存在位置が取得できます。 そしてそれを目盛基準として、文字列操作をすることもできます。 こんにちは、じゅんぱ店長(@junpa3 ...
続きを読む
vbareplaceeyecatch
エクセルVBAで使える関数にReplace関数があります。 Replace関数は検索の文字列を指定の文字列に置換したり、削除したり出来ます。 利用価値の高い関数です。使い慣れておきましょう。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbaselectcaseeyecatch
エクセルVBAで、必須の条件文。 その中の一つで、Select Case 条件分岐 ステートメントの使い方を説明します。 簡単なコード、可読性の向上が特徴のステートメントです。是非、知っておきましょう。 こんにちは、じゅんぱ店長(@junp ...
続きを読む
VBAValeyecatch
エクセルVBAのVal関数の使い方についてです。 「値を文字列型から数値型へ変換する」という機能があります。 データ型が不一致の場合、プログラムエラーでコード停止が発生することが良くあります。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
VBAStringeyecatch
エクセルVBA String関数の使い方についてです。 「文字を指定した数だけ並べることが出来る」という機能の関数です。 この関数を使えば簡潔なコード記述で実行することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回は ...
続きを読む
vbajoineyecatch
エクセルVBAでJoin関数の使い方について説明します。 文字列を接続する関数ですが、 配列変数で文字列を要素化した時にはこれを使います。 また「区切り文字」も自由に設定できます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回は ...
続きを読む
vbamideyecstch
エクセルVBAで文字列操作は、コード作成の中でも重要な部分です。 Mid・Right・Left関数は、その操作の中で重要な働きをする関数です。 文字列を切り出すこの関数の基本部分を説明します。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
vbatrimeyecatch
Trim・RTrim・LTrimは文字列の端にあるスペースを取り除きます。 ちょっとのことですが、取り込みデータにスペースが付いていることでのエラーは発見修正が結構厄介です。 注意が必要です。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
vbastrcstreyecatch
エクセルVBAで、Str関数とCStr関数に使い方とその違いについて説明します。 戻り値にちょっとした違いがあります。 使い方の違いでその後のコードの進行に影響が出ることがあり、なおざりにはできません。 こんにちは、じゅんぱ店長(@junp ...
続きを読む
vbaleneyecatch
Len関数の使い方ついて説明します。 エクセルVBAでプログラミングを行う時に、テキストデータを加工処理するには必須の関数です。 非常に有用な関数ですので、是非使えるようになっておきましょう。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
VBACheckBoxeyecatch
エクセルシートで使う場合の、2種類あるチェックボックスの設置と使い方の違いを解説します。 一見簡単そうですが、 単純でない使い方をしたい時は、設置方法と設定方法を工夫する必要があります。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
VBAOptionbuttoneyecatch
エクセルで書類を作成する時、項目を選択できるようにするのがオプションボタンです。 これには2種類あり、使い方にかかわる違いもあります。 詳しいオプションボタン設置方法と使い方のコツを解説します。 こんにちは、じゅんぱ店長(@junpa33) ...
続きを読む
vbamojisousaeyecatch
エクセルVBAコードで、ファイルの保存時に名前を付けて保存について、その時の年月日を付けたい時の設定方法についてです。 保存されたファイルがたくさん増えて行く中で、ファイルの判別で年月日を付けている(付けたいと思っている)人も多いでしょう。 ...
続きを読む
vbajyufukueyecatch
今回は、同じ項目を一つにまとめるためのエクセルVBAコードを紹介します。 多数銘柄の商品を複数の店で扱っている場合、商品銘柄集計表を作るには、商品銘柄の種類だけをリストにしないといけません。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbafolderdeleteeyecatch
今回は、不要なフォルダをサクッと削除するエクセルVBAコードを紹介します。 削除の仕方は2つあります。VBA自身の機能を使うことと、FSOの機能を使うことの2つです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、不 ...
続きを読む
vbadirkilleyecatch
今回は、フォルダに保存されている要らないファイルを削除するエクセルVBAコードを紹介します。 フォルダを開いて一つずつファイル名を確認して、ではなくて、コード実行一発でササッと完了します。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
vbachdireyecatch
エクセルVBAのステートメントで「ChDir(チェインジディレクトリ)」というのがあります。 少々地味感のあるステートメントですが、この使い方のポイントを説明いたします。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAの ...
続きを読む
vbafindeyecatch001
今回は、データの検索方法で、エクセルVBAでできるメソッドについてです。 「FindとFindNextメソッド」の使い方と最速理解のコードの組み立て方を説明したいと思います。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルの検 ...
続きを読む
今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。 この記事では、データナンバーなどから、その必要な値や数値を抽出する「Vloolup関数」について使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbaindexeyecatch001
今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。 この記事では、データリストから必要な値や数値を取り出してくる「Index関数」について使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセ ...
続きを読む
vbamatcheyecatch001
エクセルVBAで利用できる関数についてがテーマです。 今回は、データリストから必要な値や数値を取り出してくる「Match関数」について、使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAでよく使うワーク ...
続きを読む
vbahairetu3eyecatch
エクセルVBAで変数を利用するとき、二次元配列変数を知っていれば何かと便利なことがあります。 今回はそんな配列変数をより実際に近い例題で説明していきます。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAのプログラムでは、 ...
続きを読む
vbahairetu2eyecatch
エクセルVBAで配列を利用する時、それに関わる関数やステートメントを利用すれば、 より簡潔にコードを作成することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBA 配列を扱うときに利用できる関数とステートメント ...
続きを読む
vbahairetueyecatch
エクセルVBAで変数を利用するとき、複数の同じ型で変数を設定したいときがあります。 そんな時、出番となるのが配列変数ということです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAの1次元配列変数の使い方を説明します。 ...
続きを読む
vbabuttoneyecatch
エクセルVBAのプログラムを実行するのに、ワークシート上に設置したボタンのクリックでワンポチっとで行いたい。 そんなボタンの簡単設置方法を紹介します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、シートにマクロ(プ ...
続きを読む
vbasumeyecatch
エクセルVBAで、羅列された数値の集計作業をパパッと熟していきたいときがありますよね。 それを簡単に行える方法としてSUM関数があります。今回はこのSUM関数の使い方についてです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセ ...
続きを読む
vbainputboxeyecatch
エクセルVBAのプログラムで、利用者からの入力データを取り込んでコードを実行していくことがあります。 その簡潔な方法としてInputBoxがあります。今回はこのInputBoxの使い方についてです。 こんにちは、じゅんぱ店長(@junpa3 ...
続きを読む
vbalastcelleyecatch
エクセルVBAのプログラム作成で、入力データをその都度蓄積していく場合など、 既にデータの入っている最終セルの位置を調べたいという時が多くあります。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAのコード組み立てで、デー ...
続きを読む
vbawithstateeyecatch
エクセルVBAのコードの組み立てでは、視認性や可読性を上げるためにできるだけ記述を簡潔にしたいところです。 Withステートメントは、そういったコード記述を簡潔にする役割があります。 こんにちは、じゅんぱ店長(@junpa33)です。 エク ...
続きを読む
vbacleareyecatch
エクセルVBAでシートを再利用するために、一度内容すべてをクリアしたい時があります。 普通は、Clearメソッドを使ってクリア操作を行いますが・・・ こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAを組み上げる中で、シート ...
続きを読む
vbaoffseteyecatch
エクセルVBAで、セルやセルの選択範囲を移動させるのにOffsetプロパティがあります。 今回の「VBA最速で理解」は、この便利な「Offsetプロパティ」の使い方について説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エ ...
続きを読む
vbanameeyecatch
エクセルVBAで、アクティブセル、アクティブシート、アクティブブックという「現在参照中の・・・」というオブジェクトがあります。 今回の「VBA最速で理解」は、この「ActiveWorkbook」「ActiveSheet」「ActiveCel ...
続きを読む
vbaselacteyecatch
エクセルVBAで、そのコードを実行する先のオブジェクトに、フォーカスするためのメソッドに、「Select」と「Activate」があります。 今回は、このよく似た「Select」と「Activate」について説明します。 こんにちは、じゅん ...
続きを読む
vbavbekidoeyecatch
エクセルVBAを始めようとしたときに一番最初に戸惑うのが、「どうしたらVBAコードを書く表示画面になるのか?」だと思います。 今回は、この「どうしたら、その画面になるんだろう?」についての方法を説明します。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbamsgboxeyecatch
エクセルVBAでユーザーフォームを使わなくても、簡単なユーザーとのやり取りならメッセージボックスでも可能です。 今回は、この「ユーザーへのメッセージや選択肢を提示する」ユーザーフォームについての説明をします。 こんにちは、じゅんぱ店長(@j ...
続きを読む
vbadoloopeyecatch
以前の記事でも書いたように、エクセルを使った業務で、「ループの処理」コードは重要な実行処理部分です。 今回は、このもう一つの「ループの処理」である「実行回数が限定されないループ処理」を行うコードについて説明します。 こんにちは、じゅんぱ店長 ...
続きを読む
vbafoldereyecatch
エクセルを使った業務で、「作成したファイルの保存」は作業の最後に必ず必要な部分です。 今回は、この「作成したファイルの保存」を行うための重要部分。保存先フォルダをVBAで指定する方法を説明します。 こんにちは、じゅんぱ店長(@junpa33 ...
続きを読む
vbasengeneyecatch
エクセルVBAのコード組み立てで使う変数。「この変数を使いますよ!」というのが「変数の宣言」です。 今回は、この変数の宣言についてです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBA のコード組立ての中で、変数の宣言は ...
続きを読む
vbaifjyokeneyecatch
エクセルVBAのコード組み立てで最も必要な、最もよく使うメソッドの1つで「If~Then~Else」があります。 今回はこの「If~Then~Else」メソッドについて設定条件の絞り方のポイントを説明します。 こんにちは、じゅんぱ店長(@j ...
続きを読む
VBACopyeyecatch
エクセルVBAのコード組み立てで、よく使うメソッドの1つで「Copy」メソッドがあります。 今回はこの「Copy」メソッドの使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、ワークシートのコピーをを ...
続きを読む
VBAGotoeyecatch001
エクセルVBAのコードで、Gotoステートメントは嫌われ系のグループにはいっています。 それでも、GotoがあるのでVBAコード組み立てがスムーズに、楽に、なる事も多いと言うのも事実です。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
fornextirekoeyecatch
エクセルVBAのコード組み立てで、非常によく使うステートメントの一つにFor~Nextでのループ処理があります。 今回はこのFor~Nextステートメントの使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルV ...
続きを読む

 

実際のご利用上において、

A6の用紙の準備方法や出力用として利便性のあるプリンターへの変更など、

実際に使っているものがありますので、参考にしていただける記事を載せておきます。

printerselecteyecatchaNECの業務用コンパクトプリンター5800Cは装備機能充実

 

<記事内容についての告知>VBAコードの記述記事においては、その記述には細心の注意をしたつもりですが、掲載のVBAコードは動作を保証するものではりません。 あくまでVBAの情報の一例として掲載しています。 掲載のVBAコードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。