Amazonの予約状況（本ランキング）

当講座で初の書籍が発売になりましたが、

Amazonでの予約期間の状況の最終結果になります。

このように、瞬間の最高順位（本全体の）は453位を記録しました。

なお、既にぼちぼちと全国の書店にて置かれ始めていますので、

お近くの書店にて、実際に手に取ってお買い求め下さい。

 

祝！昨夜とうとう大台に乗りました！

当講座のメイン動画のYouTube再生回数が、いよいよ50万回再生を越えました！

 

そもそも、これは事務所の片隅の会議机で試しにちょっと撮影してみたものを、試しにYouTubeにアップしてみたというだけの、製作費が1円も掛かっていない、雑音もありありの動画ド素人の作ったただの試作品だったわけなのですが、、

それが何故だか、あれよあれよという間にどんどん再生回数が伸びて行って、気が付いた頃にはもう引き返せないー（動画下げられなくー）なってしまって、今日に至った次第です。

この手の極まじめな（全然おもしろくもない！笑）学習動画で、これだけの再生回数が集まる動画はお金を掛けてちゃんと作ったプロ仕上げの動画でも極まれですから、、

やっぱ、これも無欲の勝利ですね。

 

一覧表からデータを転記するマクロの基本

今日ご紹介するのは、自動印刷の下記ページです。

■自動印刷のあれこれ（一覧から連続印刷する基本）

今どきですから、これは必ずしも「印刷する」という必要性はない場合が多いわけですが（PDFに出力するとか・・・）、

要するに、

これは、何かの一覧表から帳票のフォームへデータ転記する際の基本的なマクロの作り方のレッスン回と言うことになります。


例えばですが、

一覧表のリスト（Sheet1)
 －－－－－－－－－－－－－－－
｜No.｜顧客名称｜品目｜税込金額｜
 －－－－－－－－－－－－－－－
｜A01｜(株)○○｜□□｜10,000円｜
 －－－－－－－－－－－－－－－
｜B01｜○○(株)｜□□｜20,000円｜
 －－－－－－－－－－－－－－－
　　　　・
　　　　・
　　　　・
　
これを、

出力帳票のフォーム（Sheet2)
 -------------------------
｜　　　領収証書         ｜
｜              　       ｜　
｜(株)○○様 　　　　　　｜　
｜              　       ｜　
｜              　       ｜　
｜　　　品目　□□　     ｜　
｜  　　金額　10,000 円  ｜　
｜              　       ｜　
 -------------------------　

に、データ転記する方法のマクロを作ります。

この手順は簡単です。

（１）転記元のデータ一覧リスト（Sheet1)を開く
（２）転記元のセルを指定する
（３）そこからデータを取得する
（４）転記先の出力帳票シート（Sheet2)を開く
（５）転記先のセルを指定する
（６）そこにデータを書き出す

上記をプログラムに直すと（当然、いつものように「マクロの記録」でー）

Sub Macro1()

　　Sheets("Sheet1").Select
　　Range("A2").Select
　　a = ActiveCell.Value
　　　　・
　　　　・　
　　　　・

　　Sheets("Sheet2").Select
　　Range("B3").Select
　　ActiveCell.FormulaR1C1 = a
　　　　・
　　　　・
　　　　・

 End Sub

でありますから、

あとはこの手順をSheet1の一覧表のデータ数だけ繰り返す為のループを回すプログラムを組めばいいだけです。
至って単純ですね。


ちなみに、PDFファイルに出力する方法も、このページ下方のNEXT >> にリンクがありますので、必要な方はここもご参考にしてください。


市販のＶＢＡ本の場合だと、これも皆オブジェクトになっていて（セルもシートもオブジェクトになっちゃう。。。）、こんな単純なマクロであっても、どうにも複雑化してしまう思いますので、

とにかく、マクロはシンプルに、単純に、普段のExcel操作に沿ったプログラムを書いていく・・・。と言うのが当講座のやり方になっています。