両側のスペースを削除した値を返します

0
    JUGEMテーマ:PC関連

    「 A B C 」から文字間や文字間のスペースを消さずに、両側のスペースだけ削除した値を返します。
    通常のワークシート関数のTRIMは文字間のスペースが2つ以上重なっていた場合1つだけになりますが、VBA関数は文字間のスペースはそのままで両端だけを消します。

    ※以下を実行すると微妙な違いがわかると思います。

    Sub Sample83()
    'VBA関数のTrim関数
    MsgBox "「" & Trim(" A B C ") & "」"
    '通常関数のTrim関数
    MsgBox "「" & WorksheetFunction.Trim(" A B C ") & "」"
    End Sub

     

    広告リンク


    右側のスペースだけ削除した値を返す

    0
      JUGEMテーマ:PC関連

      「 A B C 」から文字間や左側のスペースを消さずに、右側のスペースだけ削除した値を返します。通常のワークシート関数のTRIMに似たVBA関数です。

      Sub Sample82() 
      MsgBox "「" & RTrim(" A B C ") & "」"
      End Sub
       

      左側のスペースだけ削除した値を返す

      0
        JUGEMテーマ:PC関連

        「 A B C 」から文字間や右側のスペースを消さずに、左側のスペースだけ削除した値を返します。通常のワークシート関数のTRIMに似たVBA関数です。

        Sub Sample81() 
        MsgBox "「" & LTrim(" A B C ") & "」"
        End Sub
         

        ファイルを削除する

        0
          JUGEMテーマ:PC関連

          「C:¥Users¥Public¥Documents¥1.xlsx」のパスのファイルを削除します。

          Sub Sample80() 
          Kill "C:¥Users¥Public¥Documents¥1.xlsx"
          End Sub
           

          入力ボックスを表示する

          0
            JUGEMテーマ:PC関連

            ユーザーに入力させるダイアログを指定のX・Y位置に表示します。
            デフォルト値は「0」としました。

            Sub Sample79() 
            Dim I As Integer
            I = InputBox("数値を入力して下さい", "数値", 0, 2000, 1000)
            If I = 0 Then Exit Sub
            MsgBox "入力値は「" & I & "」です"
            End Sub
             

            ファイルをコピーする

            0
              JUGEMテーマ:PC関連

              「E:¥1.xlsx」のパスのファイルを指定の場所にコピーします。

              Sub Sample78()
              FileCopy "E:¥1.xlsx", "C:¥Users¥Public¥Documents¥2.xlsx"
              End Sub

               

              ファイルのサイズ(容量)を表示する

              0
                JUGEMテーマ:PC関連

                「E:¥1.xlsx」のパスのファイルのサイズ(ファイル容量)をダイアログで表示します。

                Sub Sample77()
                MsgBox FileLen("E:¥1.xlsx")
                End Sub
                 

                ファイルの更新日時を表示する

                0
                  JUGEMテーマ:PC関連

                  「E:¥1.xlsx」のパスのファイルの更新日時をダイアログで表示します。

                  Sub Sample76()
                  MsgBox FileDateTime("E:¥1.xlsx")
                  End Sub
                   

                  年間総合ダウンロードランキング100位以内

                  0
                    JUGEMテーマ:PC関連

                    NOMBO作のExcel電子印鑑が、おかげさまでVectorサイトからの年間ダウンロードランキングで、2015年 年間総合ランキング(Windows)部門で、21位にランクインしました。

                    今後ともよろしくお願いします。
                     

                    環境変数を取得する

                    0
                      JUGEMテーマ:PC関連

                      環境変数を取得し、ダイアログで表示します。
                      コンピュータ名、ユーザー名、テンポラリーフォルダのパス、ユーザープロファイルのパスを取得する例です。

                      Sub Sample75()
                      ’コンピュータ名を表示します。
                      MsgBox "コンピュータ名は" & vbLf & Environ("COMPUTERNAME")
                      ’ユーザー名を表示します。
                      MsgBox "ユーザー名は" & vbLf & Environ("USERNAME")
                      ’テンポラリーフォルダのパスを表示します。
                      MsgBox "テンポラリーフォルダのパスは" & vbLf & Environ("TEMP")
                      ’デスクトップのパスを表示します。
                      MsgBox "デスクトップのパスは" & vbLf & Environ("UserProfile") & "¥Desktop"
                      End Sub
                       




                      calendar

                      S M T W T F S
                          123
                      45678910
                      11121314151617
                      18192021222324
                      252627282930 
                      << November 2018 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes
                      • 画面上は色が付いているのにカラーで印刷できない
                        nike air max 90
                      • プレビューウィンドウを表示していると不具合が発生する
                        pandora jewelry
                      • ユーザー定義関数のコメントを表示する
                        yeezy boost 350
                      • ルーラーの単位を変更してもその単位で表示されない
                        jordan 11
                      • セルの値を全て平仮名にする
                        hermes handbags
                      • 文字列の後ろについている数字だけ取り出すには?
                        louboutin shoes
                      • グラフをGIF形式の画像として保存する
                        louboutin shoes
                      • 指定した範囲の図形を選択するには
                        New Yeezys V2

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

                      無料ブログ作成サービス JUGEM

                      本日 昨日