zk2hkconv.bas rev.0                    Written by Seiji Fujita
                                       http://userweb.alles.or.jp/sfujita/
===========================================================================

【概説】

全角カタカナを半角カタカナに変換するVBA for Excel用関数です。
作成はMS Excel 2003で行いましたが、Excel 97以降であれば使用できるはず
ですし、おそらくExcel 95でも使えると思います。
MS Word 97でも動作するはずです。
また、MS Access 97以降にもそのままで使えると思います。

関数名
　ZK2HKConv
関数の戻り値の型
　文字列型（String型）
引数
　第1引数　文字列（String型）――　変換対象文字列

※第1引数として与える文字列は、全角カタカナやカタカナ以外を含んでいても
　構いません。句読点、カギ括弧、中黒「・」も半角に変換されますが、
　その他の文字（例：?!abc…、丸括弧など）はそのまま出力されます。

【使用方法】

MS ExcelのVBEに、ソースファイルをコピー＆ペーストするだけで、
ワークシート上で標準関数と同じ要領で使用したり、VBA側の他の関数から
組み込み関数と同様の要領で使用したりできます。
MS Accessの場合も上記に準じます。

ワークシートで使用する例
　A1セルの内容が、「テストモジレツモジレツ」である場合、
　B1セルに =ZK2HKConv(A1)
と代入すると、
　B1セルには変換結果の「ﾃｽﾄﾓｼﾞﾚﾂﾓｼﾞﾚﾂ」、
が表示されます。

VBAで使用する例：
　str = ZK2HKConv("テストモジレツモジレツ")

【ソースプログラムの改変・配布など】

著作権は私が保持しますが、必要に応じて改変を認めます。
配布も自由に行って戴いて構いません。
改変の場合は改変内容と改変者を追加し、オリジナルそのままでないこと
を記すとともに、オリジナルのクレジット部分も残してください。


【備考】

・私が公開している他の全角・半角間変換関数などと異なり、本関数では
　StrConvを利用しています。
　そのため対応するVBScript/Windows Script Hostとして記述し直した版は
　用意しておりません。
　個人的に、カタカナを半角変換することに懐疑的なため、手を抜いています。
　本関数も総合変換ツールの部品として、逆変換も形式的に必要だったから
　仕方なく用意したものを公開しているという程度の扱いです。

【その他】

本VBA関数を使用した結果に対して、作者は一切の保障・補償を致しません。
本関数に対するご意見・ご希望は歓迎いたしますが、作者はそれら全てに
対応する義務を持ちません。同様に、バグや仕様不足に対する修正の義務
も持ちません。


【履歴】

rev.0 公開