プログラミング

2021/7/27

Power BIとは?利用用途・メリット・デメリットを徹底解説

業務を最大限効率化したり、ビッグデータを取り扱う際に効果的な方策の一つに「Power BI」というツールがあります。 しかし、その利用用途や利用メリットやデメリットを知らない方も少なくありません。 そこで本章では、このPower BIの利用用途やメリット・デメリットについて詳しく解説していきます。   目次1 Power BIとは1.1 Power BIでできること2 Power BIの種類3 ExcelでできなくてPower BIでできること4 Power BIの利用するメリット・デメリット4 ...

ReadMore

チャーガ 健康法・ケア

2021/7/28

チャーガに含むβグルカン!高免疫力・高癌抑制効果おすすめサプリ5選

癌の抑制効果やダイエット効果など、様々な健康効果が期待され、国内需要が高まってきているチャーガ(カバノアナタケ)茶。   しかし、癌抑制効果が高いのはチャーガなどのお茶だけではないことをご存じでしたか。 チャーガに含まれているβグルカンの影響が高く、その癌抑制効果や健康効果が発見され、需要がいっそう拡大してきています。   そこで、品質は当然のこと、そのチャーガのみならず、このβグルカンを多く含む癌抑制効果や健康効果の高いサプリメントを厳選してご紹介していきましょう。   目 ...

ReadMore

エクセル関数 プログラミング

2021/7/26

【初心者向け】Power BIおすすめ教本5選!使い方が手軽に分かる

  データサイエンティストが利用されると言われる「Power BI」。しかし、その機能や使い方も知らない方も多いのが実情です。 そこで、Power BIの機能性や利用メリットなどを理解するためにはどんな教本がおすすめなのか、初心者でもわかりやすいおすすめ教本5つ厳選してご紹介していきます。   目次1 Power Biを購入する前に知っておきたい3つのポイント2 Power Biを始める際の教本の選定ポイントは?3 Power BIの使い方が初心者でも基礎からわかる!おすすめ教本ランキ ...

ReadMore

映画 洋画

2021/7/15

海外映画『トゥモロー・ウォー』フル動画を無料視聴するならこれ一択!おすすめの視聴方法とは

最新人気映画「トゥモロー・ウォー」。海外のフル動画で見たり、無料視聴する方法にはあらゆる視聴方法が普及してきています。 そんな中でも、こんな悩み。 悩む女性1 海外映画無料視聴したい。 映画が今すぐ見たい。 借りに行くのが面倒くさい。 簡単にフル動画をみたい。   そんな海外映画を見て、有意義なひと時を過ごしたい。そんなふうに感じる事もあるかと思います。そこで、海外映画を無料視聴する方法やフル動画を見る方法があるのか。そんな悩みについて解説していきましょう! 管理者   また海外映画を ...

ReadMore

テレワーク 生活情報

2021/7/28

テレワーク業務効率10倍UP!コスパ最強おすすめ便利グッズ8選

  COVID19の影響に伴って加速する「テレワーク・在宅勤務」。   悩む女性1 しかし、実際に自宅で仕事をしてみると、案外仕事ができる環境じゃなくて、仕事が捗らない! そこで、このテレワークで充実した仕事ができるような環境を整備することも非常に大切です。 私もテレワークは、とても小さい椅子と縦長の狭い机でパソコン2台を使って作業をしていたので、非常にやりづらさを感じていました。   そこで、心機一転テレワーク環境を整備するためにデスクやチェア、PCガジェットを購入して、非 ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

【AFFINGER6】購入者限定10大特典付き!初心者向けおすすめアイコン・戦略あり

当サイトからAFFINGER6(ACTION)をご購入頂いた方のために、当サイトでしか受け取れない購入者限定特典をお付けして、皆様のブログ運営を全力でサポートさせて頂きます。 またそれ以外にも、ブログで大切なことはいったいなんなのか、その根源を教える内容を盛り込んでご紹介していこうと思います。   目次1 「AFFINGER6(ACTION)」について2 購入する前に「AFFINGER6」の魅力を知ろう!3 AFFINGER6-当サイト限定10購入者特典について3.1 AFFINGER6当サイト ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

AFFINGER6(ACTION)の購入メリット・デメリットを徹底解説【特典あり】

有料のWordpressテーマを選ぶなら「AFFINGER6(ACTION)」が絶対におすすめです。   悩む女性1いったいどうしてAFFINGER6がおすすめなの? 実際に無料のテーマと有料のテーマを利用した私が実体験を元にそのおすすめの理由とメリット・デメリット、そして詳細の機能について実体験に基づいてレビューしました。 管理者   ぜひ皆様の参考になれば幸いです。   目次1 有料Wordpressテーマ「AFFINGER6(ACTION)」を利用すべきおすすめ理由3つ ...

ReadMore

ジブリ 映画

2021/7/19

映画ジブリ『借りぐらしのアリエッティ』フル動画を無料視聴するならこれ一択!おすすめの視聴方法とは

昔からある人気のジブリ映画「借りぐらしのアリエッティ」。そんな昔のアニメをフル動画で見たり、無料視聴する方法にはあらゆる視聴方法が普及してきています。 そんな中でも、こんな悩み。 悩む女性1 ジブリ映画を無料視聴したい。 昔のジブリ映画が今すぐ見たい。 借りに行くのが面倒くさい。 簡単にフル動画をみたい。   そんな懐かしのアニメを見て、子供と一緒に癒されたい。そんなふうに感じる事もあるかと思います。 そこで、昔のジブリ映画を無料視聴する方法やフル動画を見る方法があるのか。そんな悩みにお答えして ...

ReadMore

ママが得する!富士山の玄武岩層・地下約200メートルから汲み上げた大人気ウォーターサーバー

Excel-VBA プログラミング

【Excel-VBA】ファイル名の拡張子を取得してみよう!

今人気沸騰中!テレワーク低糖質ダイエット商品

 

今回は、Excel-VBAでファイル名から拡張子のみを取得するプログラムを解説していきましょう。

拡張子を取得するための2つの手順

拡張子取得するためには、まず2つやることがあります。

それは下記2つです。

<学校教育だけでは不十分な理由とは>

  • ファイル名を取得する処理を記述する
  • 拡張子を取得する処理を用意する

 

 

拡張子取得における大切なポイントについて

まず第一に、「ファイル名を入力できる」・「ファイル名を取得できる」ようにしておくことが大切なポイントです。

そうしないと、どのファイル名の拡張子がほしいのかわかりませんよね。まず最初の基本事項です。

 

これができた後で、そこから拡張子を取得しにいきましょう。

 

ファイル名から拡張子を取得してみよう!

それでは、実際にVBAで、ファイル名の中から拡張子を取得してみましょう。

それに当たって1のメイン処理と2のサブルーチン化された2つの処理から拡張子を取得していきます。

1.メイン(ファイル名を引き渡す)処理の記述

メイン処理では、まずファイル名を2のサブルーチンに引き渡す処理を記述していきましょう。

下記を参考にして、ファイル名を「Kakuthoushi」のサブルーチンに引き渡す処理を記述していきましょう。

 

Public Sub Main
Dim strKakuthyoushi as string

  strKakuthyoushi=KakuthoushiGet("ファイル名")  ’拡張子のサブルーチンに移動・・・①

  Msgbox strKakuthyoushi  ’拡張子を表示

End Sub

 

上記が、基軸となる処理です。こちらでファイル名を取得して、最終的に拡張子をメッセージボックスに表示するという中心となる記述になります。

しかし、ここでは、拡張子は取得できません。

その拡張子を取得する記述は、「KakuthoushiGet("ファイル名")」のサブルーチンの中に記載されているからです。

この中で取得した拡張子を「strKakuthoushi」に返すイメージです。

そして、メッセージボックスで最終的に表示しています。

①の部分で拡張子を取得していきますので、それでは、この①の中身を下でみていきましょう!

 

2.拡張子を取得するサブルーチンの記述処理

続いて、①の記述の中身(サブルーチン)を解説していきましょう。

Public function KakutyhoushiGet(strFileName as string) as String
Dim vDat as variant
Dim intUbound as integer

     KakutyhoushiGet=""
     vDat=Split(strFileName,".")
     intUBound=UBound(vDat)
     KakutyhoushiGet=vDat(intUbound)

End function

 

このサブルーチン化した記述は、どこのプログラミングでも汎用性がきくように作られていますので、strFileNameの部分にファイル名が入力されれば、必ずその拡張子が買えるようになっています。

ちなみに、この処理を簡単に解説すると、

Split関数というものを使って、ファイル名の「.」の部分で名前を分断しています。

そしてその「.」の右側部分を取得するように記述したものになります。

 

拡張子を除いたファイル名を取得しよう!

最後に、もう一つおまけです。

拡張子を取得する処理を今回記述しましたが、今度は拡張子前のファイル名までを取得する処理についても合わせて簡単なロジックを解説しておきましょう。

そのロジックはこちら。

Sub FileName_OnlyGet()
    Dim strBookName As String
    Dim i As Long
   
    strBookName = ActiveWorkbook.Name

    i = InStrRev(strBookName, “.”)
    If i > 0 Then
         strBookName = Left(strBookName, i – 1)
         MsgBox "ファイル名: " & strBookName
  Else
         MsgBox "ファイル名が取得できません。",vbCritical
    End if
End Sub

 

これで、拡張子を除いたファイル名を取得することができますので、ぜひ挑戦していきましょう!

 

まとめ

このように、Excel-VBAを活用して、ファイル名の拡張子を取得することが可能です。

またプログラミングをする上で大切なことは、同じコーディングを何度もしないように、上記のようにプログラムを細分化して、サブルーチン化することで、同じプログラムを何度も書かずに呼び出すように作成することが大切です。

今回の拡張子を取得するプログラムは、何度も呼び出せるように作成してありますので、ぜひその他のプログラムも同じように部品化しながら、作成してみて下さい。

 

大人気自宅飲み放題!多彩なビールをご自宅で楽しめる【DREAM BEER】

楽天おすすめ商品はこちら

人気急上昇中!累計販売数40万本突破『どこでもミラバス』

Copyright© 副業ケアネット , 2021 All Rights Reserved Powered by AFFINGER5.