小编RGA*_*RGA的帖子

如果我运行以下代码

Sub Test_1()
   Cells(1, 1).ClearContents
   Cells(2, 1).Value = ""
End Sub

当我使用公式检查单元格(1,1)和单元格(2,1)时,ISBLANK()两个结果都返回TRUE.所以我想知道:

Cells( , ).Value = ""和之间有什么区别Cells( , ).ClearContents？

它们基本相同吗？

如果我然后运行以下代码来测试方法之间的时差:

Sub Test_2()
Dim i As Long, j As Long
Application.ScreenUpdating = False

For j = 1 To 10
    T0 = Timer
    Call Number_Generator
    For i = 1 To 100000
        If Cells(i, 1).Value / 3 = 1 Then
            Cells(i, 2).ClearContents
           'Cells(i, 2).Value = ""
        End If
    Next i
    Cells(j, 5) = Round(Timer - …

在我的研究中，我发现没有内置功能可以在 Excel 工作表上的形状上启用双击事件。我看到的许多解决方法都涉及编写类或其他类似的东西来添加此功能，所有这些似乎都超出了我的 VBA 知识库。因此，我编写了上面的代码（目前只是作为一个测试）来尝试为形状编写我自己的双击功能。

Public Clicked As Boolean, LastClickObj As String, LastClickTime As Date


Sub GenerateShapes()
    Dim sheet1 As Worksheet, shape As shape
    Set sheet1 = ThisWorkbook.Worksheets("Sheet1")
    Set shape = sheet1.Shapes.AddShape(msoShapeDiamond, 50, 50, 5, 5)
        shape.OnAction = "ShapeDoubleClick"
    Set shape = sheet1.Shapes.AddShape(msoShapeRectangle, 50, 60, 5, 5)
        shape.OnAction = "ShapeDoubleClick"
    LastClickTime = Now
End Sub


Sub ShapeDoubleClick()

    If Second(Now) - Second(LastClickTime) > 0.5 Then
        Clicked = False
        LastClickObj = ""
        LastClickTime = Now
    Else

        If Not Clicked Then
            Clicked = …

这更多的是一个概念问题，而不是代码问题。当使用 VBA 为形状着色时，我一直使用该ForeColor属性作为习惯，但现在我很好奇它是如何BackColor发挥作用的。该文档确实没有提供太多关于区别的具体信息。我能看到的唯一相关信息是：

如果在Form对象或PictureBox控件上设置BackColor属性，则所有文本和图形（包括持久图形）都将被删除。设置ForeColor属性不会影响已绘制的图形或打印输出。