Excel自定义函数不重新计算在多个工作表中
我现在要道歉，如果这个问题没有正确的格式，因为我是新来的这个网站。
一位同事编写了所有的代码，并开始完成数组（数组），以创build下面的UDF，以减less以前使用的公式的数量，以查找不同金属的材料密度，并根据需要修改公式部件的形状以计算重量。
我遇到的问题是这个UDF在一个工作簿中的多个工作表（45张）中使用，所有工作表总计为一个摘要选项卡。 为了得到所有的工作表公式的计算，我要么必须双击每个单独的单元格，迫使其重新计算或突出显示所有的单元格，并转到数据>文本到列>然后单击完成以强制所有突出显示的单元格重新计算。
我试图使用快捷键（即Ctrl + Alt + Shift + F9来强制UDF重新计算）以及Application.Volatile在代码的开头，但他们只重新计算一个工作表，而不是所有的人。 不重新计算的表单显示#value! 在牢房里。
由于我不是唯一使用这个文档的人，所以这给我自己头痛。
这是代码。 编写它的同事在一些文本中将帮助我解决它在未来。
' We want our function to do the following: ' 1) Create new function called "MATWEIGHT" and the output I want is a Double (a decimal number) ' 2) The inputs I want to bring into the function are "size" and "matl" which are a double and a string respectively. Public Function MatType(matl As String) As Double 'Dim outputWeight As Double 'This is a variable declaration - it's good to assign our output to a temporary variable 'outputWeight = size * 2 'Take the size and multiply by 2 'MATWEIGHT = outputWeight & matl 'Set the function name to our output to give us our answer Dim MatType1(98, 1) As String Dim flag As Integer flag = 0 Dim matlDes As String matlDes = "" MatType1(0, 0) = "304SS - ANGLE" MatType1(1, 0) = "304SS - CHANNEL" MatType1(2, 0) = "304SS - FLAT BAR" MatType1(3, 0) = "304SS - HSS" MatType1(4, 0) = "304SS - I-BEAM" MatType1(5, 0) = "304SS - PIPE" MatType1(6, 0) = "304SS - PLATE" MatType1(7, 0) = "304SS - ROUND BAR" MatType1(8, 0) = "304SS - SQUARE BAR" MatType1(9, 0) = "304SS - WF BEAM" MatType1(10, 0) = "410SS - FLAT BAR" MatType1(11, 0) = "410SS - PLATE" MatType1(12, 0) = "410SS - ROUND BAR" MatType1(13, 0) = "420SS - FLAT BAR" MatType1(14, 0) = "420SS - PLATE" MatType1(15, 0) = "420SS - ROUND BAR" MatType1(16, 0) = "44W - PLATE" MatType1(17, 0) = "44W CAT 1 - PLATE" MatType1(18, 0) = "50W - ANGLE" MatType1(19, 0) = "50W - BAR GRATING" MatType1(20, 0) = "50W - CHANNEL" MatType1(21, 0) = "50W - MC CHANNEL" MatType1(22, 0) = "50W - FLAT BAR" MatType1(23, 0) = "50W - HSS" MatType1(24, 0) = "50W - I-BEAM < 8in" MatType1(25, 0) = "50W - I-BEAM > 10in" MatType1(26, 0) = "50W - PIPE" MatType1(27, 0) = "50W - PLATE" MatType1(28, 0) = "50W - ROUND BAR" MatType1(29, 0) = "50W - SQUARE BAR" MatType1(30, 0) = "50W - WF BEAM" MatType1(31, 0) = "50W CAT 3 - PLATE" MatType1(32, 0) = "630SS - FLAT BAR" MatType1(33, 0) = "630SS - PLATE" MatType1(34, 0) = "630SS - ROUND BAR" MatType1(35, 0) = "700QT - PLATE" MatType1(36, 0) = "ALUMINUM - ANGLE" MatType1(37, 0) = "ALUMINUM - CHANNEL" MatType1(38, 0) = "ALUMINUM - FLAT BAR" MatType1(39, 0) = "ALUMINUM - HSS" MatType1(40, 0) = "ALUMINUM - I-BEAM" MatType1(41, 0) = "ALUMINUM - PIPE" MatType1(42, 0) = "ALUMINUM - PLATE" MatType1(43, 0) = "ALUMINUM - ROUND BAR" MatType1(44, 0) = "ALUMINUM - SQUARE BAR" MatType1(45, 0) = "ALUMINUM - WF BEAM" MatType1(46, 0) = "BRASS - PIPE" MatType1(47, 0) = "BRASS - PLATE" MatType1(48, 0) = "BRASS - ROUND BAR" MatType1(49, 0) = "BRONZE - PIPE" MatType1(50, 0) = "BRONZE - PLATE" MatType1(51, 0) = "BRONZE - ROUND BAR" MatType1(52, 0) = "NYLATRON - PLATE" MatType1(53, 0) = "NYLATRON - ROUND BAR" MatType1(54, 0) = "UHMW - PLATE" MatType1(55, 0) = "UHMW - ROUND BAR" MatType1(56, 0) = "ANCHORS" MatType1(57, 0) = "BUSHINGS" MatType1(58, 0) = "ROLLER - AXLE" MatType1(59, 0) = "ROLLER - BEARING" MatType1(60, 0) = "ROLLER - SEALS" MatType1(61, 0) = "ROLLER - WHEEL" MatType1(62, 0) = "ROLLER ASS'Y, 210 DIA." MatType1(63, 0) = "ROLLER ASS'Y, 270 DIA." MatType1(64, 0) = "ROLLER ASS'Y, 380 DIA." MatType1(65, 0) = "ROLLER ASS'Y, 440 DIA." MatType1(66, 0) = "ROLLER ASS'Y, 660 DIA." MatType1(67, 0) = "ROLLER ASS'Y, 228 DIA." MatType1(68, 0) = "ROLLER ASS'Y, 250 DIA." MatType1(69, 0) = "ROLLER ASS'Y, 381 DIA." MatType1(70, 0) = "ROLLER ASS'Y, 457 DIA." MatType1(71, 0) = "ROLLER ASS'Y, 530 DIA." MatType1(72, 0) = "GUIDE WHEEL ASSEMBLIES" MatType1(73, 0) = "GUIDE WHEEL ASSEMBLIES W/ SPRINGS" MatType1(74, 0) = "HARDWARE" MatType1(75, 0) = "HEATERS, GAIN" MatType1(76, 0) = "MACHINING INSERTS" MatType1(77, 0) = "MISC" MatType1(78, 0) = "NAME PLATES" MatType1(79, 0) = "PAINT - CHEAP" MatType1(80, 0) = "PAINT - MIDDLE" MatType1(81, 0) = "PAINT - EXPENSIVE" MatType1(82, 0) = "RIGGING, SHACKLES" MatType1(83, 0) = "RIGGING, WIRE ROPE SLINGS" MatType1(84, 0) = "RUBBER" MatType1(85, 0) = "SEALS - FRAME" MatType1(86, 0) = "SEALS - BULB" MatType1(87, 0) = "SEALS - BOTTOM" MatType1(88, 0) = "SEALS - WIND" MatType1(89, 0) = "SHEAVE BUSHING" MatType1(90, 0) = "SHEAVE PIN" MatType1(91, 0) = "SHEAVES" MatType1(92, 0) = "SPRINGS" MatType1(93, 0) = "STAIR TREADS" MatType1(94, 0) = "TBD" MatType1(95, 0) = "WELDING WIRE - MILD STEEL" MatType1(96, 0) = "WELDING WIRE - STAINLESS" MatType1(97, 0) = "WOOD" MatType1(98, 0) = "GUIDE ROLLER - WHEEL" MatType1(0, 1) = "Structural" MatType1(1, 1) = "Structural" MatType1(2, 1) = "Plate / Flat Bar" MatType1(3, 1) = "Structural" MatType1(4, 1) = "Structural" MatType1(5, 1) = "Structural" MatType1(6, 1) = "Plate / Flat Bar" MatType1(7, 1) = "Round Bar" MatType1(8, 1) = "Plate / Flat Bar" MatType1(9, 1) = "Structural" MatType1(10, 1) = "Plate / Flat Bar" MatType1(11, 1) = "Plate / Flat Bar" MatType1(12, 1) = "Round Bar" MatType1(13, 1) = "Plate / Flat Bar" MatType1(14, 1) = "Plate / Flat Bar" MatType1(15, 1) = "Round Bar" MatType1(16, 1) = "Plate / Flat Bar" MatType1(17, 1) = "Plate / Flat Bar" MatType1(18, 1) = "Structural" MatType1(19, 1) = "Bar Grating" MatType1(20, 1) = "Structural" MatType1(21, 1) = "Structural" = mat MatType1(22, 1) = "Plate / Flat Bar" MatType1(23, 1) = "Structural" MatType1(24, 1) = "Structural" MatType1(25, 1) = "Structural" MatType1(26, 1) = "Structural" MatType1(27, 1) = "Plate / Flat Bar" MatType1(28, 1) = "Round Bar" MatType1(29, 1) = "Plate / Flat Bar" MatType1(30, 1) = "Structural" MatType1(31, 1) = "Plate / Flat Bar" MatType1(32, 1) = "Plate / Flat Bar" MatType1(33, 1) = "Plate / Flat Bar" MatType1(34, 1) = "Round Bar" MatType1(35, 1) = "Plate / Flat Bar" MatType1(36, 1) = "Structural" MatType1(37, 1) = "Structural" MatType1(38, 1) = "Aluminum Plate / Flat Bar" MatType1(39, 1) = "Structural" MatType1(40, 1) = "Structural" MatType1(41, 1) = "Structural" MatType1(42, 1) = "Aluminum Plate / Flat Bar" MatType1(43, 1) = "Aluminum Round Bar" MatType1(44, 1) = "Aluminum Plate / Flat Bar" MatType1(45, 1) = "Structural" MatType1(46, 1) = "Brass Round Bar" MatType1(47, 1) = "Brass Plate / Flat Bar" MatType1(48, 1) = "Brass Round Bar" MatType1(49, 1) = "Brass Round Bar" MatType1(50, 1) = "Brass Plate / Flat Bar" MatType1(51, 1) = "Brass Round Bar" MatType1(52, 1) = "UHMW Plate / Flat Bar" MatType1(53, 1) = "UHMW Round Bar" MatType1(54, 1) = "UHMW Plate / Flat Bar" MatType1(55, 1) = "UHMW Round Bar" MatType1(56, 1) = "Everything Else" MatType1(57, 1) = "Everything Else" MatType1(58, 1) = "Round Bar" MatType1(59, 1) = "Everything Else" MatType1(60, 1) = "Everything Else" MatType1(61, 1) = "Everything Else" MatType1(62, 1) = "Everything Else" MatType1(63, 1) = "Everything Else" MatType1(64, 1) = "Everything Else" MatType1(65, 1) = "Everything Else" MatType1(66, 1) = "Everything Else" MatType1(67, 1) = "Everything Else" MatType1(68, 1) = "Everything Else" MatType1(69, 1) = "Everything Else" MatType1(70, 1) = "Everything Else" MatType1(71, 1) = "Everything Else" MatType1(72, 1) = "Everything Else" MatType1(73, 1) = "Everything Else" MatType1(74, 1) = "Everything Else" MatType1(75, 1) = "Everything Else" MatType1(76, 1) = "Everything Else" MatType1(77, 1) = "Everything Else" MatType1(78, 1) = "Everything Else" MatType1(79, 1) = "Everything Else" MatType1(80, 1) = "Everything Else" MatType1(81, 1) = "Everything Else" MatType1(82, 1) = "Everything Else" MatType1(83, 1) = "Everything Else" MatType1(84, 1) = "Everything Else" MatType1(85, 1) = "Everything Else" MatType1(86, 1) = "Seals" MatType1(87, 1) = "Seals" MatType1(88, 1) = "Seals" MatType1(89, 1) = "Everything Else" MatType1(90, 1) = "Round Bar" MatType1(91, 1) = "Everything Else" MatType1(92, 1) = "Everything Else" MatType1(93, 1) = "Everything Else" MatType1(94, 1) = "Everything Else" MatType1(95, 1) = "Everything Else" MatType1(96, 1) = "Everything Else" MatType1(97, 1) = "Everything Else" MatType1(98, 1) = "Everything Else" ' Find the address of the caller (the cell where the address is) Dim clr As Range Set clr = Application.Caller ' Find the row only of the caller Dim FRow As String FRow = clr.Row ' Search the range A1 to Z1 for vA, vC, vD, and vE Dim rng As Range Set rng = Range("A1:Z1") Dim vA As String Dim vC As String Dim vD As String Dim vE As String Dim lA As String Dim lC As String Dim lD As String Dim lE As String vA = "Quantity" vC = "Thick. / Dia." vD = "Width / #-ft" vE = "Length" For Each c In Range("A1:Z1").Cells If c.Value = vA Then lA = Left(Replace(c.Address, "$", ""), 1) End If If c.Value = vC Then lC = Left(Replace(c.Address, "$", ""), 1) End If If c.Value = vD Then lD = Left(Replace(c.Address, "$", ""), 1) End If If c.Value = vE Then lE = Left(Replace(c.Address, "$", ""), 1) End If Next c ' Setting the values from the corresponding ranges to the following variables Dim qty As String Dim thk As String Dim width As String Dim length As String qty = Range(lA & FRow).Value thk = Range(lC & FRow).Value width = Range(lD & FRow).Value length = Range(lE & FRow).Value For i = 0 To UBound(MatType1, 1) If matl = MatType1(i, 0) Then flag = 1 matl = MatType1(i, 0) matlDes = CStr(MatType1(i, 1)) End If Next i If flag = 1 Then If matlDes = "Plate / Flat Bar" Then MatType = Round(thk * width * length * 0.0000174 * qty, 2) End If If matlDes = "Structural" Then MatType = Round((length / 304.8) * width * qty, 2) End If If matlDes = "Round Bar" Then MatType = Round(((3.14 * (length * (thk / 2) * (thk / 2))) * 0.0000174) * qty, 2) End If If matlDes = "Aluminum Plate / Flat Bar" Then MatType = Round(((thk * width * length) * 0.00000595) * qty, 2) End If If matlDes = "Aluminum Round Bar" Then MatType = Round(((3.14 * (length * (thk / 2) * (thk / 2))) * 0.00000595) * qty, 2) End If If matlDes = "Brass Round Bar" Then MatType = Round(((3.14 * (length * (thk / 2) * (thk / 2))) * 0.00001851883) * qty, 2) End If If matlDes = "Brass Plate / Flat Bar" Then MatType = Round(((thk * width * length) * 0.00001851883) * qty, 2) End If If matlDes = "UHMW Plate / Flat Bar" Then MatType = Round(thk * width * length * 0.03 * qty, 2) End If If matlDes = "UHMW Round Bar" Then MatType = Round((3.14 * (length / 25.4) * (((thk / 2) / 25.4) * ((thk / 2) / 25.4)) * qty) * 0.03, 2) End If If matlDes = "Seals" Then MatType = Round((length / 304.8) * qty, 2) End If If matlDes = "Bar Grating" Then MatType = Round((thk * (width / 304.8) * (length / 304.8)) * qty, 2) End If If matlDes = "Everything Else" Then MatType = Round(qty) End If End If End Function
任何帮助获取所有的标签重新计算单元格的值更改和/或打开工作簿时将不胜感激。
提前致谢。
您没有将您的代码链接到调用工作表 – 您的非限定调用
Set rng = Range("A1:Z1")
将始终引用哪个表单碰巧是活动的，而不是表单中的公式（除非这是活动表单…）
你需要在你的函数的顶部做这样的事情：
Dim sht As WorkSheet Set sht = Application.Caller.Worksheet
然后使用sht来限定UDF中的每个单独的Range / Cells调用
请参阅工作表和单元格和范围的默认范围是什么？ 对Range / Cells的默认“范围”是什么
使用：代码顶部的Application.volatile ，当你更新/刷新你的工作簿时，它会导致你的函数重新计算
UDF（或任何Excel函数）重新计算一个或多个参数的值何时改变。 您应该将范围作为parameter passing给UDF，而不是将这些范围硬编码到代码中。
作为模板，考虑更改为
Public Function MatType(matl As String, qty As Range, thk As Range, width As Range, length As Range) As Double
您可以使用Application.Volitile强制重新计算每个重新计算，但在这种情况下这是低效率和不必要的。 如果你这样做，你需要遵循Tim的build议来修正工作表范围