Excel Maniacs

フリガナソート(2)

前回、エクセルでフリガナをキーにして昇順にソートすると

ナガヤマアキオの方がナカヤマシゲオよりも先に来るということを

示しました。

　文字でソートをする場合、左側から1文字ずつ比較します。

エクセルは濁音と清音を区別しないのでナガヤマと

ナカヤマはエクセルにとっては同じものです。従って

次の文字、アキオの「ア」とシゲオの「シ」の比較になります。

「ア」の方が「シ」よりも先なのでナガヤマアキオの方が

ナカヤマシゲオよりも先に来るということになります。

(●`ε´●)：おい、それじゃあ名票を作るのにどうしたら

　　　　　　いいんだ？

【´･ω･`】：もしも下図のように並べたいなら三四郎を

　　　　　使って「JISコード順」か「Unicode順」を指定して

　　　　　ソートすればいいよ。

フリガナソート(1)

　新学期も始まり、そろそろ新しい名簿や名票の用意が

整った頃と思います。くまぷーが初任の頃はまだ表計算ソフトは

普及していませんでした。従って生徒の名前をアイウエオ順に

並べるのは一々、手作業でやったものでした。従って何度も

何度も見直したはずなのに間違いがでてきて叱られたこともありました。

【´･ω･`】：だいたい、おいらにそういう作業を

　　　　　　やらせるほうがまちがっていると思うんだけど・・・。

みなさんは左の４人はどういう順に

並ぶのが正しいと思いますか？

エクセルを使っている学校の数は多いと思います。

エクセルを使うと下のようにソートされることをご存じですか？

ナカジマアキオとナガシマシゲオの

順番はいいとしてナガヤマアキオと

ナカヤマシゲオの順はどうでしょう？

　　　　　　　　　　(・o・)ゲッ!!

困ったことになったぞと思った方はいらっしゃいませんか？

エクセルは濁点のあるなしを区別しません。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

セル空欄時には斜線（５）

べべちゃんは記録マクロをONにして

C3に斜線を引き、そして消去しました。

出来たコードが下です。

（●｀ε´●）：おれがべべちゃんだ！！よろしく！！

! ! マクロ記録 : 2007/04/02 06:35:05
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　..LineStyle = snsLineThinSolid
　　　..Color = RGB(0, 0, 0)
end with
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　 ..LineStyle = snsNone
end with

これを前回のIf文（下）と

  　　      If Range("C3") = "" Then

　　　　　　　　　　C3に斜線を引くコード

　　　　  Else

                            C3から斜線を消去するコード

　　　　  End If

と組み合わせると・・・

　If Range("C3") = "" Then

　　　　　with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　　　　　　..LineStyle = snsLineThinSolid
　　　　　　　　..Color = RGB(0, 0, 0)
　　　　　end with
　Else

           with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　 　　　　　..LineStyle = snsNone
　　　　end with

　  End If

（●｀ε´●）：どれうまくいくか試してみよう！！

（続く）