Googleマップがオフラインが利用できるようになってゼンリンからの地図提供が終了

Googleマップがオフラインが利用できるようになるとのこと。

https://japan.googleblog.com/2019/03/GoogleMapsRefresh.html

 

 

Google MAPを見ると今まではゼンリンの文字があったのだが、地図データがGoogleとなっている。

 

Google  MAPの埋め込み地図等の関数に変更は今のところ影響ないみたいです。

Excel VBAでアルファベット、数字のフリガナの関数を作る

Excel VBAでアルファベット、数字のフリガナの関数を作りました。用途的には、パスワード一覧を印刷すると英数字のままだと読みずらいので、フリガナとして使う用途をイメージしています。

また、変更することもあると思うので大文字、小文字の英字は別々にしました。

 

アルファベット、数字のフリガナの関数を作る手順

1.Excelを起動します。

2.「Alt」+「F11」キーを押して、VBAを開きます。

3.「VBA Project」を右クリックして、「挿入」>「標準モジュール」をクリックします。

 

 

4.追加した「標準モジュール」の「Module1」を開きます。

5.そこに下記のコードを貼り付けます。

Function alphanumeric(英数字 As String)
  
    Dim targetWord As String
    targetWord = 英数字
    
    Dim dictionary As Variant
    Set dictionary = CreateObject("Scripting.Dictionary")
    
    Dim str As String
    
    With dictionary
        .Add "0", "ゼロ"
        .Add "1", "イチ"
        .Add "2", "ニ"
        .Add "3", "サン"
        .Add "4", "ヨン"
        .Add "5", "ゴ"
        .Add "6", "ロク"
        .Add "7", "ナナ"
        .Add "8", "ハチ"
        .Add "9", "キュー"
    
    End With
    
    With dictionary
        .Add "a", "エー"
        .Add "b", "ビー"
        .Add "c", "シー"
        .Add "d", "ディー"
        .Add "e", "イー"
        .Add "f", "エフ"
        .Add "g", "ジー"
        .Add "h", "エイチ"
        .Add "i", "アイ"
        .Add "j", "ジェイ"
        .Add "k", "ケー"
        .Add "l", "エル"
        .Add "m", "エム"
        .Add "n", "エヌ"
        .Add "o", "オー"
        .Add "p", "ピー"
        .Add "q", "キュー"
        .Add "r", "アール"
        .Add "s", "エス"
        .Add "t", "ティー"
        .Add "u", "ユー"
        .Add "v", "ブイ"
        .Add "w", "ダブリュー"
        .Add "x", "エックス"
        .Add "y", "ワイ"
        .Add "z", "ゼット"
    End With
    
    With dictionary
        .Add "A", "エー"
        .Add "B", "ビー"
        .Add "C", "シー"
        .Add "D", "ディー"
        .Add "E", "イー"
        .Add "F", "エフ"
        .Add "G", "ジー"
        .Add "H", "エイチ"
        .Add "I", "アイ"
        .Add "J", "ジェイ"
        .Add "K", "ケー"
        .Add "L", "エル"
        .Add "M", "エム"
        .Add "N", "エヌ"
        .Add "O", "オー"
        .Add "P", "ピー"
        .Add "Q", "キュー"
        .Add "R", "アール"
        .Add "S", "エス"
        .Add "T", "ティー"
        .Add "U", "ユー"
        .Add "V", "ブイ"
        .Add "W", "ダブリュー"
        .Add "X", "エックス"
        .Add "Y", "ワイ"
        .Add "Z", "ゼット"
    End With
      
   
    
    
    For i = 1 To Len(targetWord)
        If dictionary.Exists(Mid(targetWord, i, 1)) Then
            str = str & dictionary.Item(Mid(targetWord, i, 1))
            If i < Len(targetWord) Then
                str = str & "・"
            End If
            
        End If
    
      
    Next i
   
    alphanumeric = str

End Function

 

※大文字や中黒でつないでいる部分等好きに変更してください。

 

6.Excelのシートに移動して、一般的な関数を利用するのと同じように使います。(関数名:alphanumeric)

例:A列にアルファベット、数字を入れて、B列にフリガナを入れる場合

=alphanumeric(A2)

 

7.下記のようにフリガナが入ります。

 

こんな感じで出来上がりです。Excel VBAちょっと便利かなっと思ったところです。あ、保存するときはマクロ付きで保存してください。

パソコンを無料で安全に処分しますってどうなの?

「パソコンを無料で安全に処分します」っていうFAXが届きました。

 

パソコン処分するのにいろいろと面倒ですよね。タブレットもデータがいろいろと残っているので気を付けないといけない品物です。

 

FAXの中身を見ていたところ下記の「産業廃棄物収集運搬許可証」「古物商許可証」「内閣府公認パソコン整備士協会」という文言が気になりました。

 

まず、産業廃棄物系の資格ですが、

大きく分けて

 

「収集運搬業」

「処分業」

 

という2種類があるとのことです。都道府県毎に許可申請が必要なものです。

 

・番号の検索は下記のサイトから可能です。

https://www.env.go.jp/recycle/waste/sanpai/search.php

 

 

次に古物商許可証の番号ですが

これも公安毎届け出になるようでこちらは番号を調べようとしたら一括で全国の番号を調べられないのでとても不便ですがGoogle先生に番号を入れて検索するとよいかもしれません

・東京都公安委員会

http://www.kouaniinkai.metro.tokyo.jp/kobutsu/index.html

 

・神奈川県公安委員会/古物商届出業者一覧

http://www.pref.kanagawa.jp/docs/ac7/cnt/f7/p646110.html

 

・埼玉県公安委員会

https://www.pref.saitama.lg.jp/kouaniinkai/kobutu/kobutu.html

 

ほんと、バラバラで検索できないのでGoogleで古物商許可番号を入れて検索すると簡単です。

ただ、サイトURLが掲載してありますが、情報が古い場合もあります。

 

つぎに

内閣府公認ってNPOですよね?

 

NPOって書類申請で成立する。

https://www.npo-homepage.go.jp/about/npo-kisochishiki/ninshouseido

 

書類申請しているから公認といえば、公認なんでしょうけど?そんなに公認っていう表現って過大な感じもしますけど。

 

 

何がよいのか判断が難しいのですが、上記のようなポイントも気になったら調べてみたらいかがでしょうか?