vb在excel中查找并赋值,加分
发布网友
发布时间：2023-08-04 17:42
共2个回答
热心网友
时间：2024-10-20 06:33
dim excelApp as excel.application
dim BK as excel.workbook
dim Sht as excel.worksheet
dim rng
dim i as long
set excelapp=createobject("excel.application")
set bk=excel.open("C:\AAA\a.xls")
for i=1 to bk.worksheets.count
set sht=bk.worksheets(i)
for each rng in sht.usedrange
if rng.value=me.text1 then
sht.cells(rng.row,3)=1
end if
next
for
next
bk.save
bk.close
excelapp.quit
set rng=nothing
set sht=nothing
set wb=nothing
set excelapp=nothing
热心网友
时间：2024-10-20 06:33
VBA行吗???
VBA 代码
Sub MainFun()
Dim rng As Range, cel As Range
Set rng = Sheet2.Range("A1:Z1000")
Set cel = GetCel(rng, "text1")
If Not cel Is Nothing Then
cel.Offset(0, 2).Value = 1
End If
End Sub
Function GetCel(rng As Range, temp As String) As Range
On Error GoTo L_end
Set GetCel = rng.Find(temp, LookIn:=xlValues, lookat:=xlWhole)
Exit Function
L_end:
Set GetCel = Nothing
End Function
