Question

我有一个电子表格，用户粘贴数字，因为这些数字的长度（以及我们不需要电子表格来执行任何计算）我们希望它们被格式化为文本，否则它们以科学格式出现，即1.12345E+13而不是12345678912345

无法调整/修改正在复制数字的数据源。

我使用Private Sub Workbook_SheetChange检测相关范围内的单元格是否已更改，然后我将范围格式化为文本

ThisWorkbook.Sheets("Sheet1").Columns("B").NumberFormat = "@"

不幸的是，在Excel 2007上，无论是在Excel中还是通过marco手动执行此操作，该数字仍显示为1.12345E+13，除非您单击该单元格并按Enter键。

我可以通过申请来解决这个问题：

With rng
    .Value = Evaluate("IF(ISTEXT(" & .Address & "),TRIM(" & .Address & "),REPT(" & .Address & ",1))")
End With

但是当我这样做时，我最终得到一个无限循环，因为Private Sub Workbook_SheetChange检测到单元格已被更改并再次绕过循环。

如果我能以某种方式计算出用户是否手动更改了单元格，那么这很容易修复。该宏位于ThisWorkbook。我尝试过使用Application.Activesheet代替ThisWorkbook.Sheets，但它没有任何区别。

如果替代方案有更简单/更好的方法来修复显示为1.12345E+13的数字，即使我已经重新格式化了单元格，我也很乐意了解它。< / p>

谢谢。

Answer 1

这是一个完整的示例，包括处理＆gt; 1单元格的目标范围：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim c As Range

    Application.EnableEvents = False

    On Error GoTo haveError
    For Each c In Application.Intersect(Target, Sh.UsedRange).Cells
        With c
            If IsNumeric(.Value) Then
                .NumberFormat = "@"
                .Value = CStr(.Value)
            End If
        End With
    Next c

haveError:
    'Make sure to re-enable events!
    Application.EnableEvents = True
End Sub

Answer 2

但是当我这样做时，我最终得到了一个无限循环，因为Private Sub Workbook_SheetChange检测到单元格已被更改并再次绕过循环。

那是因为您需要禁用自动触发的应用程序事件。

Private Sub Workbook_SheetChange(ByVal Sh As Worksheet, ByVal Target As Range)

    Application.EnableEvents = False  '// Stop events automatically firing

        With rng
            .Value = Evaluate("IF(ISTEXT(" & .Address & "),TRIM(" & .Address & "),REPT(" & .Address & ",1))")
        End With

    Application.EnableEvents = True   '// Re-enable events for next time

End Sub

因为您已禁用事件，所以当您更改单元格的值时，它无法再次触发自身。代码完成后，您可以重新启用事件，以确保在下次需要时触发事件。

对于它的价值，不要打败自己 - 当人们开始使用excel-vba中的事件程序时，这是一个非常常见的陷阱。

Answer 3

谢谢大家，Application.EnableEvents就行了。

检测用户或宏

3 个答案: