2.把这些值通过servlet 或者action等等传给后台的java代码中的sql语句
3. 用java代码连接数据库执行sql语句(带where条件的)进行数据库查询,返回结果集。在页面上显示。
首先从第二行开始遍历 I 列所有单元格
判断该行A列单元格的值,如果前三个字符是"lab"
然后我没看懂啥叫D列单元格的前三个字段?是指3个字符吗?比如chemical就给他变成che然后填入C列?
如果A列是Correct 或者 issue 该行C列单元格填home
然后我又没看懂啥叫第三步保持第一步的筛选条件?意思是只是提示一下第三步继续对红字I列所在行进行 *** 作嘛?还是说需要让sheet只显示I列红字的行?我想知道代码运行过后是否只显示I列红字的行,还是说只注重结果,有无筛选不重要。
由于使用了ActiveSheet,所以使用的时候要注意保持需要 *** 作的表单被激活。
I列红字,A列前三字符Lab,C列等于D列前三字符
I列红字,A列等于Correct,C列等于home
I列红字,A列等于Issue,C列等于home
I列红字,A列空,G列等于No or Only,C列等于home
With ThisWorkbook.ActiveSheet
For i = 2 To .UsedRange.Rows.Count
If .Cells(i, 9).Font.ColorIndex = 3 Then
If Left(CStr(.Cells(i, 1).Value), 3) = "Lab" Then
.Cells(i, 3).Value = Left(CStr(.Cells(i, 4).Value), 3)
ElseIf CStr(.Cells(i, 1).Value) = "Correct" Or CStr(.Cells(i, 1).Value) = "Issue" Then
.Cells(i, 3).Value = "home"
ElseIf CStr(.Cells(i, 1).Value) = "" And CStr(.Cells(i, 7).Value) = "No or Only" Then
.Cells(i, 3).Value = "home"
End If
End If
Next i
End With
如果只是选中的话,下面的代码就可以了,如果还有其他 *** 作的话,也可以一起加上Sub test()
Dim x As Long
Dim i As Range
For x = 1 To Range("I65536").End(xlUp).Row
If Cells(x, 1) = "这里换成筛选条件" Then '如果是不确定的条件,也可以用instr来写
If i Is Nothing Then
Set i = Cells(x, 1)
Else
Set i = Union(i, Cells(x, 1))
End If
End If
Next
i.EntireRow.Select
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)