Excel VBA質問箱 IV

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

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


12223 / 13644 ツリー ←次へ | 前へ→

【11570】桁あふれ文字列のセルを全部表示させたい tm_fuji 04/3/11(木) 16:50 質問
【11633】Re:桁あふれ文字列のセルを全部表示させ... tm_fuji 04/3/12(金) 15:53 回答

【11570】桁あふれ文字列のセルを全部表示させたい
質問  tm_fuji  - 04/3/11(木) 16:50 -

引用なし
パスワード
   お世話になります。

CSVデータを各セルに読み込む処理があります。
しかし1項目のデータが255(全てASCII)バイトを超えた文字がセルに
設定されると見た目上 ########## となってしまいます。
これを、高さと列幅を自動調整して全て表示されるようにしたいのです。

なにか良い手は無いでしょうか?
ご指導よろしくお願い致します。
(Windows 2000, Excel2000)

現状のおおまかな処理はこのようになっています。

Open readFileName For Input As #1     'CSVファイル読み込み
Line Input #1, strBuffer          '1行ずつデータを読み込んで
Cells(lCellRow, lColCount).Value = strCel ' ,で区切ってセルに設定

いろいろ調べて、下記のコードを追加したのですが、
かわらず ########## と表示されてしまいます・・・
Cells(lCellRow, lColCount).Columns.AutoFit '
Cells(lCellRow, lColCount).Rows.AutoFit  '

【11633】Re:桁あふれ文字列のセルを全部表示させ...
回答  tm_fuji  - 04/3/12(金) 15:53 -

引用なし
パスワード
   お世話になっております。
自己解決しました。

原因は、セルの表示形式が文字列になっていたためで、
セルの表示形式を標準にしたら全て表示することができました。

ただ、なんでもかんでも標準にすると、数値などが変換されたりするので
> Open readFileName For Input As #1     'CSVファイル読み込み
> Line Input #1, strBuffer          '1行ずつデータを読み込んで
> Cells(lCellRow, lColCount).Value = strCel ' ,で区切ってセルに設定
-追加-
If Cells(lCellRow, lColCount).Text <> strCel Then
  Cells(lCellRow, lColCount).NumberFormatLocal = "G/標準"
End If

として、実際の値と見た目が違ったら標準にすることで解決しました。

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