'''
''''カスタム関数 索引数取得
'''
'''Function 索引数取得(引数 As Range) As Variant
'''
'''' Dim 引数 As Range
'''' Set 引数 = Application.ThisCell
'''
''' '=IF(IsHidden([@五十音]),"",索引数取得)
''' '=IF(IsHidden([@五十音]),"",IF(OFFSET([@五十音],-1,)=[@五十音],"",COUNTIF([五十音],[@五十音])))
'''
'''If 索引数辞書.Count = 0 Then 索引数辞書 = Nothing
''''Debug.Print Join(索引数辞書.Items, ",")
''' Debug.Print 索引数辞書.Count 'Join(索引数辞書.Items, ",")
''' If 索引数辞書 Is Nothing Then
''' Call 索引数辞書編纂
''' End If
'''
''' If InStr(索引数辞書.Item(引数.Value), 引数.Address) Then
''' 索引数取得 = Split(索引数辞書.Item(引数.Value), ",")(1)
''' 索引数辞書.Remove 引数.Value
''' Else
''' 索引数取得 = ""
''' End If
'''
'''' 索引数辞書 = Nothing
'''
'''End Function
'カスタム関数 索引数取得
Function 索引数取得2() As String
'''''' Dim フィールド As Range
'''''' Set フィールド = Range("売場案内T2OutputQueryTable[五十音]").SpecialCells(xlCellTypeVisible)
'''''' Set フィールド = ActiveSheet.ListObjects(2).AutoFilter.Range.Columns(3).SpecialCells(xlCellTypeVisible) '20220617
'''''' Debug.Print フィールド.Cells.Count
''''''' =IF(IsHidden([@五十音]),"",IF(OFFSET([@五十音],-1,)=[@五十音],"",COUNTIF([五十音],[@五十音])))
'''''' Call 索引数辞書編纂
''''''Exit Function
''''''
'''''' For Each レコード In フィールド
''''''
'''''' If InStr(索引数辞書.Item(レコード.Value), レコード.Address) Then
'''''' Debug.Print フィールド.Address
''''''' Split(索引数辞書.Item(引数.Value), ",")(1)
'''''' 索引数辞書.Remove 引数.Value
'''''' Else
'''''' 索引数取得 = ""
'''''' End If
''''''
'''''' Next
' Debug.Print フィールド.Address
'' Debug.Print 連番 & "v:" & フィールド.SpecialCells(xlCellTypeVisible).Cells(1).Value
' Debug.Print フィールド.SpecialCells(xlCellTypeVisible).Cells(1).Address
' Debug.Print フィールド.SpecialCells(xlCellTypeVisible).Cells(2).Offset(-1).Address
' Debug.Print "─────────────────────────────"
' '最初のセルがデータ領域の先頭か否か
' If 引数.Row = フィールド.Cells(1).Row Then
' Debug.Print "1:" & WorksheetFunction.CountIf(Range(フィールド.Address), 引数.Value)
' Else
'' If 引数.(-1).Value = 引数.Value Then
'' Debug.Print "none"
'' Else
'' Debug.Print "2:" & WorksheetFunction.CountIf(Range(フィールド.Address), 引数.Value)
'' End If
' End If
' 索引数取得2 = ""
'
' Debug.Print フィールド.Cells.Count
' Debug.Print フィールド.SpecialCells(xlCellTypeVisible).Cells.Count
' Debug.Print フィールド.Address
'
'''''' If 索引数辞書 Is Nothing Then
'''''' Call 索引数辞書編纂
'''''' End If
'''''' Debug.Print Join(索引数辞書.Items, ",")
'
' Set 索引数辞書 = Nothing
End Function
