hikoblog

主なVBA改修・確認ポイント（Win10 → Win11）

✅ 主なVBA改修・確認ポイント（Win10 → Win11） カテゴリ 改修・確認内容 詳細・対処法 🔄 WinAPI呼び出し Long → LongPtr に変更 Win11 + Office 64bit では、API呼び出しでビット数対応が必要。#If VBA7 Then 条件付き宣言を使う。例：Declare PtrSafe 🔐 ActiveX / COM コンポーネント 一部非推奨または無効化される場合あり 古い TreeView, ListView, MSForms.DataObject などが動かないことも。代替APIや UserForm への置き換え検討。 📁 ファイルパス・フ…

2025/05/29 18:40

Windows 11 スタイルに戻す

🔁 元に戻す（Windows 11 スタイルに戻す）🔧 ファイル名（例）：plaintext Revert_Win11_RightClick.reg📄 中身：reg Windows Registry Editor Version 5.00 [-HKEY_CURRENT_USER\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}]

2025/05/29 18:38

.regファイル保存時の推奨文字コード

.regファイル保存時の推奨文字コード 文字コード 推奨度 説明 UTF-8 (BOM付き) ✅ 推奨 日本語を含んでも文字化けせず、Windowsが正しく認識します Shift_JIS（ANSI） ⚠ 条件付きOK 日本語だけなら可。ただし他言語対応や互換性にやや難あり UTF-8（BOMなし） ❌ 非推奨 Windowsのレジストリエディタが誤認識することあり（特に日本語）

2025/05/29 18:36

文字列のCheck

先生：このマクロな、「A列に ABC がある」「C列が 0 や」「G列に NDEF がある」かを調べるやつやで。 生徒：なんで配列使ってんの？ 先生：ええ質問やな！配列使うと、まとめてデータ読み込んで、まとめて処理できるからめっちゃ速いんや。1個ずつ見てたら遅いからな。 生徒：この InStr って何してるん？ 先生：「この文字入ってるか〜？」って調べる関数や。たとえば InStr(aVal, "ABC") やったら、「aVal の中に ABC あるかな？」ってことやで。 生徒：ほんで、Z列にはどう書いてんの？ 先生：ループ終わったあと、Z列（2行目から）に結果の配列を一気に書いてるんや。せや…

2025/05/26 18:48

A1セル値チェックしてC1に書き込み

生徒：先生、このコードって何してるん？先生：A1のセルに「対象1」か「対象2」って書いてあるか見てるねん。生徒：で、書いてあったらどうなんの？先生：「対象1」って書いてあったら、C1に「置換文字1」って書く。先生：「対象2」やったら、「置換文字2」って書く。先生：どっちもちゃうかったら、C1には何も書かへん。生徒：InStrってなんや？先生：文字が入ってるかどうか調べる関数や。たとえば「こんにちは」っていう文字の中に「にち」があるかどうかを調べる感じや。生徒：LCaseって？先生：全部小文字にする関数や。大文字小文字を区別せんようにするためやな。生徒：なるほどな。A1の文字を見て、C1に何を書…

2025/04/19 17:37

「ソート解除後のデータ削除

先生: 「このコードはな、Excelでソート（並び替え）を元に戻してから、データを消すっていう処理をしてるんや。」 生徒: 「ふむふむ、並び替えを元に戻す？それってどういうこと？」 先生: 「たとえばな、表の中で“名前をあいうえお順に並べる”みたいなことをした後、その並びをリセットして、元の状態に戻すんや。」 生徒: 「あー、並び替えたのをやめて、最初の順番に戻すってことか！」 先生: 「そうそう。そしてその後、その表の中のデータだけを消すねん。表のタイトルとか枠はそのままでな。」 生徒: 「データだけ消すんやな！全部じゃないんや！」 先生: 「その通り！あとな、このコードは“テーブル”ってい…

2025/04/11 00:38

差分をチェックして書き込み

先生: 「このコードは、Excelのシートで、C列の値とその行の一番右にある値を比べて、その差を表示するものなんや。」 生徒: 「ふむふむ、それってどういうこと？」 先生: 「たとえばC列に“予定の数値”、右の方に“実際の数値”があるとするやろ？それを比べて、差があるか調べるんや。」 生徒: 「C列と右端の数字を比べるんやな。」 先生: 「そうそう。まずは、C列にどこまでデータがあるかを調べて、2行目から最後の行まで順番に見ていくんや。」 生徒: 「行ごとに見るってことやね。」 先生: 「そんで、その行の中で、一番右にあるセルを見つける。つまり、一番最後に入力されてる数字やな。」 生徒: 「な…

2025/04/11 00:36

集計結果作成

先生: 「このコードは、指定したフォルダ内のExcelファイルから、データを集めて、新しいExcelファイルを作成するものなんや。」 生徒: 「ふむふむ、それってどういうこと？」 先生: 「まず最初に、どのフォルダからデータを集めるかを選ぶ画面が出てくるんや。」 生徒: 「あー、フォルダを選ぶんやね。次は？」 先生: 「フォルダを選んだ後、その中にあるExcelファイルを1つずつ開いて、その中の 'data' って名前のシートを探してくるんや。」 生徒: 「'data'シートを探すんやな。」 先生: 「そう！もし 'data' シートがあったら、その中身を新しいExcelファイルにコピーするん…

2025/03/19 19:16

シート名検索して転記

生徒: 先生、このコードは何をしてるんですか？ 先生: このコードは、あるシートにあるデータの中から、「●」って印がついてる行だけを取り出して、それを別のひな形のブックに転記するんやで。 生徒: なるほど、でも「●」印をどうやって探すんですか？ 先生: そこは、InStrっていう関数を使ってるんや。これを使うと、指定した文字列（ここでは「●」）が含まれてるかをチェックできるんやで。あいまい検索もできるから、部分一致でもOKや。 生徒: あいまい検索？つまり「●」が部分的に入ってても探せるってこと？ 先生: その通り！たとえば「xxx●」や「●abc」みたいに、どこかに「●」があればその行を探し…

2025/03/11 18:27

シートの転記

生徒：先生、このコードは何をしてるんですか？先生：このコードは、シート1のA列、B列、D列、F列、H列のデータを取り出して、それをシート2に転記するものやで。 生徒：どうやってデータを取り出してるんですか？先生：まず、シート1の最後の行を確認して、そのデータを配列にまとめて取り出すんや。その配列を使って、シート2に一気にデータを転記するんや。 生徒：配列にまとめるってどういうことですか？先生：配列にデータをまとめることで、シート1からシート2に一度に大量のデータを転記できるようになるんや。これで効率がめっちゃ良くなるんやで。 生徒：シート2にはどうやって転記されるんですか？先生：シート2では、…

2025/03/11 07:14

グラフのデータ抽出

Sub グラフデータ抽出() Dim NumberOfRows As Integer Dim X As Object Dim Counter As Integer ' Counter を 2 で初期化 Counter = 2 ' アクティブなグラフが存在するか確認 If Not ActiveChart Is Nothing Then ' 最初の系列の値から行数を取得 NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values) ' "Data" シートにデータを書き込む With Worksheets("Data") ' X軸の値を…

2025/02/26 19:24

コメントを追加する

Sub コメントを追加する() ’例)A列が●●●の場合 数値の+/-の判断コメント追加 Dim i As Long Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' A列の最終行を取得 For i = 1 To lastRow If IsNumeric(Cells(i, 1).Value) Then ' 数値が入っているかチェック If Cells(i, 1).Value > 0 Then Cells(i, 3).Value = "●●●の増加＋" & Format(Cells(i, 1).Value, …

2025/02/25 20:33

条件による転記作業

Sub ExtractColumnsWithNNNUsingArray() Dim wsSearch As Worksheet Dim wsTarget As Worksheet Dim lastRow As Long Dim targetRow As Long Dim i As Long Dim searchValue As String Dim dataArr As Variant Dim resultArr() As Variant Dim resultIndex As Long ' 検索結果シートを設定 Set wsSearch = ThisWorkbook.Sheets("Data"…

2025/02/24 22:22

2つのsheet比較と色付け 合計追加版

Sub 2つのsheet比較と色付け() Dim wsPrev As Worksheet Dim wsCurr As Worksheet Dim wsResult As Worksheet Dim lastRowPrev As Long Dim lastRowCurr As Long Dim lastColPrev As Long Dim lastColCurr As Long Dim dictPrev As Object Dim dictCurr As Object Dim i As Long, j As Long Dim key As Variant Dim diffRow As Long…

2025/02/22 00:03

C列のデータを基にD列を更新

Sub C列のデータを基にD列を更新() Dim lastRow As Long Dim i As Long Dim data As Variant ' 配列としてデータを格納 Dim result As Variant ' 結果を格納する配列 ' C列の最終行を取得 lastRow = Cells(Rows.Count, "C").End(xlUp).Row ' C列のデータを配列に読み込む data = Range("C1:C" & lastRow).Value ' 結果を格納する配列を準備（同じサイズの配列） ReDim result(1 To lastRow, 1 To 1) ' 配列…

2025/02/21 18:13

バックグラウンドでの列削除処理

Sub バックグラウンドでの列削除処理() Dim ExcelApp As Object Dim Workbook As Object Dim FilePath As String ' Excelファイルのパス（実際のパスに変更してください） FilePath = "C:\path\to\your\file.xlsx" ' ファイルパスを変更 ' Excelをバックグラウンドで起動 Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible = False ' Excelを非表示にする ExcelApp.DisplayAl…

2025/02/20 18:57

バックグラウンドでの行削除処理

Sub バックグラウンドでの行削除処理() ' 条件付き書式を削除 ' データ入力規則を削除 Dim ExcelApp As Object Dim Workbook As Object Dim FilePath As String Dim LastRow As Long Dim MaxLastRow As Long Dim LastRows(1 To 26) As Long ' A列からZ列までの最終行を格納する配列 Dim DeleteRange As Object Dim Col As Integer ' Excelファイルのパス FilePath = "C:\path\to\your\f…

2025/02/20 18:56

不要行列の削除方法 色々

Sub 3000行以下削除() ' 条件付き書式を削除 ' データ入力規則を削除 Dim LastRow As Long Dim MaxLastRow As Long Dim LastRows(1 To 26) As Long ' A列からZ列までの最終行を格納する配列 MaxLastRow = 0 ' 初期値として0を設定 ' A列からZ列までを配列に格納 For Col = 1 To 26 ' A列(1) から Z列(26)まで LastRows(Col) = Cells(Rows.Count, Col).End(xlUp).Row ' 各列の最終行を配列に格納 If LastRows(C…

2025/02/20 18:52

ファイル統合

Sub ファイル統合() Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim wsSource As Worksheet Dim wsDest As Worksheet Dim lastRow As Long Dim destRow As Long Dim dataArray() As Variant Dim combinedData() As Variant Dim i As Long, j As Long Dim dataIndex As Long Dim savePath As String Dim…

2025/02/20 06:30

セル値を 文字列として変換

Sub セル値を文字列へ() Dim cell As Range Dim result As String Dim rng As Range ' 範囲選択用のダイアログを表示 On Error Resume Next ' ユーザーがキャンセルした場合のエラー処理 Set rng = Application.InputBox("セル範囲を選択してください", Type:=8) ' Type:=8 は範囲選択を意味します On Error GoTo 0 ' エラー処理を元に戻す ' ユーザーが範囲を選択しなかった場合の処理 If rng Is Nothing Then MsgBox "範囲が選択さ…

2025/02/19 22:45