練習を始めて5ヵ月目くらいから、ほとんど変わっていないのですが、エアロフォン ミニの現在の練習状況を書いてみようと思います。

過去記事の
の記事で書いた練習方法を今も続けています。

練習時間は1日、30分～40分くらいです。
練習曲もあまり変わってはいませんが、こんな感じです。



●LEAVE ME ALONE（THE SQUARE アルト・サックス2）～いつかはサックスで演奏したいと思っていた憧れの曲なので

●TRAVELERS（THE SQUARE ソー・リード1）～カッコいい曲なので

●MATADOR（日野皓正 トランペット）～昔、エレクトーンで練習していた曲。カッコいいので

●Shining Boy & Little Randy（坂本龍一　曲笛チュイディー1）～我が家のネコさんを思い出すので

●@2021-R(ゆうみ アルト・サックス1)～いつかはサックスで演奏したいと思っていたのを思い出したので

●Yesterday（Kenny G　ソプラノ・サックス1）～Spotifyで聴いて、いいなぁと思ったので

●neko-@@@(ねこふんじゃった　スクエア・リード2)～ネコさん大好きなので

●悲愴(ベートーヴェン　オーボエ)～エレクトーンのアレンジがとても素敵。オーボエの音色も好きなので
※ヤマハ ELB-02 フリースコア（https://jp.yamaha.com/products/contents/keyboards/electone_station/oyakudachi/elb-02_score/index.html）

「LEAVE ME ALONE」「TRAVELERS」「MATADOR」は、ソロの部分はちょっと無理なので、メロディーだけ練習しています。
それだけでも楽しいです。
ソロの部分も演奏出来たら、カッコいいのだけど・・・。
まず、音がわからない。
メロディーは聴き取れるのだけど、ソロの部分の音が聴き取れません。
私には絶対音感がないので(^_^;)
エレクトーンの楽譜とかに、割とソロの部分の音が載っていたりするので、そのうち手持ちの古い楽譜を探してみようかなと思います。

練習を始めて1年と2ヵ月ほど経ちましたが、楽しさは増えるばかりです。
練習を継続するのはなかなか大変だけど、気長にゆっくりでも続けていけたらなぁと思います。

amazonでエアロフォン ミニの詳細を見る ⇒ Roland Aerophone mini AE-01

関連記事

• 【エアロフォン ミニ】現在の練習状況です【Aerophone mini AE-01】
• 【エアロフォン ミニ】練習を始めて、1年が経ちました【Aerophone mini AE-01】
• 【エアロフォン ミニ】Micro USBケーブルが欲しいなぁと思って【Aerophone mini AE-01】
• 【エアロフォン ミニ】練習を始めて、10ヶ月近くが経ちました【Aerophone mini AE-01】
• 【エアロフォン ミニ】「Aerophone mini Plus」とUSB接続できなくなった

Excelで文字列の中の数字を取り出したいという場面がありました。
例えば、「at215-00008g785」という文字列があったとします。
そこから、「215」「00008」「785」という数字を取り出したいという感じです。

どうしたらいいかなぁと思い、ユーザー定義関数でやってみることにしました。
VBAの標準モジュールに下記のように入力しました。

Function GetNum(txt As String, Optional n As Long = 1) As String
    Dim reg As Variant
    Dim regmth As Variant
    Dim num As String
    
        Set reg = CreateObject("VBScript.RegExp")

        With reg
            .Pattern = "\d+"
            .Global = True
            
            Set regmth = .Execute(txt)
            
            num = regmth(n - 1)
        End With
        
        Set reg = Nothing
        Set regmth = Nothing
        
        GetNum = num
End Function

GetNumという関数にしました。
第1引数は、数字が含まれている文字列を指定します。
第2引数は、何個目の数字を取り出すかを指定します。
省略すると、1つ目になります。

B列に数式を入力します。

B1=GetNum(A1)
B2=GetNum(A2,2)
B3=GetNum(A3,3)
B4=GetNum(A4,4)

とりあえずは思ったようには出来たのでよかったのですが、これがベストな答えかどうかはわかりません(^_^;)

久々のExcel記事でした。

関連記事

• 【Excel】文字列の中の数字（文字列）を取り出したい
• 【Excel VBA】楽器練習記録帳を作りました
• 【Excel】半角文字が含まれているセルに色を付けたい
• 【Excel】ハイパーリンクで指定しているURLを取り出したい
• 【Excel】あみだくじを作ってみました