セルにコメントを付ける

0
    JUGEMテーマ:PC関連

    A1のセルにコメントを付けます。

    Sub Sample92()
    Range("A1").AddComment "コメントです"
    End Sub
     

    広告リンク


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

    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

                       




                      calendar

                      S M T W T F S
                       123456
                      78910111213
                      14151617181920
                      21222324252627
                      28293031   
                      << October 2018 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes
                      • 画面上は色が付いているのにカラーで印刷できない
                        nike air max 90
                      • プレビューウィンドウを表示していると不具合が発生する
                        pandora jewelry
                      • ユーザー定義関数のコメントを表示する
                        yeezy boost 350
                      • ルーラーの単位を変更してもその単位で表示されない
                        jordan 11
                      • セルの値を全て平仮名にする
                        hermes handbags
                      • 文字列の後ろについている数字だけ取り出すには?
                        louboutin shoes
                      • グラフをGIF形式の画像として保存する
                        louboutin shoes
                      • 指定した範囲の図形を選択するには
                        New Yeezys V2

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日