080101_Excelで本当にできること●Excel2000で30分で作るバーコードPOSレジのコア部分(定型集計効率化サンプル)ダウンロードhttp://euc-access-excel-db.com/mag2charge/pos/pos_set.zipPOSレジミニサンプルやRFM集計用(ここではFM集計)のファイルの作り方を書いたファイルと、POSレジミニサンプルのExcel2000ファイルそのものをダウンロードできるようにしました。よかったら見てみてください。(WordやPDFでの説明文書は昔、「2003でもできるかな?」と試しながら書いたので、2003+XPの環境で書いてあります)※バーコードリーダーとセル移動について一般的に市販のバーコードリーダーはバーコードを読み込んだときに、「バーコードの値を読む」という動作と「Enterキーを押す」という2つの動作をしてくれます。よって、例えばExcelを開いてA1セルをクリックした状態でバーコードを読むと、「A1セルにバーコードの値が入力される」「EnterによってB1セルへ移動する」という動作をしてくれます。本サンプルでは、顧客IDのセルに値を入力してEnterすると自動的に商品IDのセルに移動するようになっていますので、バーコードリーダーで顧客IDのセルに会員証のバーコード(会員番号)を読み込むと、Enter押下の動作もしてくれるので、自動的に商品IDのセルに移動するようになっています。ダウンロードしたZipを解凍してWordファイル(Excel2000_pos_n_fm_calc.doc)を最初から読んでみてください。※注・・・なお、サンプルのプログラムはVLOOKUP関数とWorksheetFunctionプロパティを使って、商品マスタの情報をレジ画面に表示していますが、そうではなくて、DAOやADOで引っ張ってくれば、「A、B、C、D・・・」の列番号ではなくて、シートの1行目に入力した「列名」でデータを引っ張ってこれます。その場合、もしかしたら列が増減しても、「既存の列のプログラムに限っては」書き換える必要がなくなるかもしれません。レジ画面に新しく表示したい列のプログラムだけを「直す・追加する」とすればいいだけだと思います。それは、もし「追加したい列」ができたときには、「その列」を「どこでも好きな場所に追加でき、既存のプログラムは変更しなくていい・・・」という意味でもあります。他の列の値も引っ張ってくることが可能です。)DAOでデータを読み込む事例はこちら→→→「Excel2010で、開かれていない閉じたままのブック・Excel(xls)データをできるだけ速く読み込む方法(DAOにて)」←これに、FindFirstなどを使ってデータを引っ張ってくるコードを追加します。(ADOも流れとしては似たような感じです。解凍後にできた「pos_set」フォルダの中の、「pos」フォルダ(=posレジ本体ファイル)をCドライブのルートにコピーしてから、同じくWordファイルのP56から、実際に操作しながら読んでみてください。ご自身で読み替えてください。Wordファイルでの説明なので、ご自分の気づきやメモを自由に書き込んで使ってください。★バーコードPOSレジサンプルのAccessファイル(mdbファイルです。7.5MBほどのZipです。ESETでウィルスチェックしてあります。)服屋さん時代に自分で作って使っていた、Access2000での、自作のバーコードPOSレジのmdbファイルのダウンロード(サンプルダミー売上データ付き)========================以下本文です。このサンプルは、『経営者様がExcelで「本当にやりたかったこと」はこれではないですか?』や、(ダブりますが)『本サイトで言うところの「ビジネス定型集計」「ビジネス定型リストアップ」とは?』に書かれたような集計を、VBAプログラミングや関数やセルリンクをほとんど使わずに、激減させて(でもVBAや関数を多用しているかのように)行うための基礎・考え方がいっぱい詰まっています。これは、「Excelでのビジネス定型集計において、世間一般的な基礎でやった場合にかかる時間と比べ、2~100倍に短縮化・効率化させるためのもの」です。本来する必要のない「無駄なVBAプログラミングや関数やセルリンクを激減させるための基礎・考え方」でもあります。』基礎がいっぱいつまっていますし、見栄えが悪い分、逆に、「全部削ぎ落してある」とも言えるかもしれません。(?)(^^)(苦笑)もしパソコン教室の先生がこのページをご覧になってくださっていたら、教材の1つとしていかがでしょうか?著作権は放棄していませんが再配布自由ですので、ご自分で自由にアレンジしていただいて、子供たちやお若い人々に教えてくださると大変ありがたく思います。このサンプルの「考え方と方法」が、オーバーかもしれませんが、でも必ず、お子様やお若い方々の未来のお役に立てると信じています。約5MB・121ページ】(終わりのほうにあるURLのものと同一です。ZIPに同梱のWordファイルの説明書をPDF化したものです。Homeキーで目次の先頭に戻れます。※アクロバットで開いた時は目次をクリックするとそこへジャンプし、Alt+←キーで直前の場所など(クリックした目次とか)に戻れます。※本サイトのPDFはWord2010でPDF化したせいか、PDFの中にVBAコードなどが書いてあってもそれを正常にコピペできません。Zipの中にモトのdocファイルがあるPDFは、そのdocファイルのほうのVBAコードなどをコピペしてください。無い場合はすみませんが手打ちで入力してください。上記のPDFの場合は顧客マスタと商品マスタの作成のあたりで、マスタのデータ内容をドラッグしても改行コードがコピーされないためと脚注の文章が混ざってしまうため、正常にマスタがコピペできません。http://euc-access-excel-db.com/mag2charge/pos/pos_set.zipのZIPファイルの中にあるdocファイルを使ってみてください。(同じZIP内のテキストファイルにもマスタのデータ内容が書いてありますのでそちらをCtrl+AしてExelにまんまでコピペしたほうが早いですが・・・。)このファイルは、10年ほど前ですが、何も分かってないとても生意気なころに作成・書いたので(というか今もまだそこからまったく成長できていないのですみませんが(^^))、文章の内容がきついかもしれないのですが、もしそうでしたら申し訳ありません。(今修正する時間が無いのでごめんなさい!いつか余裕ができたら修正できるかもしれません!)あと、一応、Excel2010とかでも作れるように注釈などを少し足しました。古い情報を基にしているので間違いがあったらすみません。「30分で作れる」というのは少しはったり、というかウソ・誇大広告なんですが(^^)笑、プログラム(短いVBA)については書きあがったものをALLでぺたっと貼り付けるのでその時間でできます。慣れると、10分くらいでPOSレジのコア部分が作れると思いますので、お仕事などにお役に立てるといいなあ、と思います。付属のWordファイルの説明書は、自由にご自分でも書き足すことができます。ご自分用のExcel利用時のリファレンスとしてもご活用ください。次のようなファイルが入っています。・Excel2000での簡易バーコードPOSサンプル作成方法_2017_フォルダ.doc・サンプルファイルのフォルダの配置について.txt・pos.xls(Excel2000でのPOSレジコアサンプル本体)・FM分析.xls(Excel2000でのPOSデータを覗きにいってのSQLやピボットなどでの集計サンプル)「Excel2000での簡易バーコードPOSサンプル作成方法_2017_フォルダ.doc」にPOSレジや集計ファイルの作り方、集計の例、数字や数字からの感想やミニストーリーの例など色々書いてあります。このファイルだけ見てみたい方は、約5MBで120ページほどありますが、以下のURLから直接見るか、右クリックしてダウンロードしてください。http://euc-access-excel-db.com/mag2charge/pos/Excel2000_pos_n_fm_calc.pdf※本サイトのPDFはWord2010でPDF化したせいか、PDFの中にVBAコードなどが書いてあってもそれを正常にコピペできません。Zipの中にモトのdocファイルがあるPDFは、そのdocファイルのほうのVBAコードなどをコピペしてください。無い場合はすみませんが手打ちで入力してください。すべて、ESETセキュリティでウィルスチェックしてあります。※プログラムは少しだけ書いてありますが、入力したい情報(列)が増えた場合の修正も、いつもExcelVBAを触っている人ならそれほど難しくないと思います。ExcelVBAに慣れてない人はできる人にやってもらってくだい。それほど苦も無く、書き換えれると思います。※PDFとWordファイル内に、「=OFFSET($A$1,0,0,COUNTA($A:$A),COUNTA($1:$1))」の記述がたくさん出てきますが、Excel2007以降でしたら、これのかわりにテーブル機能やテーブル名をVBAコーディングの中で使えるかもしれません。(やったことがないのですみません)一度お試しください。「=OFFSET($A$10,0,0,COUNTA($A:$A),COUNTA($10:$10))」と書きます。表の上に何かを書いたり表示したい場合に使えます。)※追記2017/02/28、「MicrosoftQueryでの集計表のネスト(集計結果の、さらにその集計の多段化)について」のところで間違いがありましたので以下の部分を書き直ししました。(以前の内容は、Excel2010と2000を共存させていたために起こったおかしな動作でした。今回は2010のみや2000のみでの動きです。)*****************2017/02/28時点では、Windows10+Excel2010(Office2010Personal)では、xlsm拡張子のファイルにての確認ですが、少し面倒ですが、ただ、一応、1ファイル内での、複数シートにまたがった「MicrosoftQuery」でのネストができました。認識できません」というエラーになって右クリック更新ができません。「Sheet1でMicrosoftQueryをいったん起動して閉じるだけ」という操作をすると、Sheet2もSheet3も右クリックにての「更新」ができます。Excel2010の場合は、Sheet1の値のあるセルならどこでもいいので、右クリックをし、「テーブル」→「クエリの編集」です。「クエリウィザードを使って、このクエリを編集することはできません」と出るので、「OK」を押して、いったん、MicrosoftQueryの画面を表示させます。何もしなくてもいいので、そのままその画面を一番外側の「×」で閉じます。Excelにデータを返す」をクリックします。)以上をSheet1でやっておくと、そのあとは、Sheet2で右クリック更新、さらには、Sheet3で右クリック更新ができるようになります。Sheet3をソースにしグラフやピボットを作っていたら、その内容も更新で連動します。ついでにと思ってWindows10+Excel2000(Office2000ProSR-1)でも調べてみたら、同様に、Sheet1でMicrosoftQueryの画面を出すことで、ネストができました。Excel2000の場合は、Sheet1を右クリック→「クエリの編集」でよかったかと思います。xlsmでもxlsでもできたので、xlsxでもできるかな?と思って試してみましたら、こちらもできました。「ファイルを信頼できる場所に置く」ことで、この操作が必要なくなるかもしれません。Excelを開いて、「ファイル」「名前をつけて保存」を押します。「保存先」に「デスクトップ」を選びます。「ファイル名」に「pos」もしくは「pos.xls」と入力します。「保存」ボタンを押します。「挿入」「ワークシート」とクリックします。そこへ新しく「menu」と入力します。「01売上明細の列名のみ.txt」を開いて、「すべて選択」をし、「コピー」します。「T売上明細」シートをクリック。A1のセルをクリックします。それをそのまま貼り付けます。色を変えたい列を選択します。「セルの網掛け」の「色」にて、淡い黄色を選びます。「セルの網掛け」の「色」にて、水色を選びます。ツールバーの「罫線」ボタンの「▼」を押す。