VBA

VBA フォルダがなかったら作る

エクセルマクロを書くお仕事をいただいた。大体できたと思っていたのに、テストしてみると想像していた以上にいろいろせなかかんかった。😅気づいてよかった。

wordpressにSyntaxHighlighter Evolved というプラグインを入れてみた。
VBAのコードも綺麗に表示できる。これで健忘録が書きやすくなった😁
さっそく 

Sub Foldercheckcreate()'C:\Users\nameに「test」というフォルダがなかったからフォルダを作成する
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")

     If FSO.FolderExists("C:\Users\name\test") = True Then
     Else
        FSO.CreateFolder "C:\Users\name\test"
     End If
    Set FSO = Nothing
End Sub

参考にしたページはhttp://officetanaka.net/excel/vba/filesystemobject/filesystemobject11.htm
こちら ありがとうございました~

VBA

VBA プロジェクトエクスプローラー イミディエイトウィンドウ の表示 非表示 ショートカット

VBAを書いている時にマウスに手をやるのが億劫なので、調べてみた。

プロジェクトエクスプローラーの表示 Ctrl+R

イミディエイトウィンドウの表示 Ctrl+G

非表示にしたいときは
プロジェクトエクスプローラー(またはイミディエイトウィンドウ)がアクティブの時に
メニューキー(右側のCtrlキーの横にあるやつ)+H

忘れないために書いておこう。。。