VBA
「ドキュメントの中に見慣れないファイルが並んでしまった」件で、iPS-BBの会を予定している。 ツールとして「ファイルリスト作成機」を使うことにしているが、自分のPCで「予行演習」してみると「あまりにも細かさ過ぎる」‥‥ という懸念が出てきた。そこで…
iPS-BBの会で「外付けハードディスクのセットアップする」を機に、5年前（たぶん）購入したバッファロー製 USB-HDD付属の Buffalo Backup Utitltyをインストールした。 バックアップすると、バックアップ先ドライブに “BUData” というフォルダが出来る。これ…
右図は○月○日 イオンの 5%引きの日のレシート。 例えば1行目、(a)価格は 444円。(b) 5%引きで -24円。従って、(c)支払金額は 444−24＝420円となる。 5%の値 24円は、444×0.05＝22.2円なので計算が合わない。この444円の内訳は 148円×3点。で、148×0.05＝7.4…
■ 改修のポイント 「引落」のカード名は、頭に“＠”（全角アットマーク）を付ける。 SumIfs関数で、“=引落”としている時は、“=＠*”の値を加える。 SumIfs関数で、“<>引落”としている時は、“=＠*”の値を差し引く。 集計する() ‥‥ マクロ家計簿 version 1.23（…
■ 改修のポイント オートチャージの（プリペイド）カードは、いわゆる「チャージ」はしないので、「引落」（口座引き落としで商品を購入した場合）と現象は同じ。 「引落」は１本なので、何のクレジットカードで購入したかわからない。 そこで、「複数の引落…
ばぁーばさんへお願い 「マクロ家計簿77v122b」をインストールし、テストしていただけませんか？ （ばぁーばさん以外の方は「マクロ家計簿77v122a」，「マクロ健康記録v004d」をインストールしてください） ばぁーばさんの家計簿77で、［健康記録更新］を行…
下図をVBAで作るコード。体裁よりシンプルを目指した。 ※ 完成図 ※ VBAコード Range+("A1") = "歩数血圧グラフデータ" Range("G1") = "血圧正常値" '結合して中央揃え With Range("G1:H1") .HorizontalAlignment = xlCenter .Merge End With Range("G2") = "…
明日（元旦）に「初火の出」を実現しようと、炭焼きの準備を始めた‥‥ が、想定外の雨となった。雨では薪（竹）の準備が出来ない... で、明日朝一からの炭焼きは諦めた。 帰宅後、外からはストーブで、内からは焼酎で体を暖め‥‥ ［翌年分ブック作成］で発生す…
24日の「iPS-BBの会」で、家計簿77の［翌月分シート作成］で、シートはできるが、前月分のデータが入っている（残る）との不具合を指摘された。 原因は、 シートが保護されていたため、 行削除ができなかった もの。 処置は、 シート見出しを右クリックし、 …
iPS77 でバージョンを 0.36c にアップし、検証してもらったら‥‥複数台の PC で「グラフデータ作成に失敗しました」が... 引数が「費目データ」となっているので、「歩数血圧」以前の状態だ... デバッグしても、おかしなコードを見つけられない... 行き詰って…
天気が悪いのを利用して、金曜日から「マクロ家計簿77」の改修に集中した。 メニューに［グラフデータ更新］を追加した。 R［保存して閉じる］と、 次回、開いた時、 ［歩数血圧］シート（後述）がアクティブになるようにした。 ［グラフデータ更新］で「費…
単純なコード。どうも 海馬にある[要素に反応する神経細胞]に電気が通らなくなっている ようだ。で、記録に残すことに... Public Sub デイサービスCSV変換() Dim mbTitle As String Dim isEOF As Boolean Dim dsn As Long, ds2 As Long Dim outCounter As Lo…
柳井市のＹＫ社から、近郊市町村の介護施設の一覧を作ってほしい‥‥ との依頼があった。データの一例「ネットから一つ一つコピペすれば出来ますょ。１日あったら出来るのでは？」「自分も同じ方法になります」と逆提案した... 奮闘すること3時間半。Excel-VBA…
以前、「WordでPDFサムネイル」を作ったが、処理に時間が掛かるので Excel に作り変えようとしているが苦戦中‥‥ その一つ。Wordのようにセルの中に自動的に納めることができず、画像の縮小サイズは自分で指定しなくてはならないのだが、単位がややこしい... …
Windows7/Excel2010 で、新しいマクロを作って保存しようとしたら、「プライバシーに関する注意」が出た。 プライバシーに関する注意： このドキュメントには、マクロ、ActiveX コントロール、XML 拡張パックの情報、または Web コンポーネントが含まれてい…
Excelで、「セルを選択しておきマクロを呼び出す」ことは、マクロを作っている人には簡単な操作であるが、これを「家計簿77」で定常化するには問題がある‥‥ と、思っている。では、どうするか‥‥ で、ググっていたら Office TANAKA に... セルを参照するボタン…
家計簿77 のマクロ改修版のテスト中に、「移動またはコピーしようとしている数式またはシートには、移動またはコピー先のワークシートに既にある名前‘費目リスト’が含まれています。この名前を使用しますか？」というメッセージが出た。 家計簿77 では、 例…
Excel/家計簿77 のバージョンアップを進めている。そこで使うマクロを呼び出すボタンを作るモジュール。類似のモジュールは何度か作っているがブログ内を検索してもヒットしない まして PC内を検索するのは不可能... （VBA内のモジュールまでは検索できない…
入力されているデータを日付型に変える Sub（マクロ）を作る時に悩んだこと。 既に日付型になっている場合は変換対象外にするため、isDate関数を使うと、変換されないケースが多く発生したのだ。イミディエイト ウィンドウで確認すると‥‥ ?isDate("２３，０…
Access MDBのテーブルを一括 Excel に落とすことは出来た。その内容を Excel で修正（追加を含む）して、戻したい。ADO で 1件ずつ書き込むしかないかなぁ〜 できれば一括更新したいのだが... 今日は、Accessで(1)テーブルをクリアし、(2)インポートする マ…
Windows7上のAccess2003で、Excel2010の xlsm から「得意先かな」というフォームを開くモジュールを作成した。 Sub aa_Access得意先かなを開く() Dim mdbFullPath As String mdbFullPath = ThisWorkbook.Path & "\" & MDBName With CreateObject("Access.App…
インターネットに載っていたサンプルを試した結果、最終的には Yahoo！知恵袋にあった「エクセルからアクセスのマクロを実行し 更にエクセルマクロを実行したいのですが...」で上手く動いた。■ Access（mdb）のフォームを開く ※事前に Accessで、下記を行っ…
PCを使っていない企業は無いと思うが、逆に管理が面倒になっていることはないだろうか？ との「年寄りの心配」（ヒョッとして冷や水かも）から、ＦＳ社の例を参考に「指定のフォルダ下にあるファイルの一覧を作る」マクロ（VBA）を作ってみた。今後参考にす…
データブック（xlsx） マクロを起動するボタンを貼り付けておくと、マクロブックを開いていなくても起動することがわかった。 マクロブック（xlsm）の更新履歴 §１．Declarations Option Explicit Option Compare Binary Const MDBName As String = "製造記…
下松市のＦＳ社を訪問にしたら、「図面の管理」で良い方法がないか‥‥ と聞かれたので、持論を展開した。 図面を PDF あるいは PING（JPEGでも良いが...）で保存する。 Excel に取り込んで、クリックしたら「見られる」ようにする。 帰宅後、mdb データベース…
Wordが終了した時に出るメッセージを消すのが目的。VBA 質問箱 にジャストの質問/回答を見つけた。 ※ 【718】クリップボードをクリア （Word VBA 質問箱 IV） Sub Clearクリップボード() Dim rng As Range ActiveDocument.InlineShapes(1).Range.Copy For Ea…
マクロあるいは VBAのコードをはてなダイアリーにコピペすると、半角スペースは無視されるので、折角のインデントが台無しになる。そこで、Word2010に貼り付け、(1)２ヶの連続した半角スペースを全角スペースに置換、(2)空行は全角スペース２ヶに置換するマ…
Microsoft Access2010 を起動した。前回は Access2003 だったから、単純に引いて 7年ぶり‥‥ ぐらい。リボン形式に変わっており、前に進めない... 組んだシステムの内容も全く忘れている。どこに何があるのかさっぱりわからない。そこで、オブジェクトの一覧…
「直近記事一覧」は Excel を html で出力していたが、管理上の問題がある。 作成後、内容の間違いに気が付いても修正ができず、作り直しになる。 新しい分の追加ができない。常に作り直しになる。 そこで、はてな記法による表にするため、 Excel マクロを作…
■ マクロ残高証明 §１．データを揃えるため、サンプルデータをダウンロードする ［麻里府発］の まりふのひとの「公開」SkyDrive に入り、 フォルダー「麻里府パソコン同好会」をクリックし、（開く） フォルダ「iPSマクロ研」をクリックする。 （開く） 「2…
