如何在word找到表中最小的3个数，且标红色 用vba程序

gtavcs

5

2

4

8

3

7

dajiahaoxinku12

是在word中吗？           excel中可以使用条件格式   

heike2004

为什么用word处理数字、数值？

gtavcs

dajiahaoxinku12 发表于 2016-6-18 21:46
是在word中吗？           excel中可以使用条件格式

必须在word中处理

dafanshu1

在原列旁边插入一辅助列，输入1,2,3……，然后对原列排序，找出最小三个数并标红，再对辅助列排序。

gtavcs

dafanshu1 发表于 2016-6-18 23:12
在原列旁边插入一辅助列，输入1,2,3……，然后对原列排序，找出最小三个数并标红，再对辅助列排序。

谢谢，我不想对原表格改动

duquancai

gtavcs 发表于 2016-6-18 22:13
必须在word中处理

Sub test1()
    With ActiveDocument.Tables(1)
        .Sort , "列1"
        .Cell(1, 1).Range.Font.ColorIndex = 6
        .Cell(2, 1).Range.Font.ColorIndex = 6
        .Cell(3, 1).Range.Font.ColorIndex = 6
    End With
End Sub
+++++++++++++++++++++++++++++++++++++++++++
Sub test2()
    Dim i%, j%
    With Selection.Tables(1) '先选中要操作的一个表格
        .Columns.Add
        For i = 1 To .Rows.Count
            .Cell(i, 2).Range = i
        Next
        .Sort , "列1"
        For j = 1 To 3
            .Cell(j, 1).Range.Font.ColorIndex = 6
        Next
        .Sort , "列2"
        .Columns(2).Delete
    End With
End Sub