食っちゃ寝システムができるまで

「食っちゃ寝システム」ができるまでの、棚卸&備忘録です。

食っちゃ寝プロジェクト

VBA使用頻度の高いコード(20):ファイル名を読み出すマクロ

ファイル(フォルダ)名を読み出すマクロ ファイル名をダイアログボックスを使って読み出すマクロ。単体で使うことは少ないですが他のマクロと組合わせて使うこと多いです。 =============================== ’ファイル選択読…

VBA使用頻度の高いコード(19):フォルダ数カウント & フォルダ名出力

フォルダ数カウント & フォルダ名出力 フォルダ数カウント & フォルダ名出力マクロ。 =============================== Sub フォルダー数カウント() Dim TargetDir As String Dim SubCount As Long Dim i As Integer Dim P…

VBA使用頻度の高いコード(18):空欄枠塗りつぶすマクロ

空欄枠塗りつぶすマクロ 空欄枠塗りつぶすマクロ。 =============================== Dim blankCells As Range Sub 枠作成()'枠作成 Sheets("成果物").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)…

VBA使用頻度の高いコード(17):インターネットエクスプローラー上で開いているページのボタンをクリックする

インターネットエクスプローラー上で開いているページのボタンをクリックする 開いているインターネットエクスプローラーが指定されたページからページ上のボタンをクリックして別ページに移るプログラム。 =======================…

VBA使用頻度の高いコード(16):インターネットエクスプローラー上で開いているページを調べるコード

インターネットエクスプローラー上で開いているページを調べるコード 開いているインターネットエクスプローラーが指定されたページを開いているか確認するコード =============================== Sub ImportIE() Dim shl A…

VBA使用頻度の高いコード(15):地図情報管理用クラスモジュール

地図情報管理用クラスモジュール 地図情報管理用クラスモジュールを管理するために作成したクラスモジュールです =============================== '番号に対する条件のクラス,見分けつけるため「_」を最終文字に添付 Privat…

VBA使用頻度の高いコード(14):同一ファイルがある場合 日付のついた別名ファイルで保存する

同一ファイルがある場合 日付のついた別名ファイルで保存する 同一ファイルがある場合 日付のついた別名ファイルで保存する。以外に使います。自分の場合、上書き保存嫌うところがあって、万が一に備え別名で記録しているので重宝しています。 ======…

VBA使用頻度の高いコード(13):Exif情報読込2(GPSExifReaderのクラスモジュールを使った場合)

Exif情報読込2(GPSExifReaderのクラスモジュールを使った場合) Exif情報読込2(GPSExifReaderのクラスモジュールを使った場合)です。Access用GPSクラスモジュールが必要です。(以下のサイトからダウンロード) www.everythingaccess.com 使い方は以下…

VBA使用頻度の高いコード(12):Exif情報読込1(WIAを使った場合)

Exif情報読込1(WIAを使った場合) Exif情報読込1(WIAを使った場合)用コード 使う前の準備として、先にVBAエディタからツール⇒参照設定 ⇒Windows Image Acquisitionにチェック入れてください ============================…

VBA使用頻度の高いコード(12):セルに合わせてオブジェクト配置

セルに合わせてオブジェクト配置 セルに合わせてオブジェクト配置用コード 下のは矢印配置=============================== Sub セルに合わせて矢印オブジェクト配置() Range("X" & WorkID).Select cellLenght = Selection.W…

VBA使用頻度の高いコード(11):罫線を引き直す

罫線を引き直す 罫線を引き直す用コード 票のセインを引き直すとき頻繁に使用=============================== Sub 罫線を引き直す() '罫線を引き直す Range("A9:L9").Select Range(Selection, Selection.End(xlDown)).Selec…

VBA使用頻度の高いコード(10):フォルダ一括作成

フォルダ一括作成 フォルダ内の特定ファイル読出し用コード シート上の名称をもとに一括でフォルダ作るコードです=============================== Sub フォルダ一括作成() Dim Path As String '作成予定フォルダの上位パス …

VBA使用頻度の高いコード(9):フォルダ内の特定ファイル読出し

フォルダ内の特定ファイル読出し フォルダ内の特定ファイル読出し用コード これはjpg読み出しようです。=============================== Sub フォルダ内Jpeg読込(pkupFolder As String) Dim pkupPath As String Dim pkupJpe…

VBA使用頻度の高いコード(8):インターネットエクスプローラーの起動

インターネットエクスプローラーの起動 インターネットエクスプローラーの起動用コード =============================== Sub IEOpen(ByRef MapURL As String) Dim objIE As Object Dim waitTime As Variant Target = MapURL…

VBA使用頻度の高いコード(7):コマンドラインからアプリ読出し

コマンドラインからアプリ読出し コマンドラインからアプリ読出し用コード ここコードは同じ、フォルダ内の「縮小専用」にファイルパスを渡しリサイズする例です。 流れとしては、 事前に貼付用CSVファイル作成 ⇒元のシートからファイルパス取出し ⇒Shellオ…

VBA使用頻度の高いコード(6):エクセルシートのCSV出力

エクセルシートのCSV出力 エクセルシートのCSV出力用コード ここコードはリストから一部の列をTEMPシートに整理しなおして出力するように作っています。 流れとしては、 事前に貼付用CSVファイル作成 ⇒元のシートから必要なデータ範囲(ここでは"B9:K2000")…

VBA使用頻度の高いコード(5):エクセルシートのPDF出力

エクセルシートのPDF出力 エクセルシートのPDF出力用コード =============================== Sub PDF出力()'' PDF出力' Dim fPath, pPoint, BaseFilename, CurrentFile As String 'ファイル名 CurrentFile = ActiveWorkbook…

VBA使用頻度の高いコード(4):エクセルファイル更新バックアップ

エクセルファイル更新バックアップ エクセルファイル更新バックアップ用コード =============================== Sub データバックアップ更新()'Dim backupcheck As StringDim CurrentPath, CurrentFile, ckBackup As String…

VBA使用頻度の高いコード(3):エクセルシート上の写真カウント

エクセルシート上の写真カウント シート上の画像のカウント =============================== Sub 写真カウント() Dim ctPicture As Double '写真数カウント ctPicture = 0 ctPicture = ActiveSheet.Pictures.Count If PageC…

VBA使用頻度の高いコード(2):エクセル上の写真の縮小

エクセル上の写真の縮小 エクセル上の写真を縮小するためのマクロ =============================== Sub 写真縮小()ActiveSheet.Unprotect Dim shp As Shape Dim x As Double Dim y As Double Application.ScreenUpdating = …

VBA使用頻度の高いコード(1):5行以上の結合セルに合わせて写真貼付け

5行以上の結合セルに合わせて写真貼付け 結合セルに合わせて写真サイズ修正貼付け用のコードです =============================== Sub 写真貼付直接() '===============セル選択&セル選択エラー判定付(6行以上の結合セル…

「食っちゃ寝システム第一弾」(5):写真Exif編集アプリver500(3)

「食っちゃ寝システム第一弾」(5):中間報告 ②写真のExif情報確認/編集 写真Exif編集アプリver500は読出した写真をExif情報確認/編集機能つけました 1)プログラムの動作説明 ここに関しては、練習用にWIAを使ってみました。 WIA=Windows Image Acqui…

「食っちゃ寝システム第一弾」(4):写真Exif編集アプリver500(2)

「食っちゃ寝システム第一弾」(4):中間報告 ②自動分別した写真の確認 写真Exif編集アプリver500は読出した写真を実際開いて確認する機能も追加しました。 1)プログラムの動作説明 これに関して、特別な工夫はなくフォーム上にイメージを12個起き、1…

「食っちゃ寝システム第一弾」(3):写真Exif編集アプリver500(1)

「食っちゃ寝システム第一弾」(3):中間報告 ついぞサボって、沖縄に行ってしまいました^^ 美ら海水族館前 1.食っちゃ寝システムに向けて 「食っちゃ寝システム第一弾」に関連して、活動したこと... ・・・あまり進んでないです。 なんか、ひたすらVBA…

「食っちゃ寝システム第一弾」(2):中間報告と作成物

「食っちゃ寝システム第一弾」(2):中間報告 1.食っちゃ寝システムに向けて 「食っちゃ寝システム第一弾」に関連して、活動したこと。 Python3環境の構築 はてなブログのアップデート VBAでマクロ作成 ・・・そして仕事を辞めたこと(笑) 特に、辞める間際…

「食っちゃ寝システム第一弾」(2):まずは初めの第一歩

「食っちゃ寝システム第一弾」(2) 10/27にしてある程度予定通り、今までの仕事の中身からモデル そこで今の時点で出来たことと、出来て無いことをまとめるとする。 まずできたこと、 ①IEを通じてのスクレイピング ②AI判定用のテストデータの用意 ③昔作成…

「食っちゃ寝システム第一弾」(1):基本構想

「食っちゃ寝システム第一弾」(1):下準備 下準備中 1.基本構想の再確認 「食っちゃ寝システム第一弾」は、 楽してWebで入力する仕組み、名付けて.... 食っちゃ寝入力(仮題) <食っちゃ寝レベル5:最終目標> 考えるだけ入力→判定→結果を返す 仕事をして…

「食っちゃ寝プロジェクト」始動:食っちゃ寝システム第一弾!!

食っちゃ寝プロジェクト始動! 唐突だが^^; 食っちゃ寝プロジェクト始動! 「食っちゃ寝システム第一弾」 作成開始!! 1.「食っちゃ寝プロジェクト」とは 「食っちゃ寝プロジェクト」とは、 常日頃、私ことtaikoboxがもっと楽に、食っちゃ寝してても勝手働くシ…