【ExcelVBA】Yes No メッセージボックスでの条件分岐

**********
ExcelVBA
**********
Public Sub chkYesNo()

Dim chkYesNo

chkYesNo = MsgBox("～～します。" & Chr(10) & "よろしいですか？", vbYesNo , "YesNoボックスの活用")

If chkYesNo = vbYes Then
Msgbox "あなたは「はい」を選択しました！" '「はい(Yes)」を選んだ場合の処理を記述
ElseIf chkYesNo = vbNo Then
Msgbox "あなたは「いいえ」を選択しました！" '「いいえ(No)」を選んだ場合の処理を記述
End if

End Sub

【ExcelVBA】WscriptShell

**********
Excel VBA
**********

Public Sub UseWshObject()

Dim objWSH As Object
Dim objFSO As Object

Set objWSH = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

''オブジェクトを解放
Set objWSH = Nothing
Set objFSO = Nothing

End Sub

きにしちゃうから・・・

ブログって、やったことなくて、今やってて(笑)

そもそも、SNSとか苦手だし、あんまやってなかったんだけど、色んなきっかけがあって始めたら、まぁそれなりに続けていたりして。。

でも、思うとブログではないなぁ～

SNSの方は、だれが見るのかとか、知らず知らずのうちにわかっているから、反応を含めて日記とかかいてるんだよね、自分は。

でも、それでいいのか？

って考えちゃったり。。

なので、「いいじゃん！」

と、自分にいってあげよっ。

気にしすぎ。

自意識過剰か！？

人としての生き方

日々、迷いの中で生き方を模索する。


何故ならば、自分の生き方にとっての正解を誰も持ち合わせていないから。。


こだわりは大切であるが、それがとらわれにならないよう、気を付けて生きるしかないのかも…


Android携帯からの投稿

年始め

新年明けましておめでとうございます。

今年は広島県尾道で子供たちと新たな年を迎えました。

普段から子供たちとは関わり多く持っていますが、見せられる発想にはいつも驚きです。

これは長男が近くで拾い集め作った『門松』

己も負けじと一年、一生懸命に生きて参ろう！！


Android携帯からの投稿