本の在庫管理表の作成。書名をデータベースからマッチングさせる方法

sagyousheeteyecatcha

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

 

雑誌と書籍の在庫管理表のソフト作成の中で、今回は前回に続き

「書誌棚卸表.xlsm」の「作業シート」での操作を行うVBAコードの説明です。

 

前の記事の確認をするにはこちら↓から。

雑誌と書籍 在庫表作成のエクセルVBAを解説。ISBNコード加工編

datacopyeyecatchaa 雑誌と書籍 在庫表作成のエクセルVBAを解説。ISBNコード加工編

 

「雑誌と書籍の在庫リスト」の完成形はこの記事↓をご覧ください。

【棚卸し】無料!在庫管理表の作成が面倒でなくなるエクセルVBAソフト

syoshieyecatchaaa 【棚卸し】無料!在庫管理表の作成が面倒でなくなるエクセルVBAソフト

 

雑誌と書籍の在庫リスト作成記事一覧
syoshieyecatchaaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回から雑誌と書籍の在庫リストを作成していきます。 ソフト作成の基本のコンセプトは、青色申告に必要な期末棚卸に対応できる表の作成です。 これから作る棚卸し表は、入庫・出庫時の在庫管理表にも ...
続きを読む
codeeyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回からしばらく棚卸しに使える「雑誌と書籍の在庫リスト」作成のためのVBAコードの説明をしていきたいと思います。 今回は「コード入力表」についてです。 基本的には、バーコードリーダーを使っ ...
続きを読む
datacopyeyecatchaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回は「書誌棚卸表.xlsm」の「データコピー」と「作業シート」シート作成のためのVBAコードの説明をしていきたいと思います。 前の記事の確認をするにはこちら↓から。 バーコードで在庫調べ ...
続きを読む
sagyousheeteyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 雑誌と書籍の在庫管理表のソフト作成の中で、今回は前回に続き 「書誌棚卸表.xlsm」の「作業シート」での操作を行うVBAコードの説明です。 前の記事の確認をするにはこちら↓から。 雑誌と書 ...
続きを読む
kanseizaikoeyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 雑誌と書籍の在庫管理表のソフト作成方法について、 今回の記事内容は、 在庫表に表示するデータを今まで作成・整理してきましたが、 それを清書という形で、新しいシートに表示します。 「書誌棚卸 ...
続きを読む
sakujyoeyecatch002aa
こんにちは、じゅんぱ店長(@junpa33)です。 雑誌と書籍の在庫管理表のソフト作成方法についてです。 今回は、 在庫表作成で今まで入力や表示を行ったデータを、 クリアーするためのエクセルVBAを考えていきます。 「書誌棚卸表.xlsm」 ...
続きを読む
controleyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回も雑誌と書籍の在庫管理表のソフト作成方法についてです。 今回が最終回となります。 在庫表作成で今まで作ってきたそれぞれのVBAコードを起動するため、 コントロールパネルをユーザーフォー ...
続きを読む
shosizaikokaiteieyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今までも多くの方にダウンロードいただいております、 「雑誌と書籍の在庫リスト」について、バージョンアップを行いました。 今回の改定は、エクセルVBAコードの一部追加になります。 そしてこち ...
続きを読む
syosidataeyecatch002
多くの方にダウンロードいただいております「改訂版雑誌と書籍の在庫リスト」について、 書籍データベースを、最新にバージョンアップを行いました。 こんにちは、じゅんぱ店長(@junpa33)です。 改訂版雑誌と書籍の在庫リストソフトに使う用の書 ...
続きを読む
syosidataeyecatch001
「改訂版雑誌と書籍の在庫リスト」に使用する雑誌のデータベースを改訂します。 最新にバージョンアップを行いましたので、20年度の棚卸対応できるようになりました。 こんにちは、じゅんぱ店長(@junpa33)です。 本年度版の改訂版雑誌と書籍の ...
続きを読む

 

 

 

在庫管理表の作成のためのVBA組み立ての流れ

 

今回はVBAコードをModule2に記述します。

 

「作業シート」において、

  • リスト中にある同じ書誌を整理して1タイトル1表示とします。
  • それぞれの冊数と単価とその合計金額を計算します。(税別で)
  • データベースからそれぞれの書名を検索し表示します。

 

ここがこのエクセルVBAソフトのいわば心臓部分になります。

 

結果表示は、「作業シート」の余白部分に表示するようにします。

 

Module2で記述するコード

souyosakuborder011a

項目表示と重複削除

 

先頭行に項目を表示します。

E列からJ列まで使用します。

この様な感じです。

コード①

Sub 項目表示()

Worksheets("作業シート").Select
    Range("E1") = "場所"
    Range("F1") = "書誌コード"
    Range("G1") = "書名"
    Range("H1") = "本体価格"
    Range("I1") = "冊数"
    Range("J1") = "合計"

End Sub

 

リスト中の書誌タイトルの重複を削除します。

”Dictionaryオブジェクト”を利用して重複なしリストを作っていきます。

 

MEMO

Dictionaryオブジェクトについてはこの記事を参考にしてください。

vbajyufukueyecatchエクセルVBA 同じ項目をまとめる(重複データの整理)コード作成

最終行の取得についてはこちらを参考にしてください。

vbalastcelleyecatchエクセルVBA データ入力済セルの最終行番号を取得する方法

 

コード②

Sub 書誌重複削除()

Dim Krow As Long
Dim i As Long, j As Long
Dim myKeys As Variant, myItems As Variant
Dim Dic As Object
    Range("F:F").NumberFormatLocal = "@"
    Set Dic = CreateObject("Scripting.Dictionary")

    Krow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To Krow
        On Error Resume Next
        Dic.Add Worksheets("作業シート").Cells(i, 1).Value, ActiveSheet.Cells(i, 2).Value
    Next i

    For j = 0 To Dic.Count - 1
        myKeys = Dic.keys
        myItems = Dic.Items

        Range("F" & j + 2).Value = myKeys(j)
        Range("H" & j + 2).Value = myItems(j)
    Next j
    With Range("F:H")
        .EntireColumn.AutoFit
    End With
 Set Dic = Nothing
End Sub

 

合計金額の計算と表示

 

ここの部分は、数量と単価から合計金額を計算します。

単価は本体価格(税抜き価格)の表示ですので、合計金額も税抜き価格で表示しています。

 

MEMO

Match関数についてはこちらを参考にしてください。

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

 

コード③

Sub 冊数合計マッチ()

Dim Mr As Long
Dim m As Long

frow = Cells(Rows.Count, 6).End(xlUp).Row

For m = 1 To frow
    On Error Resume Next
    Mr = WorksheetFunction.Match(Range("F" & m), Range("A:A"), 0)
    Range("I" & m).Value = Range("C" & Mr).Value
    Range("J" & m).Value = Range("H" & m).Value * Range("I" & m).Value
    If Range("F" & m) = "" Then
        Range("H" & m, "J" & m) = ""
    End If
Next m

With Range("I:I")
    .NumberFormatLocal = "0_"
    .EntireColumn.AutoFit
End With
With Range("J:J")
    .NumberFormatLocal = "\#,##0;\-#,##0"
    .EntireColumn.AutoFit
End With

End Sub

 

データベースから書名をマッチング

 

ここでのVBAコード組み立てのお約束

MEMO
  • データベースを収納しているフォルダー名は「書誌データベース」となっています。このフォルダー名は固定(変更不可)です。
  • フォルダー名を変更する場合は必ずVBAコード上でも変更修正する必要があります。
  • データベース名は自由です。ただしファイル形式はエクセルまたはcsvファイルに限ります。
  • データベースの内容は、「Sheet1」名のシートに記述する必要があります。
  • データベースのレイアウトは、「D列に書誌コード」、「I列に書誌名」を指定しています。それ以外は特に固定事項はありません。自由です。

書誌名挿入 プロシージャー

データベースとなるファイルを開いて雑誌コードやISBNコードから書誌名を探します。

このプロシージャーでは、ファイルを開くためのダイアログボックスを表示して、

開くファイルを指定する用のプログラムになります。

データベースを収納しているフォルダー名は「書誌データベース」となっています。このフォルダー名は固定(変更不可)です。

フォルダー名を変更する場合は必ずVBAコードも変更修正する必要があります。

ファイルを開いた後は別のプロシージャー「書誌チェック」を呼び出して書誌名検索に移ります。

そのファイルでの検索が終了したら、次に別のファイルを開くかどうか聞いてきますので、

「はい」か「いいえ」で応答します。

 

 

MEMO

保存先フォルダをダイアログで開く方法についてはこちらを参考にしてください。

vbafoldereyecatchExcel VBA 保存先フォルダをダイアログ指定で変数化

With ~ End With の使い方はこちらを参考にしてください。

vbawithstateeyecatchWith~End Withの使い方。VBAコードを簡潔に記述する

 

コード④

Sub 書誌名挿入()

step_cont:
Application.ScreenUpdating = False
Dim RP As Integer
Dim FileD As FileDialog

Set FileD = Application.FileDialog(msoFileDialogOpen)
    With FileD
        .ButtonName = "開く"
            With .Filters
                .Clear
                .Add "Excelブック", "*.xls; *.xlsx; *.xlsm", 1
                .Add "テキストファイル", "*.csv", 2
            End With
         .InitialFileName = ThisWorkbook.Path & "\書誌データベース\"
         .InitialView = msoFileDialogViewLargeIcons
            If .Show = True Then
                .Execute
    
            Else
                MsgBox "終了します。"
                Exit Sub
            End If
    End With

Call 書誌チェック

        With Range("F:J")
            .EntireColumn.AutoFit
        End With

RP = MsgBox("続けてデータベースを開きますか?" & vbCrLf &_ 
      "続けるには「はい」を" & vbCrLf & "終わるには「いいえ」を", _
  vbYesNo + vbQuestion, "確認")
    If RP = vbYes Then
        GoTo step_cont
    Else
        Application.ScreenUpdating = True
        Exit Sub
    End If

Application.ScreenUpdating = True
End Sub

 

書誌チェック プロシージャー

 

書誌名挿入 プロシージャーでファイルを開いた後は、別のプロシージャー「書誌チェック」を呼び出して書誌名検索に移ります。

雑誌やISBN書籍コードの桁数がおかしい場合は、検索自体を終了するかその検索だけをジャンプするかを選択します。

そのファイルでの検索が終了したら、次に別のファイルを開くかどうか聞いてきますので、

「はい」か「いいえ」で応答します。

 

 

MEMO

Len関数についてはこちらを参考にしてください。

vbaleneyecatchエクセルVBA Len関数で文字列の文字数を知る方法

Trim 関数についてはこちらを参考にしてください。

vbatrimeyecatchエクセルVBA スペースを取り除くTrim関数・RTrim関数・LTrim関数の使い方

Right関数、Left関数についてはこちらを参考にしてください。

vbamideyecstchエクセルVBA Mid関数・Right関数・Left関数で文字列の一部を切り出す

Val関数についてはこちらを参考にしてください。

VBAValeyecatchエクセルVBA Val関数の使い方「値を文字列型から数値型へ変換する」

Match関数についてはこちらを参考にしてください。

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

 

コード⑤

Private Sub 書誌チェック()

Application.ScreenUpdating = False
Dim ASrow As Long
Dim ASname As String
Dim SRV As Variant
Dim SC As Variant, SCt As Variant, Sr As Long, SCa As Long, SCS As String
Dim SCG As String, SN As Variant, SNS As Long
Dim s As Long
Dim MsgR As Integer

Dim BK As Workbook
Set BK = ActiveWorkbook
Dim BS As Worksheet
Set BS = BK.Worksheets("Sheet1")

Dim TB As Workbook
Set TB = Workbooks("書誌在庫表.xlsm")
Dim SS As Worksheet
Set SS = TB.Worksheets("作業シート")

TB.Activate
SS.Select
frow = Cells(Rows.Count, 6).End(xlUp).Row

For s = 2 To frow

SC = 0
TB.Activate
SS.Select
SRV = Range("F" & s).Value
If SRV = "" Then GoTo step_a
    SCS = CStr(SRV)
    
        If Len(Trim(SCS)) = 6 Then
                SC = CLng(Left(Trim(SCS), 4))
                SCG = CLng(Right(Trim(SCS), 2)) & "月"
                                
        ElseIf Len(Trim(SCS)) = 7 Then
        
                SC = CLng(Left(Trim(SCS), 5))
                SCG = CLng(Right(Trim(SCS), 2)) & "月"
                                
        ElseIf Len(Trim(SCS)) = 13 Then
                SCt = Right(Trim(SCS), 10)
                SC = Val(SCt)
                SCG = ""
                           
        Else
                   
                MsgR = MsgBox("コードの桁数が違います。" & vbCrLf & _
        "全体処理を中止しますか?(はい)" & vbCrLf & _
                              "この処理をJumpますか?(いいえ)", vbYesNo + vbExclamation)
                If MsgR = vbYes Then
                    Exit Sub
                Else

                End If
        End If
            
        BK.Activate
        BS.Select
        Sr = 0

            On Error Resume Next
            Sr = WorksheetFunction.Match(SC, Range("D:D"), 0)

            If Err.Number = 1004 Then

                Err.Clear

            Else
                SN = Range("I" & Sr)
                TB.Activate
                SS.Select
                If SN <> "" Then
                    Range("G" & s) = SN & " " & SCG
              
                End If
            End If
step_a:

Next s

With Range("G:G")
    .EntireColumn.AutoFit
End With
BK.Close False
Application.ScreenUpdating = True
End Sub

 

ここまでのまとめ

 

 

まとめるとこのようになります。

sagyosheet001234a

 

今回のこの記事部分が「書誌棚卸表.xlsm」のプログラムの核心部分となっています。

 

データを検索する部分は「Match」を使っています。

検索対象の書誌コードについては、いろいろなエラーとなるケースが考えれます。主だったエラーのケースを想定してVBAプログラムに反映させたつもりです。

想定に漏れたエラーが出たときはプログラムが停止してしまいますが、その都度コード修正でご対応お願いします。

 

次回記事は作業シートで書きだした「雑誌と書籍の在庫表」を新しいシートに清書するVBAコードについてです。

 

次の記事を読むのはこちらから↓

エクセルVBAで書誌の棚卸表を作成。調査個所別にシート表記する方法

kanseizaikoeyecatcha エクセルVBAで書誌の棚卸表を作成。調査個所別にシート表記する方法

 

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

 

エクセル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 ...
続きを読む

 

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