Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3211 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【63430】AUTOFITの限界 iijima 09/11/3(火) 14:32

【63440】Re:AUTOFITの限界 ichinose 09/11/4(水) 6:24

【63441】Re:AUTOFITの限界追伸 ichinose 09/11/4(水) 6:53

【63564】Re:AUTOFITの限界追伸 iijima 09/11/18(水) 12:30


	【63430】AUTOFITの限界

iijima - 09/11/3(火) 14:32 -


	引用なし

	パスワード

こんにちは

複数セルを指定して一度にAUTOFITしているのですが
そのセルの数に限界がありそうです

VBSCRIPTでEXCELAPPLICATIONをCreateobjectしているのですが
エクセルシートに貼り付けて全範囲を指定して
autofitすると、エラーで落ちてしまいます

貼り付けた後、１セルずつautofitするほうが
正しいのでしょうか


	【63440】Re:AUTOFITの限界

ichinose - 09/11/4(水) 6:24 -


	引用なし

	パスワード

▼iijima さん：
おはようございます。
>
>複数セルを指定して一度にAUTOFITしているのですが
>そのセルの数に限界がありそうです

その限界を探ってみたいですね！！
エラーになる具体的なコードを提示してください。

>貼り付けた後、１セルずつautofitするほうが
>正しいのでしょうか
本当に限界があるなら、そういう対処方法も考えられますけどね！！


	【63441】Re:AUTOFITの限界追伸

ichinose - 09/11/4(水) 6:53 -


	引用なし

	パスワード

因みに以下のコードを
VBSファイルにて試しましたが、正常に作動しました。
Excelは、Excel2002です。

　　With CreateObject("excel.application")
　　　 .Visible = True
　　　 With .Workbooks.Add.Worksheets(1)
　　　　　With .Range("a:a")
　　　　　　 .Value = String(200, "a")
　　　　　　 .EntireColumn.AutoFit
　　　　　End With
　　　 End With
　　End With

尚、投稿コードをそのままコピーし、メモ帳に貼り付けるときは、
各行の空白が全角になっていますから、半角に直して実行してください。
（ExcelのVBEにて、一度適当なモジュールに貼り付けた後、貼り付けたコードを
再度コピーし、メモ帳に貼り付けるとよいです）


	【63564】Re:AUTOFITの限界追伸

iijima - 09/11/18(水) 12:30 -


	引用なし

	パスワード

こんにちは

限界がどのなのかは、まだ
はっきりわかっていません

ただ、ＶＢＳファイルと
.NET内でvbscriptを書くのでは
若干違うようです

▼ichinose さん：
>因みに以下のコードを
>VBSファイルにて試しましたが、正常に作動しました。
>Excelは、Excel2002です。
>
>
>　　With CreateObject("excel.application")
>　　　 .Visible = True
>　　　 With .Workbooks.Add.Worksheets(1)
>　　　　　With .Range("a:a")
>　　　　　　 .Value = String(200, "a")
>　　　　　　 .EntireColumn.AutoFit
>　　　　　End With
>　　　 End With
>　　End With
>
>尚、投稿コードをそのままコピーし、メモ帳に貼り付けるときは、
>各行の空白が全角になっていますから、半角に直して実行してください。
>（ExcelのVBEにて、一度適当なモジュールに貼り付けた後、貼り付けたコードを
> 再度コピーし、メモ帳に貼り付けるとよいです）


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3211 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free