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

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

 

 

コンピュータとインターネット

流出

最近LINEに不正アクセスの試みがあった みたいな報告がやたら届くんですよ。
Appleの偽領収書といいなんか気色悪いなぁ。。。😰

Have I been pwned? というサイトがあって、自分のメールアドレスが流失しているかが調べられるらしいのでやってみたら やっぱり流出していました。。。これが原因なんでしょうかねぇ。

残念😱😱😱😱😱

流出したと書いてある 使ってなかったマイスペースというサイトのアカウントを削除し、アドビのはパスワードを2段階認証に変えて、行きたいけど行けないなぁのライブが多くて、見てると人を羨ましがってしまうので、Facebookもツイッターもやめてしまおう!とアカウントを削除しました。LINEはこれだけで繋がってるのがあるのでどうしようかなぁ・・・でも一番危なそうやしなぁ と悩んでいるところです。

うむぅぅぅ 気持ち悪いなぁ

コンピュータとインターネット

Appleからの偽の領収書メール

もうあと1ヶ月で今年も終わりますね。
いろいろあったけれど、あっという間な気がします。

そうそう昨日Appleからの偽の領収書メールが届きました。
最近迷惑メールにAppleを装った胡散臭いメールがよく着信していたのだけど
今回はすり抜けて受信トレイに入ったのと、
メールの本文が本物そっくりだったので、
アカウントを乗っ取られたのかと思って焦りました😨😨😨
検索してみたところ、最近偽の領収書メールが多くはっせいしているとか。
IDが漏れたのかなぁ。。。
偽のメールには本物に表示されてる、郵便番号とか住所が書いていなかった。
その辺りが見分けるコツでもあるらしいです。
乗っ取られたのかと思って本文内のリンクをクリックさせるのが狙いらしい。
しかし、、、そっくりだな。
やな奴だ😤