Question

excel中的宏编写,请求高手帮助。

有这样一个问题，我需要在一个模具的表格中快速寻找相似模具。所以需要一个宏。
具体情总如下：
如果 C列数据大于等于某值－0.1或小于等于+0.1
I列数据大于等于某值－0.1或小于等于+0.1
H列数据大于等于某值－10或小于等于+10
则突出显示符合条件的行（用颜色突出显示或隐藏其它不符合条件的行）

Answer 1

Sub 隐藏不符合()
Dim rng As Range, n%, j%
Dim cc, ii, hh
n = Range("c65536").End(xlUp).Row
cc = Application.InputBox("请输入C列的条件：" & Chr(13) & "0.1或小于等于+0.1", Default:=0, Type:=0)
ii = Application.InputBox("请输入I列的条件：" & Chr(13) & "0.1或小于等于+0.1", Default:=0, Type:=0)
hh = Application.InputBox("请输入H列的条件：" & Chr(13) & "10或小于等于+10", Default:=0, Type:=0)
For j = 1 To n
If Cells(j, "c") < cc Or Cells(j, "i") < ii Or Cells(j, "H") < hh Then
If rng Is Nothing Then
Set rng = Cells(j, "C")
Else: Set rng = Application.Union(rng, Cells(j, "C"))
End If
End If
Next
rng.EntireRow.Hidden = True
End Sub

有细节问题，HI 我

Answer 2

现在,我把宏代码写上:

Sub Macro1()
Dim I, J, ROW, A
ActiveCell.SpecialCells(xlLastCell).Select
ROW = ActiveCell.ROW
A = 4 '注:用于表示第一个分类所在的列
For I = 2 To ROW '假设第一行为分类项目所在的行
For J = 0 To 3
If Cells(I, A + J) = "√" Then Cells(I, A + J) = Cells(1, A + J) '与上面的For I = 2 To ROW对应,即其中的1与该句的2-1
Next J
Next I
End Sub

Answer 3

这个好像不用宏，直接用条件格式即可完成。但由于你的阐述不详细，所以，暂无法帮你

Answer 4

HI我吧。没文件没法解决。