1

実行時に列レベルで日付形式を設定することは可能ですか?たとえば#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

ありがとう

4

1 に答える 1

2

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

通常の色については、この古い写真を参照します（dmcritchieのサイトから取得）

ここに画像の説明を入力してください

于 2012-12-27T18:38:31.027 に答える