カンマ区切りの文字列から特定の文字の数を数えるには?

0

    JUGEMテーマ:PC関連

     

    「佐藤,鈴木,林,田中,小林」など、カンマ区切りの名前の中から、林さんだけを数えるには、以下の様にします。

     

    =(LEN(","&I3&",")-LEN(SUBSTITUTE(","&I3&",",",林,","")))/LEN(",林,")

     

    広告リンク


    全ての文字があるか確認するには?

    0

      JUGEMテーマ:PC関連

       

      「あいうえお」の文字が1文字づつ順不同であるとします。
      全ての文字がA1:A5の範囲にあるか確認するには、以下の様にします。

       

      =IF(AND(COUNTIF(A1:A5,{"あ","い","う","え","お"})=1),"OK","NG")

       

       


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

      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





                      calendar

                      S M T W T F S
                          123
                      45678910
                      11121314151617
                      18192021222324
                      25262728293031
                      << August 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

                      本日 昨日