none
Column Width數值的VBA程式碼改寫問題 RRS feed

  • 問題

  • Sub CL()
    '
    ' CL 巨集
    '

    '
        Selection.Copy
        Sheets("工作表3").Select
        ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
        Selection.ColumnWidth = 10
        Sheets("工作表1").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = ""
    End Sub

    重點
    Selection.ColumnWidth=10 
    改成

    Selection.Column Width=(i11)

    i.e. i11=於工作表1的變數

    應要怎樣做?
    2021年1月20日 上午 06:08

所有回覆