無料！雑誌バックナンバー検索ツールダウンロードと使い方

雑誌のバックナンバー検索ツールを無料でダウンロードできます。
使い方を確認いただきご利用ください。
作成方法の記事で自作すれば、自分に合ったカスタマイズも出来ます。

こんにちは、じゅんぱ店長（＠junpa33）です。

エクセルVBAソフト「雑誌バックナンバー検索.xlsm」を作成してきましたが、

この記事では、ダウンロード（無料）と使い方の紹介を行います。

バックナンバー検索ツールの記事編成

バックナンバー検索ツールの使い方とダウンロード
- 無料！雑誌バックナンバー検索ツールダウンロードと使い方
バックナンバー検索ツール作成手順

コンテンツ

雑誌バックナンバー検索ツールのダウンロード

こちらから雑誌バックナンバー検索ツールのダウンロードを行うことが出来ます。

完成品はこちらです。

今まで解説しましたエクセルＶＢＡの完成品です。使用料は無料です。

＜このＤＬしたエクセルファイルはVBAコードを保護していますので改変できません。＞

最終形のダウンロードはこちら↓から。

雑誌バックナンバー検索ツール

1 ファイル 50.79 KB

ダウンロード

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

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

This software is free to use for your own business,

Reproduction or resale is not permitted, so please refrain from using it.

目次へ戻る

検索ツールの使い方

ダウンロードした「バックナンバー検索ツール」の利用方法を説明していきます。

ダウンロードと解凍

この記事より「BackNoKensakukaitei.zip」ファイルをダウンロードして、デスクトップなどそれぞれの適切な場所においてください。ここでは「新しいフォルダ」に置きました。

解凍して、「BackNoKensakukaitei」フォルダ ⇒「バックナンバー検索改訂版」フォルダ ⇒「雑誌バックナンバー検索.xlsm」と進めてください。

送品データの設置場所

「雑誌バックナンバー検索.xlsm」で利用する送品予定表は、「雑誌バックナンバー検索.xlsm」本体と同じホルダーにあることが必要です。

（自作の人向け）

送品予定表（データベースとなるファイル）を別フォルダで管理したい場合は、Module1に記述した送品予定表転記プロシージャーの「変数mbp」の記述を、指定したいフォルダパスに修正してください。

VBA

Sub 送品予定表転記()
    Dim mb As Workbook
    Dim wb As Workbook
    Dim mbp As Variant
    Dim fname As Variant
    Dim sname As Variant
    Dim n As Long
        Application.ScreenUpdating = False
        Set mb = ThisWorkbook
        mbp = ThisWorkbook.Path
        fname = Dir(mbp & "\*.xls")
        n = 0
        Do Until fname = Empty
           If fname <> mb.Name Then
               Worksheets.Add after:=mb.Worksheets(mb.Worksheets.Count)
               Set wb = Workbooks.Open(mbp & "\" & fname)
               wb.ActiveSheet.Cells.Copy _
                   Destination:=mb.Worksheets(mb.Worksheets.Count).Range("A1")
               sname = wb.ActiveSheet.Range("B2")
　　・・・・・
End SUB

ここでの参考記事

ブックを指定する絶対パスと相対パス記述のコツ