年間総合ダウンロードランキング100位以内

0
    JUGEMテーマ:PC関連

    NOMBO作のExcel電子印鑑が、おかげさまでVectorサイトからの年間ダウンロードランキングで、2015年 年間総合ランキング(Windows)部門で、21位にランクインしました。

    今後ともよろしくお願いします。
     

    広告リンク


    環境変数を取得する

    0
      JUGEMテーマ:PC関連

      環境変数を取得し、ダイアログで表示します。
      コンピュータ名、ユーザー名、テンポラリーフォルダのパス、ユーザープロファイルのパスを取得する例です。

      Sub Sample75()
      ’コンピュータ名を表示します。
      MsgBox "コンピュータ名は" & vbLf & Environ("COMPUTERNAME")
      ’ユーザー名を表示します。
      MsgBox "ユーザー名は" & vbLf & Environ("USERNAME")
      ’テンポラリーフォルダのパスを表示します。
      MsgBox "テンポラリーフォルダのパスは" & vbLf & Environ("TEMP")
      ’デスクトップのパスを表示します。
      MsgBox "デスクトップのパスは" & vbLf & Environ("UserProfile") & "¥Desktop"
      End Sub
       

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

      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
                       


                      data-ad-format="link">

                      calendar

                      S M T W T F S
                         1234
                      567891011
                      12131415161718
                      19202122232425
                      2627282930  
                      << April 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

                      本日 昨日