VBA
ファイル(フォルダ)名を読み出すマクロ ファイル名をダイアログボックスを使って読み出すマクロ。単体で使うことは少ないですが他のマクロと組合わせて使うこと多いです。 =============================== ’ファイル選択読…
フォルダ数カウント & フォルダ名出力 フォルダ数カウント & フォルダ名出力マクロ。 =============================== Sub フォルダー数カウント() Dim TargetDir As String Dim SubCount As Long Dim i As Integer Dim P…
空欄枠塗りつぶすマクロ 空欄枠塗りつぶすマクロ。 =============================== Dim blankCells As Range Sub 枠作成()'枠作成 Sheets("成果物").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)…
インターネットエクスプローラー上で開いているページのボタンをクリックする 開いているインターネットエクスプローラーが指定されたページからページ上のボタンをクリックして別ページに移るプログラム。 =======================…
インターネットエクスプローラー上で開いているページを調べるコード 開いているインターネットエクスプローラーが指定されたページを開いているか確認するコード =============================== Sub ImportIE() Dim shl A…
地図情報管理用クラスモジュール 地図情報管理用クラスモジュールを管理するために作成したクラスモジュールです =============================== '番号に対する条件のクラス,見分けつけるため「_」を最終文字に添付 Privat…
同一ファイルがある場合 日付のついた別名ファイルで保存する 同一ファイルがある場合 日付のついた別名ファイルで保存する。以外に使います。自分の場合、上書き保存嫌うところがあって、万が一に備え別名で記録しているので重宝しています。 ======…
Exif情報読込2(GPSExifReaderのクラスモジュールを使った場合) Exif情報読込2(GPSExifReaderのクラスモジュールを使った場合)です。Access用GPSクラスモジュールが必要です。(以下のサイトからダウンロード) www.everythingaccess.com 使い方は以下…
Exif情報読込1(WIAを使った場合) Exif情報読込1(WIAを使った場合)用コード 使う前の準備として、先にVBAエディタからツール⇒参照設定 ⇒Windows Image Acquisitionにチェック入れてください ============================…
セルに合わせてオブジェクト配置 セルに合わせてオブジェクト配置用コード 下のは矢印配置=============================== Sub セルに合わせて矢印オブジェクト配置() Range("X" & WorkID).Select cellLenght = Selection.W…
罫線を引き直す 罫線を引き直す用コード 票のセインを引き直すとき頻繁に使用=============================== Sub 罫線を引き直す() '罫線を引き直す Range("A9:L9").Select Range(Selection, Selection.End(xlDown)).Selec…
フォルダ一括作成 フォルダ内の特定ファイル読出し用コード シート上の名称をもとに一括でフォルダ作るコードです=============================== Sub フォルダ一括作成() Dim Path As String '作成予定フォルダの上位パス …
フォルダ内の特定ファイル読出し フォルダ内の特定ファイル読出し用コード これはjpg読み出しようです。=============================== Sub フォルダ内Jpeg読込(pkupFolder As String) Dim pkupPath As String Dim pkupJpe…
インターネットエクスプローラーの起動 インターネットエクスプローラーの起動用コード =============================== Sub IEOpen(ByRef MapURL As String) Dim objIE As Object Dim waitTime As Variant Target = MapURL…
コマンドラインからアプリ読出し コマンドラインからアプリ読出し用コード ここコードは同じ、フォルダ内の「縮小専用」にファイルパスを渡しリサイズする例です。 流れとしては、 事前に貼付用CSVファイル作成 ⇒元のシートからファイルパス取出し ⇒Shellオ…
エクセルシートのCSV出力 エクセルシートのCSV出力用コード ここコードはリストから一部の列をTEMPシートに整理しなおして出力するように作っています。 流れとしては、 事前に貼付用CSVファイル作成 ⇒元のシートから必要なデータ範囲(ここでは"B9:K2000")…
エクセルシートのPDF出力 エクセルシートのPDF出力用コード =============================== Sub PDF出力()'' PDF出力' Dim fPath, pPoint, BaseFilename, CurrentFile As String 'ファイル名 CurrentFile = ActiveWorkbook…
エクセルファイル更新バックアップ エクセルファイル更新バックアップ用コード =============================== Sub データバックアップ更新()'Dim backupcheck As StringDim CurrentPath, CurrentFile, ckBackup As String…
エクセルシート上の写真カウント シート上の画像のカウント =============================== Sub 写真カウント() Dim ctPicture As Double '写真数カウント ctPicture = 0 ctPicture = ActiveSheet.Pictures.Count If PageC…
エクセル上の写真の縮小 エクセル上の写真を縮小するためのマクロ =============================== Sub 写真縮小()ActiveSheet.Unprotect Dim shp As Shape Dim x As Double Dim y As Double Application.ScreenUpdating = …
5行以上の結合セルに合わせて写真貼付け 結合セルに合わせて写真サイズ修正貼付け用のコードです =============================== Sub 写真貼付直接() '===============セル選択&セル選択エラー判定付(6行以上の結合セル…