セルに「###」が表示されていたら列幅を調整する方法(Excel VBA)
セルに数値を入力したときに、列幅が足りないと「###」と表示されます。
では、セルに「###」と表示されていたら、すべての数値が表示されるように列幅を調整するテクニックにチャレンジしてみましょう。
まず、鍵を握るのはValueプロパティとTextプロパティです。
たとえば、セルに「1234567890」と入力されていて列幅が足りない場合、Valueプロパティは「1234567890」を取得しますが、Textプロパティは「###」を取得します。
すなわち、ValueプロパティとTextプロパティの値が異なったら、そのセルには「###」と表示されている可能性があるということです。
ただし、あくまでも可能性で、区切り文字や通貨記号などの表示形式を設定しているときにもValueプロパティとTextプロパティの値は異なりますので、Textプロパティの1文字目が「#」か否かを判断しなければなりません。
ちなみに、それでは「#5」のようなときはどうするのかと思う人もいるでしょうが、この場合にはValueプロパティとTextプロパティが同じ値を返すので心配は無用です。
もう1つは、「#N/A」や「#NAME」などのエラー値も「#」で始まるので、その判断しなければなりませんが、これはIsError関数で可能です。
すなわち、エラー値でないときのみ、「###」か否かを判断すればよいのです。
そして、「###」と判断できたら、そのセルを含む列幅をAutoFitメソッドで調整します。
Sub Sample_078()
With ActiveCell
If IsError(.Value) = False Then
If .Value <> .Text And Left(.Text, 1) = “#” Then
.EntireColumn.AutoFit
End If
End If
End With
End Sub
毎日30分かかる事務作業のルーティンワーク。
エクセルのマクロなら1秒で!
その作業、VBAid(ブイビーエイド)にお任せしませんか?
『新装改訂版 Excel VBA 本格入門』
~マクロ記録・If文・ループによる日常業務の自動化から高度なアプリケーション開発までVBAのすべてを完全解説~
Chapter2 VBAの基本構文を理解する
Chapter3 ブックとシートをVBAで操作する
Chapter4 セルをVBAで操作する
Chapter5 変数を理解する
Chapter6 条件分岐を理解する
Chapter7 繰り返し処理(ループ)を理解する
Chapter8 対話型のマクロを作る
Chapter10 ユーザーフォーム
Chapter11 基本的な入力や表示を行うコントロール
Chapter12 選択を行うコントロール
Chapter13 そのほかの便利なコントロール
Chapter14 文字列を操作する関数
Chapter15 日付や時刻を操作する関数
Chapter16 そのほかの便利な関数
Chapter17 マクロの連携とユーザー定義関数
Chapter18 イベントマクロ
Chapter19 エラー処理
Chapter20 画面表示と組み込みダイアログボックス
Chapter21 グラフをVBAで操作する
Chapter22 ファイルの操作
『いつもの作業を自動化したい人の Excel VBA 1冊目の本』
Excel VBAは、一人ひとりの作業のあり方、いえ、ひいてはあなたの時間の使い方、すなわち「人生すら変えてしまう」パワーがあります!
本書は、Excel VBAを使いこなしたい方がどこでつまずいてしまうのかを徹底的に研究して書き上げた「1冊目」の決定版です!
まずは第1章の立ち読みから(スマホ対応)→ こちら
→ Amazonへ
最近の画像つき記事
-
ソフィア・ケニン、リヨン・オープン優勝!(女子テニス359)
-
ソフィア・ケニン、リヨン・オープン決勝進出!(女子テニス358)
-
ソフィア・ケニン、全豪オープン2020優勝!ガルビネ・ムグルッサを撃破!(女子テニス357)
-
ソフィア・ケニン、大大大金星!アシュリー・バーティーを撃破!(全豪オープン2020)(女子テニス356)
-
ソフィア・ケニン、勝つには勝ったが・・・(全豪オープン2020)(女子テニス355)
-
ココ・ガウフはなぜ負けたのか(全豪オープン2020)(女子テニス354)
-
大坂なおみは、なぜココ・ガウフに負けたのか(全豪オープン2020)(女子テニス353)
-
ワン・チャン、セレナ・ウィリアムズを撃破!ココ・ガウフ、大坂なおみを撃破(全豪オープン2020)(女子テニス352)
-
ベンチッチ、オスタペンコを撃破!(全豪オープン2020)(女子テニス351)
-
シャラポワはこのまま引退してしまうのか?(全豪オープン2020)(女子テニス350)