[已解决]数据比较大小

wine0431

爱疯 发表于 2015-8-19 10:55
1楼附件里，比如F1是“﹤0.1”，像这“已有小于号”的，如何处理？

那个是已经处理的数据，可以忽略，我在你原来的vba中改了下代码，
Sub test()    Dim A, r, i, j
    A = [B2:Z30]: r = UBound(A)

    For j = 1 To UBound(A, 2)
        For i = 1 To r - 4
            If VBA.IsNumeric(A(i, j)) Then
                If A(i, j) < A(r, j) Then
                    A(i, j) = A(r, j) - A(i, j)
                    A(i, j) = "<" & Format(A(r, j), "0.000")
                End If
            End If
        Next i
    Next j

    [b2].Resize(r, j - 1) = A
End Sub
好像就可以了，不过还想问下，能不能不要控件的那个按钮进行，直接运行宏程序就自动生成要的格式

爱疯

wine0431 发表于 2015-8-19 10:58
那个是已经处理的数据，可以忽略，我在你原来的vba中改了下代码，
Sub test()    Dim A, r, i, j
    A ...

“我在你原来的vba中改了下代码”，没发现改哪儿了?

wine0431

爱疯 发表于 2015-8-19 11:02
“我在你原来的vba中改了下代码”，没发现改哪儿了?

标记标错了，
Sub test()    Dim A, r, i, j
    A = [B2:Z30]: r = UBound(A)

    For j = 1 To UBound(A, 2)
        For i = 1 To r - 4
            If VBA.IsNumeric(A(i, j)) Then
                If A(i, j) < A(r, j) Then
                    A(i, j) = A(r, j) - A(i, j)
                    A(i, j) = "<" & Format(A(r, j), "0.000")
                End If
            End If
        Next i
    Next j

    [b2].Resize(r, j - 1) = A
End Sub
红色的部分

爱疯

data3.rar (12.44 KB, 下载次数: 7)

2015-8-19 11:07 上传

点击文件名下载附件


改了2处：
1）原来写的代码，删了1点
2）如图，这样每当工作簿打开时，程序就会执行1次。

wine0431

爱疯 发表于 2015-8-19 11:08
改了2处：
1）原来写的代码，删了1点
2）如图，这样每当工作簿打开时，程序就会执行1次。

能否直接打开宏，运行宏，就生成了我想要的，不用每次打开自动运行

爱疯

“直接打开宏”

不明白是什么意思

wine0431

爱疯 发表于 2015-8-19 11:23
“直接打开宏”

不明白是什么意思

就是我打开excel，按ALT+F8，然后运行宏，就好了，你开始给我的文件中有个控件，请问下那个是怎么加上去的

爱疯

你说的控件，是这个按钮吗？

wine0431

爱疯 发表于 2015-8-19 11:34
你说的控件，是这个按钮吗？

恩，是的，还有你这个录屏是用什么软件啊？

爱疯

http://www.excelpx.com/thread-152349-1-1.html
帮助里，工具篇有提供