恳请大神们帮忙看下这个计算的难题

qiongmei6

我希望求得一个代码，当他执行的时候，在g列如果单元格是194，他会自动清除同行的e列，如果h列单元格是事假，则d+f的结果出现在f列，e+g的结果出现在g列，为了方便大神理解我的意思，我将最终结果显示在K：R列，但是这个结果实际是出现在A：G列的，再次谢谢各位大神的帮忙。

mmwwdd

2014年注册的，9年了，这个问题还解决不了？

mmwwdd

全党

Sub shishi()
rn = Cells(Rows.Count, 2).End(xlUp).Row
arr = Range("a1:h" & rn)
For i = 3 To UBound(arr)
If arr(i, 7) = 194 Then
arr(i, 5) = ""
End If
If arr(i, 8) = "事假" Then
arr(i, 6) = arr(i, 6) + arr(i, 4)
arr(i, 4) = ""
End If
Next
Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

全党

shishi...........................点一下按钮29

zyhui1961

全党 发表于 2023-4-5 07:06
shishi...........................点一下按钮29

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=F
alse, Transpose:=False '粘贴数值
    Range("Z5").Select
可是我加一个工作表事件，为什么就运行不了？
Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件
    Set Myrng = Range("A1")   
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select'老是从这个地方开始卡住了
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '粘贴数值
    Range("Z5").Select
End Sub