指定の日付の文字列をシリアル値にします

0
    JUGEMテーマ:PC関連

    指定の日付の文字列をシリアル値にして、和暦にしてダイアログで表示します。

    Sub Sample74()
    MsgBox Format(DateValue("2016/1/1"), "ggge年mm月dd日")
    End Sub
     

    広告リンク


    指定の日付をシリアル値で表示します

    0
      JUGEMテーマ:PC関連

      指定の日付をシリアル値にしてA1のセルに入力します。

      Sub Sample73()
      Range("A1").Value = DateSerial(2015, 12, 31)
      End Sub

       

      指定の日付が今年何週目か表示します

      0
        JUGEMテーマ:PC関連

        指定の日付が今年何週目なのかダイアログで表示します。

        Sub Sample72()
        MsgBox DatePart("ww", "2015/12/1") & "週目"
        End Sub
         

        指定の日付からどのぐらい経過したか表示します

        0
          JUGEMテーマ:PC関連

          指定の日付から何年何か月何日経過したか表示するには以下の様にします。

          Sub Sample71()
          ’2010/1/1から何年何か月何日経過したか表示します
          MsgBox DateDiff("yyyy", "2010/1/1", Date) & "年" _
            & DateDiff("m", "2010/1/1", Date) Mod 12 & "ヵ月" _
             & DateDiff("d", DateSerial(Year(Date), Month("2010/1/1"), Day("2010/1/1")), Date) & "日"
          End Sub
           

          指定の日付から特定の間隔を加算した日を表示します

          0
            JUGEMテーマ:PC関連

            現在の日付から指定の日数等を加算した日付を表示するには、以下の様にします。

            Sub Sample70()
            '3日後を表示
            MsgBox "3日後は" & DateAdd("d", 3, Date)
            '1ヵ月後を表示
            MsgBox "1ヵ月後は" & DateAdd("m", 1, Date)
            '1年後を表示
            MsgBox "1年後は" & DateAdd("yyyy", 1, Date)
            End Sub
             

            スペースを指定の数だけ繰り返します

            0
              JUGEMテーマ:PC関連

              「*」と「*」の間に半角スペースを4つ入れます。

              Sub Sample69()
              'スペースを4つ入れます。
              MsgBox "*" & Space(4) & "*"
              End Sub

               

              同じ文字を指定の数だけ繰り返します

              0
                JUGEMテーマ:PC関連

                「★」を4つ連続した文字列を表示します。

                Sub Sample68()
                '組み込み関数のREPT関数と同じ働きをするVBA関数です。
                MsgBox String(4, "★")
                End Sub
                 

                セルの値を全て平仮名にする

                0
                  JUGEMテーマ:PC関連

                  A1のセルの文字列を平仮名文字に変換します。

                  Sub Sample67()
                  Range("A1").Value = StrConv(Range("A1").Value, vbHiragana)
                  End Sub
                   

                  セルの値を全角文字にする

                  0
                    JUGEMテーマ:PC関連

                    A1のセルの文字列を全角文字に変換します。

                    Sub Sample66()
                    Range("A1").Value = StrConv(Range("A1").Value, vbWide)
                    End Sub
                     

                    セルに数式を入力する

                    0
                      JUGEMテーマ:PC関連

                      A1に関数を入力する場合、以下の様にします。

                      Sub Sample65()
                      Range("A1").Formula = "=SUM(B1:B10)"
                      End Sub

                      また、数式を指定の範囲に相対参照で一回で入力も出来ます。
                      以下はA1:A10の範囲にぞれぞれ、=B1、=B2・・・と入力していきます。

                      Sub Sample65a()
                      Range("A1:A10").Formula = "=B1"
                      End Sub


                      data-ad-format="link">

                      calendar

                      S M T W T F S
                            1
                      2345678
                      9101112131415
                      16171819202122
                      23242526272829
                      3031     
                      << August 2020 >>

                      スポンサードリンク

                      広告リンク

                      広告リンク

                      selected entries

                      categories

                      archives

                      recent comment

                      • 「コピー領域と貼り付け領域のサイズが違うため、貼り付けることができません。」といわれる
                        Human Races
                      • ルーラーの単位を変更してもその単位で表示されない
                        Human Races
                      • プレビューウィンドウを表示していると不具合が発生する
                        Human Races
                      • 互換性チェックのメッセージが表示される
                        salomon speedcross
                      • 列記号の上、行番号の横に+や-の記号が表示されるようになった
                        stussy clothing
                      • 「2017年 窓の杜大賞」候補としてノミネート
                        levis jeans
                      • 数値を小数点位置で揃えるには(その1)
                        Levis
                      • 入力後矢印キーで修正すると入力モードが解除される
                        stussy sweatshirt
                      • 2016年間総合ダウンロードランキング100位以内
                        lebron shoes
                      • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
                        salomon shoes

                      links

                      profile

                      search this site.

                      others

                      mobile

                      qrcode

                      recommend

                      powered

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

                      本日 昨日