Excel2000 VBA シートのセル幅を調べて表示

Excel2000 VBA　シートのセル幅を調べて表示

参考にしたサイト　 http://www.moug.net/tech/exvba/0050082.htm

シートのセル幅を調べて２通りで1行目２行目に表示する

Sub sheet_cell_width()
'設定されているシートのAからIVのセル幅を表示
Dim count As Integer            'for ループ用カウンタ
Dim cell_width(256) As Double  'A-IVのcell幅を格納
Dim cell_columuwidth(256) As Double

'cell幅 A-IV を取得

ActiveSheet.Select

For count = 1 To 256                'ゼロからではなく１から２５６
    Cells(1, count).Select
    cell_width(count) = ActiveCell.Width
    cell_columuwidth(count) = ActiveCell.ColumnWidth
Next count

'1行目に幅サイズを表示
For count = 1 To 256
  ' Cells(1, count).Select
   Cells(1, count) = cell_columuwidth(count)    '列幅　ポイント単位記入できる文字数？
  Cells(2, count) = cell_width(count)          'ポイント
Next count

Range("A1").Select

End Sub

タグ：Excel2000 VBA セル幅