2016-04-04 23 views
3

列幅を調整してテキストを折り返して高さを自動調整する必要があります。セルの行幅を自動調整できない

私はコードの下に書かれている:セルのデータが少ないコンテンツを持っているとき

Sub mycode() 

Sheet1.Columns("A:A").ColumnWidth = 30 
Sheet1.Columns("A:A").WrapText = True 
Sheet1.Cells.EntireRow.AutoFit 

End Sub 

コードが正常に動作します。 しかし、セルデータが大きい場合、すべてのデータが正しく表示されません。 セルが一部のデータをミスします。 私を助けてください。前もって感謝します。

enter image description here

+1

行の最大高さは682ピクセルです。その限界にぶつかっていますか? –

+0

はい。その限界にぶつかっています。 – Abhijeet

+0

OK。列Aをより​​広くして、より多くのテキストがセルの可視領域に表示されるようにすることができるという点を除いては、何もできません。 –

答えて

0

この質問は、あなたの質問に先立って、スーパーユーザのサイト(here)にオーバー登場しています。 私の提案は、まずその投稿から選択した回答を試してみることです。私はそれが助けて欲しい

ユーザーNickCarringtonのAnswer

私はちょうど見つけ法(少し前のポストを拡張する):

  • シート全体を選択します。
  • 行セパレータをダブルクリック
  • ( シート全体が選択されているので、すべての列が広くなります)少し広い列のサイズを変更 - 行の高さは、自動嵌合
  • ダブルクリックAであろう列の区切り文字 - 列の幅は自動調整されます

Voila!

+0

こんにちはCaffeinatedCoder、あなたのフィードバックに感謝します。しかし、私はcolumnwidthを30にしておきたい。行の高さを調整しても問題ありません。実際には、30を超えて列の幅を大きくすると、印刷中に小さな文字が表示されます。 – Abhijeet