From d4a6b5c12ad562414b3fcd324b3208c0ddf2af4f Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Fri, 11 Sep 2026 14:01:42 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20getRecordsDataToSheet=E3=81=AErec?= =?UTF-8?q?=E5=A4=89=E6=95=B0=E3=82=92Dictionary=E5=9E=8B=E3=81=AB?= =?UTF-8?q?=E5=A4=89=E6=9B=B4=E3=81=97ByRef=E5=9E=8B=E4=B8=8D=E4=B8=80?= =?UTF-8?q?=E8=87=B4=E3=82=92=E8=A7=A3=E6=B6=88?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit FlattenRecord(record As Dictionary)へVariant型変数をByRef渡ししていたためVBEでコンパイルエラー発生。呼び出し側の変数型をDictionaryに合わせて修正。 --- XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas index cf648223..8ea6b9fd 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -416,7 +416,7 @@ Function getRecordsDataToSheet(records As Collection, targetSheet As String) End If Dim flatRecords As New Collection - Dim rec As Variant + Dim rec As Dictionary For Each rec In records flatRecords.Add FlattenRecord(rec) Next rec