VBA

インターネットの情報+VBAからExcel住所録を作成した。その費用は...

柳井市のYK社から、近郊市町村の介護施設の一覧を作ってほしい‥‥ との依頼があった。データの一例「ネットから一つ一つコピペすれば出来ますょ。1日あったら出来るのでは?」「自分も同じ方法になります」と逆提案した... 奮闘すること3時間半。Excel-VBA…

Excel2010 VBAで列幅をmmで指定するには

VBA

以前、「WordでPDFサムネイル」を作ったが、処理に時間が掛かるので Excel に作り変えようとしているが苦戦中‥‥ その一つ。Wordのようにセルの中に自動的に納めることができず、画像の縮小サイズは自分で指定しなくてはならないのだが、単位がややこしい... …

Excel の xlsmファイルを保存しようとしたら「プライバシーに関する注意」という警告が出る

Windows7/Excel2010 で、新しいマクロを作って保存しようとしたら、「プライバシーに関する注意」が出た。 プライバシーに関する注意: このドキュメントには、マクロ、ActiveX コントロール、XML 拡張パックの情報、または Web コンポーネントが含まれてい…

Excel-VBAで選択したセルが判るようなフォーム・コントロールを作るには...

VBA

Excelで、「セルを選択しておきマクロを呼び出す」ことは、マクロを作っている人には簡単な操作であるが、これを「家計簿77」で定常化するには問題がある‥‥ と、思っている。では、どうするか‥‥ で、ググっていたら Office TANAKA に... セルを参照するボタン…

Excel2010/名前の定義を削除する&インポートするVBA

VBA

家計簿77 のマクロ改修版のテスト中に、「移動またはコピーしようとしている数式またはシートには、移動またはコピー先のワークシートに既にある名前‘費目リスト’が含まれています。この名前を使用しますか?」というメッセージが出た。 家計簿77 では、 例…

家計簿77/マクロを呼び出すボタンを作るモジュール

VBA

Excel/家計簿77 のバージョンアップを進めている。そこで使うマクロを呼び出すボタンを作るモジュール。類似のモジュールは何度か作っているがブログ内を検索してもヒットしない まして PC内を検索するのは不可能... (VBA内のモジュールまでは検索できない…

Excel-VBA の isDate関数では “23,05,25” は日付型になる

VBA

入力されているデータを日付型に変える Sub(マクロ)を作る時に悩んだこと。 既に日付型になっている場合は変換対象外にするため、isDate関数を使うと、変換されないケースが多く発生したのだ。イミディエイト ウィンドウで確認すると‥‥ ?isDate("23,0…

Excel からAccess MDBのテーブルを書き換えるには

VBA

Access MDBのテーブルを一括 Excel に落とすことは出来た。その内容を Excel で修正(追加を含む)して、戻したい。ADO で 1件ずつ書き込むしかないかなぁ〜 できれば一括更新したいのだが... 今日は、Accessで(1)テーブルをクリアし、(2)インポートする マ…

Windows7&Excel2010&Access2003で開発したExcel VBAが、Access2010の環境では動かない...

VBA

Windows7上のAccess2003で、Excel2010の xlsm から「得意先かな」というフォームを開くモジュールを作成した。 Sub aa_Access得意先かなを開く() Dim mdbFullPath As String mdbFullPath = ThisWorkbook.Path & "\" & MDBName With CreateObject("Access.App…

Excel VBAから Access(mdb)のプロシージャ(Sub)を呼び出すことに成功した

VBA

インターネットに載っていたサンプルを試した結果、最終的には Yahoo!知恵袋にあった「エクセルからアクセスのマクロを実行し 更にエクセルマクロを実行したいのですが...」で上手く動いた。■ Access(mdb)のフォームを開く ※事前に Accessで、下記を行っ…

Excel VBA/ファイルの一覧を作るマクロの例

PCを使っていない企業は無いと思うが、逆に管理が面倒になっていることはないだろうか? との「年寄りの心配」(ヒョッとして冷や水かも)から、FS社の例を参考に「指定のフォルダ下にあるファイルの一覧を作る」マクロ(VBA)を作ってみた。今後参考にす…

FS社向け/製造の記録(pdf等)をExcelから見られるようにした「マクロ製造記録 v0.11」のコード

データブック(xlsx) マクロを起動するボタンを貼り付けておくと、マクロブックを開いていなくても起動することがわかった。 マクロブック(xlsm)の更新履歴 §1.Declarations Option Explicit Option Compare Binary Const MDBName As String = "製造記…

Excel2010からAccessデータベース(2000ファイル形式)を使う

下松市のFS社を訪問にしたら、「図面の管理」で良い方法がないか‥‥ と聞かれたので、持論を展開した。 図面を PDF あるいは PING(JPEGでも良いが...)で保存する。 Excel に取り込んで、クリックしたら「見られる」ようにする。 帰宅後、mdb データベース…

Word2010のVBA/クリップボードをクリアする

VBA

Wordが終了した時に出るメッセージを消すのが目的。VBA 質問箱 にジャストの質問/回答を見つけた。 ※ 【718】クリップボードをクリア (Word VBA 質問箱 IV) Sub Clearクリップボード() Dim rng As Range ActiveDocument.InlineShapes(1).Range.Copy For Ea…

Word2010のマクロ/半角スペース2ヶを全角スペース1ヶに変換(置換)する

VBA

マクロあるいは VBAのコードをはてなダイアリーにコピペすると、半角スペースは無視されるので、折角のインデントが台無しになる。そこで、Word2010に貼り付け、(1)2ヶの連続した半角スペースを全角スペースに置換、(2)空行は全角スペース2ヶに置換するマ…

Access2010でオブジェクトの一覧表を作りたい...

Microsoft Access2010 を起動した。前回は Access2003 だったから、単純に引いて 7年ぶり‥‥ ぐらい。リボン形式に変わっており、前に進めない... 組んだシステムの内容も全く忘れている。どこに何があるのかさっぱりわからない。そこで、オブジェクトの一覧…

Excel2010/「直近記事一覧」を html から はてなダイアリー に変更するマクロを完成させた

VBA

「直近記事一覧」は Excel を html で出力していたが、管理上の問題がある。 作成後、内容の間違いに気が付いても修正ができず、作り直しになる。 新しい分の追加ができない。常に作り直しになる。 そこで、はてな記法による表にするため、 Excel マクロを作…

午後/iPSマクロ研の予定…マクロ残高証明の作成

■ マクロ残高証明 §1.データを揃えるため、サンプルデータをダウンロードする [麻里府発]の まりふのひとの「公開」SkyDrive に入り、 フォルダー「麻里府パソコン同好会」をクリックし、(開く) フォルダ「iPSマクロ研」をクリックする。 (開く) 「2…

Excel/フィルターで「を含む」で絞り込むマクロ(2条件)

VBA

Sub まめ録絞り込み() Dim mbTitle As String Dim varAns As Variant Dim strFilter1 As String, strFilter2 As String mbTitle = "まめ録絞り込み/" & ThisWorkbook.Name 'フィルターをオンにする。 If ActiveSheet.AutoFilterMode = False Then Range("A1"…

Excel VBAでVLookupを使う

VBA

2010/05/01 の excel memo に気になる記事が載っていた。3年半前の記事‥‥ だ。(自分は3年以上遅れているのだ...) VBAでVLOOKUPを使う ポイントは"Application.VLookup"の部分で、これは"Application.WorkSheetFunction.VLookup"からWorkSheetFunctionオブ…

田中さんが「Excel に精通していない人からVBAを習ってはいけません」と言っているが...

VBA

いつもお世話になっている Office TANAKA の田中 亨さんから、きつい言葉 をいただいた。忠実に引用するため、ウェブページを Snipping Tool で切り取った。 VBA をマスターしようと思ったら、まず Excel の機能に精通するべきです。‥‥ 同意見 Excel に精通…

午後/iPSマクロ研の予定…マクロ残高証明の作成

■ マクロ残高証明 前回行った手順をマクロ化してみます。 §1.データを揃えるため、サンプルデータをダウンロードする [麻里府発]の まりふのひとの「公開」SkyDrive に入り、 フォルダー「麻里府パソコン同好会」をクリックし、(開く) フォルダ「iPSマ…

最終行、最終列を取得するExcel VBAのコード

VBA

§A列の最終行を取得する 空白セルが無い場合 ‥‥ Ctrl+↓を使うRange("A1").End(xlDown).Row 空白セルがある場合 ‥‥ 最後の行から Ctrl+↑ するCells(Rows.Count, 1).End(xlUp).Row §1行目の最終列を取得する 空白セルが無い場合 ‥‥ Ctrl+→を使うRange("A1"…

コントロールパネルの[地域と言語]で曜日を表示するのは止めた方がいい

まりふのひと - 2013.11.05 で「Windows7/タスクバーの役割を再確認する」の中で、任意と断っているが「タスクボタン名が5文字見られる目安として、年月日に曜日を表示してみる。」として、その方法を書いてあるが、止めた方がいい!!!!! 今日、「筆ぐるめ/住…

Excel2010/選択したセル内の集計という文字を取り去るマクロ

VBA

iPSマクロ研で、Excel2010で「選択したセル内の集計という文字を取り去る」マクロを作った。 Sub 選択したセル内の集計という文字を取り去る() Dim rCell As Range Dim sString As String For Each rCell In Selection sString = rCell.Value sString = Repl…

Excel VBA/Ctrl+Endキーを押した時の行/列番号を知るコード

VBA

Excel VBA で入力されている「最後の行」を取得するのに Ctrl+End をよく使うが、直ぐコードを忘れるので記録しておくことにした。 Excel2010で、[マクロの記録]で Ctrl+Endキーを押すと、次のように記録される。 ActiveCell.SpecialCells(xlLastCell).S…

開発!マクロ残高証明書/出納帳・ひな形の考え方

VBA

■ シートの様式 ひな形(案) 出納帳は、 「入力するためのシート」であり、データベースとしての機能を優先すべきと思う。 「表題」はシート名またはブック名で代用できるので取り、シート全体をデータベース(リスト形式)にする。 これにより、将来、1年…

開発!マクロ残高証明書/WindowsXPで開発、Windows7で動作検証

VBA

使用環境は WindowsXP と聞いているので、多分、Excel2003 以前のはず。そこで、今日の「iPSマクロ研」で、WindowsXP/Excel2003 で開発したコードを Windows7 で動作確認した。 WindowsXP/Excel2007 ‥‥ 問題なく動作した。 Windows7/Excel2010 3台中2台は…

フィルターの結果を別のシートにコピペする

■ いきさつ ある日、「よくわかる Microsoft Excel2010基礎」(FOM出版)の第8章「データベースの利用」の表を見てた上司がとりあえず開催日を 2014年に変えて、区分の担当者に配ってくれ。検討させる...と言ってきた... とする。 §1.開催日を 2014年に変…

Excel2010/Visual Basic Editor(VBE)の画面構成と基本設定

VBA

Visual Basic Editor(VBE)の起動は、[開発]タブ/コードGr.の[Visual Basic]をクリックします。このボタンをポイントしてもわかるように、ショートカットキーは、Alt+F11 です。 特別なことがない限り、最大化して使いましょう!以下は、私の偏見と独…