EXCELのVBAで質問です。
ファイルから文章を取り出し、
別のファイルの指定された位置に
その文章をはめ込む作業を行っています。
文章を入れるセルは結合されたセルで、
折り返して全体を表示する設定にしてあります。
セルの幅は固定、フォントはプロポーショナルフォントを使用します。
(英文の場合半角で入力されるので)
この時、文章の長さに合わせて、
文字が切れることなく印刷されるように
マクロでセルの高さを設定したいと考えています。
そういう方法はありますでしょうか?
あれば教えていただきたいと思います。
文章の長さは数文字~数百文字とまちまちで、
あらかじめ適当な高さを取るわけにはいきません
(はめ込む文章は1つではなく、複数あり、
はめ込む先も複数行あるため、
1つ1つのセルの高さを多めに取ると、
文章が短い場合にやたら空白ができてしまうため)
宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんばんは。
KenKen_SP です。例えば、
1. テンポラリーなシートを用意
2. 本番で流し込む結合セルと同じ環境に A1 セルを設定
・セル幅
・フォント&フォントサイズ
・ボールド等のフォント属性
3. A1 セルを「折り返して表示」にする
4. データを流しこんで、行の AutoFit 実行
Rows(1).AutoFit
5. Range("A1").Height で必要なセルの高さが求められる
6. 本番用シートで結合セルのセルの高さを調整
7. データを流し込む
8. 最後に 1. のシート削除
のような手順でできませんか?
計算でセルの高さを求めるのは、#1 ご回答のように複雑な要素が絡んで
難しいですね。 AutoFit を利用した方が簡単です。
この回答への補足
丁寧な提案ありがとうございます。
しかしながら、手元のExcel2003では、
結合したセルに対してはAutoFitが機能しないようなのです。
失礼しました。せっかくのご意見を正しく読み取っていませんでした。
直接結合セルにAutoFitを用いるのではなくて、
同幅に設定した単一セル(ダミー)に一度内容を入れて
AutoFitを用いるということですね。
大変参考になりました。ありがとうございます。
No.3
- 回答日時:
VBA以外でセルの高さの自動調整を利用する方法がありました。
結合しているセルと同じ行の、結合されていないセルに、
=REPT(CHAR(10),LEN(<結合セル>)/15+3)
と、この場合は15文字につき改行1回+3行の文字列を表示する式を設定し、
セルの書式設定で「折り返して全体を表示する」をONにします。
該当行を選択し、[書式]-[行]-[自動調整]にします。
折り返しやマージンの行数を調整すると、それなりの表示になるのでは?と思います。
英単語等の折り返しで行数の予想が難しいのはNo.1の回答の通りです。
度々ありがとうございます。
以前、文字数からおおよ必要な高さを推測して、
VBAで設定しましたが、プロポーショナルフォントを使うと
なかなかドンピシャとはいきませんでした。
関数を用いるという方法は発想になかったので
参考にさせていただきます。
No.1
- 回答日時:
> マクロでセルの高さを設定したいと考えています。
> そういう方法はありますでしょうか?
日本語なら、大雑把に何文字ごとに改行だからで大まかなセルの高さが計算できますが、英単語や数字が入ってると折り返し位置が定まらないので、強烈に難しいと思います。
ましてや、プロポーショナルフォントでは…。
Wordに差し込み印刷すれば、票の高さなどは適宜整形してくれたと思います。
回答ありがとうございます。
フォーマットファイルがEXCELであることと、
私自身EXCELの方が扱いやすいので
何かいい方法があればと思っておりますが、
Wordで作成するという方法も検討したいと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【Excel】指定したセルの名前で...
-
screenupdatingが機能しなくて...
-
vba 隣のセルに値がある行だけ...
-
EXCELのVBA-フィルタ抽出後の...
-
VBAでセル同士を比較して色付け
-
”戻り値”が変化したときに、マ...
-
VBA コピーして次の値まで貼り...
-
特定のセルが空白だったら、そ...
-
VBA実行後に元のセルに戻りたい
-
特定行の色を変えたい(FlexGrid)
-
TODAY()で設定したセルの日付...
-
ExcelVBA:オートフィルタをかけ...
-
【VBA】指定したセルと同じ値で...
-
【Excel VBA】指定行以降をクリ...
-
連続する複数のセル値がすべて0...
-
プラスの数をマイナスにしたい...
-
Excel vbaで特定の文字以外が入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【Excel】指定したセルの名前で...
-
Excelシートのあるセルから値を...
-
特定の文字を条件に行挿入とそ...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
指定した条件で行セルを非表示...
-
vba 隣のセルに値がある行だけ...
-
Application.Matchで特定行の検索
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
EXCELのVBA-フィルタ抽出後の...
-
【VBA】指定したセルと同じ値で...
-
”戻り値”が変化したときに、マ...
おすすめ情報