求助帮忙看下这些代码有办法简化吗？

小年玩卡

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Target.Column <= 7 Then

   If Target.Row > 5 And Target.Row <= 52 Then
      For i = 6 To 52
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If


   If Target.Row > 53 And Target.Row <= 100 Then
      For i = 54 To 100
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 101 And Target.Row <= 148 Then
      For i = 102 To 148
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 149 And Target.Row <= 196 Then
      For i = 150 To 196
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 245 And Target.Row <= 293 Then
      For i = 246 To 292
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 293 And Target.Row <= 340 Then
      For i = 294 To 340
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 341 And Target.Row <= 388 Then
      For i = 342 To 388
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 389 And Target.Row <= 436 Then
      For i = 390 To 436
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 437 And Target.Row <= 484 Then
      For i = 438 To 484
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 485 And Target.Row <= 532 Then

      For i = 486 To 532
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If
If Target.Row > 533 And Target.Row <= 580 Then
      For i = 534 To 580
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
   End If

End Sub

能简化吗？现在循环下来计算也变慢了，如何优化？

Mapleaf12138

呃…………
各种参数都是写死的，不好改吧。
另外不知道需求，没附件，只看代码也确定不了

小年玩卡

Mapleaf12138 发表于 2018-10-18 21:15
呃…………
各种参数都是写死的，不好改吧。
另外不知道需求，没附件，只看代码也确定不了

那可能简化不了，要的就是这个固定单元格对固定单元格的效果

小年玩卡

求助大神们帮忙看看

yxbaju

'模块写个子过程
Sub js(a, b)
Application.EnableEvents = False   '调用这个子过程的时候暂时关闭工作表的change事件
Dim i
      For i = a To b
         Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
         Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
      Next
Application.EnableEvents = True
End Sub

'工作表事件过程参考以下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, r
If Target.Column > 7 Then Exit Sub
r = Target.Row
      Select Case r
      Case 6 To 51
            Call js(6, 52)
      Case 54 To 100
            Call js(54, 100)
      Case 102 To 148
            Call js(102, 148)
      Case 150 To 196
            Call js(150, 196)
      Case 246 To 293
            Call js(246, 292)
      Case 294 To 340
            Call js(294, 340)
            '''''继续完成剩下的
            '''''
      End Select
End Sub

excelvlookup

n=(target.row-6)/48
target.rwo=52 ,n=0 ,0*48+5=5
target.row=100, n=1 ,1*48+5=53
target.row=148, n=2 ,2*48+5=101

小年玩卡

excelvlookup 发表于 2018-10-18 23:26
n=(target.row-6)/48
target.rwo=52 ,n=0 ,0*48+5=5
target.row=100, n=1 ,1*48+5=53

这个没有看懂

小年玩卡

yxbaju 发表于 2018-10-18 23:12
'模块写个子过程
Sub js(a, b)
Application.EnableEvents = False   '调用这个子过程的时候暂时关闭工作 ...

谢谢，这个代码能否提高运行速度，感觉每次循环完，反应慢了一点点

excelvlookup

变慢的最根本原因是用了Worksheet_Change事件，如改用Worksheet_SelectionChange事件会快很多，具体原因自己去想。
代码简化如下：没附件未测试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 7 Then
    ar = Array(5, 53, 101, 149, 245, 293, 341, 389, 437, 485, 533)
    br = Array(52, 100, 148, 196, 293, 340, 388, 436, 484, 532, 580)
    a = Target.Row
    For i = 0 To UBound(ar)
        If a > ar(i) And a <= br(i) Then
            q = ar(i): z = br(i)
            Exit For
        End If
    Next
    For i = q + 1 To z
        Cells(i, 12) = Cells(i, 2) - Cells(i, 2) * Cells(i, 6) - Cells(i, 7)
        Cells(i, 11) = Cells(i, 2) - Cells(i, 12)
    Next
End If
End Sub

小年玩卡

excelvlookup 发表于 2018-10-19 17:46
变慢的最根本原因是用了Worksheet_Change事件，如改用Worksheet_SelectionChange事件会快很多，具体原因自 ...

好的，非常感谢