セルの値を全角文字にする

0
    JUGEMテーマ:PC関連

    A1のセルの文字列を全角文字に変換します。

    Sub Sample66()
    Range("A1").Value = StrConv(Range("A1").Value, vbWide)
    End Sub
     

    広告リンク


    セルに数式を入力する

    0
      JUGEMテーマ:PC関連

      A1に関数を入力する場合、以下の様にします。

      Sub Sample65()
      Range("A1").Formula = "=SUM(B1:B10)"
      End Sub

      また、数式を指定の範囲に相対参照で一回で入力も出来ます。
      以下はA1:A10の範囲にぞれぞれ、=B1、=B2・・・と入力していきます。

      Sub Sample65a()
      Range("A1:A10").Formula = "=B1"
      End Sub

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

      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



                       


                      data-ad-format="link">

                      calendar

                      S M T W T F S
                         1234
                      567891011
                      12131415161718
                      19202122232425
                      2627282930  
                      << April 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

                      本日 昨日