Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27233 / 76732 ←次へ | 前へ→

【54822】Re:結合セルの行の高さ
発言  n  - 08/3/31(月) 18:05 -

引用なし
パスワード
   >現状どおり手作業で粘って
...と比較するなら、
"dummy" という名前のシートを用意。
結合セルをActiveにし、下記実行。
ショートカットキーに登録したりすると、ちょっとはラクかも。

Sub try()
  Dim r As Range
  Dim x As Single
  Dim i As Long
  
  Set r = ActiveCell.MergeArea
  For i = 1 To r.Columns.Count
    x = x + r.Columns(i).ColumnWidth
  Next
  With Sheets("dummy").Range("A1")
    With .Font
      .Name = r.Item(1).Font.Name
      .Bold = r.Item(1).Font.Bold
      .Size = r.Item(1).Font.Size
    End With
    .WrapText = True
    .Value = r.Item(1).Value
    .ColumnWidth = x
    .EntireRow.AutoFit
    r.RowHeight = .RowHeight / r.Rows.Count
  End With
  
  Set r = Nothing
End Sub
(フォントによってはうまくいかないケースもあるかも...)
0 hits

【54816】結合セルの行の高さ りった 08/3/31(月) 14:11 質問
【54819】Re:結合セルの行の高さ n 08/3/31(月) 15:35 発言
【54820】Re:結合セルの行の高さ VBWASURETA 08/3/31(月) 16:11 発言
【54821】Re:結合セルの行の高さ りった 08/3/31(月) 17:24 お礼
【54822】Re:結合セルの行の高さ n 08/3/31(月) 18:05 発言
【54824】Re:結合セルの行の高さ りった 08/3/31(月) 18:30 お礼

27233 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free