You Look Too Cool

Wordでフローチャートを作るときのコツを書きます。Word2007で確認しました。

まず描画キャンバスを使います。
挿入-図-図形-新しい描画キャンバスを選択すると大きな長方形が挿入されます。
この上に図形を自由に配置できます。

次に四角形(図形)を配置します。
挿入-図-図形-フローチャートから選択します。
長方形は「処理」、ひし形は「判断」などのルールがあります。

四角形同士をコネクタで繋ぎます。「直線」や「矢印」を使います。
コネクタの端を、長方形の辺の中心やひし形の頂点に合わせておきます。こうすると四角形を移動してもコネクタが自動的に繋がります。
この機能は描画キャンバスを使っている場合だけ対応しているようです。
カギ線コネクタを使うと水平な線と垂直な線を組み合わせて繋ぐのでフローチャートらしい線になります。

Excelの条件付き書式を使って日曜日だけを赤く表示する方法です。Excel2007で確認しました。

Excelでは日付をシリアル値(1900年1月1日がシリアル値1)で管理しています。
MOD関数を使い、7で割った余りから曜日を知ることができます。0ならば土曜日、1ならば日曜日となります。
これを利用します。

1. セルに日付を入力。ここでは「A1」セルとします。
2. ホーム-スタイル-条件付き書式-新しいルールを選択し「新しい書式ルール」ダイアログを表示。
3. ルールの種類で「数式を使用～」を選択。
4. 「次の数式～」に「=IF(MOD(A1,7)=1,TRUE,FALSE)」と入力。
5. 「書式」をクリックし、フォントを赤にするなどセルの書式を適当に設定。
6. 「OK」をクリック。

条件付き書式で数式を使用する場合は、最初に「=」を使い、TRUEかFALSEが返るように式を作ります。
つまりIF関数を使えばいいのです。
MOD関数を使って曜日をチェックしましたが、WEEKDAY関数を使ってもよいです。

もし土曜日と日曜日を赤くしたければ次のようにします。
数式に「=IF(MOD(A1,7)<=1,TRUE,FALSE)」と入力すれば、余りが0または1の場合となり、土曜日と日曜日のとき書式が適用されます。

文化祭などでチケットを手作りすることはよくあると思います。
これをExcelで作り、1枚ずつ通し番号を付けたいとします。
A4の紙を使うとして紙1枚からチケット4枚を印刷することにします。
Excel2007で確認しましたが別のバージョンでも動くと思います。

Excelでチケットを作る

1. Excelで1枚分のチケットを作ります。
2. 通し番号をセットするセルを決めます。ここでは「C2」とします。
3. 1枚分の範囲を3回コピーしてA4版に4枚分のチケットを作ります。
4. 2枚目の通し番号のセルに「=C2+1」と入力します。
5. 3枚目の通し番号のセルに「=C2+2」と入力します。
6. 4枚目の通し番号のセルに「=C2+3」と入力します。

マクロを設定する

Visual Basic Editorを開き、次のマクロをセットします。

状況に応じて書き換えます。
myrowとmycolは通し番号をセットするセルの行と列です。「C2」ならば、myrowに「2」、mycolに「3」とします。
numberfromは最初の番号です。
numbertoは最後の番号です。チケットを1000枚作るならば「1000」とします。
numberstepは1ページあたりのチケットの枚数です。

マクロを実行する

このマクロを実行します。
通し番号を順々にセットして連続して印刷します。

半角英数字では半角スペースが単語を区切るので、ないと困りますが、日本語間の半角スペースは不要である場合があります。
日本語(半角英数字以外)動詞に挟まれた半角スペースだけを削除するExcelのマクロを考えてみました。

Like演算子を使っています。
3文字ずつチェックし、「日本語」「半角スペース」「日本語」と並んでいる場合、「半角スペース」を取り除き、「日本語」「日本語」とします。
「Like “[!0-9a-zA-Z]“」とすることで、半角数字と半角英字以外を調べることができます。

複数行の数式を書くときに、左辺は変わらないので、右辺だけ書くケースがあります。

見やすさを考慮するとイコールの縦の位置は揃えたいところです。
ところが、Wordの数式の挿入でイコールの位置を揃えようとすると結構難しいです。

次のようにするとうまくできます。
まず通常通り入力します。

a=bc+bd
a=b(c+d)

この場合、下の「a」の部分の色を背景色と同じにします。
これで見た目は右辺だけになりイコールの位置も揃います。

数式の挿入でなく、本文中に文字列として数式を書く場合にも、この方法は使えます。
スペースを入れて調整する方法もありますが、等角フォントでないと正しく揃わないことがありますが、入力しておいて、色を背景色と同じにする方法ならばずれることはありません。

複数のExcelファイルに同じパスワードがセットされている場合に、それを一括して解除して保存するマクロです。
逆に一括してパスワードをセットすることもできます。

最初にダイアログでパターンを訊かれますので、解除ならば「はい」、セットならば「いいえ」を選択します。
次にダイアログでパスワードをセットします。
最後にファイルが保存されているフォルダを指定します。下位階層には対応していません。
「”\*.xls”」の部分を適宜、変更してください。
Excel2007で確認しました。

ExcelのVBAで半角を全角に変換するのはとても簡単です。
「StrConv」を使うといろいろな変換ができます。
引数に「vbWide」を指定すると半角を全角に変換します。
使用例は次の通りです。

次は半角カタカナを全角に変換する方法です。
カタカナは全角に変換するが、英数字は半角のままにしたい、というようなケースに使います。

「Like」を使っています。
これはVBAでワイルドカードを使う場合に用いられます。
You Look Too Cool » VBAでワイルドカードを使う
「Like “[!ァ-ヶー]“」とすることで全角カタカナ以外の場合のみを取り出すことができます。
上の例では全角カタカナ以外の場合のみ半角に変換しています。

VBAでは「Like」を使ってワイルドカード的な使い方ができます。

使い方は次の通りです。

【構文】

文字列がパターンに合致するとTrueを返します。

【パターン】

次にパターンに文字リストを使う場合の例を示します。

半角カタカナ

半角カタカナはコード順で「ｦｧｨｩ…ﾚﾛﾜﾝ」と並ぶので「[ｦ-ﾝ]」とします。

全角カタカナ

全角カタカナはコード順で「ァアィイ…ンヴヵヶ」と並ぶので「[ァ-ヶ]」とします。
ただし長音が含まれないので、これを含めるため「[ァ-ヶー]」とします。

全角ひらがな

全角ひらがなはコード順で「ぁあぃい…ゐゑをん」と並ぶので「[ぁ-ん]」とします。
ただし長音が含まれないので、これを含めるため「[ぁ-んー]」とします。

半角英小文字

半角英大文字

半角数字

「[0-9]」としてもよいのですが半角数字に関しては上述の通り「#」という記号が用意されています。

段組みを使ったWord文書を段組みの情報を残したままテキストで出力する方法です。
1段の場合は40文字、2段の場合は19文字で改行を挿入します。
段組みの段数は「段落.PageSetup.TextColumns.Count」で取得できます。
またセクション区切りの部分(文字コードが12)はそのまま出力すると表示がおかしくなるので判定して無視します。
関数「cut」は文字列に指定した文字数で改行を挿入します。

Excelで数値を全角で表示するにはセルの書式設定で表示形式に「DBNum」を使います。
「DB」はダブルバイトで全角という意味だそうです。
具体的には次のようにセットすることでいろいろなパターンが使えます。