Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2427 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
でそのまま別のセルにコピーしましたが
行の高さが小さいために印刷プレビュウをみますと
折り返し前の１行のみ表示されます
判定して行の高さを設定したいのです
よろしくお願いします
【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行になります。

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

とはならないのですが？
どうしたら再現できますか？
【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　　|
>+---------+
になっていまして　これをｺﾋﾟｰして
別のセルに貼り付けています
貼り付け先でも同様になるようしようと
しています
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2427 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free