AcSpreadSheetType Access エクセルからインポート取り込み時、vba設定 AcSpreadSheet値のメモ。 忘れないうちにメモメモ。。。 AcSpreadSheetType 列挙(Access) 名前 値 説明 acSpreadsheetTypeExcel3 0 Microsoft Excel 3.0 形式 acSpreadsheetTypeExcel4 …

このブックには更新できないリンクが…を解除したい。 このブックには更新できないリンクが １つ以上含まれていますってなんの…毎回警告が出て嫌なんですけど… リンク先が無くなってエクセルさんが探しても見つかりませんって言ってるんですよ。 前から共有さ…

全てのシートの保護解除を一気にしたい。 シート保護 シート保護解除 おまけ 全てのシートの保護解除を一気にしたい。 シートの保護解除の繰り返しって、意外にストレスです。。。 VBA使えば一気に保護解除、保護設定も容易になりますよ♪ それはありがたい、…

特定のシートを見せたくないんです イメージ 非表示コード 表示コード おまけ 特定のシートを見せたくないんです 特定のシートを見せたくない時ってありませんか？ ついつい、再表示してみたくなります。 VBA上だと、エクセルシートから再表示できなくできる…

目次 作成目的 コード 作成目的 VBA作成時、任意でファイル選択できるようにする為。 コード Sub 選択File開く() Dim 選択File As String 選択File = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If 選択File <> "False" Then Workbooks.O…

サンプル例として、 Rem コピー基 C:\Users\/”ここはユーザー名を記載”\Desktop\20200213Rem コピー先（バックアップ先 D:\MYDOCUMENT\Mydocument\BackUp\ の場合。 Backup.bat ＜コード＞ XCOPY "C:\Users\”ここはユーザー名を記載”\Desktop\20200213" "D:\…

リンク先変更方法、忘れないうちにメモメモ。。。

時々、ボケてわからなくなるので、メモメモ。。。 [Power QueryでのData更新]

何やかんや当日フォルダーを作成し、業務作業Dataをまとめておく。 ※整理整頓、証跡残しの為。。。 今日の日フォルダー作成.bat ＜コード＞ Rem 今日の日フォルダー作成@echo off set Dir_Name=%DATE:/=%mkdir C:\Users\”ここはユーザー名です”\Desktop\%Dir…

ほんと地味な作業が多いので、自動化させます。 PDF_printout.bat ＜コード＞ @echo offstart "" "AcroRd32.exe"pausefor %%i in (*.pdf) do (echo 印刷中 %%iSTART ACRORD32.EXE /n /t "%%i"timeout 1 &gt; nul)

日々のData収取結果をBOOK単位で保存の為。 ※xlsm⇒xlsxで保存（データのみ保存していきたいのです） ＜サンプル＞マクロ実行前 ↓マクロ実行後 ＜コード＞パスなし Sub 保存したいフォルダに日付追加() 'パスなし 'Filename:= 保存場所です'FileFormat:= File…

無駄にランダムにある資料、、、共有ファイル整備の為、必要に迫られてバッチファイル対応を行う。 ＜段取り＞ 前提: list.txt と フォルダー作成.bat は同じフォルダー内であること。 1.テキストファイルを作成し、テキスト内に作りたいフォルダー名を記載…

==========ExcelVBA関連の質問掲示板============================================== ちょっとした悩みつまずき参考になります。 エクセルの学校 Excelの質問掲示板です。 http://www.excel.studio-kazu.jp/ teratail（テラテイル） プログラミングに特化し…

ホルダー内整理時、book名をちまちま変更するの嫌なので、一気に変更。 Sub ファイルの名前変更() Path = Cells(1, 1) & "\" 'パスの場所 Cells(3, 1).Select ' A３セル以降変更 Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) <> "" Then ' 名前変…

＜コード＞ Sub ファイル一覧() Path = Cells(1, 1) & "\" Filename = Dir(Path & "*", vbNormal) Cells(3, 1).Select ' A3以降に検索結果貼り付け ActiveCell = Filename 'ファイル内のbookがなくなるまで Do While Filename <> "" ActiveCell.Offset(1, 0)…

検索結果シートに下記Vba貼り付ける（オートフィルタ的使い方） ＜コード＞ 'データベースのシート：Sheets("基Data").Range("A1:Aj1000") '検索条件：CriteriaRange:=Range("A1:l2") 調べたい項目を任意に変更可 '検索結果シートの場所：CopyToRange:=Range…

エクセルシートの画像オブジェクトをちまちま選択削除ではなく、 一気に削除したい。。。 ＜コード＞ Sub アクティブシートの画像をすべて削除() Dim oj1 As Shape 'oj1=削除したい画像定義付け For Each oj1 In ActiveSheet.Shapes oj1.Delete Next oj1 End…

ちまちまコメント入れたり編集したりするのって、大変。。。 必要に迫られて作成。 ＜コード＞ Sub コメントに置き換え() Dim i As Long Dim cl1, cl2 As String 'cl1＝コメント場所 、cl2＝コメント内容 For i = 2 To Range("A65536").End(xlUp).Row With C…

ちょいちょい作業の邪魔になるので、クイックツールバーに追加しました。 ＜コード＞ Sub コメント表示() Application.DisplayCommentIndicator = xlCommentAndIndicator Range("A1").SelectEnd Sub Sub コメント非表示() Application.DisplayCommentIndicat…

パソコン即落として、帰宅のために。。。 ＜コード＞ shutdown.bat @echo off shutdown.exe /s /t 0