searchカテゴリー選択
chevron_left

カテゴリーを選択しなおす

cancel
プロフィール PROFILE

ヒコさんのプロフィール

住所
未設定
出身
未設定

自由文未設定

ブログタイトル
hikoblog
ブログURL
https://hiko-blog.hatenadiary.com/
ブログ紹介文
日々の社畜業務でのVBA業務改善を備忘録的に残し、同じようにふんずまった人の役に立てればいいかな♪
更新頻度(1年)

集計中

ブログ村参加:2020/03/24

本日のランキング(IN)
読者になる

新機能の「ブログリーダー」を活用して、ヒコさんの読者になりませんか?

ハンドル名
ヒコさん
ブログタイトル
hikoblog
更新頻度
集計中
読者になる
hikoblog

ヒコさんの新着記事

1件〜30件

  • アクセスDataからエクセルへ展開したい。 今度は逆にアクセルDataから簡単にVBA利用して、エクセルへ展開する方法ないのかな。。。 同じようにデータベース接続を利用すれば、エクセルへの展開できますよ。 やっぱりできるんですね♪そこのとこ詳しくお願いします。 ハイ、では、前回同様、概略手順を下記にサンプルとして記しますね♪ 概略手順 データベース接続オブジェクトの宣言 レコードセットオブジェクト アクセスのテーブル名 アクセステーブルの項目名 ※アクセス項目名=エクセル項目名であること 取り込みたいDataの式追加。 サンプル Sub Accessからimport() Dim mycon A…

  • エクセルDataをアクセスDataへ取り込みたい。

    エクセルDataをアクセスDataへ取り込みたい。 エクセルDataを簡単にVBA利用して、アクセスで取り込む方法ないのかな。。。 データベース接続を利用すれば、外部取り込みData取り込みでできますよ。 ほんとですか♪いつものように教えてください。 ハイ、では、概略手順を下記にサンプルとして記しますね♪ 概略手順 データベース接続オブジェクトの宣言 レコードセットオブジェクト アクセスのテーブル名 アクセステーブルの項目名 ※アクセス項目名=エクセル項目名であること 取り込みたいDataの式追加。 サンプル Sub Accessへのexport() Dim msn As Worksheet …

  • Access エクセルからインポート取り込み時のAcSpreadSheetの値メモ。

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

  • このブックには更新できないリンクが…を解除したい。

    このブックには更新できないリンクが…を解除したい。 このブックには更新できないリンクが 1つ以上含まれていますってなんの…毎回警告が出て嫌なんですけど… リンク先が無くなってエクセルさんが探しても見つかりませんって言ってるんですよ。 前から共有されて使用している資料なんですが、僕は何も悪いことしてないはずなんですが。。。 原因は別ファイルからの移動やコピー時のリンク先欠如でエクセルあるあるですね♪ んっ…?ひょっとしたら自分が犯人なのかな…どうやって直せば良いのか教えてください。 手直し段取りは下記に記しますね♪ 対象調査(エラー個所の特定)※主な5つ 外部リンク(他ブック)のエラー(数式、セ…

  • 全てのシートの保護解除を一気にしたい。

    全てのシートの保護解除を一気にしたい。 シート保護 シート保護解除 おまけ 全てのシートの保護解除を一気にしたい。 シートの保護解除の繰り返しって、意外にストレスです。。。 VBA使えば一気に保護解除、保護設定も容易になりますよ♪ それはありがたい、是非とも教えてください。 コードは、下記に記しますね♪ シート保護 Sub シート保護() Dim ws As Worksheet For Each ws In Worksheets ws.Protect Password:="0843" ’0843は、仮パスワードです、任意のパスに♪ NextEnd Sub シート保護解除 Sub シート保護解除…

  • 特定のシートを見せたくないんです。

    特定のシートを見せたくないんです イメージ 非表示コード 表示コード おまけ 特定のシートを見せたくないんです 特定のシートを見せたくない時ってありませんか? ついつい、再表示してみたくなります。 VBA上だと、エクセルシートから再表示できなくできるんです(見えなくするんです) マジですか、是非とも知りたいです。 では、下記にコード記しますね♪ イメージ ↓ マクロ実行後、 右クリック上からも、再表示選択できなくなります。 非表示コード Sub 特定のシート表示させない()Dim sheetnamesheetname = "隠したいシート"Worksheets(sheetname).Visib…

  • 選択したFileを開きたい。

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

  • バックアップのバッチファイル作成。

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

  • Power QueryでのDataリンク先変更したい。

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

  • Power QueryでのData更新、備忘録。

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

  • 今日の日付フォルダーを作りたい。

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

  • フォルダー内の大量にあるPDFファイルをプリントアウトしたい。

    ほんと地味な作業が多いので、自動化させます。 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形式です ActiveWorkbook.SaveAs _ Filename:="C:\Users\karku\Desktop\さんぷる\保存したいFile名" & "_" & Format(Date, "yyyymmdd"), _ FileFormat:=xlOpenXMLWorkbook End…

  • 任意のフォルダー一気に作成したい。

    無駄にランダムにある資料、、、共有ファイル整備の為、必要に迫られてバッチファイル対応を行う。 <段取り> 前提: list.txt と フォルダー作成.bat は同じフォルダー内であること。 1.テキストファイルを作成し、テキスト内に作りたいフォルダー名を記載。 今回は下記コード通り、list.txtとします。 2.下記コードのバッチファイル作成。 3.フォルダー作成.bat をダブルクリックすれば、 list.txt内に記載した名前のフォルダーが作成されます。 フォルダー作成.bat <コード> @echo offpushd %~dp0for /f %%i in (list.txt) do …

  • ExcelVBA関連の質問掲示板

    ==========ExcelVBA関連の質問掲示板============================================== ちょっとした悩みつまずき参考になります。 エクセルの学校 Excelの質問掲示板です。 http://www.excel.studio-kazu.jp/ teratail(テラテイル) プログラミングに特化したQ&Aサイトです。 https://teratail.com/ Excelの質問掲示板です。 https://excelfactory.net/excelboard/excelvba/excel.cgi モーグ Excelの質問掲示板です。ht…

  • ファイルの名前変更を一気にしたい。

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

  • 指定ホルダー内のファイル名取得したい。

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

  • データベースシートより検索結果を張り付け

    検索結果シートに下記Vba貼り付ける(オートフィルタ的使い方) <コード> 'データベースのシート:Sheets("基Data").Range("A1:Aj1000") '検索条件:CriteriaRange:=Range("A1:l2") 調べたい項目を任意に変更可 '検索結果シートの場所:CopyToRange:=Range("p1:Ay1") Private Sub Worksheet_Change(ByVal Target As Range) Sheets("基Data").Range("A1:Aj1000").AdvancedFilter Action:=xlFilterCopy, …

  • アクティブシート内の画像をすべて削除したい。

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

  • エクセルコメント、一気に入れたい。

    ちまちまコメント入れたり編集したりするのって、大変。。。 必要に迫られて作成。 <コード> Sub コメントに置き換え() Dim i As Long Dim cl1, cl2 As String 'cl1=コメント場所 、cl2=コメント内容 For i = 2 To Range("A65536").End(xlUp).Row With Cells(i, 1) cl1 = .Value cl2 = .Offset(, 1).Value End With 'コメント編集(リセットと書き換え) With Range(cl1) On Error Resume Next .Comment.Delet…

  • エクセルシート内、コメント表示と非表示。

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

  • PCシャットダウン。。。

    パソコン即落として、帰宅のために。。。 <コード> 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 = i1.Value oj2 = i1.Offset(, 1).Value ElseIf i1.Value = oj1 Then oj2 = oj2 & "、" & i1.Offset(, 1).Value Else…

  • 複数シートからデータを条件付き抽出したい

    [複数シートからデータを抽出] ブック内の複数シートから、条件に合った検索値Dataを集結したい場合。 ※複数シートは同じフォーマット前提です。 ※下記コードは、A1~Dataがある場合なので、そうじゃない場合は変更必要です。 <コード> Sub 複数シートからデータを抽出() Dim i As Long Dim 検索値 As Range Worksheets("集約シート").Select 'A4行以降をシートリセット Range(Range("A4"), Cells.SpecialCells(xlCellTypeLastCell)).EntireRow.Delete On Error Re…

  • 月の第何週目かを調べる方法です。

    <考え方> WEEKNUM関数を使えば、OK。 ※週の基準は、日曜日スタートは1、2は月曜日スタートになります。 あとは、必要に応じて <コード> Sub 日付input後、週を返す() Dim input1 As Date, input2 As String Do input1 = InputBox("日付をinputして下さい。") Loop Until IsDate(input1) input2 = WorksheetFunction.WeekNum(input1, 2) _- WorksheetFunction.WeekNum(DateSerial(Year(input1), Mont…

  • 大量の任意の*.csv を一括まとめたい時。

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

  • ゴミ定義となっている名前の定義リセット(削除)する♪

    資料ファイルシートをコピーしようすると、見覚えのない名前定義が出てきて思うようにコピーできない時の対策。 対象bookを下記のvbs(名前の管理リセット.vbs)にドロップし不要定義を削除。 '名前の管理リセット.vbs ’下記をテキストにコピーし 名前の管理リセット.vbs で保存。 If MsgBox("ドロップされたbook内の 名前の管理 をリセット(削除)します。" & vbCrLf & vbCrLf & _ "本当に良いですか?", vbOKCancel, "名前削除") = vbCancel Then WScript.Quit Dim book1 Set objXls = Cre…

  • ダブルクリックで、選択ブックコピーする

    少しでも繰り返し作業を楽に。 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(FILEFILTER:="すべてのファイル,*.*") If file1 = "False" Then Exit Sub Workbooks.Open Fil…

  • エクセルからmail送信つくってみた

    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 Olobj = CreateObject("Outlook.Application") temp1 = Range("B4") '添付1 temp2 = Range("B5") '添付2 '作成したい…

カテゴリー一覧
商用