せりかログ

2010/03/19(金)カタカナをひらがなに変換 @ エクセル

カタカナをひらがなに変換する関数したかったのだけれど、ググるとPHONETIC関数使えと出てくる
って、どんなデータにもふりがな入ってると思うな－

半角カナを全角カナに変換する JIS関数はあるのに、全角カナをひらがなに変換する関数はなさげ
仕方ないので関数を作成

一応こんな感じになった

Function toKana(k As Range)
    Dim str As String
    
    i = 1
    Do While (1)
        letter = Mid(k.Value, i, 1)
        If (letter = "") Then
            Exit Do
        ElseIf (AscW("ァ") <= AscW(letter) And AscW(letter) <= AscW("ン")) Then
            letter = ChrW(AscW(letter) - AscW("ァ") + AscW("ぁ"))
        End If
        str = str & letter
        i = i + 1
    Loop

    toKana = str
End Function

使い方

おもむろにエクセルのvbaエディタ開いて、標準モジュール挿入して上のコードをコピペ
あとは、セルに = toKana("カタカナ") とかいれてあげると、ひらがなで表示されるはず

注意

ひらがなのないヴ、ヵ、ヶの３文字は変換できません
これらはカタカナのまま残ります...タブン
"ウ゛"のように置換してもいいだろうけどね

検索用

[excel] [vba] [関数] [マクロ] [カタカナ] [ひらがな] [変換]

コメント（0件）

2010/03/15(月)偕楽園

日記

なんとなく行ってきた

いい時期だけあって、高速水戸インターで1kmくらいの渋滞
インター降りたところからは、適当に横道入っていったけど、やはりところどころ渋滞してました
あとは、駐車場待ちか
平日だから大丈夫だろうと思ったら、やっぱり暇な人はたくさんいるらしい
ガソリンやばいので、普段やらないアイドリングストップとかしてました

偕楽園

梅はいい感じに咲いてました
八分咲きくらいらしいです

写真いろいろ撮ったけど、あげるのメドイ...
（この記事書き込みフォームからファイル上げたいところ）

今週いっぱいが見頃なのかな

那珂湊

帰りは、ちょっと足をのばして那珂湊まで行ってみました
夕方行ったのも悪いんだけど、まあ、ほどほどって感じでした
やっぱり、輸入物が多いですね
地元の魚はどこー
せめて近海物が欲しいです...

とりあえず、アジとハマグリ買ってきました

高速

妙にたくさんバイクの方々がいました
天気もいいしツーリングかな－と思いきや
パトカーも大量
暴走族の方々でした
あまり人のことはいえないけど、他にもやることあるだろう、とか思いました

コメント（0件）

2010/02/28(日)ワードパッドでdocxが開けた！

雑記

Win 7のワードパッドで docx ファイルが開けた！
どうやって開こうか迷いながらダブルクリックでいきなり起動して驚きました

ページ区切りや段組、数式などは表示されませんが、とりあえず文字は出てくる
内容を確認するだけならこれで十分そうです

検索用

[windows 7 home premium] [word pad] [docx] [ワードパッド]

コメント（0件）

2010/02/23(火)Office系ソフトいろいろ

雑記

気づいたら、自宅PCにオフィスソフトが大量に入ってた
自分で入れてるのは確かなんだけど...
こんなにあってどうするんだか

そのうち機能比較とかしてみたいところ

EIOffice 2009
- ワードプロセッサ
- スプレッドシート
- プレゼンテーション
Just Suite 2010
- 一太郎 2010
- 三四郎 2010
- Agree 2010
- 花子 2010 + フォトレタッチ
- 他多数
OpenOffice.org 3.1
- Writer
- Calc
- Impress
- Draw
Microsoft Office XP（2010待ち）
- Word XP
- Excel XP

あと入ってなくて有名なのは
Kingsoft OfficeとStar Officeあたりかな

コメント（1件）

2010/02/20(土)EeeTop

HOMEやENDキーが無いものだと思っていたらついに発見
Num Lockを外した状態でのテンキー部分に普通にありました

いや、通常のフルキーボードなら当たり前かもしれないけど、テンキーついてないキーボードで、ノートPCみたいにFnキー押しながら～ってやつなので気づいてませんでした
キートップにも書いてないし...
数値キーなんて使わないから、普通にHOMEとか、ENDとか書いてほしかった

以下、検索用

[Eee Top] [Home] [End] [Page Up] [Page Down] [テンキー]

コメント（0件）

2010/01/22(金)コーヒーサイフォン

日記

ハリオのサイフォン・テクニカ買いました
一人で飲むので3杯用のやつ

ポットだといい感じにドリップできないので、サイフォンのほうがやりやすい

コメント（2件）

2010/01/03(日)PC買った

ASUSのEeeTop買いました
タッチパネルで楽しい

スタイラスか指でいじるだろうと思って、保護シート張ってみました
20インチワイドのシートがないので19インチワイドのシート購入
足りない程度で済むと思ったんだけど微妙にはみ出たためきったり、ホコリ入ったりさんざんでした
サイズがあうやつがそのうちでることを期待してます
というか、簡単に貼る裏技とかだれか開発しないかね

キーボード、マウスはワイヤレス
単4電池2本で動作します

キーボードはほどほどに使うとしても、タッチできるのでマウス使いません
微妙に邪魔者扱いですｗ

CPUはわかりきっていたことだけど、やっぱり遅い
けど、今までのPCよりは早い

動画はまだ再生してないので不明

windowsエクスペリエンスインデックスは
プロセッサ 3.3 メモリ 4.4 グラフィックス 4.4 ゲーム用グラフィックス 5.3 ハードディスク 5.8
でした
ばりばりの3Dはだめだろうけど、一昔前のものなら普通に動きそうです

HDDが足りないので、今後どうするか検討中
システムドライブに40Gって足りないと思うんだけど...
OSとか基本アプリで15Gほど使われてますよ
知らない人は、デスクトップにデータ置きまくるだろうし、100Gくらい確保しておいてもいいと思うんだけど
(もしくは、document and settingをDドライブに割り当てておくとか...)
Officeとか入れたらあっという間に埋まりそうです
（使ってるディスクのパーティション広げられないのかねぇ）
いらないアプリ消したりして、もう少しあけておくことにします