特定のセルにジャンプするハイパーリンクを作成するには?

0

    JUGEMテーマ:PC関連

     

    Sheet1のA100にジャンプする様なハイパーリンクを関数で作成するには次の様にします。

     

    =HYPERLINK("#Sheet1!A100","ジャンプ")

     

    ハイパリンク関数

     

    広告リンク


    図形をグループ化する

    0

      JUGEMテーマ:PC関連

       

      図形を3種類作成し、全てグループ化します。
      グループ化された図形の四角形だけを探し、幅を2倍にします。

      Sub Sample100()
          Dim SN(0 To 2) As String, C As Shape, D As Shape
          '四角形を描画します
          With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 100)
              .Fill.ForeColor.RGB = RGB(255, 0, 0)
              .Line.ForeColor.RGB = RGB(255, 0, 0)
              SN(0) = .Name
          End With
          '円形を描画します
          With ActiveSheet.Shapes.AddShape(msoShapeOval, 20, 20, 70, 70)
              .Fill.ForeColor.RGB = RGB(0, 0, 255)
              .Line.ForeColor.RGB = RGB(0, 0, 255)
              SN(1) = .Name
          End With
          '月形を描画します
          With ActiveSheet.Shapes.AddShape(msoShapeMoon, 70, 70, 50, 50)
              .Fill.ForeColor.RGB = RGB(255, 255, 0)
              .Line.ForeColor.RGB = RGB(255, 255, 0)
              SN(2) = .Name
          End With
          '四角形、円形、月形を全てグループ化します
          ActiveSheet.Shapes.Range(SN).Group
          MsgBox "図形をグループ化しました"
          '1秒間待機
          Application.Wait Now + TimeValue("00:00:01")
          MsgBox "グループ化された図形の四角だけ幅を2倍に伸ばします"
          '全ての図形からグループ化された図形の四角形の幅を変更
          For Each C In ActiveSheet.Shapes
            For Each D In C.GroupItems
              If D.AutoShapeType = msoShapeRectangle Then
               D.Width = D.Width * 2
              End If
            Next D
          Next C
      End Sub

       


      名前の定義で非表示の名前を消す

      0

        JUGEMテーマ:PC関連

         

        名前の定義で非表示になっている名前を全て消します。

        Sub Sample99() 
        Dim N As Name
        For Each N In Names
          If N.Visible = False Then
          N.Delete
          End If
        Next N
        End Sub


        名前の定義の名前を非表示にする

        0

          JUGEMテーマ:PC関連

           

          名前の定義で「時刻」という文字が含まれる名前を非表示にし、ユーザーが操作できない様にします。

           

          Sub Sample98() 
          Dim N As Name
          For Each N In Names
            If N.Name Like "*時刻*" Then
            N.Visible = False
            End If
          Next N
          End Sub

           

           


          セルを選択しているかどうか判別する

          0

            JUGEMテーマ:PC関連

             

            セルを選択している場合、セルのアドレスを表示します。選択していない場合、メッセージで表示します。

             

            Sub Sample97()
            'セルを選択しているかどうか判別する
            If TypeName(Selection) = "Range" Then
                MsgBox Selection.Address
            Else
                MsgBox "セルを選択して下さい。"
            End If
            End Sub


            オートシェイプの内、円形だけ選択する

            0

              JUGEMテーマ:PC関連

               

              オートシェイプの内、円形の図形だけを選択します。

               

              Sub Sample96()
              Dim C As Shape
              For Each C In ActiveSheet.Shapes
                If C.AutoShapeType = msoShapeOval Then
                  C.Select False
                End If
              Next C
              End Sub


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

              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
                       




                      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

                      本日 昨日