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

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
                   

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

                  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
                       




                      calendar

                      S M T W T F S
                            1
                      2345678
                      9101112131415
                      16171819202122
                      23242526272829
                      3031     
                      << December 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

                      本日 昨日