私はすべての私までも行くなど、仮定、規則、政策の上に座って、コスト見積書の構築を自動化する上で</p> <p>を働いている

Question

「RangeクラスのWidthプロパティを設定することができません」列幅の設定を自動化したいここでは、短い蒸留...

Dim NumCE As Integer 
Dim TotalWidth As Integer 

NumCE = 1 
Sheets("Cost Estimate").Range("A:A").ColumnWidth = 17 'THIS WORKS 

TotalWidth = 17 
Sheets("Cost Estimate").Range("B:B").Width = TotalWidth/NumCE 'THIS PROVOKES THE ERROR MESSAGE 
Sheets("Cost Estimate").Range("B:B").Width = TotalWidth 'THIS PROVOKES THE ERROR MESSAGE - AS DOES THIS! 

私はすべてのアイデア、全体O365バンドル下およびWindows 10 OS

内エクセル2016で働いていますか？

Answer 1

使用ColumnWidth：

Sub fjsh() 
    TotalWidth = 17 
    Sheets("Cost Estimate").Range("B:B").ColumnWidth = TotalWidth 
End Sub