运行时错误1004，方法range作用于对象global时失败

excellearnning

想实现以下功能：
1、选中一个区域（在没有选中时区域的行列数不确定，可能是3行5列，也有可能时10行3列）
2、选中后，vba程序能自动把选中区域中每一行的最大值高亮显示
写了代码，
提示"运行时错误1004，方法range作用于对象global时失败”
不知道什么原因，是不是Range("" & l1 & "&" & q & ":" & l2 & "&" & q & "")有问题？这里用四个变量表示不定区域，不知道行不行
祈求高人指点迷津，谢谢！！！

abc123281

代码仅供参考

1. Sub 每一行最大值高亮()
   
2. Cells.Interior.ColorIndex = xlNone
   
3. arr = Selection
   
4. r = UBound(arr)
   
5. Cells(r + 1, "g").EntireRow.Range("b1:g1").Interior.ColorIndex = 6
   
6. End Sub
   

复制代码

半百

Sub 每一行最大值高亮()
Dim i, q, max, l1, l2, h1, h2
'Range("" & l1 & "&" & q & ":" & l2 & "&" & q & "").Select, 首先字符串组合是错误的，假设l1、l2是字母，q是数字，应该这样Range(l1 & q & ":" & l2 & q).Select，然后，里边的各个变量都还没有赋值，Range引用就是一个不存在的单元格或区域，再对它进行操作（SELECT)，肯定出错。
h1 = 2: h2 = 8  '要使用变量，须先给它赋值
l1 = 2: l2 = 7
For q = h1 To h2
   For i = l1 To l2
'        max = Application.max(Range("" & l1 & "&" & q & ":" & l2 & "&" & q & ""))  '如果行、列都用数字表示的话，就不能用RANGE直接引用了，
         max = Application.max(Range(Cells(q, l1), Cells(q, l2))) 'CELLS(q, l1)表示单个单元格，Range(Cells(q, l1), Cells(q, l2)))就是表示2个单元格之间的一个区域。
      
        If Cells(q, i).Value >= max Then
        Cells(q, i).Select
           With Selection.Interior
'             .Pattern = xlSolid
'             .PatternColorIndex = xlAutomatic
             .Color = 15773696
'             .TintAndShade = 0
'             .PatternTintAndShade = 0
             End With
        End If
    Next i
Next q
End Sub

excellearnning

半百 发表于 2018-5-14 15:54
Sub 每一行最大值高亮()
Dim i, q, max, l1, l2, h1, h2
'Range("" & l1 & "&" & q & ":" & l2 & "&" & q ...

恳请帮优化代码，对range的应用还是不熟

excellearnning

abc123281 发表于 2018-5-14 12:13
代码仅供参考

运行时，提示“运行时错误13，类型不匹配”，请问是什么原因？谢谢

abc123281

你应该先选中一块区域   再运行代码

liuxi001

尝试了一下

1. Sub 每一行最大值高亮()
   
2.     Dim irow%, icol%, imax%, startrow%, startcol%, maxrow%, maxcol%
   
3.     Cells.Interior.ColorIndex = xlNone
   
4.     arr = Selection
   
5.     If IsEmpty(arr) Or Selection.Count < 2 Then GoTo errh
   
6.     startrow = Selection.Row
   
7.     startcol = Selection.Column
   
8.     For irow = 1 To UBound(arr, 1)
   
9.         For icol = 1 To UBound(arr, 2)
   
10.             If arr(irow, icol) > imax Then
    
11.                 imax = arr(irow, icol)
    
12.                 maxrow = irow + startrow - 1
    
13.                 maxcol = icol + startcol - 1
    
14.             End If
    
15.         Next
    
16.         If maxrow <> 0 And maxcol <> 0 Then
    
17.             Cells(maxrow, maxcol).Interior.ColorIndex = 6
    
18.         End If
    
19.         imax = 0
    
20.     Next
    
21.     Exit Sub
    
22. errh:
    
23.     MsgBox "请选择一个有数据的区域"
    
24. End Sub
    
25. Sub 取消高亮()
    
26. Cells.Interior.ColorIndex = xlNone
    
27. End Sub
    

复制代码