Excel VBA質問箱 IV

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

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


2407 / 13645 ツリー ←次へ | 前へ→

【68216】折り返し文字 kana 11/2/15(火) 10:26 質問[未読]
【68217】Re:折り返し文字 kanabun 11/2/15(火) 10:35 発言[未読]
【68218】Re:折り返し文字 kana 11/2/15(火) 11:47 質問[未読]
【68219】Re:折り返し文字 kanabun 11/2/15(火) 13:11 発言[未読]
【68221】Re:折り返し文字 kana 11/2/15(火) 13:40 質問[未読]
【68220】Re:折り返し文字 kana 11/2/15(火) 13:16 質問[未読]

【68216】折り返し文字
質問  kana  - 11/2/15(火) 10:26 -

引用なし
パスワード
   セルの文字列が、列幅で折り返されいるかどうかの
判定をしたいのですが 方法がありましたら
ご教示をお願いしたいのですが
文字列はランダムで折り返しがあったりなかったりしています
sht.Range("C" & Trim(str(GyouNo))).WrapText = True
でそのまま別のセルにコピーしましたが
行の高さが小さいために印刷プレビュウをみますと
折り返し前の1行のみ表示されます
判定して行の高さを設定したいのです
よろしくお願いします

【68217】Re:折り返し文字
発言  kanabun  - 11/2/15(火) 10:35 -

引用なし
パスワード
   ▼kana さん:こんにちは〜

本題とは関係ないことでスミマセン

>sht.Range("C" & Trim(str(GyouNo))).WrapText = True

Str関数より、CStr関数のほうがすっきりと思いました
       ↓
sht.Range("C" & CStr(GyouNo)).WrapText = True

【68218】Re:折り返し文字
質問  kana  - 11/2/15(火) 11:47 -

引用なし
パスワード
   ▼kanabun さん:
ご指摘有難うございました
なるほどすっきりします
本題のほうですが 何か方法は
ありませんでしょうか

>▼kana さん:こんにちは〜
>
>本題とは関係ないことでスミマセン
>
>>sht.Range("C" & Trim(str(GyouNo))).WrapText = True
>
>Str関数より、CStr関数のほうがすっきりと思いました
>       ↓
>sht.Range("C" & CStr(GyouNo)).WrapText = True

【68219】Re:折り返し文字
発言  kanabun  - 11/2/15(火) 13:11 -

引用なし
パスワード
   ▼kana さん:

>本題のほうですが 何か方法は
>ありませんでしょうか
>

すみません。再現手順を教えてください m(_ _)m

> sht.Range("C" & CStr(GyouNo)).WrapText = True

ということはC列のGyouNo行のセルの書式設定[配置]が
「折り返して全体を表示する」にチェックを入れてある
ことと同じかと思うのですが、

そのセルにたとえば "abcdefghijklmnopqrstu" と
長い文字列を打ち込むと、確定したとたん、セルは
+---------+
|abcdefgh |
|ijklmnop |
|qrstu  |
+---------+
のように、セル高さが自動修正され、3行になります。

> 行の高さが小さいために印刷プレビュウをみますと
> 折り返し前の1行のみ表示されます

とはならないのですが?
どうしたら再現できますか?

【68220】Re:折り返し文字
質問  kana  - 11/2/15(火) 13:16 -

引用なし
パスワード
   本題のほうですが 
以下のようにAutoFitを使ってみましたが
自動調整されません
よろしくお願いいたします
   With sht.Range("C" & CStr(Gyou))
     .WrapText = True
     .Rows(CStr(Gyou)).AutoFit
   End With

【68221】Re:折り返し文字
質問  kana  - 11/2/15(火) 13:40 -

引用なし
パスワード
   ▼kanabun さん:
すいません
先に別の質問を入れてしまいました

セルにある文字列は
>+---------+
>|abcdefgh |
>|ijklmnop |
>|qrstu  |
>+---------+
になっていまして これをコピーして
別のセルに貼り付けています
貼り付け先でも同様になるようしようと
しています

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