Question

您好我正在使用Oracle表单中的DDE.Execute命令将数据填充到excel工作表中。代码很好但是当我使用DDE.Execute命令执行下面的宏 FORMAT_SECTION_TITLE_2 时，它会对行进行着色，但也会将日期更改为数字，而是将单元格的值显示为正确的日期，它显示为 39234

Sub FORMAT_SECTION_TITLE_2()

    With Selection.Interior
        .ColorIndex = 7
        .Pattern = xlSolid
    End With
    Selection.Font.Bold = False
End Sub

我也试图改变很多东西，但没有帮助。请建议。

由于

更新1： Siddharth我在你提到的excel表中添加了一个新的子表单，我的表单名称与你提到的Sheet1相同

Sub formatColumn()
Sheets("Sheet1").Columns(1).NumberFormat = "dd-mmm-yy"
End Sub

Answer 1

Shax，经过两个半小时的聊天后发现，它似乎是一个XY问题：）

就像我上面提到的，上面的代码不负责格式化更改。格式化由另一段代码改变

Sub two_decimals()
    Selection.NumberFormat = "#,##0.00"
End Sub

实际的错误在于 oracle代码，它在two_decimals之后调用FORMAT_SECTION_TITLE_2我对oracle不太好但是在调试它时我们发现了这个问题。

顺便说一句：谢谢你，我今天在甲骨文中学到了很多东西！

如何修复单元格格式为excel单元格在执行宏后丢失格式

1 个答案: