VBA
『まめ録』というデータベース？ を WindowsXP の Excel2003 − VBA（Microsoft Visual Basic 6.5）で作ろうとしている。「出来たッ！」と思って デモっている最中にバグを見つけた（既報）。テストしていない訳ではない。テストした時は「正常」だったのだが…
Minワークシート関数を使用してセル範囲の最小値を取得する （Excel VBA を学ぶなら moug モーグ | 即効テクニック） ワークシート関数を使用するときは、関数の前に、「Application.WorksheetFunction.」を付けます。次のサンプルは、名前が「検査セル」と…
昨日 の続きを、Excelヘルプとググりながら試行錯誤する。 FindNext メソッドの使用例 − 半角チルダ Excel VBA 入門講座 検索 Find FindNextメソッドを使った複数検索 − Excel全開VBA ※ 今日解ったこと 日付を検索するには VLookup では、シリアル値でないと…
自治会の初の大行事、「住吉神社春の大祭」、色々てこずったが今日で終わる。反省は、今夜行うとして、明日から一週間で「Excelでカレンダー」（これはフォルダの名前）のカスタマイズ「VLookup を FindNext に変える」に着手。 FindNext ‥‥ これは使ったこ…
（結論はこちら） パソコン同好会で使っている「よくわかる Microsoft Office Excel演習問題集」の Lesson36 に「カレンダー」がある。「インストラクターのネタ帳」にも、年度末のこの時期、結構なアクセスがある らしい。 因みに、「Excel演習問題集Lesson…
今日は絶好のパソコン日和。早朝から ファイルリスト作成機 を使って、パンパンになったドライブ C: を解析する Excelマクロに挑戦している‥‥ が、12時間経った今も「お先真っ暗」の状態。 私のデスクトップ機（WindowsXP）で試してみた。 「ファイルリスト…
FS社のAccessを［解析］→ RTF にエクスポートし、指定の文字列のある段落番号と位置を csv に出力するするための関数。本来は ページ−行−桁 を知りたかったのであるが、その方法が解らない．．． '概要：第2引数で検索してCSVに書き出す。 Public Function S…
住所録を Microsoft Access で作っている。改廃履歴によると、初版は H12/11/09 となっているから、10年目という事になる。これを1年ぶりに改修した。 今回の改修のポイントは、［かな検索］した時に、その「かなで絞り込む」ようにするもの。ところが‥‥ コ…
年賀状を作っていて、宛名の連名が2文字の場合、宛名の名前（姓ではなく名の方）とのバランスが悪いと感じたので、間にスペース入れて調節 するようにした。例えば、 連名“多美”の文字間隔を変えてある 改修概要 宛名・姓宛名・名連名が2文字の場合 1 文字1…
タイトル列番号を文字列・アルファベットに変換する：Excel エクセルの使い方-マクロ/VBA http://www.relief.jp/itnote/archives/003478.php ホームインストラクターのネタ帳 http://www.relief.jp/itnote/ Excel−VBA で、列番号を列記号に変換する関数。自…
改修のポイント 2.1Lで新設したチェックボックス を 『確認メッセージは出さない』 に変更し、 チェックを入れると、終了までの手順を簡素化した。 「住所録マクロの使い方」を 2.1m に対応した。 マクロの変更は、昨日、（忘年会のはしごで）二日酔いの中 6…
「ExcelでSQLが使えるか」では検索した結果をセルに貼り付けるSQLだった。 「表を貼り付ける」のが目的だったので、試行錯誤した ‥‥ が、できない。 モーグ を“Excel SQL” で検索してみたが、Excel から Access のデータを取得するトピックはあったものの、…
以前、パソコン同好会の 施設予約状況を Access＋Excel で解析 した。Access ではもっぱら SQL を使ったが、これが Excel で出来れば Access は不要となる。Access は買わなくていけないし安くもない。そこで、“Excel SQL”でググったら、人力検索はてながヒ…
「VBS」に挫折し、「なでしこ」に挫折中の身である現在、チョッと気になる記事だ。 ▼ 特集：Small Basic で初プログラミング − ＠IT 超簡単「Small Basic」でプログラミングを始めよう！ ▼ pamupamu もっと手軽に電車の中でもプログラミング！
公民館使用日誌の「使用年月日」。第１週の火曜日と金曜日のクラスを入力した後は、コピペして使用年月日はハンドで+7日していたが、面倒なのでマクロですることにした。 Sub プラス7日する() Dim C As Range Dim datDate As Date For Each C In Selection d…
光市のＦＥ社に納めるAccess改修版。会員の検索（絞り込み）を「かな」１文字で行う‥‥ここまではいいが、例えば、「が」は「か」で、「ば」は「は」で検索できるようにして欲しいという要望。ソースはふりがな。この上１桁をどうやって変換しようかぁ‥‥とイ…
ワードの「はがき宛名印刷ウィザード」で作成した「往復はがき」の文書と、エクセル住所録（320件）を添付したメールに、「宛名書きをヨロシク」とあった。 「予算は？」と問いたいところであるが、メールなので無理かぁ〜その日はメールを見ただけで早寝。…
フォルダ名に空白があっても""で囲む必要はない。 strAns = Dir("\\コンピュータ名\My Doduments") ‥‥ OK strAns = "\\コンピュータ名\My Doduments"strAns = Dir(strAns) ‥‥ OK strAns = """\\コンピュータ名\My Doduments"""strAns = Dir(strAns) ‥‥ NG （…
昨日の同好会で、「宛名を印刷したい人は、Wordで「氏名」「郵便番号」「住所」を順に入力してくれば、後はなんとかする」と言ってシマッタ!! なんとかするにはどうすればいいか‥‥ 昨夜布団の中で考えていたら、今朝４時に目が覚め‥‥眠れない。ノコノコ起き…
前回を改訂し、次の機能を追加した。 マクロ終了前に、出力したテキストファイルを関連付けられたアプリケーションで開く。 moug 即効テクニックにあったコード。 マクロ終了時、エクセルも終了する。 これもインターネットにあったコードを真似た。 Option …
次週の講座予定は、今週の「今週の講座予定」をコピペして修正しているが、“p1” “p2” など一意なリンクが設定されているのでこの修正が意外と面倒だ。そこで、 「今週の講座予定」の記事（ソース）をメモ帳に貼り付けて保存 保存したメモ帳をエクセルＶＢＡ…
銀行振込ファイル レコード・フォーマットを参考に、Microsoft Access に取り込むためのモジュールを作った。以前も作ったことがあるが、すっかり忘れている。Access そのものも忘れているのでてこずった。きれいなコーディングではないだろうが、今後の自分…
ある Excel シートに入力されているデータの最終行番（最大行番）を知りたい。ある時、ある所でそのような関数を見たような記憶があるが‥‥サッパリ思い出せない。 今は次のようにしている。 ActiveCell.SpecialCells(xlLastCell).Select LastRow = ActiveCel…
Application.Quit次は、Quit のヘルプに載っていた内容。 Quit メソッド 関連項目対象使用例アプリケーション情報Excel を終了します。 expression.Quit expression 必ず指定します。Application オブジェクトを返すオブジェクト式を指定します。 解説 Quit …
住所録マクロの改修過程で必要になった機能。今回の改修では、先に「住所録マクロ」を開く。そこで、住所録マクロを開く「先に自分の住所録を開いていた」ことを考慮する必要があり、試行錯誤していた。 Sub Auto_Open() Dim macroBookName As String, openB…
※ ExcelVBA ヘルプより この表を出すのが難しかったので載せた‥‥が、現時点では使い方がよくわからん！ ダイアログボックス定数引数リスト xlDialogActivate window_text、pane_num xlDialogActiveCellFont font、font_style、size、strikethrough、superscr…
Office Tanaka VBA 講座の 名前を指定してブックを開く に詳しく載っている。 【受け取る変数がバリアント型(Variant)の場合】 Sub Sample2() Dim OpenFileName As Variant OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If …
昨年、Excel の Word の宛名書き用漢数字変換マクロ 「住所録マクロ」を作成したが、種々問題があるので作り直すことにした。 §現在の問題点 個人の住所録に追加する項目（列）が多すぎる。 追加しないのが望ましい。 個人の住所録と、「住所録マクロ」を同…
ラジオを聴きながら部屋の掃除というより、ちらかした本を片付けていたら、「大掃除は出来ないので小掃除」という話をしていた。一冊の本が出てきた。2004 年 1 月新年号 定価 590 円の日経ＰＣ２１だ。そのまま資源ゴミにすれば片付けは終っていたのであろ…
Option Compare Database Option Explicit Const MYObjName As String = "modGet_TableNameDAO" '概要：DAOを使用してﾃｰﾌﾞﾙ名一覧を“;”区切りで返す。 '履歴：H18.11.10 初版 Public Function get_TableNameDAO() As String Dim mbTitle As String Dim DBS A…
