Excel 要在列级别设置的日期格式

是否可以在运行时设置列级别的日期格式，例如列

#9

我需要将日期格式设置为

[h]：mm:ss

？在将数组转换到该列之前，我将设置格式

编辑

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("D1").Select
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub

谢谢

ob.Range.Column（9）.format=[h]：mm:ss

以上内容必须写成

oXLWs.Columns(9).NumberFormat = "[h]:mm:ss"

其中，

oXLWs

为相关表格。比如说,

Dim oXLApp, oXLWb, oXLWs

Set oXLApp = CreateObject("Excel.Application")

oXLApp.Visible = True

Set oXLWb = oXLApp.Workbooks.Add
Set oXLWs = oXLWb.Sheets("Sheet1")

oXLWs.Columns(9).NumberFormat = "[h]:mm:ss"

跟进

这是你想要的吗

Dim oXLApp, oXLWb, oXLWs

Set oXLApp = CreateObject("Excel.Application")

oXLApp.Visible = True

Set oXLWb = oXLApp.Workbooks.Add
Set oXLWs = oXLWb.Sheets("Sheet1")

With oXLWs.Columns(9)
    .NumberFormat = "[h]:mm:ss"
    .Interior.ColorIndex = 6 '<~~ Yellow
    .Font.Bold = True '<~~ Bold
    .Font.ColorIndex = 3 '<~~ Red
End With

Dim-oXLApp、oXLWb、oXLWs
设置oXLApp=CreateObject（“Excel.Application”）
oXLApp.Visible=True
设置oXLWb=oXLApp.Workbooks.Add
设置oXLWs=oXLWb.板材（“板材1”）
带oXLWs.列（9）
.NumberFormat=“[h]：mm:ss”
.Interior.ColorIndex=6'
vbscript
或
excel vba
？你也试过什么？@SiddharthRout我要！你试过什么？@SiddharthRout
ob.Range.Column（9）.format=[h]：mm:ss
。但是它在那里不起作用。@SiddharthRout对VBScript转换来说太混乱了，我在哪里可以得到这样的颜色常量值？有任何文档吗？如何为同一列中的单元格设置字体和颜色，例如我希望黄色作为
标签
，红色作为
字体颜色
，并使用
粗体
？录制一个宏，看看您得到了什么；）它会给我VBA，而不是vbscript！是的，但它们非常相似，您可以简单地将其改编为
vbscript
。。。试一试，如果你被卡住了，那么把你试过的代码贴出来，我们将从那里开始：）这就是我一直在寻找的，真的很感激。你的声誉有你证明的真正的分量！：-）