返品依頼テンプレートへのデータ流し込みをエクセルVBAで行う方法

henpitempdataeyecatcha

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

 

今回は,

エクセルBOOK「返品了解申請.xlsm」に転送した返品書誌情報から

作成したテンプレートを使って了解申請書作成を、VBAでプログラム作りを行っていきます。

 

その前に、

前回の記事の確認をするにはこちら↓からお読みいただけます。

返品了解書の情報入力VBA。利用後データのクリアコードの組み立て方

henjyocleyecatcha 返品了解書の情報入力VBA。利用後データのクリアコードの組み立て方

返品了解書作成記事一覧
henpinryoukaieyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 雑誌や書籍の返品のための了解書を能率的に作成できるような方法について考えていきたいと思います。 返品作業は売れ残りの雑誌・書籍を取次・出版社に返送するための業務です。 売れ残りを返品できる ...
続きを読む
henpintempeyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回から返品了解書作成ソフトをExcel VBAで作成していきます。 何回かに分けて解説していきたいと思います。 まずは、返品了解書のテンプレートづくりを行います。 返品了解書の作成につい ...
続きを読む
henwebdaeyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回のテーマは返品了解書作成ソフト作りの中で、 返品をしたい書誌の書誌データを、Webにあるデータから入手します。 別にこれは、返品したい書誌が目の前にありますので、手打ちで書誌情報を入力 ...
続きを読む
syosikakoueyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は,返品了解書作成ソフト作りの中で、 抽出した書誌データを返品了解書のテンプレートへ転記するための準備作業の前半部分になります。 先回の返品了解書作成記事はこちら↓からお読みいただけま ...
続きを読む
datarenkeyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回は, 返品了解書作成ソフト作りの中で、先回までに作成した各出版社別のデータを エクセルBOOK「返品了解申請.xlsm」に移すVBAプログラム作りを行います。 抽出した書誌データを返品 ...
続きを読む
henjyocleyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は, 返品了解書作成ソフト作りでの「返品書籍情報.xlsm」での最後の項目についてです。 つまり、 「返品了解申請.xlsm」での処理終了後に、 次回の使用のために今あるデータをクリア ...
続きを読む
henpitempdataeyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は, エクセルBOOK「返品了解申請.xlsm」に転送した返品書誌情報から 作成したテンプレートを使って了解申請書作成を、VBAでプログラム作りを行っていきます。 その前に、 前回の記 ...
続きを読む
henpihashineyecatchaa
こんにちは、じゅんぱ店長(@junpa33)です。 今回は, エクセルBOOK「返品了解申請.xlsm」の「返品依頼テンプレート」に、 発信元(自店)情報を表示するためのVBAプログラム作りを行っていきます。 ちょっとその前に、 前回の記事 ...
続きを読む
riyojoucleareyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は, エクセルBOOK「返品了解申請.xlsm」の返品了解の依頼書の作成後、 次回使用のために、今回利用した返品についての書誌情報をクリアするためのVBAプログラム作りを行っていきます ...
続きを読む
henryoutorisetueyecatcha
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、いままで組み上げてきたエクセルVBAの使い方の説明をしていきます。 このテーマの最終回になります。 その前に、前回の記事を確認したいという方はこちら↓からご覧いただけます。 利用後 ...
続きを読む

 

 

 

返品依頼テンプレートへのデータ流し込みの進め方

 

先回、エクセルBOOK「返品了解申請.xlsm」に返品依頼テンプレートを作成しました。

今回は、そのテンプレートをVBAを使って実際に使えるものにしていきます。

①.返品依頼テンプレートを出版社別に複製していきます。

 

②.前回作業で「返品本依頼」シートに流し込んだデータを出版社別のテンプレートに配置していきます。

 

③.送信先出版社の電話番号・FAX番号・メールアドレスを電話帳より検索し、送信する用紙に表示します。

 

出版社別の返品依頼テンプレートはその都度、返品対象の出版社分を作成しますので、その時々で発行枚数が異なります。

返品理由については、空欄にその都度手書きか手打ちで書き込むようになります。

同時にFAX番号も表示させます。(ただし、事前に電話帳登録が必要です。)

 

流し込みのコード作成

 

初めに、いつものように標準モジュールを挿入します。

 

(挿入の方法はこちら↓で確認できます。)

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

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

 

テンプレートの複製コードの作成

 

出版社別に返品依頼シートを、テンプレートの複製で作っていきます。

シート名は、「ページNO.」で表示するようにします。

 

Subプロシージャー名を「テンプレコピー」とします。

Sub テンプレコピー()
End Sub

 

このプロシージャーでの変数はこのようになります。

「返品本分類のデータ行数」・・・・・BRow
「複製するシートのページNO.」・・SN
「ループ処理のループ回数」・・・・・i

 

A列の値(ページ番号)を上から順番に上下段2行づつ比較して、

値が同じならばスルー、

値が違えばその値をシート名としてテンプレートを複製します。

これをループしていきます。

関連記事

Gotoステートメントの利用法を最速に理解。毒コードと薬コード

 


Sub テンプレコピー()

Dim SN As Variant
Dim BRow As Long
Dim i As Long

 Worksheets("返品本分類").Select
 BRow = Cells(Rows.Count, 1).End(xlUp).Row

 If BRow <= 1 Then
  MsgBox "作成するテンプレートのデータはありません。"
  Exit Sub
 End If

 For i = 1 To BRow
  SN = Range("A" & i).Value
   If i = 1 Then GoTo step1
   If SN = Range("A" & i - 1).Value Then GoTo step2

step1:
   Worksheets("返品依頼テンプレート").Select
   Worksheets("返品依頼テンプレート").Copy after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = SN

step2:
   Worksheets("返品本分類").Select
 Next i

End Sub

 

データの適所配置のコードの作成

 

つぎに「返品本分類」シートにあるそれぞれのデータを、

出版社ごと(ページ番号)ごとに複製したテンプレートにはめ込んでいきます。

 

Subプロシージャー名を「データ移動」とします。

Sub データ移動()
End Sub

 

このプロシージャーでの変数はこのようにします。

「返品本分類のデータ行数」・・・・・BRow
「複製するシートのページNO.」・・SN
「ループ処理のループ回数」・・・・・p、s
「ISBN」・・・・・・・・・・・・ISBN
「書名」・・・・・・・・・・・・・・SHO
「出版社名」・・・・・・・・・・・・SYU
「著者名」・・・・・・・・・・・・・TYO
「本体価格」・・・・・・・・・・・・PRI
「返品冊数」・・・・・・・・・・・・HSA
「客注名」・・・・・・・・・・・・・KYA

 

「返品本分類」シートでは、出版社別リストごとに項目名行を挟み込んでいますので、

この「返品本分類」の一覧リストからデータを順番に収集するときに項目行をスルーする必要があります。

ループ処理でこの「項目名」を拾ったときは「GoTo Step」で処理をスルーして次のループに移るようにします。

テンプレート内には、

「著者名」と「本体価格」の表示する部分を作っていませんが、欄外に表示するようにしています。

「本体価格」表示列の下部行に返品金額の本体合計を計算できるようにしています。

(ただしこれは、「返品本分類」シート上で、本体価格が数値か金額で表示されている必要があります。)

プリントエリアを設定しています。

この欄外の表示部分はプリントされない仕様です。返品事由記入の参考項目としています。

関連記事

エクセルVBA!For~Nextの入れ子ループを最速に理解する

 

MEMO

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

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

Sum関数の使い方についてはこちらの記事を参考にしてください。

vbasumeyecatchエクセルVBA SUM関数で合計計算!実務で使えるコード作成

 

Sub データ移動()

Dim SN As Variant
Dim BRow As Long, HSA As Long, p As Long, s As Long
Dim ISBN As Variant, PRI As Variant, KYA As Variant
Dim SHO As String, SYU As String, TYO As String

 Worksheets("返品本分類").Select
 BRow = Cells(Rows.Count, 1).End(xlUp).Row

For s = 1 To BRow
  Worksheets("返品本分類").Select
  SN = Range("A" & s)

  If Range("B" & s) = "ISBN" Then GoTo step3

   ISBN = Range("B" & s).Value
   SHO = Range("C" & s).Value
   SYU = Range("D" & s).Value
   TYO = Range("E" & s).Value
   PRI = Range("F" & s).Value
   HSA = Range("G" & s).Value
   KYA = Range("H" & s).Value

   Worksheets(SN).Select
   Range("B2").Value = SYU
   Range("C40").Value = SYU
   Range("C66").Value = SYU

   For p = 1 To 13
     If Range("C" & 10 + p) = "" Then
      Range("B" & 10 + p).Value = ISBN
      Range("C" & 10 + p).Value = SHO
      Range("D" & 10 + p).Value = HSA
      Range("B" & 44 + p).Value = ISBN
      Range("C" & 44 + p).Value = SHO
      Range("D" & 44 + p).Value = HSA
      Range("E" & 44 + p).Value = KYA
      Range("G" & 44 + p).Value = TYO
      Range("H" & 44 + p).Value = PRI
      Range("B" & 70 + p).Value = ISBN
      Range("C" & 70 + p).Value = SHO
      Range("D" & 70 + p).Value = HSA
      Range("E" & 70 + p).Value = KYA
      Range("G" & 70 + p).Value = TYO
      Range("H" & 70 + p).Value = PRI
      Exit For
     End If
   Next p
 Range("H58").Value = "本体合計¥" & WorksheetFunction.Sum(Range("H45:H57"))
 Range("H84").Value = "本体合計¥" & WorksheetFunction.Sum(Range("H71:H83"))

 Range("B2").Font.Size = 16
 Range("B45:E57").Font.Size = 10
 Range("B71:E83").Font.Size = 10
 Worksheets(SN).PageSetup.PrintArea = "A1:F86"
 Columns("G:H").AutoFit
step3:
Next s
End Sub

 

送信先電話番号の表示

 

出版社から返品了解を取る業務の中で、返品依頼を作成する作業は結構大変ですが、

その中で地味に面倒なのが、送信先の電話番号を調べるという作業です。

ですので、これも自動化してしまいましょう。

汎用性のある電話帳をエクセルで作成します。ここにはVBAを埋め込みませんので、

「FAX電話帳.xlsx」、使用するシート名を「電話番号」としてください。

A、B,C,D列の項目はこの通りです。

henpinsinsaku001a

準備が出来ましたら、

エクセルBOOK「返品了解申請.xlsm」で、先ほどに続いてVBA」を組み立てていきます。

 

電話帳からデータを収拾するために「返品了解申請.xlsm」から、VBAで「FAX電話帳.xlsx」を開きます。

すでに開いている場合は、この作業はスルーされます。

 

Subプロシージャー名を「FAX電話OPEN」とします。

Sub FAX電話OPEN()

Dim flag As Boolean
Dim Wb As Workbook
Dim FAX As String

  ChDir ThisWorkbook.Path
  FAX = ThisWorkbook.Path & "\FAX電話帳.xlsx"
  flag = False

  For Each Wb In Workbooks
    If Wb.FullName = FAX Then
      flag = True
      Exit For
    End If
  Next Wb
  If flag = False Then
    Workbooks.Open FAX, UpdateLinks:=0
  End If

End Sub

 

「FAX電話帳.xlsx」を開いたところで、調べたい出版社名の電話番号を探しに行きます。

方法としては、

「返品了解申請.xlsm」の出版社別に作成したシートの宛先から出版社名を拾います。

それと、「FAX電話帳.xlsx」の「電話番号」シート内のデータと比較するということにします。

ワークシート関数の「Match」を使いますが照合できないとエラーが出ますので、そのエラーを無視やスルーする処理コードが必要となります。

 

MEMO

Match関数について詳しくはこちらになります。

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

InStr関数の使い方についてはこちらの記事を参考にしてください。

vbainsteeyecatchエクセルVBA Instr関数・InstrRev関数で文字列を検索する

 

Subプロシージャー名を「電話番号検索」とします。


Sub 電話番号検索()

Dim i As Long
Dim ASN As Variant
Dim SYU As Variant
Dim DR As Long
Dim tela As Variant, telb As Variant, telc As Variant

Workbooks("返品了解申請.xlsm").Activate

  For i = 1 To Worksheets.Count
    ASN = Worksheets(i).Name

    If InStr(ASN, "P") > 0 Then
      Worksheets(ASN).Select
      SYU = Range("B2").Value

      FAX電話OPEN

      Workbooks("FAX電話帳.xlsx").Activate
      Worksheets("電話番号").Select
      On Error Resume Next
      DR = WorksheetFunction.Match(SYU, Worksheets("電話番号").Columns("A"), 0)
      On Error GoTo 0
      If DR <> 0 Then
        tela = Range("B" & DR)
        telb = Range("C" & DR)
        telc = Range("D" & DR)
        Workbooks("返品了解申請.xlsm").Activate
          Worksheets(ASN).Select
          Range("E3") = "FAX " & tela
          Range("E4") = "TEL " & telb
          Range("E5") = "MAIL" & telc
          Range("E3:E5").Font.Size = 10
      End If
    End If
    Workbooks("返品了解申請.xlsm").Activate
  Next i
  Workbooks("FAX電話帳.xlsx").Close False

End Sub

このような感じです。

 

今回作成したコード

 

今回作成したコードはこのような感じです。

henpinsinsaku002a

 

henpinsinsaku003a

 

henpinsinsaku004a

出版社への送信用返品了解依頼書

 

henpinsinsaku005a

返品了解依頼書(出版社からの回答分)を返送品に添付した上で、この↑連絡表を返送品梱包に張り付けて返送します。(連絡表が同じもの2枚あるのは1枚は自店控えです。)

データ流し込みコード作成のまとめ

 

今回作成したVBAは、作成した返品依頼テンプレートを複製して、

出版社毎に返品書誌データをはめ込むところまで完了させました。

 

次回は、送信元の情報を表示できるようにしていきます。

番線印も表示できるようにします。

 

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

 

次の記事を読むのはこちら↓です。

発信元情報を表示するためのエクセルVBA。返品依頼書を作る

henpihashineyecatchaa 発信元情報を表示するためのエクセルVBA。返品依頼書を作る

 

エクセルVBAを使って、業務効率UPを図る上で始めのうちに知っておきたい内容を纏めています。

 

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