VBテキストがセルに収まるかどうかを確認するコード

Question

Excel上にツールを構築していますが、テキストがセルに収まるかどうかを確認する必要があります。セルは固定されています。私はオートフィットまたはオプションを使用できません。 事前に感謝のVBコードを教えてください

Answer 1

他の場所で回答しましたが、これは動作する基本的なコードです。自動サイズ調整。

Sub merger() 
Set c = ActiveSheet.Range("A:A").Find(what:="Executive Weekly Summary") 
If Not c Is Nothing Then 
startrow = c.Row + 1 
endrow = ActiveSheet.Range("A" & startrow).End(xlDown).Row - 1 
End If 
    '"A" & startrow & ":I" & endrow 
OldWidth = ActiveSheet.Range("A" & startrow & ":A" & endrow).ColumnWidth ' Save original width 

ActiveSheet.Range("A" & startrow & ":A" & endrow).EntireColumn.AutoFit 
fitwidth = ActiveSheet.Range("A:A").ColumnWidth ' Get width required to fit entire text 

ActiveSheet.Range("A" & startrow & ":A" & endrow).ColumnWidth = OldWidth ' Restore original width 

If OldWidth < fitwidth Then 
Do Until OldWidth = fitwidth 
    ActiveSheet.Range("").Merge 
    endrow = endrow + 1 

    OldWidth = ActiveSheet.Range("A" & startrow & ":A" & endrow).ColumnWidth 
ActiveSheet.Range("A" & startrow & ":A" & endrow).EntireColumn.AutoFit 
fitwidth = ActiveSheet.Range("A:A").ColumnWidth 
ActiveSheet.Range("A" & startrow & ":A" & endrow).ColumnWidth = OldWidth 
Loop 
End If 
End Sub