根据条件点击指定单元格在指定单元格里显示数字的代码，非常感谢！

LSYYLW

2020-7-5.zip (5.18 KB, 下载次数: 6)

2020-7-5 18:41 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-7-2 15:55
请看附件。

老师您好：又来麻烦您了，您有时间的时候帮我看一下41楼附件里的问题，拜托您了！

清风竹-

LSYYLW 发表于 2020-7-5 18:41

请看附件。

LSYYLW

清风竹- 发表于 2020-7-5 19:47
请看附件。

万万分的感谢老师，代码非常好用。

LSYYLW

2020-7-20.zip (7.7 KB, 下载次数: 8)

2020-7-20 18:32 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-7-5 19:47
请看附件。

老师您好：又来麻烦您了，您有时间的时候帮我看一下45楼附件里的问题，拜托您了！

一把小刀闯天下

'参与一下

'45楼附件，I列数据写完过程才结束，，，

Option Explicit

Dim flag(1) As Boolean

Private Sub CommandButton1_Click()
  Dim i, j, arr
  If flag(0) Then flag(1) = Not flag(1): Exit Sub Else flag(0) = True
  With Sheets("sheet1")
    arr = .Range("i1:n" & .[i1].End(xlDown).Row)
    For i = 1 To UBound(arr, 1)
      If i = 1 Then .[b21].Resize(20 + UBound(arr, 1) + 1, UBound(arr, 2)).ClearContents
      For j = 1 To UBound(arr, 2)
        .Cells(20 + i, j + 1) = arr(i, j)
      Next
      Call delay(1) '延时1s,自己修改
      Do
        DoEvents
      Loop Until flag(1) = False
    Next
  End With
  flag(0) = False: flag(1) = False
End Sub

Function delay(tm)
  Dim t
  t = Timer
  Do
    DoEvents
  Loop Until Timer - t >= tm
End Function

LSYYLW

一把小刀闯天下 发表于 2020-7-21 12:40
'参与一下

'45楼附件，I列数据写完过程才结束，，，

万分的感谢老师，代码非常好用。

LSYYLW

2020-7-26-.zip (6.98 KB, 下载次数: 6)

2020-7-26 13:20 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-7-5 19:47
请看附件。

老师您好：又来麻烦您了，麻烦您有时间的时候帮我看一下49楼附件里的问题，拜托您了！