セルの文字配置(横書き・縦書きの指定・折り返しの指定・セルの書式設定)●はじめにセルに文字列を入力し、その文字列をEXCELのセルの書式設定を行いますが、VBAでもセル内の文字列に対して様々な配置設定等を行う事ができます。今回説明するセルの書式設定は、セル内の文字列の縦書き・横書きの設定と折り返しの指定です。横書き・縦書きの設定では、向きを設定する方法とー90~90の範囲を数値の角度で指定する事ができます。セル内の文字列の折り返しについては、セル内の文字列を折り返すのか折り返さないのかを指定する事ができます。それでは、セルの文字列の横書き・縦書き・折り返しの設定方法を順番に説明いたします。(サンプル1)下記のサンプルプログラムは、セルの書式設定の文字列に対して横書き・縦書きの設定を行うサンプルプログラムです。シートのセル全体の書式設定を縦書き・横書きに切り替えます。'シート全体を縦書きにします。"セルの書式設定を縦書きにしました。'シート全体を横書きにします。"セルの書式設定を横書きにしました。'シート全体を縦書きにします。"セルの書式設定を縦書きにしました。'シート全体を横書きにします。"セルの書式設定を横書きにしました。※プログラム実行後、シート全体のセルに対して縦書き・横書きを順番に切り替えました。(サンプル2)下記のサンプルプログラムは、表示されているシートのセル全体に対するセルの書式設定の表示角度を-90~90へ1ずつ変更表示させるサンプルプログラムです。日常業務では、今回の様なサンプルプログラムは、利用する事は、ありませんが表示させる文字に対して細かく角度を変えられる事が分かります。'セルの書式設定の角度を-90⇒90へ1ずつ角度を変えます。'シート全体の角度変更します。'セルの書式設定の角度を-90⇒90へ1ずつ角度を変えます。'シート全体の角度変更します。※プログラム実行後、全てのセルに対して、セルの書式設定の表示角度が-90~90へ変化します。(サンプル3)下記のサンプルプログラムは、横書きのデータ一覧から縦書きのスケジュール表に転記するサンプルプログラムです。データ形式から表形式に転記します。'シート「業務一覧」からA列の日付の日+2をMへ代入。例:3/1は、1+2でMは、3となる。'シート「業務一覧」のD列「業務内容」を転記する。2'シート「業務一覧」からA列の日付の日+2をMへ代入。例:3/1は、1+2でMは、3となる。'シート「業務一覧」のD列「業務内容」を転記する。文字列の折り返し・セルの値を折り返す。(サンプル1)下記のサンプルプログラムは、シート「住所録」からシート「住所録(折り返し)」へ住所でデータを転記するサンプルプログラムです。別シートに転記する際に、「住所」部分を転記する際に、折り返して転記させます。データを別のシートやセルに転記する際、転記先のセル幅の大きさが転記元より小さい場合は、文字列がセル内に入らないので、WrapTexTを使って文字列を折り返します。'シート「住所録」のデータを最終行まで転記します。'シート「住所録」のデータを最終行まで転記します。※プログラム実行後、転記先シートの住所が折り返し転記されましたので、セル幅内に表示されました。(画面クリックして拡大)最後まで、ご覧いただきまして誠に有難うございました。VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。指定した行列に小計を追加する。指定した表を自動的に背景色をゼブラ模様(縞模様)にする。Functionプロシージャを使いこなす。便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。エラーかどうがを判定します。