条件によってジャンプ先を変更するハイパーリンクを作成するには?

0

    JUGEMテーマ:PC関連

     

    B列の値が最大値となる行を探しその隣のA列にジャンプするには、以下の様にします。

     

    =HYPERLINK("#A"&MATCH(MAX(B:B),B:B,0),"ジャンプ")

     

     

     

    広告リンク


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

    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
                       




                      calendar

                      S M T W T F S
                        12345
                      6789101112
                      13141516171819
                      20212223242526
                      2728293031  
                      << May 2018 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • ファイルを開くと2つ同時に開かれ、ファイル名の後ろに「*.xlsx:1」とか数字がつく
                        yeezy boost 350
                      • オートシェイプで自由な形状の絵を描くには
                        jordan 11
                      • 環境変数を取得する
                        birkenstock sandals
                      • Excel2007以降のオートシェイプで連続して線を引くには
                        fitflop sale
                      • 非表示にした列や行を再表示できない
                        jordan 11
                      • 数値を1文字づつに分解するには?
                        lebron shoes
                      • 罫線を含まない範囲からコピーして貼り付けると罫線が消える
                        jordan 11 space jam
                      • 複数の範囲に数式を入力するには
                        nike air vapormax
                      • 移動先またはコピー先のブックの行列数が元のブックの行列数よりも少ないとエラーになる
                        salomon shoes
                      • Excel2007以降で閉じるボタンを押しても全てのブックを閉じる事ができない
                        jordan 11

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日