セルに数式が入力されているかどうか判別する

0
    JUGEMテーマ:PC関連

    A1のセルに入力されているのが、「=」で始まる数式か数値かを判別します。

    Sub Sample64()
    If Range("A1").HasFormula = True Then
      MsgBox "セルに数式が入力されています。"
    End If
    End Sub


     

    広告リンク


    シート名をセルに入力した文字に変更する

    0
      JUGEMテーマ:PC関連

      シート名をA1のセルの内容と同じにします。
      簡単には以下の様にします。

      Sub Sample63()
      ActiveSheet.Name = Range("A1").Value
      End Sub

      ただ、A1のセルにシート名に使用できない文字、「:」「?」「/」「¥」「*」「[」「]」が含まれている場合や他のシート名と同一になってしまった場合、エラーでVBAが止まってしまいます。それをダイアログで表示する様にするには、以下の様な感じです。

      Sub Sample63a()
      On Error GoTo ERA
      ActiveSheet.Name = Range("A1").Value
      Exit Sub
      ERA:
      MsgBox "シート名に使用できない文字が含まれているか、" & vbCrLf + "他のシート名と同じ名前になっています"
      End Sub

       

      シート名をブック名で保存する

      0
        JUGEMテーマ:PC関連

        アクティブシートだけのブックにして名前を付けて保存するには次の様にします。

        Sub Sample62()
        'アクティブシートだけのブックを新規作成する
        ActiveSheet.Copy
        With ActiveWorkbook
        'アクティブブックを指定場所に保存
        .SaveAs "C:¥Users¥Default¥Documents¥" & ActiveSheet.Name
        '保存しないで閉じる
        .Close True
        End With
        End Sub
         

        同じシート名があるかないかのチェックをする

        0
          JUGEMテーマ:PC関連

          「abc」という名前のシートが存在するかどうかの判別は次の様にすれば出来ます。

          Sub Sample61()
          Dim W As Worksheet, B As Boolean
          For Each W In Worksheets
            If W.Name = "abc" Then
              B = True
              Exit For
            End If
          Next W
          If B = True Then
             MsgBox "「abc」シートは存在します"
          Else
             MsgBox "「abc」シートは存在しません"
          End If
          End Sub
           

          [塗りつぶし]の色ダイアログボックスを表示し、ユーザーが選択した色番号を取得する

          0
            JUGEMテーマ:PC関連

            [塗りつぶし]の色ダイアログボックスを表示し、色番号をメッセージボックスで表示します。

            Sub Sample60()
            If Application.Dialogs(xlDialogPatterns).Show = True Then
              MsgBox "「" & ActiveCell.Interior.ColorIndex & "」番の色です"
            End If
            End Sub


             

            アクティブシート名をセルに入力する

            0
              JUGEMテーマ:PC関連

              アクティブシートのシート名をA1のセルに入力するには次の様にします。

              Sub Sample59()
              Range("A1").Value = ActiveSheet.Name
              End Sub

               

              タイトルバーにブックのパスも表示する

              0
                JUGEMテーマ:PC関連

                タイトルバーは通常ブック名のみ表示されていますが、この部分を自由に変更する事が可能です。
                フルパスに変更するには、以下の様にします。

                Sub Sample58()
                ActiveWindow.Caption = ActiveWorkbook.FullName
                End Sub

                ※この設定は保存されませんので、ブックを閉じれば元に戻ります。
                 

                ステータスバーにメッセージを表示する

                0
                  JUGEMテーマ:PC関連

                  ステータスバーにメッセージを表示します。
                  マクロ終了後に表示を消します。

                  Sub Sample57()
                  'ステータスバーに表示
                  Application.StatusBar = "マクロを実行中です。"
                  MsgBox "マクロの処理を終了しました。"
                  'ステータスバーに表示を消す
                  Application.StatusBar = False
                  End Sub



                   

                  指定した時間にマクロを実行する

                  0
                    JUGEMテーマ:PC関連

                    12時ちょうどに「macro」という名前のマクロを実行します。
                    12時より前に以下のマクロを実行しておき、12時の時点でエクセルが起動していないとダメです。

                    Sub Sample56()
                    Application.OnTime TimeValue("12:00:00"), "macro"
                    End Sub

                     

                    ユーザーフォームで進捗状況を表示する

                    0
                      JUGEMテーマ:PC関連

                      ProgressBarコントロールを使うと、ユーザーフォームに進捗状況を表示することが出来ます。
                      例えば、ユーザーフォームにProgressBar1を配置し、標準モジュールには以下の様に記述します。

                      Sub Sanmple55()
                      Dim I As Integer
                      UserForm1.Show False
                      For I = 1 To 10
                      Application.Wait Now + TimeValue("00:00:01")
                      UserForm1.ProgressBar1.Value = I * 10
                      Next I
                      End Sub



                      尚、ProgressBarコントロールがツールボックスに表示されない場合は以下の手順で追加します。

                      ツールボックスで右クリック→その他のコントロールを選び、利用可能なコントロールの中から、ProgressBarというのを選びチェックして、OKします。





                      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

                      本日 昨日