改ページ位置を取得する

0
    JUGEMテーマ:PC関連

    水平改ページのあるセルのアドレスを取得します。

    Sub Sample84() 
    Dim C As HPageBreak
    For Each C In ActiveSheet.HPageBreaks
    MsgBox C.Location.Address
    Next C
    End Sub
     

    広告リンク


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

    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
                     

                    環境変数を取得する

                    0
                      JUGEMテーマ:PC関連

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

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


                      data-ad-format="link">

                      calendar

                      S M T W T F S
                            1
                      2345678
                      9101112131415
                      16171819202122
                      23242526272829
                      3031     
                      << August 2020 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 「コピー領域と貼り付け領域のサイズが違うため、貼り付けることができません。」といわれる
                        Human Races
                      • ルーラーの単位を変更してもその単位で表示されない
                        Human Races
                      • プレビューウィンドウを表示していると不具合が発生する
                        Human Races
                      • 互換性チェックのメッセージが表示される
                        salomon speedcross
                      • 列記号の上、行番号の横に+や-の記号が表示されるようになった
                        stussy clothing
                      • 「2017年 窓の杜大賞」候補としてノミネート
                        levis jeans
                      • 数値を小数点位置で揃えるには(その1)
                        Levis
                      • 入力後矢印キーで修正すると入力モードが解除される
                        stussy sweatshirt
                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日