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

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
                            1
                      2345678
                      9101112131415
                      16171819202122
                      23242526272829
                      30      
                      << June 2019 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 互換性チェックのメッセージが表示される
                        salomon speedcross
                      • 列記号の上、行番号の横に+や-の記号が表示されるようになった
                        stussy clothing
                      • 「2017年 窓の杜大賞」候補としてノミネート
                        levis jeans
                      • 数値を小数点位置で揃えるには(その1)
                        Levis
                      • 入力後矢印キーで修正すると入力モードが解除される
                        stussy sweatshirt
                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes
                      • 画面上は色が付いているのにカラーで印刷できない
                        nike air max 90
                      • プレビューウィンドウを表示していると不具合が発生する
                        pandora jewelry
                      • ユーザー定義関数のコメントを表示する
                        yeezy boost 350

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日