YujiFukami

Option Explicit

'ACC                 ・・・元場所：FukamiAddins3.ModAlignmentCode 
'AlignmentCodeComment・・・元場所：FukamiAddins3.ModAlignmentCode 
'ClipboardCopy       ・・・元場所：FukamiAddins3.ModClipboard     
'GetClipboardText    ・・・元場所：FukamiAddins3.ModClipboard     
'MakeAligmentedArray ・・・元場所：FukamiAddins3.ModAlignmentArray

Sub ACC(Optional KugiriStr As String = "'")
    Call AlignmentCodeComment(KugiriStr)

YujiFukami

Option Explicit

'ShowColumns       ・・・元場所：FukamiAddins3.ModCell
'CheckArray1D      ・・・元場所：FukamiAddins3.ModArray
'CheckArray1DStart1・・・元場所：FukamiAddins3.ModArray

Sub ShowColumns(ColumnABCList1D, TargetSheet As Worksheet, Optional ByVal MaxColABC As String, Optional InputShow As Boolean = True)
'指定列のみ表示にする
'20210917

YujiFukami

Option Explicit


'マウスカーソル位置取得関係
#If VBA7 Then
Private Declare PtrSafe Function GetCursorPos Lib "user32" (IpPoint As PointAPI) As Long
#Else
Private Declare Function GetCursorPos Lib "user32" (IpPoint As PointAPI) As Long
#End If

YujiFukami

Option Explicit

Public PbStopHanteiPoul As Boolean

'ミリ秒単位で時間停止
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

YujiFukami

Option Explicit

'SplineXYParaFast                ・・・元場所：FukamiAddins3.ModApproximate
'SplineParaFast                  ・・・元場所：FukamiAddins3.ModApproximate
'SplineByArrayX1DFast            ・・・元場所：FukamiAddins3.ModApproximate
'スプライン補間高速化用に分割処理・・・元場所：FukamiAddins3.ModApproximate
'ExtractArray1D                  ・・・元場所：FukamiAddins3.ModArray
'CheckArray1D                    ・・・元場所：FukamiAddins3.ModArray
'CheckArray1DStart1              ・・・元場所：FukamiAddins3.ModArray
'ExtractByRangeArray1D           ・・・元場所：FukamiAddins3.ModApproximate

YujiFukami

Attribute VB_Name = "Mod_Smile"
Option Explicit

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:Pi
Private Const Pi As Double = 3.141529
'-----------------------------------
'元場所:PriJudgeStop
Private PriJudgeStop As Boolean

YujiFukami

Attribute VB_Name = "ModATPGA"
Option Explicit

'APT                    ・・・元場所：FukamiAddins3.ModAlignmentCode 
'AlignmentProcedureTitle・・・元場所：FukamiAddins3.ModAlignmentCode 
'GetClipboardText       ・・・元場所：FukamiAddins3.ModClipboard     
'改行をひとまとめにする ・・・元場所：FukamiAddins3.ModAlignmentCode 
'GetStrInParentheses    ・・・元場所：FukamiAddins3.ModStr           
'コードの引数を標準化   ・・・元場所：FukamiAddins3.ModAlignmentCode 
'ClipboardCopy          ・・・元場所：FukamiAddins3.ModClipboard     

YujiFukami

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsVector3D"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

YujiFukami

Attribute VB_Name = "ModCIEDE2000RGB"
Option Explicit

'CIEDE2000RGB     ・・・元場所：VBAProject.Module1
'RGBtoLab         ・・・元場所：VBAProject.Module1
'RGBtoXYZ         ・・・元場所：VBAProject.Module1
'XYZtoLab         ・・・元場所：VBAProject.Module1
'F                ・・・元場所：VBAProject.Module1
'CIEDE2000        ・・・元場所：VBAProject.Module1
'Cal_h_prime      ・・・元場所：VBAProject.Module1

YujiFukami

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
Public Enum Enumページ印刷範囲
    拡大縮小なし = 0
    シートを1ページに印刷 = 1
    すべての列を1ページに印刷 = 2
    すべての行を1ページに印刷 = 3
End Enum
'-----------------------------------