请问老师下面 函数 如何在表中操作呢?

天喜

<p>'公式计算函数<br/>Function jsjg(in_num)<br/>If Len([in_num].Value) &gt; 254 Then<br/>&nbsp;&nbsp;&nbsp; jsjg = "对不起，请输入不超过255字符的公式"<br/>Else<br/>&nbsp;&nbsp;&nbsp; If VarType(in_num) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; jsjg = 0<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If VarType(Evaluate([in_num].Value)) = vbError Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; jsjg = "输入值有误，请检查或重新输入"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; jsjg = Evaluate([in_num].Value)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>End Function<br/>'公式显式函数<br/>Function gsjs(in_num)<br/>If IsObject(in_num) Then<br/>gsjs = [in_num].Formula<br/>Else<br/>gsjs = "请输入引用单元格"<br/>End If<br/>End Function<br/>'中文大写转换函数<br/>Function zwdx(in_num)<br/>Dim Num_Len As Integer<br/>Dim In_Num_2&nbsp; As Currency<br/>Dim in_num_C As String<br/>Dim In_End&nbsp; 'As Double<br/>Dim xx As String<br/>Dim EnSz<br/>Dim i As Integer<br/>Dim k As Integer<br/>Dim L As Integer<br/>Dim Zwsz<br/>Dim Out_Num As String<br/>Dim bz As Boolean<br/>Dim bzl As Boolean<br/>Dim bzd As Boolean<br/>Dim sing As Boolean</p><p>'初始化数据<br/>Zwsz = Array("壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")<br/>k = 0<br/>Out_Num = ""<br/>sing = True</p><p>'负数处理<br/>If in_num &lt; 0 Then<br/>in_num = -in_num<br/>sing = False<br/>End If</p><p>'数据四舍五入取两位小数<br/>In_End = IIf(Int((in_num - Int(in_num)) * 1000) Mod 10 &gt; 5, 1, 0)<br/>In_Num_2 = Int((in_num - Int(in_num)) * 100) + In_End</p><p>'小数处理<br/>In_End = In_Num_2 Mod 10<br/>If In_End &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp; Out_Num = Zwsz(In_End - 1) + "分" + Out_Num<br/>End If<br/>If Int(In_Num_2 / 10) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp; Out_Num = Zwsz(Int(In_Num_2 / 10) - 1) + "角" + Out_Num<br/>End If</p><p>'整数处理<br/>in_num = Int(in_num) '取整数<br/>Num_Len = Len(Trim(Str(in_num))) '求长度<br/>If Num_Len &gt; 15 Then<br/>MsgBox "你要转换的数已超出范围（整数最多15位）", , "请注意"<br/>Exit Function<br/>End If</p><p>If in_num = 0 Then<br/>zwdx = Out_Num<br/>Exit Function<br/>End If</p><p>bzd = False<br/>bz = False<br/>bzl = False<br/>k = Int(Num_Len / 4 - 0.1) + 1<br/>If k &gt; 2 Then<br/>&nbsp;&nbsp;&nbsp; In_Num_2 = Int(in_num * 0.0000001)<br/>&nbsp;&nbsp;&nbsp; in_num = (in_num * 0.0000001 - Int(in_num * 0.0000001)) * 10 ^ 8<br/>&nbsp;&nbsp;&nbsp; bz = True<br/>End If<br/>For i = 1 To k Step 1<br/>&nbsp;&nbsp;&nbsp; If i &gt; 2 And bz = True Then<br/>&nbsp;&nbsp;&nbsp; in_num = In_Num_2<br/>&nbsp;&nbsp;&nbsp; bz = False<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; In_End = in_num Mod 10000<br/>&nbsp;&nbsp;&nbsp; If In_End = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'bzl = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If i &lt;&gt; 2 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call dwxz((i - 1) * 4 - 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw1 = dw<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Out_Num = dw1 + Out_Num '((i - 1) * 4 + 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp; in_num_C = Trim(Str(In_End))<br/>&nbsp;&nbsp;&nbsp; L = Len(in_num_C)<br/>&nbsp;&nbsp;&nbsp; For j = 1 To L Step 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EnSz = Mid(in_num_C, L - j + 1, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If EnSz = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If j = 1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'out = dw((I - 1) * 4 + 1) + Out_Num<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzd = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzl = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call dwxz((i - 1) * 4 + j)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw1 = dw<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call dwxz((i - 1) * 4 + 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw2 = dw<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If bzl = True Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If bzd = True Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Out_Num = Zwsz(EnSz - 1) + dw1 + dw2 + Out_Num<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzd = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzl = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Out_Num = Zwsz(EnSz - 1) + dw2 + "零" + Out_Num<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzl = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Out_Num = Zwsz(EnSz - 1) + dw1 + Out_Num '+ dw((I - 1) * 4 + 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzd = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Next j<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If L &lt; 4 And In_End &gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If i &lt; k Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Out_Num = "零" + Out_Num<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzl = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bzd = False<br/>&nbsp;&nbsp; End If<br/>&nbsp;in_num = Int(in_num * 0.0001)<br/>&nbsp;Next i<br/>&nbsp;If sing = False Then<br/>&nbsp;Out_Num = "负" + Out_Num<br/>&nbsp;End If<br/>&nbsp;zwdx = Out_Num<br/>End Function<br/>Sub dwxz(i As Integer) 'Public Static<br/>Select Case i<br/>&nbsp;&nbsp;&nbsp; Case 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "元"<br/>&nbsp;&nbsp;&nbsp; Case 5, 13<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "万"<br/>&nbsp;&nbsp;&nbsp; Case 9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "亿"<br/>&nbsp;&nbsp;&nbsp; Case 2, 6, 10, 14<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "拾"<br/>&nbsp;&nbsp;&nbsp; Case 3, 7, 11, 15<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "佰"<br/>&nbsp;&nbsp;&nbsp; Case 4, 8, 12, 16<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dw = "仟"<br/>&nbsp;&nbsp;&nbsp; End Select<br/>End Sub<br/>Function Ezwdx(InputNum) '将英文数字转换成中文大写<br/>Dim InputNumZ As Double '输入数值<br/>Dim IntNum As Double '数值<br/>Dim EnSz As Integer '英文数字<br/>Dim Dwbz As Integer&nbsp; '必选单位标志<br/>Dim Zstar As Integer '为0数字的开始位置<br/>Dim i As Integer '计数值<br/>Dim Sign As Boolean<br/>Dim OutZ As String<br/>Dim Dwn, Zwsz<br/>'数值校对<br/>If IsObject(InputNum) Then '为对象时<br/>&nbsp;&nbsp;&nbsp; If Not IsNumeric([InputNum].Value) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsEmpty([InputNum].Value) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ezwdx = "空白"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ezwdx = "引用单元格无法计算"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'MsgBox "引用单元格无法计算", , "错误"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp; InputNumZ = [InputNum].Value<br/>&nbsp;&nbsp;&nbsp; End If<br/>Else<br/>&nbsp;&nbsp;&nbsp; InputNumZ = InputNum '为值或表达式时<br/>End If<br/>'MsgBox InputNumZ, , "测试"<br/>If IsNumeric(InputNumZ) Then<br/>&nbsp;&nbsp;&nbsp; If Len(Trim(Str(Int(InputNumZ)))) &gt; 15 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ezwdx = "输入值超出范围,整数不大于15位,小数无论多少位均四舍五入取2位"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "输入值超出范围,整数不大于15位,小数无论多少位均四舍五入取2位", , "请检查"<br/>&nbsp;&nbsp;&nbsp; End If<br/>Else<br/>&nbsp;&nbsp;&nbsp; Ezwdx = "输入值超出范围,整数不大于15位,小数无论多少位均四舍五入取2位"<br/>&nbsp;&nbsp;&nbsp; MsgBox "引用单元格数值或输入表达式计算结果不为数值,请重新输入", , "请检查"<br/>End If<br/>'负值判断<br/>Sign = True<br/>If InputNumZ &lt; 0 Then<br/>Sign = False<br/>InputNumZ = -InputNumZ<br/>End If<br/>'如果为-0-<br/>If InputNumZ = 0 Then<br/>&nbsp;&nbsp;&nbsp; Ezwdx = "空白"<br/>&nbsp;&nbsp;&nbsp; Exit Function<br/>End If<br/>'初始化<br/>Dwn = Array("", "元", "拾", "佰", "仟", "万", "拾", "佰", "仟", "亿", "拾", "佰", "仟", "万", "拾", "佰")<br/>Zwsz = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")<br/>OutZ = ""<br/>'小数值处理<br/>IntNum = Int((InputNumZ - Int(InputNumZ)) * 1000)<br/>IntNum = Int(0.1 * IntNum) + IIf(10 * (0.1 * IntNum - Int(0.1 * IntNum)) &lt; 5, 0, 1)<br/>If (IntNum Mod 10) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp; OutZ = Zwsz(IntNum Mod 10) + "分" + OutZ<br/>End If<br/>If Int(0.1 * IntNum) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp; OutZ = Zwsz(Int(0.1 * IntNum)) + "角" + OutZ<br/>End If<br/>'整数处理<br/>IntNum = Int(InputNumZ)<br/>If IntNum &gt; 0 Then<br/>For i = 1 To Len(Trim(Str(IntNum))) Step 1<br/>&nbsp;&nbsp;&nbsp; EnSz = 10 * (0.1 * IntNum - Int(0.1 * IntNum)) ' Mod 10<br/>&nbsp;&nbsp;&nbsp; IntNum = Int(0.1 * IntNum) ' \ 10<br/>&nbsp;&nbsp;&nbsp; If EnSz = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dwbz = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Zstar = i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; While EnSz = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ((i - 1) Mod 4) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dwbz = Dwbz + i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EnSz = 10 * (0.1 * IntNum - Int(0.1 * IntNum)) ' Mod 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IntNum = Int(0.1 * IntNum) ' \ 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i = i + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Wend<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select Case Dwbz<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + "元" + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + IIf(i = 9, "元", "万元") + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 15<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + "亿元" + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 28<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + "万亿元" + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + IIf(i = 9, IIf(Zstar = 5, "", "零"), IIf(Zstar = 5, "万", "万零")) + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 9, 14<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + IIf(Zstar = Dwbz, "亿", "亿零") + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 13<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + IIf(Zstar = 13, "万", "万零") + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 27, 22<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + IIf(Zstar = 9, "万亿", "万亿零") + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + "零" + OutZ<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Select<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutZ = Zwsz(EnSz) + Dwn(i) + OutZ<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next i<br/>End If<br/>'负数处理<br/>OutZ = IIf(Sign = False, "负", "") + OutZ<br/>Ezwdx = OutZ<br/>End Function</p><p>Sub Gjtx(gjh As Integer)&nbsp; '箍筋[]<br/>Dim Srang As Range<br/>Dim x As Double<br/>Dim y As Double<br/>Set Srang = Application.ActiveCell<br/>Srang.Select<br/>x = Srang.Left + 5<br/>y = Srang.Top + 2<br/>Select Case gjh<br/>Case 1 '口<br/>&nbsp;&nbsp;&nbsp; x = x + 35<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + 65, y + 5) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 80, y '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15&nbsp; '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 80, y + 15 '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 80, y '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 70, y + 11 '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 2 '——<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y + 15)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 15<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 3 '[______]<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + 15, y) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 15 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 135, y '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 4 '|______|<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 15 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 5 '[__/￣]<br/>&nbsp;&nbsp;&nbsp; x = x + 35<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + 15, y + 15) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15 '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 25, y&nbsp; '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 50, y + 15 '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 75, y + 15 '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 75, y '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 60, y&nbsp; '8<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 6 '|￣\_/￣|<br/>&nbsp;&nbsp;&nbsp; x = x + 35<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y + 10) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 20, y '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 28, y + 15 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 48, y + 15 '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 56, y&nbsp; '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 76, y '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 76, y + 10 '8<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 7 '￣\__/￣<br/>&nbsp;&nbsp;&nbsp; x = x + 35<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y)&nbsp; '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 20, y '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 28, y + 15 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 48, y + 15 '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 56, y&nbsp; '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 76, y '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 8 '|______<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y)&nbsp; '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 15 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>Case 9 '[____=__]<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + 15, y) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 15 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 120, y + 15 '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 120, y + 12 '8<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 110, y + 12 '9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 12 '10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y '11<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With</p><p>Case 10 '____=___<br/>&nbsp;&nbsp;&nbsp; With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y + 15) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 110, y + 15 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 110, y + 12 '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 90, y + 12 '8<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 12 '9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>&nbsp;&nbsp;&nbsp; End With</p><p>Case 11 '[___=____=____]<br/>With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + 15, y) '1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y '2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x, y + 12 '3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 40, y + 12 '4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 40, y + 15 '5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 30, y + 15 '6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 120, y + 15 '7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 120, y + 12 '8<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 110, y + 12 '9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y + 12 '10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 150, y '11<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AddNodes msoSegmentLine, msoEditingAuto, x + 135, y '12<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConvertToShape.Select<br/>End With</p><p>Case 12</p><p>End Select<br/>Selection.ShapeRange.Line.Weight = 2.25<br/>&nbsp;&nbsp;&nbsp; Selection.ShapeRange.Line.Visible = msoTrue<br/>&nbsp;&nbsp;&nbsp; Selection.ShapeRange.Line.Style = msoLineSingle<br/>&nbsp;&nbsp;&nbsp; Selection.ShapeRange.Line.ForeColor.SchemeColor = 12<br/>&nbsp;&nbsp;&nbsp; Selection.ShapeRange.Line.Visible = msoTrue<br/>&nbsp;&nbsp;&nbsp; With Selection<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Placement = xlMove<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PrintObject = True<br/>&nbsp;&nbsp;&nbsp; End With</p><p>End Sub<br/>Sub GjtxWb(gjh As Integer)<br/>Cytx = Array("?????", "?????", "?????", "?????", "?????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "?????", "?????", "?????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "?????", "?????", "?????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "?????", "?????", "?????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "?????", "?????", "??????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "&nbsp; ???&nbsp; ", " ???? ", "??????", _<br/>&nbsp;_<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "?????", "?????", "", "", "")<br/>ActiveCell.Value = Cytx(gjh - 1)<br/>ActiveCell.Characters(Start:=1, Length:=7).Font.ColorIndex = 5<br/>End Sub<br/>Function FGjtxWb(ParamArray ZH()) '内部编号 As Integer,<br/>Dim JBTF<br/>'Dim i As Integer<br/>Dim OUTWB As String<br/>JBTF = Array("????", "????", "????", "????", "?????", _<br/>&nbsp;_<br/>&nbsp;"?????", "???", "?????", "????", "????", _<br/>&nbsp;"?????", "???", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "?", "?", "?", "?", _<br/>&nbsp;"?", "&nbsp; ")<br/>OUTWB = ""<br/>&nbsp; <br/>For Each i In ZH<br/>&nbsp;&nbsp;&nbsp; If i - 1 &gt; UBound(JBTF) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OUTWB = OUTWB + Str(i) + "超出编号范围"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OUTWB = OUTWB + JBTF(i - 1)<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next<br/>FGjtxWb = OUTWB<br/>End Function<br/>Function Kjjs(左加密区长 As Long, 左加密区间距 As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 右加密区长 As Long, 右加密区间距 As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 非加密区长 As Long, 非加密区间距 As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 加强筋个数 As Integer)<br/>Kjjs = Round(左加密区长 / 左加密区间距) _<br/>&nbsp;&nbsp;&nbsp; + Round(右加密区长 / 右加密区间距) _<br/>&nbsp;&nbsp;&nbsp; + Round(非加密区长 / 非加密区间距) _<br/>&nbsp;&nbsp;&nbsp; + 加强筋个数 + 1<br/>&nbsp;End Function<br/></p>

天喜

上面这个能计算钢筋,请问老师如何在表格中操作呢?