特定の範囲内にある図形を全て選択する

0

    JUGEMテーマ:PC関連

     

    A1:E10の範囲内にある図形で、一部のみ範囲内にあるものを除き全て選択します。

     

    Sub Sample95()
    Dim C As Shape
    For Each C In ActiveSheet.Shapes
     If Not Intersect(C.TopLeftCell, Range("A1:E10")) Is Nothing _
       And Not Intersect(C.BottomRightCell, Range("A1:E10")) Is Nothing Then
        C.Select False
     End If
    Next C
    End Sub

    広告リンク


    特定の名前のコメントの背景の色を変える

    0
      JUGEMテーマ:PC関連

       

      特定の名前のコメントの背景の色を黄色に変更します。

       

      Sub Sample94()
      ActiveSheet.Shapes("名前").Fill.ForeColor.RGB = RGB(255, 255, 0)
      End Sub

       

       


      コメントの背景の色をすべて変える

      0
        JUGEMテーマ:PC関連

        アクティブシートに配置されている全てのコメントの背景の色を黄色にします。

        Sub Sample93()
        Dim C As Comment
        For Each C In ActiveSheet.Comments
        C.Shape.Fill.ForeColor.RGB = RGB(255, 255, 0)
        Next C
        End Sub
         

        セルにコメントを付ける

        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
                       




                      calendar

                      S M T W T F S
                        12345
                      6789101112
                      13141516171819
                      20212223242526
                      2728293031  
                      << October 2019 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 互換性チェックのメッセージが表示される
                        salomon speedcross
                      • 列記号の上、行番号の横に+や-の記号が表示されるようになった
                        stussy clothing
                      • 「2017年 窓の杜大賞」候補としてノミネート
                        levis jeans
                      • 数値を小数点位置で揃えるには(その1)
                        Levis
                      • 入力後矢印キーで修正すると入力モードが解除される
                        stussy sweatshirt
                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes
                      • 画面上は色が付いているのにカラーで印刷できない
                        nike air max 90
                      • プレビューウィンドウを表示していると不具合が発生する
                        pandora jewelry
                      • ユーザー定義関数のコメントを表示する
                        yeezy boost 350

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日