のし書き作成のエクセル ワークシートにコントロールを設置する方法

noshigakisyousai2eyecatch

「のし書き作成エクセルソフト」のVBAコード組み立ての解説を行っています。

今回は、選択項目の選択方法でシート上にコントロールを配置します。
ユーザーフォームを設置しなくても利便性を上げることが出来ます。

 

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

今回も先回の続きの、「のし書き作成エクセルソフト」のVBAコード組み立ての解説を行っていきます。

のし書き作成エクセルソフトの「設定」シートの作り方についての第2回です。

 

 

「のし書き作成ソフト」詳細設定シートの
項目選択のコントロールを設置します

 

先回の記事で詳細設定シートの作表と項目表示のエクセルVBAを組み立てました。

 

今回は、その表示された項目を選択するためのコントロールとして、

オプションボタンとチェックボックス、記述したVBAコードを起動するコマンドボタンを設置します。

 

今回設置するこのようなコントロールは、ユーザーフォーム上でよく利用しますが、

ワークシート上でも簡単に利用することが出来る方法を紹介します。

 

コントロール設置のエクセルVBA組み立てのポイント

 

まず今回、オプションボタンを利用した理由は、「9つの設定項目一覧表」の中で選択項目を選ぶのに、

” クリック一つで ” 簡単に選択できるという理由からです。

ただしこれを機能させるためには

「9つの設定項目の一覧表」別に ” どれか一つを選択できる設定にする。” ことが必要になります。

デフォルトの設定ではそのようになっていません。

 

また、チェックボックスは非常に便利に使えますが、ちょっと注意しないといけないことがあります。

チェックボックスは、 ” チェックされた!(チェックマークが付いた) ”

というイベントに対して「True」という答えを返す機能があります。

逆に、 ” チェックマークを外した ” というイベントに対しては「False」を返してきます。

ですので、チェックボックスを使う場合は、If条件文で条件分岐させることが必要になります。

 

前回記事までの仕上がり

 

先回までに行った作業で、「設定」シートはこのような状態になっています。

今回はそれぞれの選択項目の左のセル(チェック欄)に、

オプションボタンやチェックボックスを配置します。

noshigakisettei001a

 

今回記事での作業完了状態

 

今回の作業終了時には「設定」シートはこのような状態になっています。

noshigakisettei004

 

エクセルVBA組み立ての各ポイント詳細

 

オプションボタンの設置

 

オプションボタンを設置していきます。

全部で61か所になります。

設置自体はすべて同じ作業になりますので、同様の作業を順番に行ってください。

noshigakisettei005

矢印下001

noshigakisettei006a

「開発」タブ→「挿入」→「ActiveX オプションボタン」

noshigakisettei007a

シートに設置し、即 右クリックでコピーを選択

矢印下001

オプションボタンをコピーしましたので、

あとは、ひたすらペーストしていってください。

noshigakisettei008

 

チェックボックスの設置

 

チェックボックスもオプションボタンと要領は同じです。

noshigakisettei009a

(設置方法はオプションボタンを参考に)

 

コマンドボタンの設置

 

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

noshigakisettei012a

コマンドボタンのプロパティ設定変更

 

noshigakisettei013a

オブジェクト名 設定確定  Caption 1.設定確定ボタン

オブジェクト名 設定欄リセット Caption 設定欄リセット

オブジェクト名 熨斗印刷  Caption 2.熨斗印刷ボタン

オブジェクト名 熨斗書き保存  Caption 3.熨斗書きシート保存

と、してください。

 

設置完了したら次の作業です

 

このように出来ましたでしょうか?

noshigakisettei004

 

出来上がったところで次の作業です。

「開発」タブでデザインモードをクリックします。

noshigakisettei010a

そのあと、ひたすら設置したオプションボタンをダブルクリックしていきます。

すべてのオプションボタンをダブルクリックしてください。

 

シートモジュールへのVBAコード記述(オプションボタン)

 

シートモジュールにエクセルVBAコードが記入されていきます。

コード

Option Explicit

Private Sub OptionButton1_Click()

End Sub

Private Sub OptionButton2_Click()

End Sub

以下 続きます。

 

オプションボタンがクリックされた時、そのボタンに対応する項目が選択されたことになります。

その選択された項目が「項目選択済み一覧」にその都度表示されるようにVBAコードを作ります。

コード

Private Sub OptionButton1_Click()

    Range("I25") = Range("C4").Value

End Sub

Private Sub OptionButton2_Click()

    Range("I25") = Range("C5").Value

End Sub

 

「項目選択済み一覧」の表示位置に注意しながら、順次続けてVBAコードの作成を行っていきます。

 

オプションボタンのプロパティ設定変更

オプションボタンを同じシートに複数設置した場合

デフォルトでは、設置したすべてのオプションボタンは一つの同じ(シート名の)グループとみなされます。

何が起こるかというと、『 100個のオプションボタンを設置しても、選択できるのはたった一つ』

と、いうことになります。

そこで、9つの設定項目一覧ごとに「グループ設定」を行って、9つの一覧表ごとに選択できるように変更します。

ポイント

  • オブジェクト名 を確認します。
  • Caption は空欄にします。
  • GroupeName はお好きな名前でOK。他グループとの同名は不可。

noshigakisettei011a

 

シートモジュールへのVBAコード記述(チェックボックス)

 

この「のし書き作成エクセルソフト」の「設定」シートで利用するチェックボックスは、

「贈り主名併記」設定項目のオプションボタンと連携して機能するようになっています。

つまり、

「贈り主名入れ表書き」設定項目のチェックボックスが幾らチェックONされても、

「贈り主名併記」設定項目のオプションボタンの条件に合わなければ、

「贈り主名入れ表書き」設定項目のチェックボックスが無効化されるような仕組みになっています。

このシートモジュール上では、

オプションボタンとチェックボックスの設定が正しいかどうかを判定するVBAコードを組んでいます。

 

MEMO

一次元配列変数(動的配列)の使い方について詳しくはこちらです。

vbahairetueyecatchエクセルVBA 1次元配列変数の利用法を最速に理解

 

コード

'併記する人数をチェックします
Private Sub commandbutton1_Click()

    Dim P As Long, i As Long, E As Long
    
'チェックボックスを配列変数にセット
        Dim Cheb(5) As Object
        Set Cheb(1) = CheckBox3
        Set Cheb(2) = CheckBox4
        Set Cheb(3) = CheckBox5
        Set Cheb(4) = CheckBox6
        Set Cheb(5) = CheckBox7
        P = 0
        If Worksheets("設定").Range("I39") = "併記しない" Then
            E = 1
        ElseIf Worksheets("設定").Range("I39") = "2人併記" Then
            E = 2
        ElseIf Worksheets("設定").Range("I39") = "3人併記" Then
            E = 3
        End If
        
'チェックボックスがチェックされている合計数を調べている
        For i = 1 To 5
            If Cheb(i).Value = True Then
                P = P + 1
            End If
        Next
    
        If P >= E + 1 Then
            MsgBox "チェック項目最大数を超えています。"
            
'設定数に合わない場合はチェックボックス全クリアする
            For i = 1 To 5
                Cheb(i).Value = False
            Next
        End If

End Sub

 

シートモジュールへのVBAコード記述(コマンドボタン)

 

コマンドボタンで呼び出す、標準モジュールのプロシージャーは

今の段階では作成していませんが、

次の段階で、このような名前で作成します。

コード

Private Sub 設定確定_Click()

    commandbutton1_Click
    Call Module1.設定決め

End Sub

Private Sub 設定欄リセット_Click()
    Call Module2.設定欄作成
End Sub

Private Sub 熨斗印刷_Click()
    Call Module1.熨斗テンプレベースB
End Sub

Private Sub 熨斗書き保存_Click()
    Call 熨斗シート保存
End Sub

 

シートモジュールのVBAコード全体

 

シートモジュールのVBAコード全体
コード

Option Explicit

'併記する人数をチェックします
Private Sub commandbutton1_Click()

    Dim P As Long, i As Long, E As Long
    
'チェックボックスを配列変数にセット
        Dim Cheb(5) As Object
        Set Cheb(1) = CheckBox3
        Set Cheb(2) = CheckBox4
        Set Cheb(3) = CheckBox5
        Set Cheb(4) = CheckBox6
        Set Cheb(5) = CheckBox7
        P = 0
        If Worksheets("設定").Range("I39") = "併記しない" Then
            E = 1
        ElseIf Worksheets("設定").Range("I39") = "2人併記" Then
            E = 2
        ElseIf Worksheets("設定").Range("I39") = "3人併記" Then
            E = 3
        End If
        
'チェックボックスがチェックされている合計数を調べている
        For i = 1 To 5
            If Cheb(i).Value = True Then
                P = P + 1
            End If
        Next
    
        If P >= E + 1 Then
            MsgBox "チェック項目最大数を超えています。"
            
'設定数に合わない場合はチェックボックス全クリアする
            For i = 1 To 5
                Cheb(i).Value = False
            Next
        End If

End Sub

'熨斗サイズ→
Private Sub OptionButton1_Click()

    Range("I25") = Range("C4").Value

End Sub

Private Sub OptionButton2_Click()

    Range("I25") = Range("C5").Value

End Sub

Private Sub OptionButton3_Click()
     
    Range("I25") = Range("C6").Value

End Sub

Private Sub OptionButton4_Click()
    
    Range("I25") = Range("C7").Value

End Sub

Private Sub OptionButton5_Click()

    Range("I25") = Range("C8").Value

End Sub  '←熨斗サイズ

'贈り主名印字スタイル→
Private Sub OptionButton11_Click()
    
    Range("I31") = Range("I4").Value

End Sub

Private Sub OptionButton12_Click()
    
    Range("I31") = Range("I5").Value

End Sub

Private Sub OptionButton13_Click()
    
    Range("I31") = Range("I6").Value
    
End Sub

Private Sub OptionButton14_Click()
    
    Range("I31") = Range("I7").Value
    
End Sub

Private Sub OptionButton15_Click()
    
    Range("I31") = Range("I8").Value
    
End Sub  '←贈り主名印字スタイル

'慶弔名表書き→
Private Sub OptionButton16_Click()
    
    Range("I33") = Range("C12").Value

End Sub

Private Sub OptionButton17_Click()
    
    Range("I33") = Range("C13").Value

End Sub

Private Sub OptionButton18_Click()
    
    Range("I33") = Range("C14").Value

End Sub

Private Sub OptionButton19_Click()
    
    Range("I33") = Range("C15").Value

End Sub

Private Sub OptionButton20_Click()
    
    Range("I33") = Range("C16").Value

End Sub

Private Sub OptionButton21_Click()
    
    Range("I33") = Range("C17").Value

End Sub

Private Sub OptionButton22_Click()
    
    Range("I33") = Range("C18").Value

End Sub

Private Sub OptionButton23_Click()
    
    Range("I33") = Range("C19").Value

End Sub

Private Sub OptionButton24_Click()
    
    Range("I33") = Range("C20").Value

End Sub

Private Sub OptionButton25_Click()
    
    Range("I33") = Range("C21").Value

End Sub

Private Sub OptionButton26_Click()
    
    Range("I33") = Range("C22").Value

End Sub

Private Sub OptionButton27_Click()
    
    Range("I33") = Range("C23").Value

End Sub

Private Sub OptionButton28_Click()
    
    Range("I33") = Range("C24").Value

End Sub

Private Sub OptionButton29_Click()
    
    Range("I33") = Range("C25").Value

End Sub

Private Sub OptionButton30_Click()
    
    Range("I33") = Range("C26").Value

End Sub

Private Sub OptionButton31_Click()
    
    Range("I33") = Range("C27").Value

End Sub

Private Sub OptionButton32_Click()
    
    Range("I33") = Range("C28").Value

End Sub

Private Sub OptionButton33_Click()
    
    Range("I33") = Range("C29").Value

End Sub

Private Sub OptionButton34_Click()
    
    Range("I33") = Range("C30").Value

End Sub

Private Sub OptionButton35_Click()
    
    Range("I33") = Range("C31").Value

End Sub

Private Sub OptionButton36_Click()
    
    Range("I33") = Range("C32").Value

End Sub

Private Sub OptionButton37_Click()
    
    Range("I33") = Range("C33").Value

End Sub

Private Sub OptionButton38_Click()
    
    Range("I33") = Range("C34").Value

End Sub

Private Sub OptionButton39_Click()
    
    Range("I33") = Range("C35").Value

End Sub

Private Sub OptionButton40_Click()

    Range("I33") = Range("C36").Value

End Sub

Private Sub OptionButton41_Click()

    Range("I33") = Range("C37").Value

End Sub

Private Sub OptionButton42_Click()

    Range("I33") = Range("C38").Value

End Sub

Private Sub OptionButton43_Click()

    Range("I33") = Range("C39").Value

End Sub

Private Sub OptionButton44_Click()

    Range("I33") = Range("C40").Value

End Sub

Private Sub OptionButton45_Click()

    Range("I33") = Range("C41").Value

End Sub

Private Sub OptionButton46_Click()

    Range("I33") = Range("C42").Value

End Sub

Private Sub OptionButton47_Click()

    Range("I33") = Range("C43").Value

End Sub    '←慶弔名表書き

'文字フォント種→
Private Sub OptionButton48_Click()
    
    Range("I35") = Range("F12").Value

End Sub

Private Sub OptionButton49_Click()
    
    Range("I35") = Range("F13").Value

End Sub

Private Sub OptionButton50_Click()
    
    Range("I35") = Range("F14").Value

End Sub

Private Sub OptionButton51_Click()
    
    Range("I35") = Range("F15").Value

End Sub

Private Sub OptionButton52_Click()


    Range("I35") = Range("F16").Value

End Sub

Private Sub OptionButton53_Click()

    Range("I35") = Range("F17").Value

End Sub

Private Sub OptionButton54_Click()

    Range("I35") = Range("F18").Value

End Sub

Private Sub OptionButton55_Click()

    Range("I35") = Range("F19").Value

End Sub    '←文字フォント種

'贈り主の文字の制御→
Private Sub OptionButton56_Click()
    
    Range("I37") = Range("I12").Value

End Sub

Private Sub OptionButton57_Click()
    
    Range("I37") = Range("I13").Value

End Sub    '←贈り主の文字の制御

'文字フォントサイズ→
Private Sub OptionButton58_Click()

    If Range("F24") = "" Then Exit Sub
    Range("I41") = Range("F24").Value

End Sub

Private Sub OptionButton59_Click()

    If Range("F25") = "" Then Exit Sub
    Range("I41") = Range("F25").Value

End Sub

Private Sub OptionButton60_Click()

    If Range("F26") = "" Then Exit Sub
    Range("I41") = Range("F26").Value

End Sub

Private Sub OptionButton61_Click()

    If Range("F30") = "" Then Exit Sub
    Range("I43") = Range("F30").Value

End Sub

Private Sub OptionButton62_Click()

    If Range("F31") = "" Then Exit Sub
    Range("I43") = Range("F31").Value

End Sub

Private Sub OptionButton63_Click()

    If Range("F32") = "" Then Exit Sub
    Range("I43") = Range("F32").Value

End Sub    '←文字フォントサイズ

'送り主名併記→
Private Sub OptionButton64_Click()
    
    Range("I39") = Range("I17").Value

End Sub

Private Sub OptionButton65_Click()
    
    Range("I39") = Range("I18").Value

End Sub

Private Sub OptionButton66_Click()
    
    Range("I39") = Range("I19").Value

End Sub    '←送り主名併記

'設定した項目を確定する
Private Sub 設定確定_Click()

    commandbutton1_Click
    Call Module1.設定決め

End Sub

Private Sub 設定欄リセット_Click()
    Call Module2.設定欄作成
End Sub

Private Sub 熨斗印刷_Click()
    Call Module1.熨斗テンプレベースB
End Sub

Private Sub 熨斗書き保存_Click()
    Call 熨斗シート保存
End Sub

 

詳細設定シートの項目選択の
コントロール設置のまとめ

 

今回設置したオプションボタン、チェックボックス、コマンドボタンは、

マウスクリック操作で起こるイベントからの動作をシートモジュールで記述することになります。

その動作としては、シートのセルへ値を書き込んだり、

標準モジュールに記述されたプロシージャーを呼び出し実行させたり、ということになります。

 

次回は、今回の選択された項目をシート上で反映させていくVBAコードを組み立てます。

 

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

 

MEMO

のし書き作成エクセルソフトのダウンロードは、こちら↓の記事から行うことが出来ます。

nishigakieyecatch無料ダウンロード のし書き作成エクセルソフト!既製のし紙が使えます

 

のし書き作成エクセルのそのほかの記事はこちら

nishigakieyecatch
今回は、慶弔の贈り物に必要になる、のし書きについてです。 エクセルVBAを使った、既製ののし紙に文字を表書き印刷できる「のし書き作成エクセルソフト」についてです。 作成に必要な項目を指定するだけで、簡単に表書き文字を印字することが出来ます。 ...
続きを読む
nishigakisyousaieyecatch
のし書き作成のエクセルVBAコードを組み立てていきます。 今回は詳細設定シート編です。 シートを直接的に加工して作表するのではなく、作表をVBAから行うことで何度でも初期状態にリセットすることが出来ます。 こんにちは、じゅんぱ店長(@jun ...
続きを読む
noshigakisyousai2eyecatch
「のし書き作成エクセルソフト」のVBAコード組み立ての解説を行っています。 今回は、選択項目の選択方法でシート上にコントロールを配置します。 ユーザーフォームを設置しなくても利便性を上げることが出来ます。 こんにちは、じゅんぱ店長(@jun ...
続きを読む
noshitempeyecatch
のし書き作成のための印刷テンプレートを作ります。 作成のために設定される項目はたくさんあります。 このたくさんの設定項目のために、組み立てるVBAコードが煩雑なものにならないように注意が必要です。 こんにちは、じゅんぱ店長(@junpa33 ...
続きを読む
noshihozoneyecatch
のし書き作成の印刷テンプレートで、シートを保存するエクセルVBAコードを解説します。 作成したのし書きを再利用できるようにするためのものです。 毎回、同じものを作成しなくても大丈夫になります。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む

 

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