时间戳

首页 > 解决方案 > 试图将两个 VBA 脚本合二为一

vba - 试图将两个 VBA 脚本合二为一

问题描述

我对 VBA 脚本很陌生。我一直在谷歌搜索试图弄清楚如何将这些组合在一起并分配一个按钮来运行它。

我的第一个脚本是向表中添加序列号和行。该表是两列 B:C。我的编号是查看我插入的行下方的行，以保持数字按顺序排列。（我在 Youtube 上发现这个效果很好）

Private Sub CommandButton2_Click()



Sheets("Sheet1").Range("B4").Select
    ActiveCell.EntireRow.Insert Shift:=xlDown

    Sheets("Sheet1").Range("B4:C4").Select
    Selection.Borders.Weight = xlThin

    Sheets("Sheet1").Range("B4").Select
    ActiveCell.Value = "=B5+1"

End Sub

第二个是将时间戳应用于 C4，它为序列号提供时间戳。

Private Sub timeStamp()
    Dim ts As Date

    With Range("C4")
        .Value = Now
        .NumberFormat = "h:mm:ss AM/PM"
      End With
End Sub

我无法弄清楚如何让这两者一起运行。他们单独工作。

预先感谢您的任何帮助。

标签： vba

解决方案

您如何将第二个的代码粘贴到第一个中（以及其他一些调整）：

Private Sub CommandButton2_Click()
Dim ts As Date

With ThisWorkbook.Sheets("Sheet1")
    .Range("B4").EntireRow.Insert Shift:=xlDown
    .Range("B4:C4").Borders.Weight = xlThin
    .Range("B4").Value= "=B5+1"

    With .Range("C4")
        .Value = Now
        .NumberFormat = "h:mm:ss AM/PM"
    End With

End With

End Sub

推荐阅读