Excel VBA質問箱 IV

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

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


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

18804 / 76807

←次へ　｜　前へ→


	【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にて、一度適当なモジュールに貼り付けた後、貼り付けたコードを
再度コピーし、メモ帳に貼り付けるとよいです）

0 hits

▼

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