簡単に!差出人を封筒に印刷する。エクセルVBAコード設定

fuutosasidasieyecatch

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

 

今回の封筒宛名印刷エクセルは、差出人印刷についてです。

特徴は、サイズにわせて縦印刷と横印刷に対応し、また差出人を変更することもできます。

SHOP名で、個人で、ハンネで出す場合などにも使えます。

 

まず先回の記事を確認されたいという場合は、こちら↓になります。

エクセルVBAアクティブセルの利用。印刷の範囲を指定!封筒宛名印刷

fuutorenzokueyecatch エクセルVBAアクティブセルの利用。印刷の範囲を指定!封筒宛名印刷

 

簡単に利用するには、こちらをご覧ください。

このエクセルソフト完成品を無料でダウンロードするにはこちら↓の記事からです。

無料DL!封筒に宛名印刷できるエクセルソフトと使い方。時短ツール

fuutoatenatorieyecatch 無料DL!封筒に宛名印刷できるエクセルソフトと使い方。時短ツール

 

封筒宛名印刷エクセル一覧
fuutouatenaeyecatch001
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、結構、みなさんお悩みの宛名書きについてです。 はがきの場合は一番簡単には、年賀状ソフトを利用するという方法もありますが、 封筒への宛名書きをするには、なかなか手早く簡単にとはいかな ...
続きを読む
fuutoatenatorieyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、先回紹介しました封筒宛名印刷エクセルの使い方の説明を行っていきます。 一般的には、封筒に直接印刷することは、「宛名シール」を使うパターンよりも遥かに難易度が高く思われています。 こ ...
続きを読む
fuutouatenaeyecatch002
こんにちは、じゅんぱ店長(@junpa33)です。 これから何回かに分けて、紹介しました封筒宛名印刷エクセルのVBAコード組み立て方について説明を行っていきます。 今回は、基本操作部分についての説明を行っていきます。 本題に入るまでに、エク ...
続きを読む
fuutoatesakilisteyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 先回に続き、封筒宛名印刷エクセルのVBAコード組み立て方についてです。 今回は、宛名リストの作り方についての説明を行っていきます。 コード数も多くありませんのでサクッと行きたいと思います。 ...
続きを読む
fuutotandokueyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回の封筒宛名印刷エクセルの作成では、 セルサイズを変更して、封筒サイズごとに最適な印刷ポジションを決めて行きます。その変更の方法として、変数を利用すれば微妙な調整も可能になります。 この ...
続きを読む
fuutorenzokueyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回の封筒宛名印刷エクセルの作り方は、 封筒の宛名印字の範囲指定を、アクティブセルのRangeオブジェクトを利用して行います。テキストボックスやInputBoxへの入力指定での方法は使いま ...
続きを読む
fuutosasidasieyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回の封筒宛名印刷エクセルは、差出人印刷についてです。 特徴は、サイズにわせて縦印刷と横印刷に対応し、また差出人を変更することもできます。 SHOP名で、個人で、ハンネで出す場合などにも使 ...
続きを読む

 

 

 

差出人印刷のエクセルVBAコード設定の流れ

 

「差出人ページ」はこのようになります。

fuutosasidasi001

 

  • マルチページを増やして「差出人」ページ(タブ)を作ります。
  • 「差出人」ページに情報入力用にテキストボックスを配置します。
  • 「差出人」ページにコマンドボタンを配置します。
  • ユーザーフォームモジュールにコントロールのイベントコードを記述します。
  • Module2にコマンドボタンから呼び出すプロシージャーを記述します。

 

今回の作成のポイントは、
この差出人印刷の特徴は、封筒サイズに合わせた縦印刷と横印刷の両対応。
差出人を登録すれば、その差出人を変更できるということです。
例えば、SHOP名で差し出す場合、個人で差し出す場合、ニックネームで差し出す場合などにも利用することが出来ます。

 

  1. 「差出名リスト」シートを作成します。最初の登録をスタートとして、差出人名の履歴が積みあがっていくようにします。
  2. 印刷する差出人の指定は、リストの差出名のセルを選択(アクティブに)して行います。
  3. サイズごとの印刷位置のセッティングは変数を利用してコード作成します。

 

マルチページ「差出人」ページでのコントロール配置

 

青矢印と赤矢印が配置したコントロールです。

fuutosasidasi002a

 

コントロールを配置します

プロパティを確認してください。

テキストボックスの配置

②テキストボックス「差出人」

fuutosasidasi005

③テキストボックス「利用区分」

fuutosasidasi004

④テキストボックス「所属先名」

fuutosasidasi006

オブジェクト名 「差出名」オブジェクト名 「差出利用区分」オブジェクト名 「差出所属」

 

⑤テキストボックス「郵便番号」1

fuutosasidasi007

⑥テキストボックス「郵便番号」2

fuutosasidasi008

⑦テキストボックス「都道府県」

fuutosasidasi009

オブジェクト名「差出前3文字」オブジェクト名「差出後4文字」オブジェクト名「差出都道府県名」

 

⑧テキストボックス「市区町村」

fuutosasidasi010

⑨テキストボックス「番地」

fuutosasidasi011

⑩テキストボックス「ビル・マンション名」

fuutosasidasi012

オブジェクト名「差出市区町村名」オブジェクト名「差出番地」オブジェクト名「差出ビルマンション」

 

⑪テキストボックス「連絡番号」

fuutosasidasi013

オブジェクト名「差出連絡番号」

 

コマンドボタンを配置

①コマンドボタン「差出人登録」

fuutosasidasi003

⑫コマンドボタン「入力クリア」

fuutosasidasi014

⑬コマンドボタン「差出人印刷」

fuutosasidasi015

オブジェクト名「差出人登録1」
Caption「差出人登録」
オブジェクト名「差出入力クリア」
Caption「入力クリア」
オブジェクト名「差出人印刷」
Caption「差出人印刷」

 

ユーザーフォームモジュールへのイベントコード記述

①コマンドボタン「差出人登録1」

Module2の「差出リスト追加」プロシージャーを呼び出します。

Private Sub 差出人登録1_Click()
Module2.差出リスト追加
End Sub

 

⑫コマンドボタン「差出入力クリア」

入力欄のそれぞれに「 ”” (空白)」を入力します。

Private Sub 差出入力クリア_Click()

 

宛名印刷設定.差出名.Value = “”
宛名印刷設定.差出所属.Value = “”
宛名印刷設定.差出前3文字.Value = “”
宛名印刷設定.差出後4文字.Value = “”
宛名印刷設定.差出都道府県名.Value = “”
宛名印刷設定.差出市区町村名.Value = “”
宛名印刷設定.差出番地.Value = “”
宛名印刷設定.差出ビルマンション.Value = “”
宛名印刷設定.差出連絡番号.Value = “”

 

End Sub

 

⑬コマンドボタン「差出人印刷」

Module2の「差出人名印刷」プロシージャーを呼び出します。

Private Sub 差出人印刷_Click()
Module2.差出人名印刷
End Sub

 

Module2にエクセルVBAコードを記述する

 

モジュール内で共通の変数の宣言を先頭に記述します。

Public STY As Variant
Public TPnU As Double, TPnL As Double, TPnM As Double, TPnRo As Double, TPnCo As Double
Public saR As Long
Public saN, saKei, saSho, saYB, saK, saSK, saB, saBM, saRe

 

MEMO

変数の適用範囲をコントロールするするための記事はこちらを参考にしてください。

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

 

フォント設定について、フォントを「差出」シートでも独自に選択できるようにします。宣言の次にこの記述をしておきます。

Sub 差出フォント設定()

 

Worksheets(“差出”).Select
Cells.Select

 

With Selection.Font
  If 宛名印刷設定.ComboBox1.ListIndex = 0 Then
    .Name = “MS Pゴシック”
  ElseIf 宛名印刷設定.ComboBox1.ListIndex = 1 Then
    .Name = “MS P明朝”
  ElseIf 宛名印刷設定.ComboBox1.ListIndex = 2 Then
    .Name = “AR P隷書体M”
  Else
    .Name = “MS Pゴシック”
  End If
End With

 

Range(“A1”).Select

End Sub

フォントを選択しない場合は、MSPゴシックになります。

 

MEMO

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

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

 

「差出リスト追加」プロシージャー

1行目に項目が入ります。差出人を入力する毎にリストが追加されていきます。

Sub 差出リスト追加()

 

Dim SDRow As Long

 

  Workbooks(“封筒宛名印字.xlsm”).Activate
  Worksheets(“差出名リスト”).Select
    Range(“B1”) = “差出名”
    Range(“C1”) = “利用区分”
    Range(“D1”) = “所属先名”
    Range(“E1”) = “郵便番号”
    Range(“F1”) = “都道府県”
    Range(“G1”) = “市区町村”
    Range(“H1”) = “番地”
    Range(“I1”) = “ビル・マンション名”
    Range(“J1”) = “連絡番号”

  SDRow = Cells(Rows.Count, 2).End(xlUp).Row
  For s = 2 To SDRow + 1
    Range(“A” & s) = s – 1
  Next s

  If 宛名印刷設定.差出名.Value <> “” Then
    Range(“B” & SDRow + 1) = 宛名印刷設定.差出名.Value
    Range(“C” & SDRow + 1) = 宛名印刷設定.差出利用区分.Value
    Range(“D” & SDRow + 1) = 宛名印刷設定.差出所属.Value
    Range(“E” & SDRow + 1) = 宛名印刷設定.差出前3文字.Value & “-” & 宛名印刷設定.差出後4文字.Value
    Range(“F” & SDRow + 1) = 宛名印刷設定.差出都道府県名.Value
    Range(“G” & SDRow + 1) = 宛名印刷設定.差出市区町村名.Value
    Range(“H” & SDRow + 1) = 宛名印刷設定.差出番地.Value
    Range(“I” & SDRow + 1) = 宛名印刷設定.差出ビルマンション.Value
    Range(“J” & SDRow + 1) = 宛名印刷設定.差出連絡番号.Value
  Else
    Exit Sub
  End If

 

  Range(“B” & SDRow).Select

  Worksheets(“差出名リスト”).Columns.AutoFit

  Worksheets(“差出名リスト”).Select

End Sub

 

MEMO

最終行番号の取得の方法についての記事はこちらを参考にしてください。

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

 

「差出人名印刷」プロシージャー

前半部分です。

宛名印刷の時と同様に、変数を使ってセルサイズ、フォントサイズを変化させて、各封筒サイズに適応させています。

アクティブセルの行番号をターゲットとして変数に値を代入していきます。

Sub 差出人名印刷()

 

Worksheets(“差出名リスト”).Select

saR = ActiveCell.Row

 

  saN = Range(“B” & saR).Value
  saKei = Range(“C” & saR).Value
  saSho = Range(“D” & saR).Value
  saYB = Range(“E” & saR).Value
  saK = Range(“F” & saR).Value
  saSK = Range(“G” & saR).Value
  saB = Range(“H” & saR).Value
  saBM = Range(“I” & saR).Value
  saRe = Range(“J” & saR).Value

STY = 0
TPnU = 0
TPnL = 0
TPnM = 0
TPnRo = 0
TPnCo = 0
STY = 宛名印刷設定.TP_no.Caption

 

  If STY = “TP1” Then
    If 宛名印刷設定.横書き2 = True Or 宛名印刷設定.横書き3 = True Then
      STY = “TP1y”
      TPnU = 0.7
      TPnL = 1
      TPnM = 0.87
      TPnRo = 0.6
      TPnCo = 1
    Else
      TPnU = 1
      TPnL = 0.5
      TPnM = 1
      TPnRo = 0.87
      差出縦書き
      GoTo step1
    End If

  ElseIf STY = “TP2” Then
    TPnU = 5
    TPnL = 0.5
    TPnM = 1.2
    TPnRo = 1.2
    差出縦書き
    GoTo step1

  ElseIf STY = “TP3” Then
    If 宛名印刷設定.横書き1 = True Then
      STY = “TP3y”
      TPnU = 1
      TPnL = 1
      TPnM = 1.2
      TPnRo = 1
      TPnCo = 1
    Else
      TPnU = 5
      TPnL = 0.5
      TPnM = 1.2
      TPnRo = 1.2
      差出縦書き
      GoTo step1
    End If

  ElseIf STY = “TP4” Then
    TPnU = 6
    TPnL = 1
    TPnM = 1.3
    TPnRo = 1.3
    TPnCo = 1

  ElseIf STY = “TP5” Then
    If 宛名印刷設定.サイズ表示A.Caption = “長形2号” Then
      TPnU = 5
      TPnL = 0.3
      TPnM = 1.3
      TPnRo = 1.1
      TPnCo = 0.8
    Else
      TPnU = 1
      TPnL = 1
      TPnM = 1.3
      TPnRo = 0.9
      TPnCo = 1
    End If

  ElseIf STY = “TP6” Then
    TPnU = 3
    TPnL = 0.5
    TPnM = 1
    TPnRo = 1.3
    差出縦書き
    GoTo step1

  ElseIf STY = “TP7” Then
    TPnU = 5.5
    TPnL = 2
    TPnM = 2
    TPnRo = 1.4
    TPnCo = 1

  ElseIf STY = “TP8” Then
    TPnU = 2.5
    TPnL = 2
    TPnM = 1.5
    TPnRo = 1.2
    TPnCo = 1

  ElseIf STY = “TP9” Then
    TPnU = 1
    TPnL = 1
    TPnM = 1.5
    TPnRo = 1.1
    TPnCo = 1

  ElseIf STY = “TP10” Then
    TPnU = 1
    TPnL = 1
    TPnM = 1.5
    TPnRo = 1
    TPnCo = 1
  Else
    MsgBox “封筒サイズが指定されていません。”, vbOKOnly, “メッセージ”
    Exit Sub
  End If

 

MEMO

If条件文の条件の絞り方についての記事はこちらを参考にしてください。

vbaifjyokeneyecatchエクセルVBA 「If条件文」を最速に理解。条件の絞り方

後半部分です。

各封筒サイズに割り振られた変数の値によって、セルの大きさ、行高さ、列幅、フォントサイズを決めています。

  With Worksheets(“差出”)
    .Cells.ClearFormats
    .Cells.ClearContents
    .Cells.UseStandardHeight = True
    .Cells.UseStandardWidth = True
    .PageSetup.CenterHorizontally = False
    .PageSetup.TopMargin = Application.CentimetersToPoints(2.5)
    .PageSetup.LeftMargin = Application.CentimetersToPoints(0.25)
    .PageSetup.RightMargin = Application.CentimetersToPoints(0.5)
    .Rows.RowHeight = 24 * TPnRo
    .Columns(1).ColumnWidth = 4.5 * TPnL
    .Columns.ColumnWidth = 8.38 * TPnCo
    .Cells.Font.Size = 11 * TPnM
    .Cells.ShrinkToFit = True
    .Rows(1).RowHeight = 24 * TPnU
    .Range(“B19”).Value = saYB
    .Range(“B20”).Value = saK & saSK & saB
    .Range(“B21”).Value = saBM
    .Range(“B22”).Value = saSho
    .Range(“B22”).Font.Size = 13 * TPnM
    .Range(“B22”).Font.Bold = True
    .Range(“B23”).Value = saN
    .Range(“B23”).Font.Size = 13 * TPnM
    .Range(“B23”).Font.Bold = True
    .Range(“B24”).Value = saRe
  End With

step1:

Worksheets(“差出”).Columns.AutoFit

差出フォント設定

差出人名印刷PV

End Sub

 

「差出縦書き」プロシージャー

縦書きが必要な封筒サイズのために、別にプロシージャーを記述しています。

Sub 差出縦書き()

 

  With Worksheets(“差出”)
    .Cells.ClearFormats
    .Cells.ClearContents
    .Cells.UseStandardHeight = True
    .Cells.UseStandardWidth = True
    .PageSetup.LeftMargin = Application.CentimetersToPoints(0.1)
    .PageSetup.RightMargin = Application.CentimetersToPoints(0.5)
    .PageSetup.BottomMargin = Application.CentimetersToPoints(0.5)
    .Rows.RowHeight = 24 * TPnRo
    .Columns(“A”).ColumnWidth = 1.5
    .Columns(“B:Q”).ColumnWidth = 2.3
    .Columns(“R”).ColumnWidth = 3
    .Cells.Font.Size = 13 * TPnM
    .Cells.ShrinkToFit = True
    .Cells.Orientation = xlVertical
    .Cells.VerticalAlignment = xlTop
    .Rows(1).RowHeight = 24 * TPnU
    .Range(“B6”).Value = saYB
    .Range(“F7”).Value = saK & saSK & saB
    .Range(“E7”).Value = saBM
    .Range(“D8”).Value = saSho
    .Range(“D8”).Font.Size = 13 * TPnM
    .Range(“C7”).Value = saN
    .Range(“C7”).Font.Size = 13 * TPnM
    .Range(“B7”).Value = saRe
    .Range(“B6:F6”).MergeCells = True
    .Range(“F7:F17”).MergeCells = True
    .Range(“E7:E17”).MergeCells = True
    .Range(“D8:D17”).MergeCells = True
    .Range(“C7:C17”).MergeCells = True
    .Range(“B7:B17”).MergeCells = True
    .Range(“B6”).Orientation = xlHorizontal
    .Range(“B6”).HorizontalAlignment = xlCenter
    .Range(“F7”).VerticalAlignment = xlTop
    .Range(“E7”).VerticalAlignment = xlTop
    .Range(“D8”).VerticalAlignment = xlTop
    .Range(“B7”).VerticalAlignment = xlBottom

  End With

End Sub

 

「差出人名印刷PV」プロシージャー

最後に印刷プレビューの表示です。確認してOKであればプレビュー内の「印刷ボタン」を押します。

Sub 差出人名印刷PV()

  Worksheets(“差出”).PrintPreview

End Sub

 

「差出人を封筒に印刷」のVBAコードのまとめ

 

この差出人印刷の特徴は、封筒サイズに合わせて縦印刷と横印刷の両方に対応しているということです。

更に登録した差出人の中で、差出人を変更できるということです。

例えば、SHOP名で差し出す場合、個人で差し出す場合、ハンネで差し出す場合などにも利用することが出来ます。

 

補足説明
最後に、封筒の種類を増やしたいときのコード修正のポイントを挙げておきます。

 

  1. 「封筒宛名コントロール」のオプションボタンをその封筒サイズ名で増やします。(同じフレーム内に入れてください。)
  2. プリンターへの「封筒登録」を行ってください。
  3. ユーザーフォームモジュールに増やしたオプションボタンのイベントコードを記述します。
  4. 封筒タイプ(現在はTP1からTP10)を増やすかどうかを考えます。現在あるタイプのどれかに入るならそのタイプにします。
  5. 封筒タイプは宛名の印刷位置を規定していますので、増やす場合は、5つの変数TPnU・TPnL・TPnM・TPnRo・TPnCoを設定してください。
  6. Module1で「単独印刷」プロシージャー、Module2で「差出人名印刷」プロシージャー内のタイプ判定コードに対して、その封筒サイズの条件分岐を増やしてください。

 

この「封筒宛名印刷エクセル」を無料でダウンロードするのはこちら↓から行うことが出来ます。

こちら↓でダウンロードすることが出来ます。

 

ただし、こちらの方はVBAコードを保護していますので、使う側でのVBAコードのカスタマイズを行うことはできません。

 

ここの記事説明とダウンロードしたソフトで、早々に利用していただくことが出来ます。

 

“封筒宛名印刷エクセル” をダウンロード fuutouatena-1.zip – 6539 回のダウンロード – 84 KB

 

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

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

 

このテーマの記事を始めから読むのは、こちら↓からスタートしてください。

エクセルだけで16種類の封筒に宛名印刷ができる。住所録転用可能!

fuutouatenaeyecatch001エクセルだけで16種類の封筒に宛名印刷ができる。住所録転用可能!

 

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