Excel2000 VBA セルに入力されている値でセル幅を設定する、初期値にもどす

Excel2000 VBA　セルに入力されている値でセル幅を設定する、初期値にもどす

アクティブなセルの値でセル幅を設定する、初期値にもどす

Sub setting_width()
'
'アクティブセルに記入されている値でセル幅ColumnWidth（標準フォントサイズで記入できる文字数？）を設定する
'
'
Dim cell_width As Double        'アクティブセルに入力されている値
Dim col_1 As Integer     'アクティブセルの位置（列）
Dim syori As Integer


cell_width = ActiveCell.Value
'row_1 = ActiveCell.ROW
col_1 = ActiveCell.Column

syori = MsgBox("ColumnWidthなら「はい」を初期値にするなら「いいえ」を押してください", vbYesNoCancel)
 Select Case syori
    Case vbYes
        GoTo C_W
    Case vbNo
        GoTo syoki
    Case vbCancel
        Exit Sub
 End Select

C_W:

If cell_width < 1 Or cell_width > 255 Then GoTo msg
Cells(1, col_1).ColumnWidth = cell_width
Exit Sub

syoki:
If cell_width < 1 Or cell_width > 255 Then GoTo msg
Selection.ColumnWidth = 8.43

Exit Sub

msg:
MsgBox "数値が不適切です"

End Sub

---

追記　

Sub setting_width_2()
'
'アクティブセルに記入されている値（単位はmm）でセル幅ColumnWidth（文字数？）を設定する
'1ポイントを0.35mmと設定
'１文字を3.5mmと設定

Dim cell_width As Double        'アクティブセルに入力されている値
Dim col_1 As Integer     'アクティブセルの位置（列）
Dim syori As Integer
Dim x As Double
Dim cell_value As Double

'例　セルに100と記入されている時は、セル幅を100mm（印刷時)とする

x = 1.785                            'xの値は印刷して100mmになるように調整する
cell_width = ActiveCell.Value / x
cell_value = ActiveCell.Value
col_1 = ActiveCell.Column　       '列番号

syori = MsgBox("幅を" & cell_value & "mmにするなら「はい」を初期値にするなら「いいえ」を押してください", vbYesNoCancel)
'syori = MsgBox("ColumnWidthなら「はい」を初期値にするなら「いいえ」を押してください", vbYesNoCancel)
 Select Case syori
    Case vbYes
        GoTo C_W
    Case vbNo
        GoTo syoki
    Case vbCancel
        Exit Sub
 End Select

C_W:

If cell_width < 1 Or cell_width > 255 Then GoTo msg
Cells(1, col_1).ColumnWidth = cell_width
Exit Sub

syoki:
If cell_width < 1 Or cell_width > 255 Then GoTo msg
Selection.ColumnWidth = 8.43

Exit Sub

msg:
MsgBox "数値が不適切です"

End Sub

 

タグ：セル幅 Excel2000 VBA