Microsoft 365 與 Office | Excel | 家用版 | Windows
一系列 Microsoft 試算表軟體，具有可用來對資料進行分析、製圖及通訊的工具。
Selection.Column Width=Sheets("名稱").Range("i11").Value
Column Width數值的VBA程式碼改寫問題
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
匿名
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)
應要怎樣做？
Microsoft 365 與 Office | Excel | 家用版 | Windows
鎖定的問題。 此問題已從 Microsoft 支援服務社群移轉。 您可以對其是否有幫助進行投票，但無法對問題新增註解或回覆，或進行追蹤。
由問題作者接受的回答
匿名
-
匿名
2021-01-10T09:43:06+00:00 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)
應要怎樣做？
您好
您這個屬於開發問題請移步開發論壇
-
匿名
2021-01-10T12:27:55+00:00 i11 是 Cell 名還是變數名？是工作表上某一格，用 Range("I11").Value
-
匿名
2021-01-20T06:01:01+00:00 ill是於另一張Worksheet 的變數。
謝謝。
-
匿名
2021-01-20T16:48:38+00:00 是的，問題已解決，謝謝。