エクセルVBAを使ったバックナンバー検索!店長の強力業務ツール。

zassibackno02eyecatchaaa

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

 

今回は先回の記事の続きとなります。「雑誌バックナンバー検索.xlsm」を作成していきます。

 

先回の記事の読み直しはこちらから>>>

【雑誌】検索の作業を超簡単にする。送品予定表から作るエクセルVBA!

zassibacknoeyecatchaa 【雑誌】検索の作業を超簡単にする。送品予定表から作るエクセルVBA!

 

バックナンバー検索表作成記事一覧
zassibacknoeyecatchaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、先回作成した送品予定表のバックアップを利用して 雑誌のバックナンバー検索ができるようにします。 先回の記事の読み直しはこちらから>>> 【書店の販売増】発売雑誌の売り先管理はエクセ ...
続きを読む
zassibackno02eyecatchaaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回は先回の記事の続きとなります。「雑誌バックナンバー検索.xlsm」を作成していきます。 先回の記事の読み直しはこちらから>>> 【雑誌】検索の作業を超簡単にする。送品予定表から作るエク ...
続きを読む
zassibackno3eyecatchaaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回も先回の記事の続きです。「雑誌バックナンバー検索.xlsm」を作成していきます。 今回が最終回となります。 先回の記事の読み直しはこちらから>>> 【雑誌】エクセルVBAを使ったバック ...
続きを読む

 

 

 

今回の記事のテーマ

 

先回は送品予定表をひとまとめにしてデータベース化しました。今回は、

 

検索キーワードを入力してそのキーワードに従ったデータを表示できるようにします。

検索キーワードは何種類か考えられますが、

”送品年月日”・”雑誌名”・”雑誌コード”として進めていきます。

 

「雑誌バックナンバー検索.xlsm」作成の続き

boder82-01a

少し解説が長くなってくると思いますが、各標題に従って説明していきます。

キーワードによって検索結果を表示する

 

それではキーワードとして、”送品年月日”・”雑誌名”・”雑誌コード”を設定しています。

検索結果を適切に表示させるためには複数の条件を加味させる必要があります。

 

検索項目と表示方法の設計

 

「まとめデータ」シートでまとめた期間分をベースとして”雑誌名”や”雑誌コード”で検索した場合、まとめた期間についてその全期間を対象として検索結果が表示されてしまいます。

そこで、送品年月日の期間を設定して前年同期などの過去比較や期間比較ができるようにします。

 

VBAプログラムの進行的には、まず検索として雑誌名やコードでデータを絞り込みます。

さらに設定した期間により、検索されたデータをさらに選別抽出し、検索結果を確定させる流れとなります。

 

最後に、次の検索をするために前の検索結果表をクリアします。

前の検索結果保存のために「メモ」シートを適宜コピペ利用します。(ユーザーサイドの作業)

 

コードは ”Module2” に記述していきます。

 

雑誌名による検索のコード

 

ではまずModule2を挿入します。

方法はもうご存知とは思いますが、念のため挿入方法の確認はこちら↓です。

VBE(ビジュアルベーシックエディター)を起動する

関連記事

エクセルVBA 始めての起動。VBEの立ち上げ、保存と終了

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

 

検索条件の入力は”検索コントロールパネル”(ユーザーフォーム)で行いますので、モジュールの最初に使用する変数を宣言します。

コード⑥

Public fdatey As Variant
Public tdatey As Variant
Public fdatem As Variant
Public tdatem As Variant
Public fdated As Variant
Public tdated As Variant
Public myKEY As Variant
Public myKEYb As Variant
Public Krow As Long
Public Drow As Long

 

検索のためのコードを組み立てるには、検索ワードの項目欄を指定してFindとFindNextメソッドを利用します。

 

MEMO

入力セルの最終行を取得する方法はこちらを参考にしてください。

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

Findメソッドでの検索方法についてはこちらの記事を参考にできます。

vbafindeyecatch001エクセルVBA Findメソッドでの検索の方法とコード組み立てのコツ

「Do~Loop」の使い方についてはこちらの記事を参考にしてください。

vbadoloopeyecatchVBA 回数不定のループ処理はDo LoopとFor Each

 

コード⑦

Sub 雑誌名検索()
    Dim Tc As Range
    Dim Tcs As Range
    Dim myRange As Range
    Dim Frow As Long
    Dim i As Long, n As Long

    Worksheets("検索結果").Select
    検索結果クリア
    
    Worksheets("データまとめ").Range("A1", "L1").Copy _
                    Destination:=Worksheets("検索結果").Range("A1")

     Worksheets("データまとめ").Select
    Drow = Worksheets("データまとめ").Range("B1").CurrentRegion.Rows.Count
    Set myRange = Range("I2", "I" & Drow)

    H = 2
        Set Tc = myRange.Find(myKEY, LookIn:=xlValues, LookAt:=xlPart, MatchByte:=False)
        
        If Tc Is Nothing Then
            Worksheets("検索結果").Select
            MsgBox "「" & myKEY & "」はありませんでした"
            Exit Sub
            検索結果クリア
        End If
        
        Frow = Tc.Row
            Set Tcs = Tc
            Do
                Worksheets("データまとめ").Range("A" & Tcs.Row, "L" & Tcs.Row).Copy _
                        Destination:=Worksheets("検索結果").Range("A" & H)
                Set Tcs = myRange.FindNext(Tcs)
                If Tcs Is Nothing Then Exit Do
                H = H + 1
            Loop Until Tcs.Row = Frow

    Worksheets("検索結果").Select
    Krow = Range("B1").CurrentRegion.Rows.Count
    n = 1
    For i = 2 To Krow
        Range("A" & i) = n
        n = n + 1
    Next i
    期間設定
End Sub

backnoken2001a

 

期間の設定についてのコード

 

期間の設定による絞り込みの方法については、送品年月日の8桁数字を「年・月・日」に分解して数字の大小比較で行います。

期間の始まりと終わり(2項目)と年月日の3項目の条件設定(変数)を考えます。

最終的に絞り込み対象外の年月日データは「検索結果」表から削除しますが、絞り込み対象内か対象外かの条件判断が複数条件のため複雑になります。

そこで、

6条件を一つずつ比較していますが、その時の対象外のデータについては対象外マークをスタンプしていきます。(”●”を付けます。)

データチェック後

”●”のついたデータを「検索結果」表から削除しますが、今回の削除方法は少し変わった方法を使います。

”●”スタンプを「普通のデータ」感覚で、同一データ重複削除メソッド「RemoveDuplicates」を使って複数個の要削除データを一挙に1つに減らしてしまいます。

最後に残りの1つの”●”のセル位置を特定して行削除すればOKです。

(以前Do~Loopを使って削除しようとしてコードをミスって暴走させてしまったことがトラウマになってしまいました。個人的に)

説明が長くなりましたが、コードはこのようになります。

 

 

コード⑧

Sub 期間設定()
    
 Dim Y As Long
 Dim M As Long
 Dim D As Long
 Dim Krowc As Long
 Dim i As Long, j As Long, p As Long
    
 If fdatey = "" And tdatey = "" Then
    GoTo L01
 End If
    
    For j = 2 To Krow
        Y = Left(Range("B" & j), 4)
            If fdatey <> "" Then
                If Y < fdatey Then Range("A" & j) = "●" If Y > tdatey Then Range("A" & j) = "●"
            End If
        If Range("A" & j) <> "●" Then
            If fdatem = "" And tdatem = "" Then
            GoTo L02
            End If
            M = Mid(Range("B" & j), 5, 2)
                If fdatem <> "" Then
                    If M < fdatem Then Range("A" & j) = "●" If M > tdatem Then Range("A" & j) = "●"
                Else
                    fdatem = 0
                    If M > tdatem Then Range("A" & j) = "●"
                End If
        Else
        End If
        If Range("A" & j) <> "●" Then
            If fdated = "" And tdated = "" Then
            GoTo L02
            End If
            D = Mid(Range("B" & j), 7, 2)
            If fdated <> "" Then
                If D < fdated Then Range("A" & j) = "●" If D > tdated Then Range("A" & j) = "●"
            End If
        Else
        End If
L02:
    Next j
    
L01:
 Application.CutCopyMode = False

 ●削除

 With Worksheets("検索結果")
     .Range("A1").CurrentRegion.Sort key1:=.Range("B2"), Header:=xlYes
 End With
    
    Krowc = Range("B1").CurrentRegion.Rows.Count
    p = 1
    For i = 2 To Krowc
        Range("A" & i) = p
        p = p + 1
    Next i
    
 Range("A1").Select
 Module1.シート体裁
End Sub

 

コード⑨

Sub ●削除()

Dim Krow As Long
Dim Krowb As Long
Dim n As Long

    Krow = Range("B1").CurrentRegion.Rows.Count
  
    Range("A2:L" & Krow).RemoveDuplicates (Array(1))
  
    Krowb = Range("B1").CurrentRegion.Rows.Count
        For n = 2 To Krowb
            If Range("A" & n) = "●" Then
                Rows(n).Delete
            End If
        Next n
        
End Sub

 

雑誌ナンバーによる検索のコード

 

検索のためのコードを組み立てるには、「雑誌名による検索のコード」と同様に検索ワードの項目欄を指定してFindとFindNextメソッドを利用します。

コード⑩

Sub 雑誌NO検索()

    Dim Tcb As Range
    Dim Tcsb As Range
    Dim myRangeb As Range
    Dim Frowb As Long
    Dim i As Long, n As Long

    Worksheets("検索結果").Select
    検索結果クリア
    
    Worksheets("データまとめ").Range("A1", "L1").Copy _
                    Destination:=Worksheets("検索結果").Range("A1")

     Worksheets("データまとめ").Select
    Drow = Worksheets("データまとめ").Range("B1").CurrentRegion.Rows.Count
    Set myRangeb = Range("D2", "D" & Drow)

    H = 2
        Set Tcb = myRangeb.Find(myKEYb, LookIn:=xlValues, LookAt:=xlWhole, MatchByte:=False)
        
        If Tcb Is Nothing Then
            Worksheets("検索結果").Select
            MsgBox "「" & myKEYb & "」はありませんでした"
            Exit Sub
            検索結果クリア
        End If
        
        Frowb = Tcb.Row
            Set Tcsb = Tcb
            Do
                Worksheets("データまとめ").Range("A" & Tcsb.Row, "L" & Tcsb.Row).Copy _
                        Destination:=Worksheets("検索結果").Range("A" & H)
                Set Tcsb = myRangeb.FindNext(Tcsb)
                If Tcsb Is Nothing Then Exit Do
                H = H + 1
            Loop Until Tcsb.Row = Frowb

    Worksheets("検索結果").Select
    Krow = Range("B1").CurrentRegion.Rows.Count
    n = 1
    For i = 2 To Krow
        Range("A" & i) = n
        n = n + 1
    Next i
    期間設定

End Sub

 

検索結果のクリア

 

次の検索作業をするときのために、前の検索結果をクリアします。

このコードはいたって簡単です。

  • 全セルを掴んでClearメソッド
  • セルのUseStandardプロパティ

を使っています。

 

MEMO

シートのクリアのためのエクセルVBAコードの作り方については、この記事が参考になります。

vbacleareyecatchエクセルVBA シートのクリアーを目的のメソッド別に最速理解

 

コード⑪

Sub 検索結果クリア()

    Worksheets("検索結果").Cells.Clear
    With Worksheets("検索結果")
        .Cells.UseStandardHeight = True
        .Cells.UseStandardWidth = True
    End With

End Sub

少し長い画像になってしまいました。

backnoken2005a

 

ここまでのまとめ

 

 

またまた長い生地になってしまいましたので、今回はここまでとします。

 

次回第三部は「検索コントロールパネル」をユーザーフォームで作成します。

 

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

 

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

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

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

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

 

次の記事を読んでみる。>>>

「バックナンバーの検索ツール。VBAユーザーフォームの使い方を解説」

zassibackno3eyecatchaaa バックナンバーの検索ツール。VBAユーザーフォームの使い方を解説

 

エクセル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コードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。