スポンサーサイト

一定期間更新がないため広告を表示しています

千円・百万円単位の書式設定

 

●千円・百万円単位の書式設定

 

 千円表示にする

  「種類」欄に「#,##0,」と入力

   ※最後に「,」(カンマ)を「1つ」つけます。

 
 百万円表示にする

  「種類」欄に「#,##0,,」と入力

  ※最後に「,」(カンマ)を「2つ」つけます。

 

●数値を百万単位で表示してマイナスの値を括弧で
 表示する

  「#,##0,,);(#,##0,,)

●数値を百万単位で表示してマイナスの値を括弧で
 表示して、小数点を揃える

  「#,##0,,_);(#,##0,,)
  ※ポイントは「_)」(アンダーバー)

強制改行

 強制改行をすべて削除

置換機能を使用

検索文字:^11

連続番号の複数フォルダを作成する

 

Sub Sample03()

    Dim FSO As Object, StartNum As Long, EndNum As Long, i As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")

    ''C:¥Workフォルダの存在を調べます

    If FSO.FolderExists("C:¥Work¥") = False Then

        MsgBox "C:¥Workフォルダを作ってから実行してください", vbExclamation

        Set FSO = Nothing

        Exit Sub

    End If

    ''開始数字と終了数字をユーザーから受け取ります

    StartNum = Val(InputBox("連続番号フォルダの開始番号は?"))

    EndNum = Val(InputBox("連続番号フォルダの終了番号は?"))

    If StartNum = 0 Or EndNum = 0 Then Exit Sub

    ''連続番号フォルダを作成します

    ''同名フォルダが存在する場合のエラーを無視します

    On Error Resume Next

    For i = StartNum To EndNum

        FSO.CreateFolder "C:¥Work¥" & Format(i, "000")

    Next i

    MsgBox Format(StartNum, "000") & "から" & _

           Format(EndNum, "000") & "のフォルダを作成しました", vbInformation

    Set FSO = Nothing

End Sub

私の似顔絵を作成

似顔絵イラストメーカーで私の似顔絵を作成 

http://illustmaker.abi-station.com/



すんごぐ、にでる〜〜〜〜

Excel VBA 無限ループからの強制終了

 いろんなことを学んでいると、ふと忘れてしまう年頃なので

ブログを利用して覚書に書き込んでおくことに・・

Excel VBA 無限ループからの強制終了

lenovo G560
 Fn+break