Excel Maniacs

座席表作成

(●`ε´●)：いちいち手書きで座席表を作るのは面倒くさい！！

　　　　　　自動で作るにはどうしたらいんだ？！

【´･ω･`】：どんなふうにしたいの？

(●`ε´●)：こんなの。できる？

仕様：

（１）座席は図１のように席番が振られている。

（２）C列に図２のように席番を振る。

（３）するとB列の氏名が該当する席に図３のように表示される。

【´･ω･`】：みんな、いい案があったら教えてね。

　　　　　くまぷーの案は1週間後くらいに発表するから。

　　　　　そうそう、元になる三四郎シートはダウンロードしてね。

　　　　　snsSample005.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　

図１

図２

図３

ひらがなを半角カタカナに

ある先生のブログで仕事のために

ひらがなを半角カタカナに変換する必要に

迫られたということでエクセルVBAの数十行に

及ぶコードがアップされてていた。かなり苦労されている

ご様子なので下のようなコメントを

させて頂いた。（青字部分）

エクセルVBAで全角ひらがなを半角カタカナに変換するなら、

下記の３行コードをためしてみてください。

Public Function HiraToHan(R As Range) As String
　　　　HiraToHan = StrConv(StrConv(R, vbKatakana), vbNarrow)
End Function

これを標準モジュールにコピーすれば
HiraToHan関数が標準のワークシート関数同様に使えます。

例えばA1に「ごとう」とあれば
B1に=HiraToHan（A1）とすればいいです。(^o^)/~~~

コードの部分は正味1行なので

だいぶすっきりしているとは思うのだが

三四郎ならば標準のワークシート関数の

Han()とKata()を組み合わせて

例えばA1に「ごとう」とあれば
B1に=Han(Kata(A1))とすればいいです。(^o^)/~~~

セル空欄時に斜線（６）

(●`ε´●):試してみたら、うまくいった。

　　　　　　　（￣＾￣）えへん

（●｀ε´●）：あ、ところで三四郎ではマクロでセルに斜線を引くときに

　　　　　　　セルを二つ指定する・・・・

　　　　　　　左上から右下に斜線を引くときは・・・・

　　　　　　　例えばA１に引くならばA1と右斜め下のB2・・・

　　　　　　　左下から右上ならば・・・・

　　　　　　　一つ下のA2と右横のB1・・・

　　　　　　　そうであるなら・・・

　　　　　　　セルIV32000に斜線を引くときとは

　　　　　　　いったい、どうなるんだ？！

※ちなみに三四郎は最大行は３２０００ですから、その下にセルはありません。

　列はIVまでですから、その右にセルはありません。

　興味のあるかたはご自分でお試しください。

　また、他のセルに罫線を引いておいてそれを３２０００行のセルや

　IV列のセルにコピーすればちゃんと斜線はひけるかなぁ？

　答えはやってみればすぐわかるので書きません。