如何在线创建 Excel 计数器 (Excel 365)
How to create a counter in Excel online (Excel 365)
我知道使用 Active X 和按钮来创建一个计数器,当单击它时,在正常 Excel 中很容易增加 1,但 excel 365(在线)不允许使用按钮。知道如何在 Excel 在线创建计数器吗?
所以我找到了这段代码,但我不知道Javascript。有足够了解的人可以提供帮助吗?
Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRgS = Range("E2")
If xRgS Is Nothing Then Exit Sub
Set xRgD = Range("H2")
If xRgD Is Nothing Then Exit Sub
If Intersect(xRgS, Target) Is Nothing Then Exit Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub
它只会跟踪您每次在单元格内单击的时间。
网上O365有两种可能的方式:
- 创建一个 Web 插件,您可以在其中开发带有计数器的自定义 UI(它可以是任务窗格),请参阅 Build an Excel task pane add-in。
- 使用 Office 脚本,有关详细信息,请参阅 https://docs.microsoft.com/en-us/office/dev/scripts/resources/vba-differences。
我认为 Web 插件是自定义 UI(任务窗格)的正确选择。
我知道使用 Active X 和按钮来创建一个计数器,当单击它时,在正常 Excel 中很容易增加 1,但 excel 365(在线)不允许使用按钮。知道如何在 Excel 在线创建计数器吗?
所以我找到了这段代码,但我不知道Javascript。有足够了解的人可以提供帮助吗?
Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRgS = Range("E2")
If xRgS Is Nothing Then Exit Sub
Set xRgD = Range("H2")
If xRgD Is Nothing Then Exit Sub
If Intersect(xRgS, Target) Is Nothing Then Exit Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub
它只会跟踪您每次在单元格内单击的时间。
网上O365有两种可能的方式:
- 创建一个 Web 插件,您可以在其中开发带有计数器的自定义 UI(它可以是任务窗格),请参阅 Build an Excel task pane add-in。
- 使用 Office 脚本,有关详细信息,请参阅 https://docs.microsoft.com/en-us/office/dev/scripts/resources/vba-differences。
我认为 Web 插件是自定义 UI(任务窗格)的正确选择。