VBE窗口里插入模块
Public Function order(ByVal m As String) As String
Dim s As String, dd As Boolean, xx As Integer
dd = False
For i = 1 To Len(m)
s = Left(m, i)
If InStr(i, m, s) >= 1 Then
dd = True
xx = i
Else
Exit For
End If
Next
If dd Then
order = Mid(m, xx + 1, Len(m))
Else
order = m
End If
End Function
此回答太高大上了。可是我还是不懂啊。
请问ORDER函数是怎么用的?VBE窗口在哪里?如何插入模块?
用这个,刚才那个取数有问题!!
非常感谢!不过我的每一列都有几百行,这样点那个按钮的话,就只有前13行数据能出来正确的数值,后面的出不来。请问要如何修改这个程序?
还有呀,如果我的列不在第A、B列,要调用表格中其他列,比如说第AX,AY列的数据,要怎么调用呢?就是说,我怎么把这个宏放到已有的表格中任意调用数据?要不然我只有把AX、AY列的数据手动复制到你给的表里进行运算,算完了再贴回去。