|
<p>多谢楼主指出,有问题请继续提出来,以便方面大家和学习和下次重新印时更正.</p><p>更正后的代码为:</p><p>Function FLA(XX)<br/>Dim I As Integer<br/> FLA = XX<br/> For I = 0 To <font color="#c01d1d">9<br/></font> FLA = Replace(FLA, I, "")<br/> Next I<br/>End Function<br/>Function FLB(MR As Range)<br/>Dim I As Integer<br/>CC = ""<br/> For I = 1 To Len(MR)<br/> If Val(Mid(MR, I, 1)) > 0 Or <font color="#be310e">Mid(MR, I, 1) = 0</font> Then<br/> CC = CC & Mid(MR, I, 1)<br/> End If<br/> Next I<br/> FLB = CC<br/>End Function<br/></p><p><font color="#2222aa">这本书估计很快就会重印了,重印前作者都要查一遍,大家看仔细点,多帮我找些错出来</font></p>[em07] |
|