[已解决]谁是牛人，欢迎来看看，试试手？

1261181315a

上清宫主 发表于 2015-5-21 14:28
没搞明白具体需求，以下代码在word运行，是将所有表的同一个项目的第一个测量的最大值找出来。
Sub test() ...

谢谢您了，老师！学习中

1261181315a

上清宫主 发表于 2015-5-21 14:28
没搞明白具体需求，以下代码在word运行，是将所有表的同一个项目的第一个测量的最大值找出来。
Sub test() ...

老师，参照你的代码，我尝试了许久，还是没能成功得到结果。麻烦您看看能否通过代码由原数据得到我想要的目标数据。再次感谢了！！！

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim i&, j%, k%, zf$, d, d2, d3
   
4. Set wd = CreateObject("Word.Application")
   
5. Set d = CreateObject("scripting.dictionary")
   
6. Set d2 = CreateObject("scripting.dictionary")
   
7. Set d3 = CreateObject("scripting.dictionary")
   
8. With wd.Documents.Open(ThisWorkbook.Path & "\数据.doc")
   
9.     For k = 1 To .Tables.Count
   
10.         Cells(k + 2, 1) = k
    
11.         For i = 6 To .Tables(k).Rows.Count
    
12.             zf = Application.Clean(.Tables(k).Cell(i, 5).Range)
    
13.             For j = 7 To 11
    
14.                x = Val(Application.Clean(.Tables(k).Cell(i, j).Range))
    
15.                If zf = "E" Then d(x) = ""
    
16.                If zf = "Seq" Then d2(x) = ""
    
17.                If zf = "H" Then d3(x) = ""
    
18.             Next
    
19.         Next
    
20.         Cells(k + 2, 2) = Application.Max(d.keys)
    
21.         Cells(k + 2, 3) = Application.Min(d.keys)
    
22.         Cells(k + 2, 4) = Application.Max(d2.keys)
    
23.         Cells(k + 2, 5) = Application.Min(d2.keys)
    
24.         Cells(k + 2, 6) = Application.Max(d3.keys)
    
25.         Cells(k + 2, 7) = Application.Min(d3.keys)
    
26.         d.RemoveAll: d2.RemoveAll: d3.RemoveAll
    
27.     Next
    
28.     .Close False
    
29. End With
    
30. wd.Quit
    
31. End Sub

复制代码

1261181315a

dsmch 发表于 2015-5-22 18:20

你真是我心中的神啊！拜服五体投地，学习再学习

1261181315a

dsmch 发表于 2015-5-22 18:20

大神能把这些代注释下吗？各段代码的作用是啥呢？感觉这个高大上的，看不明白。但是我试着运行了，还真把需要的数据得到了。

1261181315a

dsmch 发表于 2015-5-22 18:20

神一般的人儿，这是个新问题，通过对你程序的学习，可以找出大小值。但是现在涉及到个新的棘手的问题，需要确定最小值后并确定最大值的地址，后输出相应的最值及相应其他值。具体要求上传文件里有，还请您解答！

1261181315a

1261181315a 发表于 2015-5-23 18:07
神一般的人儿，这是个新问题，通过对你程序的学习，可以找出大小值。但是现在涉及到个新的棘手的问题，需 ...

好的

1261181315a

1261181315a 发表于 2015-5-23 18:44
好的

您好，我已经又发了个帖子，还请您费神试试手吧。