ExcelのVBAコードについて教えてください。 作業ブックのシート名が審査があります。
ExcelのVBAコードについて教えてください。 作業ブックのシート名が審査があります。 顧客からの提出書類を審査し、その審査結果をセルE26~E45までに記載をし、顧客にメール等々で送り、書類の修正をお願いしてます。 セルE26~E45の行セル値は通常45ピクセルに設定しセルの書式設定で横位置：左詰め・縦位置：中央揃え ☑折り返し全体を表示する に設定してます。フォント：MSPゴシック 文字の大きさ：11です。 現状では質疑の内容によっては、行に収まらく、行幅を手動で大きくする必要があります。 セルE26~E45までに文字数によって、自動で行幅を調整できるVBAコードがあれば教えてください。 よろしくお願いいたします。 参考の画像を添付いたします。
Visual Basic | Excel・84閲覧・50
ベストアンサー
>セルE26~E45までに文字数によって、自動で行幅を調整できるVBAコードがあれば教えてください。 フォント：MSPゴシック なので、文字数で行高さを決めることは困難だと思います。 Excel任せですが、 https://support.microsoft.com/ja-jp/office/%E5%88%97%E5%B9%85%E3%82%84%E8%A1%8C%E3%81%AE%E9%AB%98%E3%81%95%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B-72f5e3cc-994d-43e8-ae58-9774a0905f46 行の高さをデータに合わせて変更する 1.変更する行 (1 つまたは複数) を選択します。 2.[ホーム] タブの [セル] グループで、[書式] をクリックします。 3.[セルのサイズ] の [行の高さの自動調整] をクリックします。 VBAコードで実装するなら、、、 Sub Macro1() Range("E26:E45").Select Selection.Rows.AutoFit Range("E26").Select End Sub
回ありがとうございます。 上記コードはマクロを実行で上手くいきましたが マクロを実行しないで、 VBAコードをシート名：審査の直接入力して 文字が行に収まらない場合自動で動作することは不可能でしょうか。 よろしくお願いいたします。
質問者からのお礼コメント
回答ありがとうございます。 すべて上手くいきました。 感謝いたします。
お礼日時：5/20 15:00
