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"…
2010/05/01 の excel memo に気になる記事が載っていた。3年半前の記事‥‥ だ。（自分は3年以上遅れているのだ...） VBAでVLOOKUPを使う ポイントは"Application.VLookup"の部分で、これは"Application.WorkSheetFunction.VLookup"からWorkSheetFunctionオブ…
いつもお世話になっている Office TANAKA の田中 亨さんから、きつい言葉 をいただいた。忠実に引用するため、ウェブページを Snipping Tool で切り取った。 VBA をマスターしようと思ったら、まず Excel の機能に精通するべきです。‥‥ 同意見 Excel に精通…
■ マクロ残高証明 前回行った手順をマクロ化してみます。 §１．データを揃えるため、サンプルデータをダウンロードする ［麻里府発］の まりふのひとの「公開」SkyDrive に入り、 フォルダー「麻里府パソコン同好会」をクリックし、（開く） フォルダ「iPSマ…
§A列の最終行を取得する 空白セルが無い場合 ‥‥ Ctrl＋↓を使うRange("A1").End(xlDown).Row 空白セルがある場合 ‥‥ 最後の行から Ctrl＋↑ するCells(Rows.Count, 1).End(xlUp).Row §１行目の最終列を取得する 空白セルが無い場合 ‥‥ Ctrl＋→を使うRange("A1"…
まりふのひと - 2013.11.05 で「Windows7/タスクバーの役割を再確認する」の中で、任意と断っているが「タスクボタン名が5文字見られる目安として、年月日に曜日を表示してみる。」として、その方法を書いてあるが、止めた方がいい!!!!! 今日、「筆ぐるめ/住…
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 をよく使うが、直ぐコードを忘れるので記録しておくことにした。 Excel2010で、［マクロの記録］で Ctrl＋Endキーを押すと、次のように記録される。 ActiveCell.SpecialCells(xlLastCell).S…
■ シートの様式 ひな形（案） 出納帳は、 「入力するためのシート」であり、データベースとしての機能を優先すべきと思う。 「表題」はシート名またはブック名で代用できるので取り、シート全体をデータベース（リスト形式）にする。 これにより、将来、１年…
使用環境は WindowsXP と聞いているので、多分、Excel2003 以前のはず。そこで、今日の「iPSマクロ研」で、WindowsXP/Excel2003 で開発したコードを Windows7 で動作確認した。 WindowsXP/Excel2007 ‥‥ 問題なく動作した。 Windows7/Excel2010 ３台中２台は…
■ いきさつ ある日、「よくわかる Microsoft Excel2010基礎」（FOM出版）の第８章「データベースの利用」の表を見てた上司がとりあえず開催日を 2014年に変えて、区分の担当者に配ってくれ。検討させる...と言ってきた... とする。 §１．開催日を 2014年に変…
Visual Basic Editor（VBE）の起動は、［開発］タブ/コードGr.の［Visual Basic］をクリックします。このボタンをポイントしてもわかるように、ショートカットキーは、Alt＋F11 です。 特別なことがない限り、最大化して使いましょう！以下は、私の偏見と独…
10/5 のブログ「Windows Updateで KB2552343 が失敗したまま...（未解決）」関連記事を調べている過程で、MSN 相談箱の「更新履歴の表示を検索することはできますか？」を見つけた。 Windows Update 更新履歴のテキストファイルはC:\Windows\SoftwareDistrib…
選択されているセル範囲は Selection で表される。例えば、セル C5〜F9 を選択し、下記コードを実行すると、 For i = 1 To Selection.Count Selection(i) = "Selection (" & i & ")" Next 下図のようになる。 以下は、デバッグウィンドウで確認した結果。 実…
■ 更新履歴 2013.09.15 ver.0.14 ‥‥ この時点でとりあえず公開した。 マクロのファイルとデータファイルの二本立てとした。 マクロを改修した時、ファイルの入れ替えが容易に出来るようにするのが目的。 マクロ入りのファイルがファイル名で判るようにしたか…
13日の iPSマクロ研 で、テキスト「よくわかる Microsoft Excel2010 マクロ/VBA」（FOM出版）のサンプルデータ「第2章.xlsx」で、テキストに沿って、(1)「支店」を［昇順］で並べ替えた後、(2)［小計］する マクロ「集計」を作成した。ここまでは問題ない。 …
Excel2010のマクロ（VBA）をデータファイル（ブック）に含ませるのは簡単だが、マクロのメンテナンスに難点がある。そこで、プログラム（マクロ入りブック）とデータファイル（ブック）を分けるようにしているが、色々問題があり上手い方法が見つけられなか…
ファイル名：残高証明書.xlsm 開くと、［原稿］シートと［集計］シートがある。 ［原稿］シートを［集計］シートにある名前分複製する。 証明月は、一応、パソコンで作るが、確認メッセージを出す。（翌月の 1日付け） 通常はそのまま［OK］すればよい。 1分…
インストラクターのネタ帳 2013年08月18日「空白セルを削除するマクロ」 誰かから受け取ったExcelファイルを業務で使おうとしたとき、整理が必要なことはよくあります。空白セルを削除するのは、そんな代表的な整理作業の一つです。単純な1列のリストになっ…
Visual Basic をインストールしようと、お気に入りの Visual Basic 中学校 から辿ったら Visual Studio Express 2012 だった。そこで、別途検索し softonic より Visual Basic 2010 Express をインストールした。 インストール後「Windows Update をするよう…
「入力した文字列がファイル名として使えるか？」「使えない文字があれば全角に変換してやろう」と、Excel-VBA でユーザー関数を作った。 Public Function get全角(arg文字列 As String) As String get全角 = StrConv(arg文字列, vbWide) End Function 検証…
「よくわかる Microsoft Excel2010基礎」（FOM出版）の第７章「グラフの作成」の最後の練習問題に「100%積み上げ横棒グラフ」がある。手順どおり行えば出来る問題であるが、旧バージョン（Excel2003以前）を知っている者にとっては、ここで終わる訳にはいか…
始めは「オブジェクトが必要です」とは言われなかったのに... ステップ実行してもどこで発生しているのか解らないので、小さなプログラムを作って試行錯誤した。 Excelマクロ.xlsm： Excel2010で作成したVBA Wordマクロ.docm： Word2010で作成したVBA 両ファ…
Office2003 で VBA のコーディング中に［F1］（ヘルプの表示）は重宝していたが、Office2010 になってからヘルプが出ない この画面がヘルプになっていると思っているのかッ！ Office2003 までのヘルプは何処にいったの？ ヘルプを頼りにしている利用者層は切…
■ ［開発］タブを表示する ［ファイル］タブを選択する。 ［オプション］をクリックし、 ［リボンのユーザー設定］をクリックする。 「メインタブ」の下にある R開発 にチェックを入れる。 ［OK］をクリックする。 ■ 任意の設定 ［開発］タブにあるコマンド…
VBAなので Wordでも Excelでも同じであろうが、今、必要なのは Wordなので、Excel Tips INIファイルへの書き込み／読込み WritePrivateProfileString、GetPrivateProfileString を参考にコーディングし、テストした。■ コード Option Explicit Public TXTFol…
H25.07.29 更新（version 0.11 に対応）指定したフォルダ下にある画像ファイル（jpg, png, gif, bmp）を Word の表に挿入し、PDF形式で出力する Word2010 のマクロ＆VBA、「WordでPDFサムネイル」（Microsoft Word マクロ有効文書、拡張子：docm）の使い方で…
動的配列を引数として渡している。戻ってきたとき、配列が作られているか否かの判断の仕方が解らず、ググってググったが、下記で判定できることを確認した。 初期値として空の配列を作る。（“varArray = Array()”） このままで“UBound(varArray)”すると、-1 …
Windows7 の Excel2003 で、文末のサンプルコードの sub「test」を実行すると、上記は本番のコードで出したもの。エラーコード 70/書き込みができません。のエラーが出る。 「パブリックド キュメント」下のフォルダーをリストアップするとエラーが出る。 出…
Word2003で、「Wordで作るサムネイル」をめざしマクロに挑戦している。概略は出来たが、出来た文書ファイルの大きさが、挿入した画像の容量の合計と大差ない。これは、Wordで保存する時に圧縮(zip形式)フォルダしても、JPEGは元々圧縮されているためであろう…
