[已解决]帮忙改动下代码，以改变没复制一行时都自动插入对应的数值

zames

帮忙改动下代码，以改变每复制一行时都自动插入对应的数值，具体看截图。

--------------代码如下----------------------------
Sub demo()
   [a2:a10000].ClearContents
   b = Range("b2:c" & [b2].End(4).Row)
   r = 1
   For i = 1 To UBound(b)
      For j = 1 To b(i, 2)
         r = r + 1
         Cells(r, 1) = b(i, 1)
      Next
   Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
-----------------------------------------------

谢谢！

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-3-5 19:59

zames 发表于 2023-3-6 11:39
帮忙再添加个按钮控件，点击按钮控件可以把表格 G2:M2 的数值复制到 G3:M27 ，这个控件是单独的。

谢 ...

跳转到最佳答案楼层

cutecpu

zames 发表于 2023-3-6 11:39
帮忙再添加个按钮控件，点击按钮控件可以把表格 G2:M2 的数值复制到 G3:M27 ，这个控件是单独的。

谢 ...

cutecpu

祝順心，南無阿彌陀佛！

zames

cutecpu 发表于 2023-3-6 11:17
祝順心，南無阿彌陀佛！

帮忙再添加个按钮控件，点击按钮控件可以把表格 G2:M2 的数值复制到 G3:M27 ，这个控件是单独的。

谢谢！

zames

cutecpu 发表于 2023-3-5 19:59

老师您好！
当打印数量为 0 时，点击控件按钮 COPY 1 时出现错误。



错误提示如下红色位置
------------------------------
Sub demo()
   [a2:a10000].ClearContents
   b = Range("b2:c" & [b2].End(4).Row)
   r = 1
   For i = 1 To UBound(b)
      For j = 1 To b(i, 2)
         r = r + 1
         Cells(r, 1) = b(i, 1)
      Next
   Next
   For i = [a1].End(4).Row + 1 To 3 Step -1
      If Cells(i, 1) <> Cells(i - 1, 1) Then
         With Cells(i, 1).Resize([c28])
           .Insert xlShiftDown
         End With
         With Cells(i, 1).Resize([c28])
           .Value = [b28]
         End With
      End If
   Next
End Sub

------------------------------------------

帮忙再看看，谢谢！

cutecpu

zames 发表于 2023-3-6 14:24
老师您好！
当打印数量为 0 时，点击控件按钮 COPY 1 时出现错误。

zames

cutecpu 发表于 2023-3-6 15:56

十分感谢！

如何在 VBA 中插入时间限制的代码，比如设置在一年后或某个指定的时间点击 COPY 控件无反应，就是不能使用，在这个时间之前都正常使用。

再次感谢老师的及时回复

zames

zames 发表于 2023-3-6 16:03
十分感谢！

如何在 VBA 中插入时间限制的代码，比如设置在一年后或某个指定的时间点击 COPY 控件无反 ...

好的，谢谢老师

zames

cutecpu 发表于 2023-3-6 15:56

老师您好！
1、工作表加密了出现错误。(表格中只带公式的 B2:B27 单元格和 G2:G24 单元格设置了保护，然后加密了就不行了），不那样保护怕公式被误删
2、已经加了限制时间的代码，您可以看看。





谢谢！