Vba 对象必需错误，数组
我正在获取所需的错误424对象。我对数组非常不熟悉，并认为它与此有关。我在这个论坛上阅读了大量的对象要求错误问题，并尝试了各种建议，但没有一个解决了我的问题 在模块的顶部Vba 对象必需错误，数组,vba,excel,Vba,Excel,我正在获取所需的错误424对象。我对数组非常不熟悉，并认为它与此有关。我在这个论坛上阅读了大量的对象要求错误问题，并尝试了各种建议，但没有一个解决了我的问题 在模块的顶部 Dim velocityLookup As Scripting.Dictionary Dim arrHolder As Variant Const Velocity_Key_Col As Long = 10 Option Explicit 阵列的自定义SumIf Public Function SumIf(lookupTab
Dim velocityLookup As Scripting.Dictionary
Dim arrHolder As Variant
Const Velocity_Key_Col As Long = 10
Option Explicit
Public Function SumIf(lookupTable As Variant, lookupColumn As Long, currentRow As Long, lookupValue As String, sumifColumn As Long) As Long
Dim i As Long
SumIf = 0
For i = 1 To currentRow
If lookupTable(i, lookupColumn) = lookupValue Then
SumIf = SumIf + lookupTable(i, sumifColumn)
End If
Next i
End Function
arrHolder(i, 18) = arrHolder(i, 24) - SumIf(arrHolder, 21, i, arrHolder(i, 21).Value, 26)
Sub Calculate_Click()
'******************* Insert a line to freeze screen here.
Dim wsMain As Worksheet
Dim wsQuantity As Worksheet
Dim wsVelocity As Worksheet
Dim wsParameters As Worksheet
Dim wsData As Worksheet
Dim lrMain As Long 'lr = last row
Dim lrQuantity As Long
Dim lrVelocity As Long
Dim lrParameters As Long
Dim lrData As Long
Dim i As Long 'Row Counter
'For Optimization Testing Only.
Dim MainTimer As Double
MainTimer = Timer
Set wsMain = Worksheets("Main Tab")
Set wsQuantity = Worksheets("Quantity Available")
Set wsVelocity = Worksheets("Velocity")
Set wsParameters = Worksheets("Parameters")
Set wsData = Worksheets("Data Input by Account")
lrMain = wsMain.Cells.Find(What:="*", SearchOrder:=xlByRows, Searchdirection:=xlPrevious).Row
lrQuantity = wsQuantity.Cells.Find(What:="*", SearchOrder:=xlByRows, Searchdirection:=xlPrevious).Row
lrVelocity = wsVelocity.Cells.Find(What:="*", SearchOrder:=xlByRows, Searchdirection:=xlPrevious).Row
lrParameters = wsParameters.Cells.Find(What:="*", SearchOrder:=xlByRows, Searchdirection:=xlPrevious).Row
lrData = wsData.Cells.Find(What:="*", SearchOrder:=xlByRows, Searchdirection:=xlPrevious).Row
Dim calcWeek As Long
calcWeek = wsParameters.Range("B3").Value
For i = 2 To 5 'lrQuantity
With wsQuantity
.Cells(i, 5) = .Cells(i, 1) & .Cells(i, 2)
.Cells(i, 6) = .Cells(i, 1) & UCase(.Cells(i, 2)) & .Cells(i, 3)
End With
Next i
wsData.Range(wsData.Cells(2, 1), wsData.Cells(lrData, 4)).Sort _
key1:=wsData.Range("A2"), order1:=xlAscending, Header:=xlNo
Dim tempLookup As Variant
For i = 2 To 5 'lrData
tempLookup = Application.VLookup(wsData.Cells(i, 2), wsParameters.Range("Table5"), 2, False)
If IsError(tempLookup) Then
wsData.Cells(i, 3).Value = "Missing"
Else
wsData.Cells(i, 3).Value = tempLookup
End If
Next i
For i = 2 To 5 'lrVelocity
With wsVelocity
.Cells(i, 10) = CStr(Trim(.Cells(i, 1) & .Cells(i, 4) & .Cells(i, 5) & .Cells(i, 9)))
.Cells(i, 11) = .Cells(i, 6)
.Cells(i, 12) = .Cells(i, 7)
.Cells(i, 13) = .Cells(i, 8)
.Cells(i, 14) = .Cells(i, 3)
.Cells(i, 22) = .Cells(i, 1) & .Cells(i, 9)
End With
Next i
wsVelocity.Range(wsVelocity.Cells(2, 1), wsVelocity.Cells(lrVelocity, 10)).Sort _
key1:=wsVelocity.Range("J2"), order1:=xlAscending, Header:=xlNo
BuildVelocityLookup wsVelocity, Velocity_Key_Col, velocityLookup
Dim indexVelocity1 As Range
Dim indexVelocity2 As Range
Dim matchVelocity1 As Range
Dim matchVelocity2 As Range
With wsVelocity
Set indexVelocity1 = .Range(.Cells(2, 7), .Cells(lrVelocity, 7))
Set indexVelocity2 = .Range(.Cells(2, 3), .Cells(lrVelocity, 3))
Set matchVelocity1 = .Range(.Cells(2, 1), .Cells(lrVelocity, 1))
Set matchVelocity2 = .Range(.Cells(2, 22), .Cells(lrVelocity, 22))
End With
Dim indexQuantity As Range
Dim matchQuantity As Range
With wsQuantity
Set indexQuantity = .Range(.Cells(2, 4), .Cells(lrQuantity, 4))
Set matchQuantity = .Range(.Cells(2, 6), .Cells(lrQuantity, 6))
End With
Dim ShipMin As Long
ShipMin = wsParameters.Cells(7, 2).Value
With wsMain
.Range(.Cells(2, 9), .Cells(lrMain, 20)).ClearContents
.Range(.Cells(2, 22), .Cells(lrMain, 47)).ClearContents
End With
arrHolder = wsMain.Range(wsMain.Cells(2, 1), wsMain.Cells(lrMain, 47))
For i = LBound(arrHolder) To lrMain
Dim conUD As String 'con=concatenate
'conUD = .Cells(i, 21) & .Cells(i, 4) & calcWeek
conUD = arrHolder(i, 21) & arrHolder(i, 4) & calcWeek
'.Cells(i, 21) = .Cells(i, 5) & .Cells(i, 3)
arrHolder(i, 21) = arrHolder(i, 5) & arrHolder(i, 3)
'If .Cells(i, 8) <> 0 Then
' .Cells(i, 9) = .Cells(i, 6) / .Cells(i, 8)
'End If
If arrHolder(i, 8) <> 0 Then
arrHolder(i, 9) = arrHolder(i, 6) / arrHolder(i, 8)
End If
Dim velocityRow As Long
If velocityLookup.Exists(conUD) Then
velocityRow = velocityLookup.Item(conUD)
tempLookup = wsVelocity.Cells(velocityRow, 11)
'.Cells(i, 10).Value = tempLookup
arrHolder(i, 10) = tempLookup
tempLookup = wsVelocity.Cells(velocityRow, 14)
'.Cells(i, 11).Value = tempLookup
arrHolder(i, 11) = tempLookup
'If .Cells(i, 9) > .Cells(i, 11) Then
' .Cells(i, 12).Value = Round((.Cells(i, 6) / .Cells(i, 11)) / .Cells(i, 10), 0.1)
'End If
If arrHolder(i, 9) > arrHolder(i, 11) Then
arrHolder(i, 12) = Round((arrHolder(i, 6) / arrHolder(i, 11)) / arrHolder(i, 10), 0.1)
End If
'If .Cells(i, 6) > 0 Then
' If .Cells(i, 12) <> "" Then
' .Cells(i, 13).Value = .Cells(i, 12) - .Cells(i, 8)
' End If
'End If
If arrHolder(i, 6) > 0 Then
If arrHolder(i, 12) <> vbNullString Then
arrHolder(i, 13) = arrHolder(i, 12) - arrHolder(i, 8)
End If
End If
Dim conECD As String
'conECD = .Cells(i, 5) & .Cells(i, 3) & .Cells(i, 4) & calcWeek
conECD = arrHolder(i, 5) & arrHolder(i, 3) & arrHolder(i, 4) & calcWeek
' It looks like you use this block a few times with different variables. Consider extracting to a function
If velocityLookup.Exists(conECD) Then
velocityRow = velocityLookup.Item(conECD)
tempLookup = wsVelocity.Cells(velocityRow, 12)
'If .Cells(i, 13) <> "" Then
' If tempLookup <> 0 Then
' .Cells(i, 14).Value = Int(.Cells(i, 13) / tempLookup)
' End If
'End If
If arrHolder(i, 13) <> vbNullString Then
If tempLookup <> 0 Then
arrHolder(i, 14) = Int(arrHolder(i, 13) / tempLookup)
End If
End If
tempLookup = wsVelocity.Cells(velocityRow, 13)
'If .Cells(i, 14) > tempLookup Then
' If .Cells(i, 14) <> "" Then
' .Cells(i, 15).Value = tempLookup
' End If
'Else
' .Cells(i, 15).Value = .Cells(i, 14).Value
'End If
If arrHolder(i, 14) > tempLookup Then
If arrHolder(i, 14) <> vbNullString Then
arrHolder(i, 15) = tempLookup
End If
Else
arrHolder(i, 15) = arrHolder(i, 14)
End If
'If .Cells(i, 14) = "" Then
' If .Cells(i, 11) = "" Then
' .Cells(i, 26) = ""
' Else
' .Cells(i, 26).Value = Round(.Cells(i, 14).Value * .Cells(i, 11).Value, 0)
' End If
'End If
If arrHolder(i, 14) = vbNullString Then
If arrHolder(i, 11) = vbNullString Then
arrHolder(i, 26) = vbNullString
Else
arrHolder(i, 26) = Round(arrHolder(i, 14) * arrHolder(i, 11), 0)
End If
End If
'tempLookup = Application.Index(indexQuantity, Application.Match((.Cells(i, 21).Value & "LIBERTY") _
' , matchQuantity, False))
Dim arrHolderRow As Long
tempLookup = Application.Index(indexQuantity, Application.Match((arrHolder(i, 21) & "LIBERTY") _
, matchQuantity, False))
'.Cells(i, 24).Value = tempLookup
arrHolder(i, 24) = tempLookup
' I havent used application SumIf on an array before, so I instead edited this so it should use the correct index value.
' This will likely not work as I want it to, so it may just need to go into a separate loop or something.
' .Cells(i, 18).Value = .Cells(i, 24) - Application.SumIf(.Range(.Cells(1, 21), .Cells(i, 21)), _
' .Cells(i, 21).Value, .Range(.Cells(1, 26), .Cells(i, 26)))
arrHolder(i, 18) = arrHolder(i, 24) - SumIf(arrHolder, 21, i, arrHolder(i, 21).Value, 26)
' arrHolder(I, 18) = .Cells(I + 1, 24) - Application.SumIf(.Range(.Cells(1, 21), .Cells(I + 1, 21)), _
.Cells(I + 1, 21).Value, .Range(.Cells(1, 26), .Cells(I + 1, 26)))
End If
velocityRow = velocityLookup.Item(conUD)
tempLookup = wsVelocity.Cells(velocityRow, 13)
'If .Cells(i, 26) > tempLookup Then
' .Cells(i, 28).Value = tempLookup
'Else
' .Cells(i, 28).Value = .Cells(i, 26).Value
'End If
If arrHolder(i, 26) > tempLookup Then
arrHolder(i, 28) = tempLookup
Else
arrHolder(i, 28) = arrHolder(i, 26)
End If
'If .Cells(i, 18).Value < 0 Then
' .Cells(i, 29).Value = "C"
' .Cells(i, 27).Value = ""
'Else
' .Cells(i, 27) = .Cells(i, 28)
'End If
If arrHolder(i, 18) < 0 Then
arrHolder(i, 29) = "C"
arrHolder(i, 27) = vbNullString
Else
arrHolder(i, 27) = arrHolder(i, 28)
End If
'.Cells(i, 31).Value = Application.SumIf(.Range(.Cells(2, 1), .Cells(lrMain, 1)), _
' .Cells(i, 1).Value, .Range(.Cells(2, 27), .Cells(lrMain, 27)))
' Another SumIf. Same as before, we will have to figure this out separately.
arrHolder(i, 31) = SumIf(arrHolder(), 1, i, arrHolder(i, 1).Value, 27)
'arrHolder(I, 31) = Application.SumIf(.Range(.Cells(2, 1), .Cells(lrMain, 1)), _
.Cells(I + 1, 1).Value, .Range(.Cells(2, 27), .Cells(lrMain, 27)))
'If .Cells(i, 5) = "" Then
' .Cells(i, 35) = ""
'Else
' .Cells(i, 35).Value = Application.Index(indexVelocity1, _
' Application.Match(.Cells(i, 5), matchVelocity1, False))
'End If
' Thinking about it now, I am not sure about Application Index/Match on an array either.
If arrHolder(i, 5) = vbNullString Then
arrHolder(i, 35) = vbNullString
Else
arrHolder(i, 35) = Application.Index(indexVelocity1, _
Application.Match(arrHolder(i, 5), matchVelocity1, False))
End If
'If .Cells(i, 6).Value = 0 Then
' .Cells(i, 44).Value = 0
'Else
' .Cells(i, 44).Value = Round(((((.Cells(i, 6).Value / .Cells(i, 11).Value) _
' / .Cells(i, 10).Value) - .Cells(i, 8).Value) / .Cells(i, 35).Value), 0.1)
'End If
If arrHolder(i, 6) = 0 Then
arrHolder(i, 44) = 0
Else
arrHolder(i, 44) = Round(((((arrHolder(i, 6) / arrHolder(i, 11)) _
/ arrHolder(i, 10)) - arrHolder(i, 8)) / arrHolder(i, 35)), 0.1)
End If
'If .Cells(i, 6).Value = 0 Then
' .Cells(i, 34).Value = 0
' .Cells(i, 33) = 0
'Else
' .Cells(i, 34).Value = Round(((((.Cells(i, 6) / .Cells(i, 11)) / _
' .Cells(i, 10)) - .Cells(i, 8)) / .Cells(i, 35)) * .Cells(i, 11), 0.1)
' If .Cells(i, 34) > 0 Then
' .Cells(i, 33) = .Cells(i, 34)
' Else
' .Cells(i, 33) = 0
' End If
'End If
If arrHolder(i, 6) = 0 Then
arrHolder(i, 34) = 0
arrHolder(i, 33) = 0
Else
arrHolder(i, 34) = Round(((((arrHolder(i, 6) / arrHolder(i, 11)) / _
arrHolder(i, 10)) - arrHolder(i, 8)) / arrHolder(i, 35)) * arrHolder(i, 11), 0.1)
If arrHolder(i, 34) > 0 Then
arrHolder(i, 33) = arrHolder(i, 34)
Else
arrHolder(i, 33) = 0
End If
End If
'.Cells(i, 37) = 1 + calcWeek
arrHolder(i, 37) = 1 + calcWeek
'.Cells(i, 38) = .Cells(i, 5) & .Cells(i, 37)
arrHolder(i, 38) = arrHolder(i, 5) & arrHolder(i, 37)
'.Cells(i, 39).Value = Application.Index(indexVelocity2, _
' Application.Match(.Cells(i, 38), matchVelocity2, False))
arrHolder(i, 39) = Application.Index(indexVelocity2, _
Application.Match(arrHolder(i, 38), matchVelocity2, False))
'.Cells(i, 40) = Round(((((.Cells(i, 6) / .Cells(i, 11)) * .Cells(i, 39)) _
' - .Cells(i, 6)) - (.Cells(i, 8) - .Cells(i, 6))) / .Cells(i, 35), 0.1)
arrHolder(i, 40) = Round(((((arrHolder(i, 6) / arrHolder(i, 11)) * arrHolder(i, 39)) _
- arrHolder(i, 6)) - (arrHolder(i, 8) - arrHolder(i, 6))) / arrHolder(i, 35), 0.1)
'If .Cells(i, 40) < 0 Then
' .Cells(i, 41) = 0
'Else
' .Cells(i, 41) = .Cells(i, 40)
'End If
If arrHolder(i, 40) < 0 Then
arrHolder(i, 41) = 0
Else
arrHolder(i, 41) = arrHolder(i, 40)
End If
'.Cells(i, 42) = .Cells(i, 41) - .Cells(i, 33)
arrHolder(i, 42) = arrHolder(i, 41) - arrHolder(i, 33)
'If .Cells(i, 11) < .Cells(1, 44) Then
' .Cells(i, 45) = 0
' .Cells(i, 32) = .Cells(i, 45)
'Else
' .Cells(i, 32) = Application.Max(.Cells(i, 33), .Cells(i, 41))
' If .Cells(i, 44) < 0 Then
' .Cells(i, 45) = ""
' Else
' .Cells(i, 45) = .Cells(i, 44)
' End If
'End If
' Not 100% sure if applicaiton.max will work here.
If arrHolder(i, 11) < arrHolder(1, 44) Then
arrHolder(i, 45) = 0
arrHolder(i, 32) = arrHolder(i, 45)
Else
If arrHolder(i, 33) > arrHolder(i, 41) Then
arrHolder(i, 32) = arrHolder(i, 33)
Else
arrHolder(i, 32) = arrHolder(i, 41)
End If
If arrHolder(i, 44) < 0 Then
arrHolder(i, 45) = vbNullString
Else
arrHolder(i, 45) = arrHolder(i, 44)
End If
End If
'If .Cells(i, 31) < ShipMin Then
' .Cells(i, 47) = 0
'Else
' .Cells(i, 47) = .Cells(i, 27)
'End If
If arrHolder(i, 31) < ShipMin Then
arrHolder(i, 47) = 0
Else
arrHolder(i, 47) = arrHolder(i, 27)
End If
'.Cells(i, 46) = .Cells(i, 1) & .Cells(i, 22) & .Cells(i, 47)
arrHolder(i, 46) = arrHolder(i, 1) & arrHolder(i, 22) & arrHolder(i, 47)
If (i Mod 100) = 0 Then
Debug.Print "Got to row "; i; " in "; Timer - MainTimer; " seconds."
End If
End If
Next i
wsMain.Range(wsMain.Cells(2, 1), wsMain.Cells(lrMain, 47)).Value = arrHolder
Erase arrHolder
End Sub
子计算\u单击（）
'****************在此处插入一行以冻结屏幕。
将wsMain设置为工作表
将数量设置为工作表
将速度设置为工作表
将参数设置为工作表
将wsData设置为工作表
尺寸lrMain，长度为'lr=最后一行
数量尽可能长
速度慢如长
尽可能长地调整参数
将数据视为长数据
昏暗的长排柜台
'仅用于优化测试。
双倍调暗主定时器
主定时器=定时器
设置wsMain=工作表（“主选项卡”）
设置wsQuantity=工作表（“可用数量”）
设置wsVelocity=工作表（“速度”）
设置wsParameters=工作表（“参数”）
设置wsData=工作表（“按帐户输入的数据”）
lrMain=wsMain.Cells.Find（内容：=“*”，搜索顺序：=xlByRows，搜索方向：=xlPrevious）。行
lrQuantity=wsQuantity.Cells.Find（内容：=“*”，搜索顺序：=xlByRows，搜索方向：=xlPrevious）。行
lrVelocity=wsVelocity.Cells.Find（内容：=“*”，搜索顺序：=xlByRows，搜索方向：=xlPrevious）。行
lrParameters=wsParameters.Cells.Find（内容：=“*”，搜索顺序：=xlByRows，搜索方向：=xlPrevious）。行
lrData=wsData.Cells.Find（内容：=“*”，搜索顺序：=xlByRows，搜索方向：=xlPrevious）。行
暗淡的calcWeek和长的一样
calcWeek=wsParameters.Range（“B3”）.值
对于i=2至5’LR数量
有数量
.Cells（i，5）=.Cells（i，1）和.Cells（i，2）
.Cells（i，6）=.Cells（i，1）和UCase（.Cells（i，2））和.Cells（i，3）
以
接下来我
范围（wsData.Cells（2，1），wsData.Cells（lrData，4））.Sort_
key1:=wsData.Range（“A2”），order1:=xlAscending，Header:=xlNo
Dim tempLookup作为变体
对于i=2至5’LR数据
tempLookup=Application.VLookup（wsData.Cells（i，2），wsParameters.Range（“表5”），2，False）
如果是IsError（tempLookup），那么
wsData.Cells（i，3）.Value=“缺失”
其他的
wsData.Cells（i，3）.Value=tempLookup
如果结束
接下来我
对于i=2至5’LR速度
用wsVelocity
.Cells（i，10）=CStr（Trim（.Cells（i，1）和Cells（i，4）和Cells（i，5）和Cells（i，9）））
.单元（i，11）=.单元（i，6）
.单元（i，12）=.单元（i，7）
.单元（i，13）=.单元（i，8）
.单元（i，14）=.单元（i，3）
.Cells（i，22）=.Cells（i，1）和.Cells（i，9）
以
接下来我
wsVelocity.Range（wsVelocity.Cells（2，1），wsVelocity.Cells（lrvocity，10））.Sort_
key1:=wsVelocity.Range（“J2”），order1:=xlAscending，Header:=xlNo
BuildVelocityLookup wsVelocity，Velocity\u Key\u Col，velocityLookup
变暗指数速度1作为范围
变暗指数速度2作为范围
尺寸匹配速度1作为范围
变暗匹配速度2作为范围
用wsVelocity
设置indexVelocity1=.Range（.Cells（2,7），.Cells（lrVelocity，7））
设置indexVelocity2=.Range（.Cells（2,3），.Cells（lrVelocity，3））
设置matchVelocity1=.Range（.Cells（2，1），.Cells（lrVelocity，1））
设置matchVelocity2=.Range（.Cells（2,22），.Cells（lrVelocity，22））
以
Dim indexQuantity作为范围
模糊匹配数量作为范围
有数量
设置索引数量=.Range（.Cells（2,4），.Cells（lrQuantity，4））
设置匹配数量=.Range（.Cells（2,6），.Cells（lrQuantity，6））
以
我和斯普明一样长
ShipMin=wsParameters.Cells（7,2）.Value
使用wsMain
.Range（.Cells（2,9），.Cells（lrMain，20））.ClearContents
.Range（.Cells（2,22），.Cells（lrMain，47））.ClearContents
以
arrHolder=wsMain.Range（wsMain.Cells（2，1），wsMain.Cells（lrMain，47））
对于i=LBound（arrHolder）至lrMain
将conUD作为字符串'con=连接
'conUD=.Cells（i，21）和.Cells（i，4）和calcWeek
conUD=arrHolder（i，21）和arrHolder（i，4）以及calcWeek
“.单元（i，21）=.单元（i，5）和.单元（i，3）
arrHolder（i，21）=arrHolder（i，5）和arrHolder（i，3）
'如果.Cells（i，8）0那么
.Cells（i，9）=.Cells（i，6）/.Cells（i，8）
"完"
如果arrHolder（i，8）0那么
arrHolder（i，9）=arrHolder（i，6）/arrHolder（i，8）
如果结束
暗淡的速度如长
如果velocityLookup.存在（conUD），则
velocityRow=velocityLookup.项目（conUD）
tempLookup=wsVelocity.Cells（velocityRow，11）
'.Cells（i，10）.Value=tempLookup
arrHolder（i，10）=tempLookup
tempLookup=wsVelocity.Cells（velocityRow，14）
'.Cells（i，11）.Value=tempLookup
arrHolder（i，11）=tempLookup
'如果.Cells（i，9）>.Cells（i，11）那么
“.Cells（i，12）.值=圆形（.Cells（i，6）/.Cells（i，11））/.Cells（i，10），0.1）
"完"
如果arrHolder（i，9）>arrHolder（i，11），那么
arrHolder（i，12）=圆形（（arrHolder（i，6）/arrHolder（i，11））/arrHolder（i，10），0.1）
如果结束
'如果.Cells（i，6）>0，则
“如果.Cells（i，12）”，则
'.Cells（i，13）.Value=.Cells（i，12）-.Cells（i，8）
"完"
"完"
如果arrHolder（i，6）>0，则
如果arrHolder（i，12）vbNullString，则
arrHolder（i，13）=arrHolder（i，12）-arrHolder（i，8）
如果结束
如果结束
作为字符串的Dim conECD
'conECD=.Cells（i，5）和.Cells（i，3）和.Cells（i，4）和calcWeek
conECD=arrHolder（i，5）&arrHolder（i，3）&arrHolder（i，4）&calcWeek
'看起来您对不同的变量多次使用此块。考虑提取函数
如果velocityLookup.存在（conECD），则
velocityRow=velocityLookup.项目（conECD）
tempLookup=wsVelocity.Cells（velocityRow，12）
“如果.Cells（i，13）”，则
“如果tempLookup为0
.Cells（i，14）.Value=Int（.Cells（i，13）/tempLookup）
"完"
"完"
如果arrHolder（i，13）为空
SumIf(arrHolder, 21, i, CStr(arrHolder(i, 21)), 26)