僕の名は

Application.GetPhonetic()以前もやったネタなんですが、この年末にサポートの切れたWindowsXPを処分する方も多いのではないかと思い執筆します。WinXP+エクセル2003では、下のコードっを実行するとかなりの確率で「アラクリカエシキ」を返していました。当時職場と自宅5,6台でためしましたが全部「アラクリカエシキ」でした。職場で試したのは当時使用していたアクセスで作成された業務用のシステムがフリガナ支援(業務妨害)な仕様だったからです。遊んでた訳ではないです。
もう、みなさん忘れているかもしれませんが消えた年金問題、こんな方法で名簿が作成されていたとしたら恐ろしいですね。
さすがにそれはないと思いますが。現在の環境Windows10×エクセル2010では「アラクリカエシキ」は返しません。
WinXP+エクセル2003環境の方には廃棄する前に一度自分の名前、知り合いの名前(君の名は)を試して欲しいです。

Sub kamimamita()
 Dim araragi As String
 araragi = InputBox("おい八九寺、僕の名前を入力してみろ!")
 MsgBox Application.GetPhonetic(araragi)
End Sub


あとこれは5,6年前に撮影した画像ですがVBA等で一気にファイル名を生成したのではないかと思います。

HNI_0064.jpg

21.jpg

それで、そのサイト見に行ったら、そのままでした。
rakuten.jpg
関連記事
スポンサーサイト



テーマ : エクセル
ジャンル : コンピュータ

コメントの投稿

非公開コメント

訪問者さま
カレンダー
08 | 2020/09 | 10
- - 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
2006位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
64位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム