2025-12-13

PowerShell/test.ps1

@@ -0,0 +1,13 @@
+# 送信するJSONデータ
+$apiKey = "6504c8a807677a3a576e10327f3c19876c55736ee45d4a845796b9e7f5e087bfd4bd0d8184863da8cf1733ca635111432ab334aea59102b06a96ee6d2c05190d"
+
+$jsonData = @{
+    ApiVersion = "1.1"
+    ApiKey = $apiKey
+} | ConvertTo-Json
+
+$uri = "https://nextoffice.next-hd.co.jp/pleasanter/api/items/376872/get"
+$outputFile = "result.txt"
+
+$response = Invoke-WebRequest -Uri $uri -Method POST -Body $jsonData -ContentType "application/json" -UseBasicParsing
+$response.Content | Out-File -FilePath $outputFile -Encoding UTF8

XVBA/.vscode/settings.json

@@ -1,3 +1,4 @@
 {
+    "files.encoding": "shiftjis",
     "pleasanter-code-assist.enabled": false
 }

XVBA/マトリックス積算/.vscode/settings.json

@@ -0,0 +1,11 @@
+{
+    "files.encoding": "shiftjis",
+    "editor.fontFamily": "'HackGen35 Console'",
+    "editor.tokenColorCustomizations": {
+        "comments": {
+            "foreground": "#66ff33",
+            "fontStyle": "italic underline"
+        }
+    },
+    "editor.defaultFormatter": "local-smart.excel-live-server",
+}

XVBA/マトリックス積算/config.json

@@ -0,0 +1,14 @@
+{
+    "app_name": "XVBA",
+    "description": "",
+    "author": "",
+    "email": "",
+    "create_ate": "Sat Nov 15 2025 09:26:00 GMT+0900 (日本標準時)",
+    "excel_file": "マトリックス管理テーブル.xlsm",
+    "vba_folder": "vba-files",
+    "ribbon_file": "customUI14",
+    "ribbon_folder": "ribbons",
+    "logs": "on",
+    "xvba_packages": {},
+    "xvba_dev_packages": {}
+}

XVBA/マトリックス積算/package.json

@@ -0,0 +1,15 @@
+{
+    "name": "xvba-app",
+    "version": "1.0.0",
+    "description": "A XVBA App",
+    "main": "index.js",
+    "author": "LocalSmart",
+    "license": "ISC",
+    "dependencies": {
+        "excel-types": "1.0.0",
+        "Xlog": "1.0.0"
+    },
+    "devDependencies": {
+        "@localsmart/xvba-cli": "^1.0.2"
+    }
+}

XVBA/マトリックス積算/vba-files/Class/Sheet1.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet10.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet10"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet11.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet11"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet12.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet12"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet13.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet13"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet2.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet2"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet3.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet3"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet4.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet4"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet5.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet5"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet6.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet6"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet7.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet7"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet8.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet8"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/Sheet9.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet9"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Class/ThisWorkbook.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ThisWorkbook"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/マトリックス積算/vba-files/Module/Module1.bas

@@ -0,0 +1,306 @@
+Attribute VB_Name = "Module1"
+Option Explicit
+
+Sub 減坪単価更新マクロ()
+
+    Dim resp As VbMsgBoxResult
+    resp = MsgBox("減坪単価リストを更新します。よろしいですか？", vbYesNo + vbQuestion, "確認")
+    If resp <> vbYes Then Exit Sub
+
+        Application.ScreenUpdating = False
+        ' 対象ファイルのパスを取得
+        Dim fileName As String
+        fileName = Dir(ThisWorkbook.FullName)
+        Dim folderPath As String
+        folderPath = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(fileName))
+        Dim targetFileName As String
+        targetFileName = Range("更新対象ファイル").Value
+        Dim targetFilePath As String
+        targetFilePath = folderPath & targetFileName
+
+        If Dir(targetFilePath) = "" Then
+            MsgBox "対象ファイルが見つかりません: " & targetFilePath, vbExclamation
+         Exit Sub
+        End If
+
+        Dim wb As Workbook
+        Dim isOpened As Boolean
+        isOpened = False
+        For Each wb In Workbooks
+            If wb.FullName = targetFilePath Then
+                isOpened = True
+             Exit For
+            End If
+        Next wb
+
+        If Not isOpened Then
+            MsgBox "対象ファイルは開かれていません: " & targetFilePath, vbExclamation
+         Exit Sub
+        End If
+
+        ' 対象ファイルの減坪単価シートの「減坪単価テーブル」を取得
+        Dim wsGenTsubo As Worksheet
+        Dim ws As Worksheet
+        Dim tbl As ListObject
+        Dim tblGenTsubo As ListObject
+
+        Set wsGenTsubo = Nothing
+        For Each ws In Workbooks(targetFileName).Worksheets
+            If ws.Name = "減坪単価" Then
+                Set wsGenTsubo = ws
+             Exit For
+            End If
+        Next ws
+
+        If wsGenTsubo Is Nothing Then
+            MsgBox "減坪単価シートが見つかりません。", vbExclamation
+         Exit Sub
+        End If
+
+        Set tblGenTsubo = Nothing
+        For Each tbl In wsGenTsubo.ListObjects
+            Debug.Print tbl.Name
+            If tbl.Name = "減坪テーブル" Then
+                Set tblGenTsubo = tbl
+             Exit For
+            End If
+        Next tbl
+
+        If tblGenTsubo Is Nothing Then
+            MsgBox "減坪テーブルが見つかりません。", vbExclamation
+         Exit Sub
+        End If
+
+        ' ここに更新処理を記述
+        Dim lastRow As Long
+        Dim i As Long
+        Dim srcWs As Worksheet
+        Dim srcRange As Range
+
+        Set srcWs = ThisWorkbook.Worksheets("減坪単価")
+        lastRow = srcWs.Cells(srcWs.Rows.Count, "N").End(xlUp).Row
+
+        For i = 8 To lastRow
+            Dim findVal As Variant
+            findVal = srcWs.Cells(i, "N").Value
+
+            Dim tblRow As ListRow
+            Set tblRow = Nothing
+
+            ' テーブルの1列目で一致する行を検索
+            Dim r As ListRow
+            For Each r In tblGenTsubo.ListRows
+                If r.Range.Cells(1, 1).Value = findVal Then
+                    Set tblRow = r
+                 Exit For
+                End If
+            Next r
+
+            If Not tblRow Is Nothing Then
+                ' T列までの値をテーブルに転記
+                Dim colOffset As Integer
+                For colOffset = 0 To 8 ' N(14)～W(22) = 9列
+                    tblRow.Range.Cells(1, colOffset + 1).Value = srcWs.Cells(i, 14 + colOffset).Value
+                Next colOffset
+            End If
+        Next i
+
+        Application.ScreenUpdating = True
+        Workbooks(targetFileName).Save
+        MsgBox "減坪単価の更新が完了しました。", vbInformation
+End Sub
+
+Sub マトリックス更新マクロ()
+    Dim brand As String
+    Dim kaisu As String
+    brand = ActiveSheet.Range("C2").Value
+    kaisu = ActiveSheet.Range("C3").Value
+
+    Dim resp As VbMsgBoxResult
+    resp = MsgBox(brand & " " & kaisu & " のマトリックス金額を更新します。よろしいですか？", vbYesNo + vbQuestion, "確認")
+    If resp <> vbYes Then 
+     Exit Sub
+    End If
+
+    Application.ScreenUpdating = False
+
+    ' キー取得
+    Dim key As Variant
+    key = ActiveSheet.Range("C4").Value
+
+    ' ファイルパス取得
+    Dim fileName As String
+    fileName = Dir(ThisWorkbook.FullName)
+    Dim folderPath As String
+    folderPath = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(fileName))
+    Dim targetFileName As String
+    targetFileName = Range("更新対象ファイル").Value
+    Dim targetFilePath As String
+    targetFilePath = folderPath & targetFileName
+
+    If Dir(targetFilePath) = "" Then
+        MsgBox "対象ファイルが見つかりません: " & targetFilePath, vbExclamation
+     Exit Sub
+    End If
+
+    Dim wb As Workbook
+    Dim isOpened As Boolean
+    isOpened = False
+    For Each wb In Workbooks
+        If wb.FullName = targetFilePath Then
+            isOpened = True
+         Exit For
+        End If
+    Next wb
+
+    If Not isOpened Then
+        MsgBox "対象ファイルは開かれていません: " & targetFilePath, vbExclamation
+     Exit Sub
+    End If
+
+    ' 対象ファイルの「マトリックス」シート取得
+    Dim wsMatrix As Worksheet
+    Set wsMatrix = Workbooks(targetFileName).Worksheets("マトリックス")
+
+    ' 2行目からキー列を検索
+    Dim keyCol As Long
+    keyCol = 0
+    Dim col As Long
+    For col = 1 To wsMatrix.Cells(2, wsMatrix.Columns.Count).End(xlToLeft).Column
+        If wsMatrix.Cells(2, col).Value = key Then
+            keyCol = col
+         Exit For
+        End If
+    Next col
+
+    If keyCol = 0 Or keyCol <= 2 Then
+        MsgBox "キーが見つからないか、列位置が不正です。", vbExclamation
+     Exit Sub
+    End If
+
+    ' 対象シートの3列分（keyCol-2～keyCol）の6行目から1000行目をクリア
+    wsMatrix.Range(wsMatrix.Cells(6, keyCol - 2), wsMatrix.Cells(1000, keyCol)).ClearContents
+    ' 更新元データ取得（N7:Pまで）
+    ' Dim srcWs As Worksheet
+    ' Set srcWs = ActiveSheet
+    ' Dim srcRow As Long
+    ' srcRow = 7
+    'Do While srcWs.Cells(srcRow, "N").Value <> ""
+    ' 3列分のデータを転記
+    '     wsMatrix.Cells(srcRow - 1, keyCol - 2).Value = srcWs.Cells(srcRow, "N").Value
+    '     wsMatrix.Cells(srcRow - 1, keyCol - 1).Value = srcWs.Cells(srcRow, "O").Value
+    '     wsMatrix.Cells(srcRow - 1, keyCol).Value = srcWs.Cells(srcRow, "P").Value
+    '     srcRow = srcRow + 1
+    ' Loop
+
+    ' 更新元データ取得（N7:Pまで）
+    Dim srcWs As Worksheet
+    Set srcWs = ActiveSheet
+    Dim srcRow As Long
+    srcRow = 7
+    ' ソース元データを2次元配列に格納
+    Dim lastSrcRow As Long
+    lastSrcRow = srcWs.Cells(srcWs.Rows.Count, "N").End(xlUp).Row
+    If lastSrcRow < srcRow Then
+        MsgBox "転記するデータがありません。", vbExclamation
+     Exit Sub
+    End If
+
+    Dim arrData As Variant
+    arrData = srcWs.Range("N" & srcRow & ":P" & lastSrcRow).Value
+
+    ' 転記先範囲に一括挿入
+    wsMatrix.Range(wsMatrix.Cells(srcRow - 1, keyCol - 2), wsMatrix.Cells(srcRow - 1 + UBound(arrData, 1) - 1, keyCol)).Value = arrData
+
+    Application.ScreenUpdating = True
+    Workbooks(targetFileName).Save
+    MsgBox "マトリックスの更新が完了しました。", vbInformation
+End Sub
+
+Sub マトリックス表生成処理()
+    Dim resp As VbMsgBoxResult
+    resp = MsgBox("このシートのマトリックス表を更新します。よろしいですか？", vbYesNo + vbQuestion, "確認")
+    If resp <> vbYes Then 
+     Exit Sub
+    End If
+    Application.ScreenUpdating = False
+
+    Dim ws As Worksheet
+    Set ws = ActiveSheet
+
+    Dim comboCount As Long
+    comboCount = ws.Range("J4").Value
+
+    Dim tbl As ListObject
+    Set tbl = Nothing
+    Dim t As ListObject
+    Dim tableName As String
+    tableName = ws.Name & "テーブル"
+    For Each t In ws.ListObjects
+        If t.Name = tableName Then
+            Set tbl = t
+         Exit For
+        End If
+    Next t
+
+    If tbl Is Nothing Then
+        MsgBox "テーブル「" & tableName & "」が見つかりません。", vbExclamation
+     Exit Sub
+    End If
+
+    Dim lastNum As Long
+    lastNum = 0
+    Dim r As ListRow
+    Dim delStartRow As Long
+    delStartRow = 0
+    For Each r In tbl.ListRows
+        Dim numVal As Variant
+        numVal = r.Range.Cells(1, 1).Value
+        If IsNumeric(numVal) Then
+            If numVal > lastNum Then 
+                lastNum = numVal
+            End If
+            If numVal = comboCount + 1 Then
+                delStartRow = r.Index
+            End If
+        End If
+    Next r
+
+    If comboCount < lastNum Then
+        ' 余分な行をクリア
+        If delStartRow > 0 Then
+            tbl.DataBodyRange.Rows(delStartRow & ":" & tbl.ListRows.Count).Delete
+        End If
+
+    Elseif comboCount > lastNum Then
+        ' 行をコピーして増やす（数式維持、7列目は値の1固定）
+        Dim baseRow As ListRow
+        Set baseRow = Nothing
+        For Each r In tbl.ListRows
+            If IsNumeric(r.Range.Cells(1, 1).Value) Then
+                If r.Range.Cells(1, 1).Value = lastNum Then
+                    Set baseRow = r
+                 Exit For
+                End If
+            End If
+        Next r
+
+        If Not baseRow Is Nothing Then
+            Dim i As Long
+            For i = lastNum + 1 To comboCount
+                Dim newRow As ListRow
+                Set newRow = tbl.ListRows.Add
+                baseRow.Range.Copy
+                newRow.Range.PasteSpecial xlPasteFormulasAndNumberFormats
+                newRow.Range.Cells(1, 1).Value = i
+                newRow.Range.Cells(1, 7).Value = 1 ' 7列目は値の1固定
+            Next i
+            Application.CutCopyMode = False
+        End If
+    End If
+
+    Application.ScreenUpdating = True
+    ActiveWorkbook.Save    
+    MsgBox "マトリックス表の更新が完了しました。", vbInformation
+
+End Sub

XVBA/マトリックス積算/xvba_modules/Xdebug/CHANGELOG.md

@@ -0,0 +1,13 @@
+# Changelog
+## Xdebug (Under Construction)
+
+- This package provides a way to simulate VBA Immediate Window in Output VSCode window
+    
+## [1.0.0b0] - 2020-09-16
+### Added
+ - Create XDebug.printx 
+  - Create XDebug.printError 
+
+
+ 
+ 

XVBA/マトリックス積算/xvba_modules/Xdebug/README.md

@@ -0,0 +1,58 @@
+# Xdebug (VBA Immediate Window in Output VSCode Window)
+    
+## Description
+ - This package provides a way to simulate VBA Immediate Window in Output VSCode window
+ - Find the Output window (VBA Immediate Window)
+
+ ## Methods
+
+ <p>
+<img src="https://github.com/Aeraphe/xdebug/blob/main/images/immediate.gif" alt="VBA immediate Window">
+</p>
+
+
+ ### Xdebug.printx
+
+- This method print any type os variable
+
+
+```
+
+Public Sub index()
+
+
+  Dim test(1) As Variant
+
+  'Add an Object
+  Set test(0) = Sheets(1)
+  'Add a String
+  test(1) = "Test Xdebug Output"
+  
+  Xdebug.printx test
+
+End Sub
+
+```
+
+
+ ### Xdebug.printError
+
+- This method is use for print error
+
+
+```
+ Public Sub index()
+  
+  On Error GoTo ErrorHandle:
+    'throw an error
+    d = 1/0
+    'Your code here
+  
+  
+ ErrorHandle:
+    Xdebug.errorSource = "pageConsoller.index"
+    Xdebug.printError
+
+ End Sub
+```
+

XVBA/マトリックス積算/xvba_modules/Xdebug/Xdebug.cls

@@ -0,0 +1,241 @@
+VERSION 1.0 CLASS
+BEGIN
+MultiUse = -1  'True
+END
+Attribute VB_Name = "Xdebug"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+
+'namespace=xvba_modules\Xdebug
+
+Public env As String
+
+'Example of Package Create by XVBA-CLI
+
+Private OS_TMP__FOLDER_PATH As String
+
+Private IMMEDIATE_FOLDER As String
+
+Private IMMEDIATE_FILE As String
+
+Private DEBUG_FILE_PATH As String
+
+Const EMPTY_TYPE = 0
+Const NULL_TYPE = 1
+Const ERROR_TYPE = 10
+Const INTEGER_TYPE = 2
+Const LONG_TYPE = 3
+Const SINGLE_TYPE = 4
+Const DOUBLE_TYPE = 5
+Const CURRENCY_TYPE = 6
+Const DATE_TYPE = 7
+Const DECIMAL_TYPE = 14
+Const LONG_LONG_TYPE = 20
+Const BOOLEAN_TYPE = 11
+Const STRING_TYPE = 8
+Const ARRAY_TYPE = 8204
+Const OBJECT_TYPE = 9
+Const VARIANT_TYPE = 12
+Const DATA_OBJECT_TYPE = 13
+Private Const MESSAGE_SPACE = "                              "
+
+Public errorSource As String
+Public errorTitle As String
+
+'/*
+'Flag for Actrive os Deactive VBA Debug.Print
+'*/
+Public vbaDebugPrintActive As Boolean
+
+Private Sub class_initialize()
+
+     Dim fso  As Object
+     Set fso = CreateObject("Scripting.FileSystemObject")
+     OS_TMP__FOLDER_PATH = fso.GetSpecialFolder(2)
+     IMMEDIATE_FOLDER = "xvba_immediate"
+     IMMEDIATE_FILE = "immediate.txt"
+     vbaDebugPrintActive = True
+     errorSource = ""
+     errorTitle = "XVBA: New Error Was Found"
+     env = "DEV"
+
+     DEBUG_FILE_PATH = OS_TMP__FOLDER_PATH & "\" & IMMEDIATE_FOLDER & "\" &  IMMEDIATE_FILE
+
+End Sub
+
+
+
+
+Public Function printx(inputValue As Variant,Optional messageType  As Integer = 1)
+
+     if(env="DEV") Then
+          Dim messageText  As String
+
+          messageText = createOutputMessage(inputValue)
+
+          Call writeDebugFileContent(messageText,messageType)
+     End If
+End Function
+
+'/*
+'Print A Error
+'
+'*/
+Public  Function printError()
+     if(env="DEV") Then
+
+          Dim message As String
+
+          message = ErrorHanddler()
+
+          Call writeDebugFileContent(message,0)
+
+     End If
+End Function
+
+
+'/*
+'
+'Write Debug ino on File
+'
+'
+'*/  
+Private Function writeDebugFileContent(messageText,messageType)
+
+     Dim filePath As String
+     Dim FileNum As Integer
+     Dim PREFIX As String
+
+     filePath = DEBUG_FILE_PATH
+
+     FileNum = FreeFile
+
+     PREFIX = Now & " - "
+
+     Open filePath For Append As #FileNum
+
+     Dim debugMessage As String
+     Select Case messageType
+
+      Case 0 'Error Message
+
+          debugMessage= PREFIX & "Error:" & messageText
+      Case 1 'Success
+          debugMessage= PREFIX &  messageText
+      Case Else 'No Type Set
+
+          debugMessage= PREFIX & "Info:" & messageText
+     End Select
+
+     Print #FileNum,debugMessage 
+
+     Close #FileNum
+
+     If (vbaDebugPrintActive) Then
+
+          Debug.Print debugMessage
+
+     End If
+End Function
+
+
+Private  Function createOutputMessage(inputValue) As String
+
+     Dim typeOfVar As Integer
+     Dim response As String
+
+     typeOfVar = VarType(inputValue) 
+
+
+     'Set Error Source Macro/Function name 
+     Err.Source="createOutputMessage"
+     Select Case typeOfVar 
+      Case STRING_TYPE 
+          response = "String: " &  inputValue
+      Case INTEGER_TYPE 
+          response = "Integer: " & CStr(inputValue)
+      Case LONG_TYPE
+          response = "Long: " & CStr(inputValue)
+      Case SINGLE_TYPE 
+          response = "Single: " & CStr(inputValue)
+      Case DOUBLE_TYPE 
+          response = "Double: " & CStr(inputValue)
+      Case CURRENCY_TYPE 
+          response = "Currenty: " & CStr(inputValue)
+      Case DATE_TYPE 
+          response = "Date: " & CStr(inputValue)
+      Case DECIMAL_TYPE 
+          response = "Decimal: " & CStr(inputValue)
+      Case LONG_LONG_TYPE 
+          response = "LongLong: " & CStr(inputValue)
+      Case BOOLEAN_TYPE 
+          response = "Boolean: " & CStr(inputValue)
+      Case ARRAY_TYPE 
+          response = makeArrayTypeMessage(inputValue)
+      Case EMPTY_TYPE 
+          response = "Empty: "
+      Case OBJECT_TYPE
+          response = "Object: "  & TypeName(inputValue)
+      Case NULL_TYPE 
+          response = "Null: "
+      Case ERROR_TYPE 
+          response = "Error: "
+      Case VARIANT_TYPE
+          response = "Variant: "
+      Case DATA_OBJECT_TYPE 
+          response = "Data Object: " & TypeName(inputValue)
+      Case Else 
+          response = "Type Not Supported yet please inform xvba developer "
+          Debug.Print typeOfVar
+          Debug.Print inputValue
+
+     End Select
+
+
+     createOutputMessage = response
+
+End Function
+
+
+Private  Function makeArrayTypeMessage(inputValue)As String
+     Dim nextItem As Variant
+     Dim response As String
+     Dim message As String
+
+     For Each nextItem In inputValue
+          message =  createOutputMessage(nextItem)
+          response = response & "                              [ " & message & " ]" & vbCrLf 
+     Next nextItem 
+     makeArrayTypeMessage =    "Array: " & vbCrLf  & response
+End Function
+
+
+
+Private  Function ErrorHanddler() As String
+     Dim errorDescription As String
+     Dim numberDescription As String
+     Dim lineError As String
+     Dim sourceError As String
+     Dim errorTitleMsg As String
+     Dim errorSourceMsg As String
+
+     errorTitleMsg = vbCrLf & MESSAGE_SPACE & errorTitle
+     errorSourceMsg = vbCrLf  & MESSAGE_SPACE & "Error Source: " & errorSource
+
+
+     Select Case Err.Number
+      Case 11 
+          numberDescription = vbCrLf  & MESSAGE_SPACE & "Error Number: " & Err.Number
+          lineError = vbCrLf  & MESSAGE_SPACE & "Error Line: " & Erl
+          errorDescription =  vbCrLf & MESSAGE_SPACE & "Error Description: " & Err.Description
+      Case Else 
+          numberDescription = vbCrLf  & MESSAGE_SPACE & "Error Number: " & Err.Number
+          errorDescription =  vbCrLf & MESSAGE_SPACE & "Error Description: " & Err.Description
+     End Select
+
+
+     ErrorHanddler = errorTitleMsg & lineError & errorSourceMsg & numberDescription & errorDescription
+
+End Function

XVBA/マトリックス積算/xvba_modules/Xdebug/xvba.package.json

@@ -0,0 +1,15 @@
+{
+  "package": "Xdebug",
+  "version": "1.0.0",
+  "author": "Alberto Edaurdo",
+  "email": "alberto.aeraphe@gmail.com",
+  "license": "ISC",
+  "repository": {
+    "type": "git",
+    "url": "https://github.com/Aeraphe/xdebug.git"
+  },
+  "description": "Creating amazing XVBA packages",
+  "dependencies": {},
+  "dev_dependencies": {},
+  "homepage": "www.xvba.dev"
+}

XVBA/マトリックス積算/xvba_modules/excel-types/CHANGELOG.md

@@ -0,0 +1,8 @@
+# Changelog
+## excel@types (Under Construction)
+
+- This package provides a way to use auto-complete for excel class
+    
+
+ 
+ 

XVBA/マトリックス積算/xvba_modules/excel-types/README.md

@@ -0,0 +1,51 @@
+# Excel VBA type Definitions Package (excel-types)
+ 
+ - This package provides a way to use auto-complete for Excel VBA Class
+ - You can Create your own vba type definition packages our update this.
+ - Type definition packages are named like: name-types 
+ - The packages are store in www.xvba.dev
+ - Ech excel vba class has your own file definition 
+ - The files extension has to be filename.d.vb
+ - Auto-complete just expose Public types
+
+
+## Create,install and share VBA Packages With Xvba-cli and Xvba Repository:
+
+- Xvba Repository : <a href="https://www.xvba.dev"> www.xvba.dev</a>
+- XVBA-CLI Command Line Interface for XVBA VSCode extension <a href="https://www.npmjs.com/package/@localsmart/xvba-cli">@localsmart/xvba-cli </a>
+
+## Install
+
+- For instal excel-types just use XVBA-CLI install command
+
+```
+ npx xvba install excel-types
+```
+## Comments Block
+
+- Use comments blocks below for documenting class/methods/Subs/Functions/Properties
+- The comments blocs has to start with '/* and ends with '*/
+
+```
+
+'/*
+'Represents the entire Microsoft Excel application.
+'
+'
+'*/
+Public Class Application()
+
+```
+
+```
+'/*
+'Returns a Range object that represents the active cell in the active window 
+'(the window on top) or in the specified window. If the window isn't displaying 
+'a worksheet, this property fails. Read-only.
+'
+'@type {Object.<Range>}
+'
+'*/
+Public Property ActiveCell As Range
+
+```

XVBA/マトリックス積算/xvba_modules/excel-types/application.d.vb

@@ -0,0 +1,147 @@
+'/*
+'Represents the entire Microsoft Excel application.
+'
+'
+'*/
+Public Class Application()
+
+'/*
+'Returns an object that represents the active sheet (the sheet on top) 
+'in the active workbook or in the specified window or workbook. 
+'Returns Nothing if no sheet is active.
+'
+'*/
+Public Property ActiveSheet As Worksheet
+
+'/*
+'Returns a Workbook object that represents the workbook in the 
+'active window (the window on top). 
+'Returns Nothing if there are no windows open or if either 
+'the Info window or the Clipboard window is the active window. Read-only.
+'
+'
+'*/
+Public Property ActiveWorkbook As Workbook
+
+'/*
+'True if Microsoft Excel displays certain alerts and messages while 
+'a macro is running. Read/write Boolean.
+'
+'Example
+'Application.DisplayAlerts = False 
+'Workbooks("BOOK1.XLS").Close 
+'Application.DisplayAlerts = True
+'
+'*/
+Public Property DisplayAlerts As Boolean
+
+
+'/*
+'Returns or sets an XlCalculation value that represents the calculation mode.
+'
+'Example
+'Application.Calculation = xlCalculationManual 
+'Application.Calculation = xlAutomatic
+'
+'@type {XlCalculation}
+'*/
+Public Property Calculation As XlCalculation
+
+'/*
+'True if events are enabled for the specified object. Read/write Boolean.
+'
+'@type {Boolean}
+'*/
+Public Property EnableEvents As Boolean
+
+'/*
+'True if screen updating is turned on. Read/write Boolean.
+'@type {Boolean}
+'*/
+Public Property ScreenUpdating As Boolean
+
+
+'/*
+'Returns a Range object that represents the active cell in the active window 
+'(the window on top) or in the specified window. If the window isn't displaying 
+'a worksheet, this property fails. Read-only.
+'
+'@type {Object.<Range>}
+'
+'*/
+Public Property ActiveCell As Range
+
+'/*
+'Returns a Chart object that represents the active chart (either an embedded chart or a chart sheet). 
+'An embedded chart is considered active when it's either selected or activated. When no chart is active, 
+'this property returns Nothing.
+'
+'Example: 
+'ActiveChart.HasLegend = True
+'
+'@type {Object.<Chart>}
+'*/
+Public Property ActiveChart As Chart
+
+'/*
+'Returns a Workbooks collection that represents all the open workbooks. Read-only.
+'
+'@type {Object.<Collection>} Workbooks Collection
+'*/
+Public Property ThisWorkbook As Workbook
+
+'/*
+'Returns a Workbooks collection that represents all the open workbooks. Read-only.
+'
+'@type {Object.<Collection>} Workbooks Collection
+'*/
+Public Property Workbooks As Workbooks
+
+'/*
+'Activates a Microsoft application. If the application is already running, 
+'this method activates the running application. 
+'If the application isn't running, this method starts a new instance of the application.
+'
+'Example: (This example starts and activates Word.)
+'
+'Application.ActivateMicrosoftApp xlMicrosoftWord
+'
+'@param {XlMSApplication}  index 
+'*/    
+Public Sub ActivateMicrosoftApp( index As XlMSApplication) 
+
+End Sub
+
+'/*
+'An event occurs when all pending refresh activity (both synchronous and asynchronous) 
+'and all of the resultant calculation activities have been completed.
+'
+'*/
+Public Event AfterCalculate()
+
+'/*
+'Occurs when a new workbook is created.
+'
+'Example:
+'
+'Private Sub App_NewWorkbook(ByVal Wb As Workbook) 
+'Application.Windows.Arrange xlArrangeStyleTiled End Sub
+'   
+'@param {Workbook} Wb
+'*/
+Public Event NewWorkbook(ByVal Wb As Workbook) 
+
+'/*
+'Returns a Sheets collection that represents all the sheets in the specified workbook. Read-only Sheets object.
+'
+'Example:
+'Set newSheet = Sheets.Add(Type:=xlWorksheet) 
+'For i = 1 To Sheets.Count 
+'    newSheet.Cells(i, 1).Value = Sheets(i).Name 
+'   Next i
+'
+'@type {Sheets}
+'*/
+Public Property Sheets As Worksheets
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/dictionary.d.vb

@@ -0,0 +1,109 @@
+
+
+
+'/*
+'
+'
+'
+'/*
+Public Class Scripting()
+
+
+'/*
+'
+'Object that stores data key/item pairs.
+'
+'/*
+Public Function Dictionary()
+
+End Function
+
+'/*
+'
+'Adds a new key/item pair to a Dictionary object.
+'
+'*/
+Public Sub Add() 
+
+End Sub
+
+'/*
+'
+'Returns a Boolean value that indicates whether a specified key exists in the Dictionary object.
+'
+'*/
+Public Sub Exists() 
+
+End Sub
+
+'/*
+'
+'Returns an array of all the items in a Dictionary object.
+'
+'*/
+Public Sub Items() 
+
+End Sub
+
+'/*
+'
+'Returns an array of all the keys in a Dictionary object.
+'
+'*/
+Public Sub Keys() 
+
+End Sub
+
+'/*
+'
+'Removes one specified key/item pair from the Dictionary object.
+'
+'*/
+Public Sub Remove() 
+
+End Sub
+
+'/*
+'
+'Removes all the key/item pairs in the Dictionary object.
+'
+'*/
+Public Sub RemoveAll() 
+
+End Sub
+    
+    
+
+'/*
+'Sets or returns the comparison mode for comparing keys in a Dictionary object.
+'
+'
+'*/
+Public Property CompareMode As Variant
+
+
+'/*
+'Returns the number of key/item pairs in a Dictionary object.
+'
+'
+'*/
+Public Property Count As Long
+
+
+'/*
+'Sets or returns the value of an item in a Dictionary object.
+'
+'
+'*/
+Public Property Item As Variant
+
+'/*
+'Sets a new key value for an existing key value in a Dictionary object.
+'
+'
+'*/
+Public Property Key As Variant
+
+
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/err.d.vb

@@ -0,0 +1,30 @@
+'/*
+'Contains information about run-time errors.
+'
+'
+'*/
+Public Class Err()
+
+'/*
+'Returns or sets a string expression containing a 
+'descriptive string associated with an object. Read/write.
+'
+'*/
+Public Property Description As String
+
+'/*
+'Returns or sets a numeric value specifying an error. 
+'Number is the Err object's default property. Read/write. 
+'
+'*/
+Public Property Number As Integer
+
+    
+'/*
+'Returns or sets a string expression specifying the name of 
+'the object or application that originally generated the error. Read/write. 
+'
+'*/
+Public Property Source As String
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/functions.d.vb

@@ -0,0 +1,547 @@
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Asc()
+End Function
+
+'/*
+'[Conversion Func]
+'Returns a String containing the character associated 
+'with the specified character code.
+'
+'Example:
+'
+'Dim MyChar
+'MyChar = Chr(65)    ' Returns A.
+'MyChar = Chr(97)    ' Returns a.
+'MyChar = Chr(62)    ' Returns >.
+'MyChar = Chr(37)    ' Returns %.
+'*/
+Function Chr()
+End Function
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Format()
+End Function
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Hex()
+End Function
+
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Oct()
+End Function
+
+
+'/*
+'[Conversion Func]
+'Returns a Variant (String) representation of a number.
+'
+'Example:
+'Dim MyString
+'MyString = Str(459)    ' Returns " 459".
+'MyString = Str(-459.65)    ' Returns "-459.65".
+'MyString = Str(459.001)    ' Returns " 459.001".
+'
+'*/
+Function Str() As Variant
+End Function
+
+
+'/*
+'[Conversion Func]
+'Returns the numbers contained in a string as 
+'a numeric value of appropriate type.
+'
+'Example:
+'
+'Dim MyValue
+'MyValue = Val("2457")    ' Returns 2457.
+'MyValue = Val(" 2 45 7")    ' Returns 2457.
+'MyValue = Val("24 and 57")    ' Returns 24.
+'*/
+Function Val(String) 
+End Function
+
+
+
+Function CreateObject()
+End Function
+
+
+Function CurDir()
+End Function
+
+'/*
+'Returns a Variant (Date) containing the current system date.
+'
+'Example
+'
+'Dim MyDate
+'MyDate = Date    ' MyDate contains the current system date.
+'
+'*/    
+Function Date() 
+
+End Function
+
+
+
+Function DateDiff()
+End Function
+
+Function DatePart()
+End Function
+
+Function DateSerial()
+End Function
+
+Function Day()
+End Function
+
+Function DDB()
+End Function
+
+Function Dir()
+End Function
+
+Function DoEvents()
+End Function
+
+Function Environ()
+End Function
+
+Function EOF()
+End Function
+
+Function Error()
+End Function
+
+
+Function FileAttr()
+End Function
+
+Function FileDateTime()
+End Function
+
+Function FileLen()
+End Function
+
+Function Filter()
+End Function
+
+Function FormatCurrency()
+End Function
+
+Function FormatDateTime()
+End Function
+
+Function FormatNumber()
+End Function
+
+Function FormaPercent()
+End Function
+
+
+Function FreeFile()
+End Function
+
+Function FV()
+End Function
+
+Function GetAllSettings()
+End Function
+
+Function GetAttr()
+End Function
+
+Function GetObject()
+End Function
+
+Function GetSetting()
+End Function
+
+
+Function Hour()
+End Function
+
+Function IIf()
+End Function
+
+Function IMEStatus()
+End Function
+
+Function Input()
+End Function
+
+Function InputBox()
+End Function
+
+Function InStr()
+End Function
+
+Function InStrRev()
+End Function
+
+Function IPmt()
+End Function
+
+
+
+Function IRR()
+End Function
+
+Function IsArray()
+End Function
+
+Function IsDate()
+End Function
+
+'/*
+'
+'Returns a Boolean value indicating whether a variable has been initialized.
+'
+'*/
+Function IsEmpty()
+End Function
+
+
+Function IsError()
+End Function
+
+Function IsMissing()
+End Function
+
+Function IsNull()
+End Function
+
+Function IsNumeric()
+End Function
+
+
+Function IsObject()
+End Function
+
+'/*
+'Returns a string created by joining a number of substrings contained in an array.
+'
+'*/
+Function Join()
+End Function
+
+
+
+Function LBound()
+End Function
+
+Function LCase()
+End Function
+
+Function Left()
+End Function
+
+Function Len()
+End Function
+
+
+Function Loc()
+End Function
+
+Function LOF()
+End Function
+
+Function LTrim()
+End Function
+
+Function RTrim()
+End Function
+
+Function Trim()
+End Function
+
+
+Function MacID()
+End Function
+
+
+
+Function MacScript()
+End Function
+
+'/*
+'[Math Function]
+'Returns a value of the same type that is passed to it specifying the absolute value of a number.
+'
+'*/
+Function Abs()
+End Function
+
+'/*
+'[Math Function]
+'Returns a Double specifying the arctangent of a number.
+'
+'*/
+Function Atn()
+End Function
+
+
+'/*
+'[Math Function]
+'
+'*/
+Function Cos()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Exp()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Int()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Fix()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/ 
+Function Log()
+End Function
+
+
+'/*
+'[Math Function]
+'
+'*/
+Function Rnd()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sgn()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sin()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sqr()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Tan()
+End Function
+
+
+
+Function Mid()
+End Function
+
+
+Function Minute()
+End Function
+
+
+Function MIRR()
+End Function
+
+
+Function Month()
+End Function
+
+Function MonthName()
+End Function
+
+'/*
+'Displays a message in a dialog box, waits for the user to click a button, 
+'and returns an Integer indicating which button the user clicked.
+'
+'*/
+Function MsgBox(prompt, [ buttons, ] [ title, ] [ helpfile, context ])
+End Function
+
+
+Function Now()
+End Function
+
+
+Function NPer()
+End Function
+
+
+Function NPV()
+End Function
+
+Function PPmt()
+End Function
+
+
+Function QBColor()
+End Function
+
+
+Function Rate()
+End Function
+
+'/*
+'Returns a string, which is a substring of a string 
+'expression beginning at the start position (defaults to 1), 
+'in which a specified substring has been replaced with another 
+'substring a specified number of times.
+'
+'*/
+Function Replace(expression, find, replace, [ start, [ count, [ compare ]]])
+End Function
+
+Function RGB()
+End Function
+
+
+Function Right()
+End Function
+
+
+Function Round()
+End Function
+
+
+Function Second()
+End Function
+
+
+
+Function Seek()
+End Function
+
+
+Function Shell()
+End Function
+
+
+Function SNL()
+End Function
+
+
+Function Space()
+End Function
+
+
+Function Spc()
+End Function
+
+
+Function Split()
+End Function
+
+
+Function StrComp()
+End Function
+
+
+
+Function StrConv()
+End Function
+
+
+Function String()
+End Function
+
+
+Function StrReverse()
+End Function
+
+
+
+Function Switch()
+End Function
+
+
+Function SYD()
+End Function
+
+
+Function Tab()
+End Function
+
+
+Function Time()
+End Function
+
+
+
+Function Timer()
+End Function
+
+
+Function TimeSerial()
+End Function
+
+
+Function TimeValue()
+End Function
+
+
+
+Function TypeName()
+End Function
+
+
+Function UBound()
+End Function
+
+
+Function Ucase()
+End Function
+
+
+Function VarType()
+End Function
+
+
+
+Function Weekday()
+End Function
+
+
+Function WeekdayName()
+End Function
+
+
+Function Year()
+End Function

XVBA/マトリックス積算/xvba_modules/excel-types/range.d.vb

@@ -0,0 +1,625 @@
+'/*
+'Represents a cell, a row, a column, a selection of cells containing one or more contiguous blocks of cells, or a 3D range.
+'
+'
+'*/
+Public Class Range()
+
+'/*
+'(Range)
+'
+'Activates a single cell, which must be inside the current selection. 
+'To select a range of cells, use the Select method., 
+'
+'Example
+'
+'This example selects cells A1:C3 on Sheet1 and then makes cell B2 the active cell.
+'
+' Worksheets("Sheet1").Activate 
+' Range("A1:C3").Select 
+' Range("B2").Activate
+'
+'*/    
+Public Sub Activate() 
+
+End Sub
+
+
+'/*
+'Adds a comment to the range.
+'
+'Example:
+'
+'Worksheets(1).Range("E5").AddComment "Current Sales"
+'
+'@param {String} text
+'*/
+Public  Sub AddComment(text As String)
+
+End Sub
+
+Public  Sub AddCommentThreaded()
+
+End Sub
+
+Public  Sub AdvancedFilter()
+
+End Sub
+
+Public  Sub AllocateChanges()
+
+End Sub
+
+Public  Sub ApplyName()
+
+End Sub
+
+Public  Sub ApplyOutLineStyles()
+
+End Sub
+
+Public  Sub AutoComplete()
+
+End Sub
+
+Public  Sub AutoFill()
+
+End Sub
+
+Public  Sub AutoFilter()
+
+End Sub
+
+Public  Sub AutioFit()
+
+End Sub
+
+Public  Sub AutoOutline()
+
+End Sub
+
+Public  Sub BorderAround()
+
+End Sub
+
+Public  Sub Calculate()
+
+End Sub
+
+Public  Sub CalculateRowMajorOrder()
+
+End Sub
+
+Public  Sub CheckSpelling()
+
+End Sub
+
+Public  Sub Clear()
+
+End Sub
+
+Public  Sub ClearComments()
+
+End Sub
+
+Public  Sub ClearContents()
+
+End Sub
+
+Public  Sub ClearFormats()
+
+End Sub
+
+Public  Sub ClearHyperlinks()
+
+End Sub
+
+Public  Sub ClearNotes()
+
+End Sub
+
+Public  Sub ClearOutline()
+
+End Sub
+
+Public  Sub ColumnDifferences()
+
+End Sub
+
+Public  Sub Consolidate()
+
+End Sub
+
+Public  Sub ConvertToLinkedDataType()
+
+End Sub
+
+Public  Sub Copy()
+
+End Sub
+
+Public  Sub CopyFromRecordset()
+
+End Sub
+
+Public  Sub CopyPicture()
+
+End Sub
+
+Public  Sub CreateNames()
+
+End Sub
+
+Public  Sub Cut()
+
+End Sub
+
+Public  Function DataSeries (Rowcol, Type, Date, Step, Stop, Trend)
+
+End Function
+
+Public  Function DataTypeToText()
+
+End Function
+
+Public  Function Delete (Shift)
+
+End Function
+
+Public  Function DialogBox()
+
+End Function
+
+Public  Function Dirty()
+
+End Function
+Public  Function DiscardChanges()
+
+End Function
+Public  Function EditionOptions (Type, Option, Name, Reference, Appearance, ChartSize, Format)
+
+End Function
+Public  Function ExportAsFixedFormat (Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)
+
+End Function
+Public  Function FillDown()
+
+End Function
+Public  Function FillLeft()
+
+End Function
+
+Public  Function FillRight()
+
+End Function
+
+Public  Function FillUp()
+
+End Function
+
+Public  Function Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
+
+End Function
+
+Public  Function FindNext (After)
+
+End Function
+
+Public  Function FindPrevious (Before)
+
+End Function
+
+Public  Function FlashFill ()
+
+End Function
+
+
+Public  Function FunctionWizard ()
+
+End Function
+
+
+Public  Function Group (Start, End, By, Periods)
+
+End Function
+
+Public  Function Insert (Shift, CopyOrigin)
+
+End Function
+
+
+Public  Function InsertIndent (InsertAmount)
+
+End Function
+
+
+Public  Function Justify()
+
+End Function
+
+
+Public  Function ListNames()
+
+End Function
+
+Public  Function Merge(Across)
+
+End Function
+
+Public  Function NavigateArrow(TowardPrecedent, ArrowNumber, LinkNumber)
+
+End Function
+
+Public  Function NoteText(Text, Start, Length)
+
+End Function
+
+Public  Function Parse(ParseLine, Destination)
+
+End Function
+
+Public  Function PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
+
+End Function
+
+
+Public  Function PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
+
+End Function
+
+Public  Function PrintPreview(EnableChanges)
+
+End Function
+
+Public  Function RemoveDuplicates(Columns , Header)
+
+End Function
+
+Public  Function RemoveSubtotal()
+
+End Function
+
+
+Public  Function Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
+
+End Function
+
+
+Public  Function RowDifferences(Comparison)
+
+End Function
+
+Public  Function Run(Arg1, Arg2, Arg3, Arg4, Arg5...)
+
+End Function
+
+Public  Function Select()
+
+End Function
+
+Public  Function SetCellDataTypeFromCell(Range, LanguageCulture)
+
+End Function
+
+
+Public  Function SetPhonetic()
+
+End Function
+
+
+Public  Function Show()
+
+End Function
+
+
+Public  Function ShowCard()
+
+End Function
+
+
+Public  Function ShowDependents(Remove)
+
+End Function
+
+
+Public  Function ShowErrors()
+
+End Function
+
+
+Public  Function ShowPrecedents(Remove)
+
+End Function
+
+
+Public  Function Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
+
+End Function
+
+
+Public  Function SortSpecial(SortMethod, Key1, Order1, Type, Key2, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, DataOption1, DataOption2, DataOption3)
+
+End Function
+
+Public  Function Speak(SpeakDirection, SpeakFormulas)
+
+End Function
+
+
+Public  Function SpecialCells(Type, Value)
+
+End Function
+
+Public  Function SubscribeTo(Edition, Format)
+
+End Function
+
+Public  Function Subtotal(GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)
+
+End Function
+
+
+Public  Function Table(RowInput, ColumnInput)
+
+End Function
+
+
+Public  Function TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers
+
+End Function
+
+
+Public  Function Ungroup()
+
+End Function
+
+
+Public  Function UnMerge()
+
+End Function
+
+Public Property AddIndent As Variant
+
+Public Function Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) As Variant
+End Function
+
+Public Function AddressLocal(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) As Range
+End Function
+
+Public Property Application As Application 
+
+Public Property Areas As Areas
+
+Public Property Borders As Variant
+
+Public Property Cells As Range 
+
+Public Function Characters(Start, Length) As Variant
+End Function
+
+Public Property Column As Long
+
+Public Property Columns As Long
+        
+Public Property ColumnWidth As Variant
+
+Public Property Comment As Variant
+
+Public Property CommentThreaded As Variant
+
+
+Public Property Count As Long
+
+
+Public Property CountLarge As Variant
+
+
+Public Property Creator As Integer
+
+
+Public Property CurrentArray As Range
+
+'/*
+'Returns a Range object that represents the current region. 
+'The current region is a range bounded by any combination of blank rows and blank columns. Read-only.
+'
+'Example
+'Worksheets("Sheet1").Activate 
+'ActiveCell.CurrentRegion.Select
+'*/
+Public Property CurrentRegion As Range
+
+Public Property Dependents As Range
+
+Public Property DirectDependents As Range
+
+Public Property DirectPrecedents As Range
+
+Public Property DisplayFormat As Object
+
+
+Public Function End(Direction) As Object
+End Function
+
+Public Property EntireColumn As Range
+
+
+Public Property EntireRow As Range
+
+
+Public Property Errors As Errors
+
+
+Public Property Font As Font
+
+
+Public Property FormatConditions As Range
+
+Public Property Formula As Variant
+
+Public Property FormulaArray As Variant
+
+Public Property FormulaHidden As Variant
+
+
+Public Property FormulaLocal As Object
+
+Public Property FormulaR1C1 As Varaint
+
+Public Property FormulaR1C1Local As Varaint
+
+Public Property HasArray As Varaint
+
+Public Property HasFormula As Varaint
+
+Public Property HasRichDataType As Varaint
+
+Public Property Height As Double
+
+Public Property Hidden As Variant 
+
+Public Property HorizontalAlignment As Variant
+
+Public Property Hyperlinks As Object
+
+Public Property ID As String
+
+Public Property IndentLevel As Variant
+
+Public Property Interior As Double
+
+Public Function Item (RowIndex, ColumnIndex) As Range
+End Function
+
+
+Public Property Left As Variant
+
+
+Public Property LinkedDataTypeState As Variant
+
+Public Property ListHeaderRows As Variant
+
+
+Public Property ListObject As Object
+
+Public Property LocationInTable As Variant
+
+Public Property Locked As Variant
+
+Public Property MDX As String
+
+Public Property MergeArea As Range
+
+Public Property MergeCells As Boolean
+
+Public Property Name As Variant
+
+Public Property Next As Range
+
+Public Property NumberFormat As Variant
+
+Public Property NumberFormatLocal As Variant
+
+Public Function Offset (RowOffset, ColumnOffset) As Range
+
+End Function
+
+
+Public Property Orientation As Variant
+
+Public Property OutlineLevel As Variant
+
+Public Property PageBreak As Variant
+
+Public Property Parent As Variant
+
+Public Property Phonetic As Variant
+                    
+Public Property Phonetics As Variant
+
+Public Property PivotCell As Variant
+
+
+Public Property PivotField As Variant
+
+
+Public Property PivotItem As Variant
+
+Public Property PivotTable As Variant
+
+Public Property Precedents As Range
+
+Public Property PrefixCharacter As Variant
+
+
+Public Property Previous As Range
+
+Public Property QueryTable As Variant
+
+Public Function Range (Cell1, Cell2) As Range
+End Function
+
+Public Property ReadingOrder As Variant
+
+Public Function Resize (RowSize, ColumnSize) As Range
+End Function
+        
+
+Public Property Row As Long
+
+Public Property RowHeight As Double
+
+Public Property Rows As Range
+
+Public Property ServerActions As Variant
+
+
+Public Property ShowDetail As Variant
+
+
+Public Property ShrinkToFit As Variant
+
+
+Public Property SoundNote As Variant
+
+
+Public Property SparklineGroups As Variant
+
+
+Public Property Style As Variant
+
+Public Property Summary As Variant
+
+
+Public Property Text As String
+
+Public Property Top As Variant
+
+Public Property UseStandardHeight As Variant
+
+Public Property UseStandardWidth As Variant
+
+Public Property Validation As Variant
+
+Public Function Value (RangeValueDataType) As Variant
+End Function
+
+Public Property Value2 As Variant
+
+
+Public Property VerticalAlignment As Variant
+
+Public Property Width As Double
+
+                   
+                    
+Public Property Worksheet As Worksheet
+
+
+Public Property WrapText As Variant
+
+Public Property XPath As XPath
+                        
+
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/workbook.d.vb

@@ -0,0 +1,157 @@
+'/*
+'Represents a Microsoft Excel workbook.
+'
+'
+'*/
+Public Class Workbook()
+
+'/*
+'Returns a String that represents the complete path to the 
+'workbook/file that this workbook object represents.
+'
+'*/
+Public Property Path As String
+
+
+Public Property Worksheets As Worksheet
+
+'/*
+'True if a backup file is created when this file is saved. Read-only Boolean.
+'
+'@type {Boolean}
+'*/
+Public Property CreateBackup As Boolean
+
+'/*
+'Returns a String value that represents the name of the object.
+'
+'@type {Boolean}
+'*/
+Public Property Name As String
+
+'/*
+'True if no changes have been made to the specified workbook since it was last saved. Read/write Boolean.
+'
+'Example:
+'If Not ActiveWorkbook.Saved Then 
+' MsgBox "This workbook contains unsaved changes." 
+'End If
+'
+'@type {Boolean}
+'*/
+Public Property Saved As String
+
+'/*
+'Returns a Sheets collection that represents all the sheets in the specified workbook. Read-only Sheets object.
+'
+'Example:
+'Set newSheet = Sheets.Add(Type:=xlWorksheet) 
+'For i = 1 To Sheets.Count 
+'    newSheet.Cells(i, 1).Value = Sheets(i).Name 
+'   Next i
+'
+'@type {Sheets}
+'*/
+Public Property Sheets As Worksheets
+
+
+'/*
+'
+'Activates the first window associated with the workbook.
+'
+'*/
+Public Function Activate() 
+
+End Function
+
+'/*
+'
+'Closes the object.
+'
+'Example
+'
+'Workbooks("BOOK1.XLS").Close SaveChanges:=False
+'
+'@param {Variant}  SaveChanges:[Optional] True or false
+'@param {Variant}  FileName:[Optional] Saves changes under this file name.
+'@param {Variant}  RouteWorkbook:[Optional] True or False
+'*/
+Public Function Close(SaveChanges,FileName,RouteWorkbook) 
+
+End Function
+
+'/*
+'Saves changes to the specified workbook.
+'*/
+Public Function Save() 
+
+End Function
+
+'/*
+'Saves changes to the workbook in a different file.
+'
+'@param {Variant}  FileName:[Optional]
+'@param {Variant}  FileFormat:[Optional]
+'@param {Variant}  Password:[Optional]
+'@param {Variant}  WriteResPassword:[Optional]
+'@param {Variant}  ReadOnlyRecommended:[Optional]
+'@param {Variant}  CreateBackup:[Optional]
+'@param {Variant}  AccessMode:[Optional]
+'@param {Variant}  ConflictResolution:[Optional]
+'@param {Variant}  AddToMru:[Optional]
+'@param {Variant}  TextCodepage:[Optional]
+'@param {Variant}  TextVisualLayout:[Optional]
+'@param {Variant}  Local:[Optional]
+'*/
+Public Function SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
+
+End Function
+
+
+'/*
+'Exports the data that has been mapped to the specified XML schema map to an XML data file.
+'
+'@param {String}  FileName:[Required]
+'@param {XmlMap}  Map:[Required]
+'*/
+Public Function SaveAsXMLData(FileName, Map) 
+
+End Function
+
+
+'/*
+'Saves a copy of the workbook to a file but doesn't modify the open workbook in memory.
+'
+'Example
+'ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
+'
+'@param {Variant}  FileName:[Required]
+'*/
+Public Function SaveCopyAs(FileName, Map) 
+
+End Function
+
+'/*
+'Sends the workbook by using the installed mail system.
+'
+'Example
+'ActiveWorkbook.SendMail recipients:="Jean Selva"
+'
+'@param {Variant}  Recipients:[Required]
+'@param {Variant}  Subject:[Optional]
+'@param {Variant}  ReturnReceipt:[Optional]
+'*/
+Public Function SendMail(Recipients, Subject, ReturnReceipt) 
+
+End Function
+
+'/*
+'
+'The ExportAsFixedFormat method is used to publish 
+'a workbook to either the PDF or XPS format.
+'
+'*/
+Public Function ExportAsFixedFormat(Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)
+End Function
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/workbooks.d.vb

@@ -0,0 +1,109 @@
+'/*
+'A collection of all the Workbook objects that are currently open in the Microsoft Excel application.
+'
+'*/
+Public Class Workbooks() 
+
+'/*
+'Creates a new workbook. The new workbook becomes the active workbook.
+'
+'@param {Variant}  Template:[Optional] Determines how the new workbook is created. 
+'If this argument is a string specifying the name of an existing Microsoft Excel file, 
+'the new workbook is created with the specified file as a template.
+'*/
+Public Function Add(Template) 
+
+End Function
+
+
+'/*
+'True if Microsoft Excel can check out a specified workbook from a server. 
+'Read/write Boolean.
+'
+'@param {String}  FileName:[Required] 	The name of the file to check out.
+'
+'*/
+Public Function CanCheckOut (FileName) 
+
+End Function
+
+
+Public Function CheckOut (FileName) 
+
+End Function
+
+
+Public Function Close () 
+
+End Function
+
+'/*
+'
+'Opens a workbook.
+'
+'Example
+'Workbooks.Open "ANALYSIS.XLS" 
+'ActiveWorkbook.RunAutoMacros xlAutoOpen
+'*/
+Public Function Open  (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) As Workbook
+
+End Function
+
+'/*
+'Returns a Workbook object representing a database.
+'*/
+Public Function OpenDatabase (FileName, CommandText, CommandType, BackgroundQuery, ImportDataAs)
+
+End Function
+
+
+'/*
+'Loads and parses a text file as a new workbook with a single sheet that contains the parsed text-file data.
+'*/
+Public Function  (FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)
+
+End Function
+
+'/*
+'Opens an XML data file. Returns a Workbook object.
+'*/
+Public Function OpenXML (FileName, Stylesheets, LoadOption)
+
+End Function
+
+
+'/*
+'When used without an object qualifier, this property returns an 
+'Application object that represents the Microsoft Excel application.
+'
+'*/
+Public Property Application As Application
+
+
+'/*
+'Returns a Long value that represents the number of objects in the collection.
+'
+'*/
+Public Property Count As Long
+
+'/*
+'Returns a 32-bit integer that indicates the application in which this object was created. Read-only Long.
+'
+'*/
+Public Property Creator As Integer
+
+
+
+'/*
+'Returns a single object from a collection.
+'
+'*/
+Public Property Item(Index) As Object
+
+'/*
+'Returns the parent object for the specified object. Read-only.
+'
+'*/
+Public Property Parent As Object
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/worksheet.d.vb

@@ -0,0 +1,86 @@
+'/*
+'Represents a worksheet.
+'
+'Example
+'
+'Worksheets(1).Visible = False
+'
+'*/
+Public Class Worksheet()
+
+
+'/*
+'Makes the current sheet the active sheet.
+'
+'Example
+'ActiveWorkbook.SendMail recipients:="Jean Selva"
+'*/
+Public Sub Activate() 
+
+End Sub
+
+
+Public Sub Calculate() 
+
+End Sub
+
+Public Sub Copy() 
+
+End Sub
+
+Public Sub Delete() 
+End Sub
+
+Public Sub Move()
+
+End Sub
+
+Public Sub Past() 
+
+End Sub
+
+Public Sub PastSpecial() 
+
+End Sub
+
+Public Sub Select() 
+End Sub
+
+Public Sub SaveAs()
+
+End Sub  
+
+'/*
+'
+'Returns a Range object that represents a cell or a range of cells.
+'
+'Example: 
+'
+'Worksheets("Sheet1").Range("A1").Value = 3.14159
+'
+'*/
+Public Property Range As Range
+
+
+'/*
+'
+'Returns a Range object that represents all the rows on the specified worksheet.
+'
+'Example: 
+'
+'Worksheets("Sheet1").Rows(3).Delete
+'
+'*/
+Public Property Row As Range
+
+
+'/*
+'
+'Returns a Long value that represents the index number of the 
+'object within the collection of similar objects.orksheets("Sheet1").Rows(3).Delete
+'
+'*/
+Public Property Index As Long
+
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/worksheets.d.vb

@@ -0,0 +1,54 @@
+'/*
+'A collection of all the Worksheet objects in the specified or active workbook. Each Worksheet object represents a worksheet.
+'
+'Example
+'
+'Worksheets(1).Visible = False
+'
+'*/
+Public Class Worksheets() 
+
+'/*
+'Constructor 
+'
+'*/
+Public  Sub New(Name As String) As Worksheet
+
+End Sub
+
+Public Sub Add() 
+
+End Sub
+
+
+Public Sub Add2() 
+
+End Sub
+
+Public Sub Copy() 
+
+End Sub
+
+Public Sub Delete() 
+End Sub
+
+Public Sub Move()
+
+End Sub
+
+Public Sub FillAcrossSheets() 
+
+End Sub
+
+Public Sub PrintOut() 
+
+End Sub
+
+Public Sub PrintPreview() 
+End Sub
+
+Public Sub Select()
+
+End Sub  
+
+End Class

XVBA/マトリックス積算/xvba_modules/excel-types/xvba.package.json

@@ -0,0 +1,15 @@
+{
+  "package": "excel-types",
+  "version": "1.0.0",
+  "author": "Alberto Oliveira",
+  "email": "alberto.aeraph@gmail.comn",
+  "license": "ISC",
+  "repository": {
+    "type": "git",
+    "url": "https://github.com/Aeraphe/excel-types.git"
+  },
+  "description": "Creating amazing XVBA packages",
+  "dependencies": {},
+  "dev_dependencies": {},
+  "homepage": "https://github.com/Aeraphe/xvba-cli"
+}

XVBA/久保ファイル/.vscode/settings.json

@@ -0,0 +1,11 @@
+{
+    "files.encoding": "shiftjis",
+    "editor.fontFamily": "'HackGen35 Console'",
+    "editor.tokenColorCustomizations": {
+        "comments": {
+            "foreground": "#66ff33",
+            "fontStyle": "italic underline"
+        }
+    },
+    "editor.defaultFormatter": "local-smart.excel-live-server",
+}

XVBA/久保ファイル/config.json

@@ -0,0 +1,14 @@
+{
+    "app_name": "XVBA",
+    "description": "",
+    "author": "",
+    "email": "",
+    "create_ate": "Thu Dec 11 2025 13:26:38 GMT+0900 (日本標準時)",
+    "excel_file": "久保ファイル_v1.3.xlsm",
+    "vba_folder": "vba-files",
+    "ribbon_file": "customUI14",
+    "ribbon_folder": "ribbons",
+    "logs": "on",
+    "xvba_packages": {},
+    "xvba_dev_packages": {}
+}

XVBA/久保ファイル/package.json

@@ -0,0 +1,15 @@
+{
+    "name": "xvba-app",
+    "version": "1.0.0",
+    "description": "A XVBA App",
+    "main": "index.js",
+    "author": "LocalSmart",
+    "license": "ISC",
+    "dependencies": {
+        "excel-types": "1.0.0",
+        "Xlog": "1.0.0"
+    },
+    "devDependencies": {
+        "@localsmart/xvba-cli": "^1.0.2"
+    }
+}

XVBA/久保ファイル/vba-files/Class/Sheet1.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet2.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet2"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet3.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet3"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet4.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet4"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet5.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet5"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet6.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet6"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Class/Sheet7.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet7"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/久保ファイル/vba-files/Class/ThisWorkbook.cls

@@ -0,0 +1,9 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ThisWorkbook"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True

XVBA/久保ファイル/vba-files/Module/Module1.bas

@@ -0,0 +1,141 @@
+Attribute VB_Name = "Module1"
+Sub 全To前コピー()
+
+    Dim 全シート, 前シート As Worksheet
+    Dim 全リスト, 前リスト As Object
+
+    Set 全シート = Sheets("全")
+    Set 前シート = Sheets("前")
+
+    全シート.Select
+    Set 全リスト = 全シート.ListObjects("全")
+    前シート.Select
+    Set 前リスト = 前シート.ListObjects("前")
+
+    If Not 前リスト Is Nothing Then 前リスト.DataBodyRange.Delete
+
+        全リスト.DataBodyRange.Copy 前シート.Range("A2")
+
+        全シート.Select
+        全リスト.QueryTable.Refresh
+
+
+End Sub
+
+'フラグ一括削除
+Sub クリア()
+    Application.ScreenUpdating = False
+    Dim 指示書リスト As Worksheet
+    Set 指示書リスト = Worksheets("指示書期限切れ")
+
+    'フラグ一括削除
+    指示書リスト.Range("O6:O65").Value = ""
+
+    Application.ScreenUpdating = True
+End Sub
+
+
+Sub 送付状作成()
+    Application.ScreenUpdating = False
+
+    Dim 指示書リスト As Worksheet
+    Dim 送付状 As Worksheet
+
+    Set 指示書リスト = Worksheets("指示書期限切れ")
+
+    Dim i, j, p
+
+
+    j = 27
+    p = 0
+
+    Dim lastRow As Long
+    lastRow = 指示書リスト.Cells(指示書リスト.Rows.Count, "D").End(xlUp).Row
+
+    For i = 6 To lastRow
+        Dim f1, f2, f3
+        f1 = 指示書リスト.Cells(i, 15).Value '送付状作成対象
+        f2 = 指示書リスト.Cells(i, 14).Value '複数名患者
+        f3 = 指示書リスト.Cells(i, 11).Value '確認済みは除外
+
+        If f1 = 1 And f3 = "" Then
+            If f2 = 1 Then
+                '単名送付状
+                Set 送付状 = Worksheets("送付状1")
+
+                '病院〒
+                送付状.Range("D2").Value = 指示書リスト.Cells(i, 12).Value
+                '病院住所
+                送付状.Range("E2").Value = 指示書リスト.Cells(i, 13).Value
+                '病院名
+                送付状.Range("F2").Value = 指示書リスト.Cells(i, 10).Value
+                '主治医
+                送付状.Range("G2").Value = 指示書リスト.Cells(i, 9).Value
+                '利用者名
+                送付状.Range("H2").Value = 指示書リスト.Cells(i, 4).Value
+                '指示開始日
+                送付状.Range("I2").Value = 指示書リスト.Cells(i, 17).Value
+                '生年月日
+                送付状.Range("J2").Value = 指示書リスト.Cells(i, 8).Value
+
+                p = 1
+                指示書リスト.Cells(i, 15).Value = "済"
+
+            Else
+                '複数名送り状
+                Set 送付状 = Worksheets("送付状2")
+                '病院〒
+                送付状.Range("D2").Value = 指示書リスト.Cells(i, 12).Value
+                '病院住所
+                送付状.Range("E2").Value = 指示書リスト.Cells(i, 13).Value
+                '病院名
+                送付状.Range("F2").Value = 指示書リスト.Cells(i, 10).Value
+
+                '利用者名
+                送付状.Cells(j, 7).Value = 指示書リスト.Cells(i, 4).Value & "　様"
+                '生年月日
+                送付状.Cells(j, 12).Value = 指示書リスト.Cells(i, 8).Value
+                j = j + 1
+                '指示開始日
+                送付状.Cells(j, 7).Value = 指示書リスト.Cells(i, 17).Value
+                j = j + 1
+
+                p = 2
+
+                指示書リスト.Cells(i, 15).Value = "済"
+
+            End If
+
+        End If
+
+
+        '印刷実行処理
+        If p = 1 Then
+            送付状.Activate
+            ActiveWindow.SelectedSheets.PrintOut Copies:=1
+
+            p = 0
+
+        Elseif p = 2 Then
+            '病院の切替りを判定
+            If Not 指示書リスト.Cells(i, 10).Value = 指示書リスト.Cells(i + 1, 10).Value Then
+
+                送付状.Activate
+                ActiveWindow.SelectedSheets.PrintOut Copies:=1
+                送付状.Range("G27:G42").Value = ""
+                送付状.Range("L27:L42").Value = ""
+                j = 27
+
+                p = 0
+
+            End If
+        End If
+        Next
+
+        指示書リスト.Activate
+
+        Application.ScreenUpdating = True
+End Sub
+
+
+

XVBA/久保ファイル/xvba_modules/Xdebug/CHANGELOG.md

@@ -0,0 +1,13 @@
+# Changelog
+## Xdebug (Under Construction)
+
+- This package provides a way to simulate VBA Immediate Window in Output VSCode window
+    
+## [1.0.0b0] - 2020-09-16
+### Added
+ - Create XDebug.printx 
+  - Create XDebug.printError 
+
+
+ 
+ 

XVBA/久保ファイル/xvba_modules/Xdebug/README.md

@@ -0,0 +1,58 @@
+# Xdebug (VBA Immediate Window in Output VSCode Window)
+    
+## Description
+ - This package provides a way to simulate VBA Immediate Window in Output VSCode window
+ - Find the Output window (VBA Immediate Window)
+
+ ## Methods
+
+ <p>
+<img src="https://github.com/Aeraphe/xdebug/blob/main/images/immediate.gif" alt="VBA immediate Window">
+</p>
+
+
+ ### Xdebug.printx
+
+- This method print any type os variable
+
+
+```
+
+Public Sub index()
+
+
+  Dim test(1) As Variant
+
+  'Add an Object
+  Set test(0) = Sheets(1)
+  'Add a String
+  test(1) = "Test Xdebug Output"
+  
+  Xdebug.printx test
+
+End Sub
+
+```
+
+
+ ### Xdebug.printError
+
+- This method is use for print error
+
+
+```
+ Public Sub index()
+  
+  On Error GoTo ErrorHandle:
+    'throw an error
+    d = 1/0
+    'Your code here
+  
+  
+ ErrorHandle:
+    Xdebug.errorSource = "pageConsoller.index"
+    Xdebug.printError
+
+ End Sub
+```
+

XVBA/久保ファイル/xvba_modules/Xdebug/Xdebug.cls

@@ -0,0 +1,241 @@
+VERSION 1.0 CLASS
+BEGIN
+MultiUse = -1  'True
+END
+Attribute VB_Name = "Xdebug"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+
+'namespace=xvba_modules\Xdebug
+
+Public env As String
+
+'Example of Package Create by XVBA-CLI
+
+Private OS_TMP__FOLDER_PATH As String
+
+Private IMMEDIATE_FOLDER As String
+
+Private IMMEDIATE_FILE As String
+
+Private DEBUG_FILE_PATH As String
+
+Const EMPTY_TYPE = 0
+Const NULL_TYPE = 1
+Const ERROR_TYPE = 10
+Const INTEGER_TYPE = 2
+Const LONG_TYPE = 3
+Const SINGLE_TYPE = 4
+Const DOUBLE_TYPE = 5
+Const CURRENCY_TYPE = 6
+Const DATE_TYPE = 7
+Const DECIMAL_TYPE = 14
+Const LONG_LONG_TYPE = 20
+Const BOOLEAN_TYPE = 11
+Const STRING_TYPE = 8
+Const ARRAY_TYPE = 8204
+Const OBJECT_TYPE = 9
+Const VARIANT_TYPE = 12
+Const DATA_OBJECT_TYPE = 13
+Private Const MESSAGE_SPACE = "                              "
+
+Public errorSource As String
+Public errorTitle As String
+
+'/*
+'Flag for Actrive os Deactive VBA Debug.Print
+'*/
+Public vbaDebugPrintActive As Boolean
+
+Private Sub class_initialize()
+
+     Dim fso  As Object
+     Set fso = CreateObject("Scripting.FileSystemObject")
+     OS_TMP__FOLDER_PATH = fso.GetSpecialFolder(2)
+     IMMEDIATE_FOLDER = "xvba_immediate"
+     IMMEDIATE_FILE = "immediate.txt"
+     vbaDebugPrintActive = True
+     errorSource = ""
+     errorTitle = "XVBA: New Error Was Found"
+     env = "DEV"
+
+     DEBUG_FILE_PATH = OS_TMP__FOLDER_PATH & "\" & IMMEDIATE_FOLDER & "\" &  IMMEDIATE_FILE
+
+End Sub
+
+
+
+
+Public Function printx(inputValue As Variant,Optional messageType  As Integer = 1)
+
+     if(env="DEV") Then
+          Dim messageText  As String
+
+          messageText = createOutputMessage(inputValue)
+
+          Call writeDebugFileContent(messageText,messageType)
+     End If
+End Function
+
+'/*
+'Print A Error
+'
+'*/
+Public  Function printError()
+     if(env="DEV") Then
+
+          Dim message As String
+
+          message = ErrorHanddler()
+
+          Call writeDebugFileContent(message,0)
+
+     End If
+End Function
+
+
+'/*
+'
+'Write Debug ino on File
+'
+'
+'*/  
+Private Function writeDebugFileContent(messageText,messageType)
+
+     Dim filePath As String
+     Dim FileNum As Integer
+     Dim PREFIX As String
+
+     filePath = DEBUG_FILE_PATH
+
+     FileNum = FreeFile
+
+     PREFIX = Now & " - "
+
+     Open filePath For Append As #FileNum
+
+     Dim debugMessage As String
+     Select Case messageType
+
+      Case 0 'Error Message
+
+          debugMessage= PREFIX & "Error:" & messageText
+      Case 1 'Success
+          debugMessage= PREFIX &  messageText
+      Case Else 'No Type Set
+
+          debugMessage= PREFIX & "Info:" & messageText
+     End Select
+
+     Print #FileNum,debugMessage 
+
+     Close #FileNum
+
+     If (vbaDebugPrintActive) Then
+
+          Debug.Print debugMessage
+
+     End If
+End Function
+
+
+Private  Function createOutputMessage(inputValue) As String
+
+     Dim typeOfVar As Integer
+     Dim response As String
+
+     typeOfVar = VarType(inputValue) 
+
+
+     'Set Error Source Macro/Function name 
+     Err.Source="createOutputMessage"
+     Select Case typeOfVar 
+      Case STRING_TYPE 
+          response = "String: " &  inputValue
+      Case INTEGER_TYPE 
+          response = "Integer: " & CStr(inputValue)
+      Case LONG_TYPE
+          response = "Long: " & CStr(inputValue)
+      Case SINGLE_TYPE 
+          response = "Single: " & CStr(inputValue)
+      Case DOUBLE_TYPE 
+          response = "Double: " & CStr(inputValue)
+      Case CURRENCY_TYPE 
+          response = "Currenty: " & CStr(inputValue)
+      Case DATE_TYPE 
+          response = "Date: " & CStr(inputValue)
+      Case DECIMAL_TYPE 
+          response = "Decimal: " & CStr(inputValue)
+      Case LONG_LONG_TYPE 
+          response = "LongLong: " & CStr(inputValue)
+      Case BOOLEAN_TYPE 
+          response = "Boolean: " & CStr(inputValue)
+      Case ARRAY_TYPE 
+          response = makeArrayTypeMessage(inputValue)
+      Case EMPTY_TYPE 
+          response = "Empty: "
+      Case OBJECT_TYPE
+          response = "Object: "  & TypeName(inputValue)
+      Case NULL_TYPE 
+          response = "Null: "
+      Case ERROR_TYPE 
+          response = "Error: "
+      Case VARIANT_TYPE
+          response = "Variant: "
+      Case DATA_OBJECT_TYPE 
+          response = "Data Object: " & TypeName(inputValue)
+      Case Else 
+          response = "Type Not Supported yet please inform xvba developer "
+          Debug.Print typeOfVar
+          Debug.Print inputValue
+
+     End Select
+
+
+     createOutputMessage = response
+
+End Function
+
+
+Private  Function makeArrayTypeMessage(inputValue)As String
+     Dim nextItem As Variant
+     Dim response As String
+     Dim message As String
+
+     For Each nextItem In inputValue
+          message =  createOutputMessage(nextItem)
+          response = response & "                              [ " & message & " ]" & vbCrLf 
+     Next nextItem 
+     makeArrayTypeMessage =    "Array: " & vbCrLf  & response
+End Function
+
+
+
+Private  Function ErrorHanddler() As String
+     Dim errorDescription As String
+     Dim numberDescription As String
+     Dim lineError As String
+     Dim sourceError As String
+     Dim errorTitleMsg As String
+     Dim errorSourceMsg As String
+
+     errorTitleMsg = vbCrLf & MESSAGE_SPACE & errorTitle
+     errorSourceMsg = vbCrLf  & MESSAGE_SPACE & "Error Source: " & errorSource
+
+
+     Select Case Err.Number
+      Case 11 
+          numberDescription = vbCrLf  & MESSAGE_SPACE & "Error Number: " & Err.Number
+          lineError = vbCrLf  & MESSAGE_SPACE & "Error Line: " & Erl
+          errorDescription =  vbCrLf & MESSAGE_SPACE & "Error Description: " & Err.Description
+      Case Else 
+          numberDescription = vbCrLf  & MESSAGE_SPACE & "Error Number: " & Err.Number
+          errorDescription =  vbCrLf & MESSAGE_SPACE & "Error Description: " & Err.Description
+     End Select
+
+
+     ErrorHanddler = errorTitleMsg & lineError & errorSourceMsg & numberDescription & errorDescription
+
+End Function

XVBA/久保ファイル/xvba_modules/Xdebug/xvba.package.json

@@ -0,0 +1,15 @@
+{
+  "package": "Xdebug",
+  "version": "1.0.0",
+  "author": "Alberto Edaurdo",
+  "email": "alberto.aeraphe@gmail.com",
+  "license": "ISC",
+  "repository": {
+    "type": "git",
+    "url": "https://github.com/Aeraphe/xdebug.git"
+  },
+  "description": "Creating amazing XVBA packages",
+  "dependencies": {},
+  "dev_dependencies": {},
+  "homepage": "www.xvba.dev"
+}

XVBA/久保ファイル/xvba_modules/excel-types/CHANGELOG.md

@@ -0,0 +1,8 @@
+# Changelog
+## excel@types (Under Construction)
+
+- This package provides a way to use auto-complete for excel class
+    
+
+ 
+ 

XVBA/久保ファイル/xvba_modules/excel-types/README.md

@@ -0,0 +1,51 @@
+# Excel VBA type Definitions Package (excel-types)
+ 
+ - This package provides a way to use auto-complete for Excel VBA Class
+ - You can Create your own vba type definition packages our update this.
+ - Type definition packages are named like: name-types 
+ - The packages are store in www.xvba.dev
+ - Ech excel vba class has your own file definition 
+ - The files extension has to be filename.d.vb
+ - Auto-complete just expose Public types
+
+
+## Create,install and share VBA Packages With Xvba-cli and Xvba Repository:
+
+- Xvba Repository : <a href="https://www.xvba.dev"> www.xvba.dev</a>
+- XVBA-CLI Command Line Interface for XVBA VSCode extension <a href="https://www.npmjs.com/package/@localsmart/xvba-cli">@localsmart/xvba-cli </a>
+
+## Install
+
+- For instal excel-types just use XVBA-CLI install command
+
+```
+ npx xvba install excel-types
+```
+## Comments Block
+
+- Use comments blocks below for documenting class/methods/Subs/Functions/Properties
+- The comments blocs has to start with '/* and ends with '*/
+
+```
+
+'/*
+'Represents the entire Microsoft Excel application.
+'
+'
+'*/
+Public Class Application()
+
+```
+
+```
+'/*
+'Returns a Range object that represents the active cell in the active window 
+'(the window on top) or in the specified window. If the window isn't displaying 
+'a worksheet, this property fails. Read-only.
+'
+'@type {Object.<Range>}
+'
+'*/
+Public Property ActiveCell As Range
+
+```

XVBA/久保ファイル/xvba_modules/excel-types/application.d.vb

@@ -0,0 +1,147 @@
+'/*
+'Represents the entire Microsoft Excel application.
+'
+'
+'*/
+Public Class Application()
+
+'/*
+'Returns an object that represents the active sheet (the sheet on top) 
+'in the active workbook or in the specified window or workbook. 
+'Returns Nothing if no sheet is active.
+'
+'*/
+Public Property ActiveSheet As Worksheet
+
+'/*
+'Returns a Workbook object that represents the workbook in the 
+'active window (the window on top). 
+'Returns Nothing if there are no windows open or if either 
+'the Info window or the Clipboard window is the active window. Read-only.
+'
+'
+'*/
+Public Property ActiveWorkbook As Workbook
+
+'/*
+'True if Microsoft Excel displays certain alerts and messages while 
+'a macro is running. Read/write Boolean.
+'
+'Example
+'Application.DisplayAlerts = False 
+'Workbooks("BOOK1.XLS").Close 
+'Application.DisplayAlerts = True
+'
+'*/
+Public Property DisplayAlerts As Boolean
+
+
+'/*
+'Returns or sets an XlCalculation value that represents the calculation mode.
+'
+'Example
+'Application.Calculation = xlCalculationManual 
+'Application.Calculation = xlAutomatic
+'
+'@type {XlCalculation}
+'*/
+Public Property Calculation As XlCalculation
+
+'/*
+'True if events are enabled for the specified object. Read/write Boolean.
+'
+'@type {Boolean}
+'*/
+Public Property EnableEvents As Boolean
+
+'/*
+'True if screen updating is turned on. Read/write Boolean.
+'@type {Boolean}
+'*/
+Public Property ScreenUpdating As Boolean
+
+
+'/*
+'Returns a Range object that represents the active cell in the active window 
+'(the window on top) or in the specified window. If the window isn't displaying 
+'a worksheet, this property fails. Read-only.
+'
+'@type {Object.<Range>}
+'
+'*/
+Public Property ActiveCell As Range
+
+'/*
+'Returns a Chart object that represents the active chart (either an embedded chart or a chart sheet). 
+'An embedded chart is considered active when it's either selected or activated. When no chart is active, 
+'this property returns Nothing.
+'
+'Example: 
+'ActiveChart.HasLegend = True
+'
+'@type {Object.<Chart>}
+'*/
+Public Property ActiveChart As Chart
+
+'/*
+'Returns a Workbooks collection that represents all the open workbooks. Read-only.
+'
+'@type {Object.<Collection>} Workbooks Collection
+'*/
+Public Property ThisWorkbook As Workbook
+
+'/*
+'Returns a Workbooks collection that represents all the open workbooks. Read-only.
+'
+'@type {Object.<Collection>} Workbooks Collection
+'*/
+Public Property Workbooks As Workbooks
+
+'/*
+'Activates a Microsoft application. If the application is already running, 
+'this method activates the running application. 
+'If the application isn't running, this method starts a new instance of the application.
+'
+'Example: (This example starts and activates Word.)
+'
+'Application.ActivateMicrosoftApp xlMicrosoftWord
+'
+'@param {XlMSApplication}  index 
+'*/    
+Public Sub ActivateMicrosoftApp( index As XlMSApplication) 
+
+End Sub
+
+'/*
+'An event occurs when all pending refresh activity (both synchronous and asynchronous) 
+'and all of the resultant calculation activities have been completed.
+'
+'*/
+Public Event AfterCalculate()
+
+'/*
+'Occurs when a new workbook is created.
+'
+'Example:
+'
+'Private Sub App_NewWorkbook(ByVal Wb As Workbook) 
+'Application.Windows.Arrange xlArrangeStyleTiled End Sub
+'   
+'@param {Workbook} Wb
+'*/
+Public Event NewWorkbook(ByVal Wb As Workbook) 
+
+'/*
+'Returns a Sheets collection that represents all the sheets in the specified workbook. Read-only Sheets object.
+'
+'Example:
+'Set newSheet = Sheets.Add(Type:=xlWorksheet) 
+'For i = 1 To Sheets.Count 
+'    newSheet.Cells(i, 1).Value = Sheets(i).Name 
+'   Next i
+'
+'@type {Sheets}
+'*/
+Public Property Sheets As Worksheets
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/dictionary.d.vb

@@ -0,0 +1,109 @@
+
+
+
+'/*
+'
+'
+'
+'/*
+Public Class Scripting()
+
+
+'/*
+'
+'Object that stores data key/item pairs.
+'
+'/*
+Public Function Dictionary()
+
+End Function
+
+'/*
+'
+'Adds a new key/item pair to a Dictionary object.
+'
+'*/
+Public Sub Add() 
+
+End Sub
+
+'/*
+'
+'Returns a Boolean value that indicates whether a specified key exists in the Dictionary object.
+'
+'*/
+Public Sub Exists() 
+
+End Sub
+
+'/*
+'
+'Returns an array of all the items in a Dictionary object.
+'
+'*/
+Public Sub Items() 
+
+End Sub
+
+'/*
+'
+'Returns an array of all the keys in a Dictionary object.
+'
+'*/
+Public Sub Keys() 
+
+End Sub
+
+'/*
+'
+'Removes one specified key/item pair from the Dictionary object.
+'
+'*/
+Public Sub Remove() 
+
+End Sub
+
+'/*
+'
+'Removes all the key/item pairs in the Dictionary object.
+'
+'*/
+Public Sub RemoveAll() 
+
+End Sub
+    
+    
+
+'/*
+'Sets or returns the comparison mode for comparing keys in a Dictionary object.
+'
+'
+'*/
+Public Property CompareMode As Variant
+
+
+'/*
+'Returns the number of key/item pairs in a Dictionary object.
+'
+'
+'*/
+Public Property Count As Long
+
+
+'/*
+'Sets or returns the value of an item in a Dictionary object.
+'
+'
+'*/
+Public Property Item As Variant
+
+'/*
+'Sets a new key value for an existing key value in a Dictionary object.
+'
+'
+'*/
+Public Property Key As Variant
+
+
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/err.d.vb

@@ -0,0 +1,30 @@
+'/*
+'Contains information about run-time errors.
+'
+'
+'*/
+Public Class Err()
+
+'/*
+'Returns or sets a string expression containing a 
+'descriptive string associated with an object. Read/write.
+'
+'*/
+Public Property Description As String
+
+'/*
+'Returns or sets a numeric value specifying an error. 
+'Number is the Err object's default property. Read/write. 
+'
+'*/
+Public Property Number As Integer
+
+    
+'/*
+'Returns or sets a string expression specifying the name of 
+'the object or application that originally generated the error. Read/write. 
+'
+'*/
+Public Property Source As String
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/functions.d.vb

@@ -0,0 +1,547 @@
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Asc()
+End Function
+
+'/*
+'[Conversion Func]
+'Returns a String containing the character associated 
+'with the specified character code.
+'
+'Example:
+'
+'Dim MyChar
+'MyChar = Chr(65)    ' Returns A.
+'MyChar = Chr(97)    ' Returns a.
+'MyChar = Chr(62)    ' Returns >.
+'MyChar = Chr(37)    ' Returns %.
+'*/
+Function Chr()
+End Function
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Format()
+End Function
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Hex()
+End Function
+
+
+'/*
+'[Conversion Func]
+'
+'*/
+Function Oct()
+End Function
+
+
+'/*
+'[Conversion Func]
+'Returns a Variant (String) representation of a number.
+'
+'Example:
+'Dim MyString
+'MyString = Str(459)    ' Returns " 459".
+'MyString = Str(-459.65)    ' Returns "-459.65".
+'MyString = Str(459.001)    ' Returns " 459.001".
+'
+'*/
+Function Str() As Variant
+End Function
+
+
+'/*
+'[Conversion Func]
+'Returns the numbers contained in a string as 
+'a numeric value of appropriate type.
+'
+'Example:
+'
+'Dim MyValue
+'MyValue = Val("2457")    ' Returns 2457.
+'MyValue = Val(" 2 45 7")    ' Returns 2457.
+'MyValue = Val("24 and 57")    ' Returns 24.
+'*/
+Function Val(String) 
+End Function
+
+
+
+Function CreateObject()
+End Function
+
+
+Function CurDir()
+End Function
+
+'/*
+'Returns a Variant (Date) containing the current system date.
+'
+'Example
+'
+'Dim MyDate
+'MyDate = Date    ' MyDate contains the current system date.
+'
+'*/    
+Function Date() 
+
+End Function
+
+
+
+Function DateDiff()
+End Function
+
+Function DatePart()
+End Function
+
+Function DateSerial()
+End Function
+
+Function Day()
+End Function
+
+Function DDB()
+End Function
+
+Function Dir()
+End Function
+
+Function DoEvents()
+End Function
+
+Function Environ()
+End Function
+
+Function EOF()
+End Function
+
+Function Error()
+End Function
+
+
+Function FileAttr()
+End Function
+
+Function FileDateTime()
+End Function
+
+Function FileLen()
+End Function
+
+Function Filter()
+End Function
+
+Function FormatCurrency()
+End Function
+
+Function FormatDateTime()
+End Function
+
+Function FormatNumber()
+End Function
+
+Function FormaPercent()
+End Function
+
+
+Function FreeFile()
+End Function
+
+Function FV()
+End Function
+
+Function GetAllSettings()
+End Function
+
+Function GetAttr()
+End Function
+
+Function GetObject()
+End Function
+
+Function GetSetting()
+End Function
+
+
+Function Hour()
+End Function
+
+Function IIf()
+End Function
+
+Function IMEStatus()
+End Function
+
+Function Input()
+End Function
+
+Function InputBox()
+End Function
+
+Function InStr()
+End Function
+
+Function InStrRev()
+End Function
+
+Function IPmt()
+End Function
+
+
+
+Function IRR()
+End Function
+
+Function IsArray()
+End Function
+
+Function IsDate()
+End Function
+
+'/*
+'
+'Returns a Boolean value indicating whether a variable has been initialized.
+'
+'*/
+Function IsEmpty()
+End Function
+
+
+Function IsError()
+End Function
+
+Function IsMissing()
+End Function
+
+Function IsNull()
+End Function
+
+Function IsNumeric()
+End Function
+
+
+Function IsObject()
+End Function
+
+'/*
+'Returns a string created by joining a number of substrings contained in an array.
+'
+'*/
+Function Join()
+End Function
+
+
+
+Function LBound()
+End Function
+
+Function LCase()
+End Function
+
+Function Left()
+End Function
+
+Function Len()
+End Function
+
+
+Function Loc()
+End Function
+
+Function LOF()
+End Function
+
+Function LTrim()
+End Function
+
+Function RTrim()
+End Function
+
+Function Trim()
+End Function
+
+
+Function MacID()
+End Function
+
+
+
+Function MacScript()
+End Function
+
+'/*
+'[Math Function]
+'Returns a value of the same type that is passed to it specifying the absolute value of a number.
+'
+'*/
+Function Abs()
+End Function
+
+'/*
+'[Math Function]
+'Returns a Double specifying the arctangent of a number.
+'
+'*/
+Function Atn()
+End Function
+
+
+'/*
+'[Math Function]
+'
+'*/
+Function Cos()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Exp()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Int()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Fix()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/ 
+Function Log()
+End Function
+
+
+'/*
+'[Math Function]
+'
+'*/
+Function Rnd()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sgn()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sin()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Sqr()
+End Function
+
+'/*
+'[Math Function]
+'
+'*/
+Function Tan()
+End Function
+
+
+
+Function Mid()
+End Function
+
+
+Function Minute()
+End Function
+
+
+Function MIRR()
+End Function
+
+
+Function Month()
+End Function
+
+Function MonthName()
+End Function
+
+'/*
+'Displays a message in a dialog box, waits for the user to click a button, 
+'and returns an Integer indicating which button the user clicked.
+'
+'*/
+Function MsgBox(prompt, [ buttons, ] [ title, ] [ helpfile, context ])
+End Function
+
+
+Function Now()
+End Function
+
+
+Function NPer()
+End Function
+
+
+Function NPV()
+End Function
+
+Function PPmt()
+End Function
+
+
+Function QBColor()
+End Function
+
+
+Function Rate()
+End Function
+
+'/*
+'Returns a string, which is a substring of a string 
+'expression beginning at the start position (defaults to 1), 
+'in which a specified substring has been replaced with another 
+'substring a specified number of times.
+'
+'*/
+Function Replace(expression, find, replace, [ start, [ count, [ compare ]]])
+End Function
+
+Function RGB()
+End Function
+
+
+Function Right()
+End Function
+
+
+Function Round()
+End Function
+
+
+Function Second()
+End Function
+
+
+
+Function Seek()
+End Function
+
+
+Function Shell()
+End Function
+
+
+Function SNL()
+End Function
+
+
+Function Space()
+End Function
+
+
+Function Spc()
+End Function
+
+
+Function Split()
+End Function
+
+
+Function StrComp()
+End Function
+
+
+
+Function StrConv()
+End Function
+
+
+Function String()
+End Function
+
+
+Function StrReverse()
+End Function
+
+
+
+Function Switch()
+End Function
+
+
+Function SYD()
+End Function
+
+
+Function Tab()
+End Function
+
+
+Function Time()
+End Function
+
+
+
+Function Timer()
+End Function
+
+
+Function TimeSerial()
+End Function
+
+
+Function TimeValue()
+End Function
+
+
+
+Function TypeName()
+End Function
+
+
+Function UBound()
+End Function
+
+
+Function Ucase()
+End Function
+
+
+Function VarType()
+End Function
+
+
+
+Function Weekday()
+End Function
+
+
+Function WeekdayName()
+End Function
+
+
+Function Year()
+End Function

XVBA/久保ファイル/xvba_modules/excel-types/range.d.vb

@@ -0,0 +1,625 @@
+'/*
+'Represents a cell, a row, a column, a selection of cells containing one or more contiguous blocks of cells, or a 3D range.
+'
+'
+'*/
+Public Class Range()
+
+'/*
+'(Range)
+'
+'Activates a single cell, which must be inside the current selection. 
+'To select a range of cells, use the Select method., 
+'
+'Example
+'
+'This example selects cells A1:C3 on Sheet1 and then makes cell B2 the active cell.
+'
+' Worksheets("Sheet1").Activate 
+' Range("A1:C3").Select 
+' Range("B2").Activate
+'
+'*/    
+Public Sub Activate() 
+
+End Sub
+
+
+'/*
+'Adds a comment to the range.
+'
+'Example:
+'
+'Worksheets(1).Range("E5").AddComment "Current Sales"
+'
+'@param {String} text
+'*/
+Public  Sub AddComment(text As String)
+
+End Sub
+
+Public  Sub AddCommentThreaded()
+
+End Sub
+
+Public  Sub AdvancedFilter()
+
+End Sub
+
+Public  Sub AllocateChanges()
+
+End Sub
+
+Public  Sub ApplyName()
+
+End Sub
+
+Public  Sub ApplyOutLineStyles()
+
+End Sub
+
+Public  Sub AutoComplete()
+
+End Sub
+
+Public  Sub AutoFill()
+
+End Sub
+
+Public  Sub AutoFilter()
+
+End Sub
+
+Public  Sub AutioFit()
+
+End Sub
+
+Public  Sub AutoOutline()
+
+End Sub
+
+Public  Sub BorderAround()
+
+End Sub
+
+Public  Sub Calculate()
+
+End Sub
+
+Public  Sub CalculateRowMajorOrder()
+
+End Sub
+
+Public  Sub CheckSpelling()
+
+End Sub
+
+Public  Sub Clear()
+
+End Sub
+
+Public  Sub ClearComments()
+
+End Sub
+
+Public  Sub ClearContents()
+
+End Sub
+
+Public  Sub ClearFormats()
+
+End Sub
+
+Public  Sub ClearHyperlinks()
+
+End Sub
+
+Public  Sub ClearNotes()
+
+End Sub
+
+Public  Sub ClearOutline()
+
+End Sub
+
+Public  Sub ColumnDifferences()
+
+End Sub
+
+Public  Sub Consolidate()
+
+End Sub
+
+Public  Sub ConvertToLinkedDataType()
+
+End Sub
+
+Public  Sub Copy()
+
+End Sub
+
+Public  Sub CopyFromRecordset()
+
+End Sub
+
+Public  Sub CopyPicture()
+
+End Sub
+
+Public  Sub CreateNames()
+
+End Sub
+
+Public  Sub Cut()
+
+End Sub
+
+Public  Function DataSeries (Rowcol, Type, Date, Step, Stop, Trend)
+
+End Function
+
+Public  Function DataTypeToText()
+
+End Function
+
+Public  Function Delete (Shift)
+
+End Function
+
+Public  Function DialogBox()
+
+End Function
+
+Public  Function Dirty()
+
+End Function
+Public  Function DiscardChanges()
+
+End Function
+Public  Function EditionOptions (Type, Option, Name, Reference, Appearance, ChartSize, Format)
+
+End Function
+Public  Function ExportAsFixedFormat (Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)
+
+End Function
+Public  Function FillDown()
+
+End Function
+Public  Function FillLeft()
+
+End Function
+
+Public  Function FillRight()
+
+End Function
+
+Public  Function FillUp()
+
+End Function
+
+Public  Function Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
+
+End Function
+
+Public  Function FindNext (After)
+
+End Function
+
+Public  Function FindPrevious (Before)
+
+End Function
+
+Public  Function FlashFill ()
+
+End Function
+
+
+Public  Function FunctionWizard ()
+
+End Function
+
+
+Public  Function Group (Start, End, By, Periods)
+
+End Function
+
+Public  Function Insert (Shift, CopyOrigin)
+
+End Function
+
+
+Public  Function InsertIndent (InsertAmount)
+
+End Function
+
+
+Public  Function Justify()
+
+End Function
+
+
+Public  Function ListNames()
+
+End Function
+
+Public  Function Merge(Across)
+
+End Function
+
+Public  Function NavigateArrow(TowardPrecedent, ArrowNumber, LinkNumber)
+
+End Function
+
+Public  Function NoteText(Text, Start, Length)
+
+End Function
+
+Public  Function Parse(ParseLine, Destination)
+
+End Function
+
+Public  Function PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
+
+End Function
+
+
+Public  Function PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
+
+End Function
+
+Public  Function PrintPreview(EnableChanges)
+
+End Function
+
+Public  Function RemoveDuplicates(Columns , Header)
+
+End Function
+
+Public  Function RemoveSubtotal()
+
+End Function
+
+
+Public  Function Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
+
+End Function
+
+
+Public  Function RowDifferences(Comparison)
+
+End Function
+
+Public  Function Run(Arg1, Arg2, Arg3, Arg4, Arg5...)
+
+End Function
+
+Public  Function Select()
+
+End Function
+
+Public  Function SetCellDataTypeFromCell(Range, LanguageCulture)
+
+End Function
+
+
+Public  Function SetPhonetic()
+
+End Function
+
+
+Public  Function Show()
+
+End Function
+
+
+Public  Function ShowCard()
+
+End Function
+
+
+Public  Function ShowDependents(Remove)
+
+End Function
+
+
+Public  Function ShowErrors()
+
+End Function
+
+
+Public  Function ShowPrecedents(Remove)
+
+End Function
+
+
+Public  Function Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
+
+End Function
+
+
+Public  Function SortSpecial(SortMethod, Key1, Order1, Type, Key2, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, DataOption1, DataOption2, DataOption3)
+
+End Function
+
+Public  Function Speak(SpeakDirection, SpeakFormulas)
+
+End Function
+
+
+Public  Function SpecialCells(Type, Value)
+
+End Function
+
+Public  Function SubscribeTo(Edition, Format)
+
+End Function
+
+Public  Function Subtotal(GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)
+
+End Function
+
+
+Public  Function Table(RowInput, ColumnInput)
+
+End Function
+
+
+Public  Function TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers
+
+End Function
+
+
+Public  Function Ungroup()
+
+End Function
+
+
+Public  Function UnMerge()
+
+End Function
+
+Public Property AddIndent As Variant
+
+Public Function Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) As Variant
+End Function
+
+Public Function AddressLocal(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) As Range
+End Function
+
+Public Property Application As Application 
+
+Public Property Areas As Areas
+
+Public Property Borders As Variant
+
+Public Property Cells As Range 
+
+Public Function Characters(Start, Length) As Variant
+End Function
+
+Public Property Column As Long
+
+Public Property Columns As Long
+        
+Public Property ColumnWidth As Variant
+
+Public Property Comment As Variant
+
+Public Property CommentThreaded As Variant
+
+
+Public Property Count As Long
+
+
+Public Property CountLarge As Variant
+
+
+Public Property Creator As Integer
+
+
+Public Property CurrentArray As Range
+
+'/*
+'Returns a Range object that represents the current region. 
+'The current region is a range bounded by any combination of blank rows and blank columns. Read-only.
+'
+'Example
+'Worksheets("Sheet1").Activate 
+'ActiveCell.CurrentRegion.Select
+'*/
+Public Property CurrentRegion As Range
+
+Public Property Dependents As Range
+
+Public Property DirectDependents As Range
+
+Public Property DirectPrecedents As Range
+
+Public Property DisplayFormat As Object
+
+
+Public Function End(Direction) As Object
+End Function
+
+Public Property EntireColumn As Range
+
+
+Public Property EntireRow As Range
+
+
+Public Property Errors As Errors
+
+
+Public Property Font As Font
+
+
+Public Property FormatConditions As Range
+
+Public Property Formula As Variant
+
+Public Property FormulaArray As Variant
+
+Public Property FormulaHidden As Variant
+
+
+Public Property FormulaLocal As Object
+
+Public Property FormulaR1C1 As Varaint
+
+Public Property FormulaR1C1Local As Varaint
+
+Public Property HasArray As Varaint
+
+Public Property HasFormula As Varaint
+
+Public Property HasRichDataType As Varaint
+
+Public Property Height As Double
+
+Public Property Hidden As Variant 
+
+Public Property HorizontalAlignment As Variant
+
+Public Property Hyperlinks As Object
+
+Public Property ID As String
+
+Public Property IndentLevel As Variant
+
+Public Property Interior As Double
+
+Public Function Item (RowIndex, ColumnIndex) As Range
+End Function
+
+
+Public Property Left As Variant
+
+
+Public Property LinkedDataTypeState As Variant
+
+Public Property ListHeaderRows As Variant
+
+
+Public Property ListObject As Object
+
+Public Property LocationInTable As Variant
+
+Public Property Locked As Variant
+
+Public Property MDX As String
+
+Public Property MergeArea As Range
+
+Public Property MergeCells As Boolean
+
+Public Property Name As Variant
+
+Public Property Next As Range
+
+Public Property NumberFormat As Variant
+
+Public Property NumberFormatLocal As Variant
+
+Public Function Offset (RowOffset, ColumnOffset) As Range
+
+End Function
+
+
+Public Property Orientation As Variant
+
+Public Property OutlineLevel As Variant
+
+Public Property PageBreak As Variant
+
+Public Property Parent As Variant
+
+Public Property Phonetic As Variant
+                    
+Public Property Phonetics As Variant
+
+Public Property PivotCell As Variant
+
+
+Public Property PivotField As Variant
+
+
+Public Property PivotItem As Variant
+
+Public Property PivotTable As Variant
+
+Public Property Precedents As Range
+
+Public Property PrefixCharacter As Variant
+
+
+Public Property Previous As Range
+
+Public Property QueryTable As Variant
+
+Public Function Range (Cell1, Cell2) As Range
+End Function
+
+Public Property ReadingOrder As Variant
+
+Public Function Resize (RowSize, ColumnSize) As Range
+End Function
+        
+
+Public Property Row As Long
+
+Public Property RowHeight As Double
+
+Public Property Rows As Range
+
+Public Property ServerActions As Variant
+
+
+Public Property ShowDetail As Variant
+
+
+Public Property ShrinkToFit As Variant
+
+
+Public Property SoundNote As Variant
+
+
+Public Property SparklineGroups As Variant
+
+
+Public Property Style As Variant
+
+Public Property Summary As Variant
+
+
+Public Property Text As String
+
+Public Property Top As Variant
+
+Public Property UseStandardHeight As Variant
+
+Public Property UseStandardWidth As Variant
+
+Public Property Validation As Variant
+
+Public Function Value (RangeValueDataType) As Variant
+End Function
+
+Public Property Value2 As Variant
+
+
+Public Property VerticalAlignment As Variant
+
+Public Property Width As Double
+
+                   
+                    
+Public Property Worksheet As Worksheet
+
+
+Public Property WrapText As Variant
+
+Public Property XPath As XPath
+                        
+
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/workbook.d.vb

@@ -0,0 +1,157 @@
+'/*
+'Represents a Microsoft Excel workbook.
+'
+'
+'*/
+Public Class Workbook()
+
+'/*
+'Returns a String that represents the complete path to the 
+'workbook/file that this workbook object represents.
+'
+'*/
+Public Property Path As String
+
+
+Public Property Worksheets As Worksheet
+
+'/*
+'True if a backup file is created when this file is saved. Read-only Boolean.
+'
+'@type {Boolean}
+'*/
+Public Property CreateBackup As Boolean
+
+'/*
+'Returns a String value that represents the name of the object.
+'
+'@type {Boolean}
+'*/
+Public Property Name As String
+
+'/*
+'True if no changes have been made to the specified workbook since it was last saved. Read/write Boolean.
+'
+'Example:
+'If Not ActiveWorkbook.Saved Then 
+' MsgBox "This workbook contains unsaved changes." 
+'End If
+'
+'@type {Boolean}
+'*/
+Public Property Saved As String
+
+'/*
+'Returns a Sheets collection that represents all the sheets in the specified workbook. Read-only Sheets object.
+'
+'Example:
+'Set newSheet = Sheets.Add(Type:=xlWorksheet) 
+'For i = 1 To Sheets.Count 
+'    newSheet.Cells(i, 1).Value = Sheets(i).Name 
+'   Next i
+'
+'@type {Sheets}
+'*/
+Public Property Sheets As Worksheets
+
+
+'/*
+'
+'Activates the first window associated with the workbook.
+'
+'*/
+Public Function Activate() 
+
+End Function
+
+'/*
+'
+'Closes the object.
+'
+'Example
+'
+'Workbooks("BOOK1.XLS").Close SaveChanges:=False
+'
+'@param {Variant}  SaveChanges:[Optional] True or false
+'@param {Variant}  FileName:[Optional] Saves changes under this file name.
+'@param {Variant}  RouteWorkbook:[Optional] True or False
+'*/
+Public Function Close(SaveChanges,FileName,RouteWorkbook) 
+
+End Function
+
+'/*
+'Saves changes to the specified workbook.
+'*/
+Public Function Save() 
+
+End Function
+
+'/*
+'Saves changes to the workbook in a different file.
+'
+'@param {Variant}  FileName:[Optional]
+'@param {Variant}  FileFormat:[Optional]
+'@param {Variant}  Password:[Optional]
+'@param {Variant}  WriteResPassword:[Optional]
+'@param {Variant}  ReadOnlyRecommended:[Optional]
+'@param {Variant}  CreateBackup:[Optional]
+'@param {Variant}  AccessMode:[Optional]
+'@param {Variant}  ConflictResolution:[Optional]
+'@param {Variant}  AddToMru:[Optional]
+'@param {Variant}  TextCodepage:[Optional]
+'@param {Variant}  TextVisualLayout:[Optional]
+'@param {Variant}  Local:[Optional]
+'*/
+Public Function SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
+
+End Function
+
+
+'/*
+'Exports the data that has been mapped to the specified XML schema map to an XML data file.
+'
+'@param {String}  FileName:[Required]
+'@param {XmlMap}  Map:[Required]
+'*/
+Public Function SaveAsXMLData(FileName, Map) 
+
+End Function
+
+
+'/*
+'Saves a copy of the workbook to a file but doesn't modify the open workbook in memory.
+'
+'Example
+'ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
+'
+'@param {Variant}  FileName:[Required]
+'*/
+Public Function SaveCopyAs(FileName, Map) 
+
+End Function
+
+'/*
+'Sends the workbook by using the installed mail system.
+'
+'Example
+'ActiveWorkbook.SendMail recipients:="Jean Selva"
+'
+'@param {Variant}  Recipients:[Required]
+'@param {Variant}  Subject:[Optional]
+'@param {Variant}  ReturnReceipt:[Optional]
+'*/
+Public Function SendMail(Recipients, Subject, ReturnReceipt) 
+
+End Function
+
+'/*
+'
+'The ExportAsFixedFormat method is used to publish 
+'a workbook to either the PDF or XPS format.
+'
+'*/
+Public Function ExportAsFixedFormat(Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)
+End Function
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/workbooks.d.vb

@@ -0,0 +1,109 @@
+'/*
+'A collection of all the Workbook objects that are currently open in the Microsoft Excel application.
+'
+'*/
+Public Class Workbooks() 
+
+'/*
+'Creates a new workbook. The new workbook becomes the active workbook.
+'
+'@param {Variant}  Template:[Optional] Determines how the new workbook is created. 
+'If this argument is a string specifying the name of an existing Microsoft Excel file, 
+'the new workbook is created with the specified file as a template.
+'*/
+Public Function Add(Template) 
+
+End Function
+
+
+'/*
+'True if Microsoft Excel can check out a specified workbook from a server. 
+'Read/write Boolean.
+'
+'@param {String}  FileName:[Required] 	The name of the file to check out.
+'
+'*/
+Public Function CanCheckOut (FileName) 
+
+End Function
+
+
+Public Function CheckOut (FileName) 
+
+End Function
+
+
+Public Function Close () 
+
+End Function
+
+'/*
+'
+'Opens a workbook.
+'
+'Example
+'Workbooks.Open "ANALYSIS.XLS" 
+'ActiveWorkbook.RunAutoMacros xlAutoOpen
+'*/
+Public Function Open  (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) As Workbook
+
+End Function
+
+'/*
+'Returns a Workbook object representing a database.
+'*/
+Public Function OpenDatabase (FileName, CommandText, CommandType, BackgroundQuery, ImportDataAs)
+
+End Function
+
+
+'/*
+'Loads and parses a text file as a new workbook with a single sheet that contains the parsed text-file data.
+'*/
+Public Function  (FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)
+
+End Function
+
+'/*
+'Opens an XML data file. Returns a Workbook object.
+'*/
+Public Function OpenXML (FileName, Stylesheets, LoadOption)
+
+End Function
+
+
+'/*
+'When used without an object qualifier, this property returns an 
+'Application object that represents the Microsoft Excel application.
+'
+'*/
+Public Property Application As Application
+
+
+'/*
+'Returns a Long value that represents the number of objects in the collection.
+'
+'*/
+Public Property Count As Long
+
+'/*
+'Returns a 32-bit integer that indicates the application in which this object was created. Read-only Long.
+'
+'*/
+Public Property Creator As Integer
+
+
+
+'/*
+'Returns a single object from a collection.
+'
+'*/
+Public Property Item(Index) As Object
+
+'/*
+'Returns the parent object for the specified object. Read-only.
+'
+'*/
+Public Property Parent As Object
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/worksheet.d.vb

@@ -0,0 +1,86 @@
+'/*
+'Represents a worksheet.
+'
+'Example
+'
+'Worksheets(1).Visible = False
+'
+'*/
+Public Class Worksheet()
+
+
+'/*
+'Makes the current sheet the active sheet.
+'
+'Example
+'ActiveWorkbook.SendMail recipients:="Jean Selva"
+'*/
+Public Sub Activate() 
+
+End Sub
+
+
+Public Sub Calculate() 
+
+End Sub
+
+Public Sub Copy() 
+
+End Sub
+
+Public Sub Delete() 
+End Sub
+
+Public Sub Move()
+
+End Sub
+
+Public Sub Past() 
+
+End Sub
+
+Public Sub PastSpecial() 
+
+End Sub
+
+Public Sub Select() 
+End Sub
+
+Public Sub SaveAs()
+
+End Sub  
+
+'/*
+'
+'Returns a Range object that represents a cell or a range of cells.
+'
+'Example: 
+'
+'Worksheets("Sheet1").Range("A1").Value = 3.14159
+'
+'*/
+Public Property Range As Range
+
+
+'/*
+'
+'Returns a Range object that represents all the rows on the specified worksheet.
+'
+'Example: 
+'
+'Worksheets("Sheet1").Rows(3).Delete
+'
+'*/
+Public Property Row As Range
+
+
+'/*
+'
+'Returns a Long value that represents the index number of the 
+'object within the collection of similar objects.orksheets("Sheet1").Rows(3).Delete
+'
+'*/
+Public Property Index As Long
+
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/worksheets.d.vb

@@ -0,0 +1,54 @@
+'/*
+'A collection of all the Worksheet objects in the specified or active workbook. Each Worksheet object represents a worksheet.
+'
+'Example
+'
+'Worksheets(1).Visible = False
+'
+'*/
+Public Class Worksheets() 
+
+'/*
+'Constructor 
+'
+'*/
+Public  Sub New(Name As String) As Worksheet
+
+End Sub
+
+Public Sub Add() 
+
+End Sub
+
+
+Public Sub Add2() 
+
+End Sub
+
+Public Sub Copy() 
+
+End Sub
+
+Public Sub Delete() 
+End Sub
+
+Public Sub Move()
+
+End Sub
+
+Public Sub FillAcrossSheets() 
+
+End Sub
+
+Public Sub PrintOut() 
+
+End Sub
+
+Public Sub PrintPreview() 
+End Sub
+
+Public Sub Select()
+
+End Sub  
+
+End Class

XVBA/久保ファイル/xvba_modules/excel-types/xvba.package.json

@@ -0,0 +1,15 @@
+{
+  "package": "excel-types",
+  "version": "1.0.0",
+  "author": "Alberto Oliveira",
+  "email": "alberto.aeraph@gmail.comn",
+  "license": "ISC",
+  "repository": {
+    "type": "git",
+    "url": "https://github.com/Aeraphe/excel-types.git"
+  },
+  "description": "Creating amazing XVBA packages",
+  "dependencies": {},
+  "dev_dependencies": {},
+  "homepage": "https://github.com/Aeraphe/xvba-cli"
+}

XVBA/事業計画集計/.vscode/settings.json

@@ -0,0 +1,11 @@
+{
+    "files.encoding": "shiftjis",
+    "editor.fontFamily": "'HackGen35 Console'",
+    "editor.tokenColorCustomizations": {
+        "comments": {
+            "foreground": "#66ff33",
+            "fontStyle": "italic underline"
+        }
+    },
+    "editor.defaultFormatter": "local-smart.excel-live-server",
+}

XVBA/事業計画集計/config.json

@@ -0,0 +1,14 @@
+{
+    "app_name": "XVBA",
+    "description": "",
+    "author": "",
+    "email": "",
+    "create_ate": "Sat Nov 08 2025 17:26:55 GMT+0900 (日本標準時)",
+    "excel_file": "【2025経営計画】新・事業計画集計v4.0.xlsm",
+    "vba_folder": "vba-files",
+    "ribbon_file": "customUI14",
+    "ribbon_folder": "ribbons",
+    "logs": "on",
+    "xvba_packages": {},
+    "xvba_dev_packages": {}
+}

XVBA/事業計画集計/package.json

@@ -0,0 +1,15 @@
+{
+    "name": "xvba-app",
+    "version": "1.0.0",
+    "description": "A XVBA App",
+    "main": "index.js",
+    "author": "LocalSmart",
+    "license": "ISC",
+    "dependencies": {
+        "excel-types": "1.0.0",
+        "Xlog": "1.0.0"
+    },
+    "devDependencies": {
+        "@localsmart/xvba-cli": "^1.0.2"
+    }
+}

XVBA/事業計画集計/vba-files/Class/Sheet1.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet10.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet10"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet11.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet11"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet12.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet12"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet120.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet120"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet121.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet121"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet122.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet122"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet123.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet123"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet124.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet124"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet125.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet125"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet126.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet126"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet127.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet127"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet128.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet128"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet129.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet129"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet13.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet13"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet130.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet130"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet131.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet131"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet132.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet132"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet133.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet133"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+

XVBA/事業計画集計/vba-files/Class/Sheet134.cls

@@ -0,0 +1,11 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "Sheet134"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Option Explicit
+