特定の範囲内の文字が含まれているかどうか判別する

0
    JUGEMテーマ:PC関連

    A1のセルにA、B、C、何れかの文字が含まれているかどうか判別し、含まれている場合は、ダイアログで表示します。

    Sub Sample91()
    If Range("A1").Value Like "*[A-C]*" Then
      MsgBox "文字が含まれてます"
    End If
    End Sub
     

    広告リンク


    特定の範囲内にアクティブセルがある場合警告表示する

    0
      JUGEMテーマ:PC関連

      A1:A10の範囲内にアクティブセルがある時に実行した場合、警告のダイアログを表示します。

      Sub Sample90()
      If Not Intersect(Range("A1:C10"), ActiveCell) Is Nothing Then
        MsgBox "この範囲内では実行出来ません", vbCritical
      End If
      End Sub
       

      特定の文字が含まれるセルを全て置換する

      0
        JUGEMテーマ:PC関連

        A列で「赤」という文字を「青」に置換します。
        例えば「赤」も「赤い」という文字もそれぞれ「青」「青い」になります。

        Sub Sample89()
        Range("A:A").Replace "赤", "青", xlPart
        End Sub

         

        特定の文字が含まれるセルに色を付ける

        0
          JUGEMテーマ:PC関連

          A列で「県」という文字が含まれるセル全てに黄色で色を付けます。

          Sub Sample88()
          Dim R As Range, A As String
          Set R = Range("A:A").Find("県", Range("A1"), , xlPart)
          If Not R Is Nothing Then
             A = R.Address
             Do
               R.Interior.ColorIndex = 6
               Set R = Range("A:A").FindNext(R)
             Loop Until A = R.Address
          End If
          End Sub

           

          画像を指定の位置に元の比率で縮小(拡大)挿入する

          0
            JUGEMテーマ:PC関連

            「C:¥1.jpg」を画像とリンクさせずにX方向100,Y方向200ポイントの位置に元のサイズの75%で挿入します。

            Sub Sample87()
             With ActiveSheet.Shapes.AddPicture("C:¥1.jpg", msoFalse, msoTrue, 100, 200, 50, 50)
                .ScaleWidth 0.75, msoTrue
                .ScaleHeight 0.75, msoTrue
            End With
            End Sub

            画像を元のサイズのまま挿入する

            0
              JUGEMテーマ:PC関連

              「C:¥1.jpg」を元のサイズのままアクティブセル位置に挿入します。

              Sub Sample86()
                ActiveSheet.Pictures.Insert "C:¥1.jpg"
              End Sub
               

              画像を指定の位置に指定のサイズで挿入する

              0
                JUGEMテーマ:PC関連

                「C:¥1.jpg」を画像とリンクさせずにX方向100,Y方向200ポイントの位置に50×50のサイズで挿入します。

                Sub Sample85()
                 ActiveSheet.Shapes.AddPicture "C:¥1.jpg", msoFalse, msoTrue, 100, 200, 50, 50
                End Sub
                 

                改ページ位置を取得する

                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
                       




                      calendar

                      S M T W T F S
                          123
                      45678910
                      11121314151617
                      18192021222324
                      25262728   
                      << February 2018 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • セルの値を全て平仮名にする
                        にしおあきひろ
                      • 入力後矢印キーで修正すると入力モードが解除される
                        hiro
                      • 指定した範囲の図形を選択するには
                        wjava
                      • 年間総合ダウンロードランキング100位以内
                        kana
                      • Excel2007以降のオートシェイプで頂点の編集をするには
                        yusuke
                      • 文字を入力すると自動で「'」が付く
                        鯉沼 宏
                      • 年間総合ダウンロードランキング100位以内
                        やあちゃん
                      • Excel2010で自動でマクロが有効になる
                        k-s

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日