diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index b8cc5f92..db77d563 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -323,6 +323,25 @@ Function getRecordsData(tableId As String) As Collection
     End If
 End Function
 
+'******************************************************************************
+'���R�[�hDictionary���̃l�X�g����*Hash�iClassHash�ANumHash�ADateHash�ADescriptionHash�ACheckHash�Ȃǁj��
+'�W�J���A1�K�w��Dictionary�Ƀt���b�g������
+Function FlattenRecord(record As Dictionary) As Dictionary
+    Dim flat As New Dictionary
+    Dim key As Variant
+    For Each key In record.Keys
+        If TypeName(record(key)) = "Dictionary" Then
+            Dim innerKey As Variant
+            For Each innerKey In record(key).Keys
+                flat.Add innerKey, record(key)(innerKey)
+            Next innerKey
+        Else
+            flat.Add key, record(key)
+        End If
+    Next key
+    Set FlattenRecord = flat
+End Function
+
 '******************************************************************************
 'REST API�ďo����
 '�@method�@Get��POST��