アクセスDataからエクセルへ展開したい。 今度は逆にアクセルDataから簡単にVBA利用して、エクセルへ展開する方法ないのかな。。。 同じようにデータベース接続を利用すれば、エクセルへの展開できますよ。 やっぱりできるんですね♪そこのとこ詳しくお願いし…

エクセルDataをアクセスDataへ取り込みたい。 エクセルDataを簡単にVBA利用して、アクセスで取り込む方法ないのかな。。。 データベース接続を利用すれば、外部取り込みData取り込みでできますよ。 ほんとですか♪いつものように教えてください。 ハイ、では…

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

Sub 列挿入() Dim a, b, i As Long '-----------------------------a = 19 '←列最後b = 3 '←列最初'----------------------------- For i = a To b Step -2 '列最後から2列固定の1列挿入 Columns(i).Insert Next End Sub

必要に迫られて。。。 ＜コード＞ Sub 同一項目縦から横列へ() Dim i1, i2 As Range Dim oj1, oj2 As String 'コードスタート位置 Set i1 = Range("A1") '展開位置 Set i2 = Range("g1") '同一項目縦から横列へ Do Until i1.Value = "" If oj1 = "" Then oj1…

[複数シートからデータを抽出] ブック内の複数シートから、条件に合った検索値Dataを集結したい場合。 ※複数シートは同じフォーマット前提です。 ※下記コードは、A1～Dataがある場合なので、そうじゃない場合は変更必要です。 ＜コード＞ Sub 複数シートから…

＜考え方＞ WEEKNUM関数を使えば、OK。 ※週の基準は、日曜日スタートは１、2は月曜日スタートになります。 あとは、必要に応じて ＜コード＞ Sub 日付input後､週を返す() Dim input1 As Date, input2 As String Do input1 = InputBox("日付をinputして下さい…

コピーしたい任意の*.csv を、 all.csvへ転記します。 [batファイルで作成] ファイル名は、任意につけてください(自分は、Data転記.datです）。 コピー copy /b *.csv all.csv

資料ファイルシートをコピーしようすると、見覚えのない名前定義が出てきて思うようにコピーできない時の対策。 対象bookを下記のvbs(名前の管理リセット.vbs)にドロップし不要定義を削除。 '名前の管理リセット.vbs ’下記をテキストにコピーし 名前の管理リ…

少しでも繰り返し作業を楽に。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim file1 As String, book1 As String book1 = ActiveWorkbook.Namefile1 = Application.GetOpenFilename(FILE…

Outlookでmail送信義務化の為、エクセルVBA送信で業務時間短縮図ります。 Sub エクセルからmail送信() Dim Olobj As Outlook.Application Dim mailobj As Outlook.MailItem Dim i1 As Integer, i2 As Integer Dim temp1 As String, temp2 As String Set Olob…