テキストに書いたソースコードを実行するには？ (ID:88976)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit Private Sub Form_Load() Label1.AutoSize = True Label1.Caption = _ "T = Now()" & vbCrLf & _ "If Second(T) < 30 Then" & vbCrLf & _ " MsgBox ""0〜29秒"", vbInformation, FormatDateTime(T)" & vbCrLf & _ "Else" & vbCrLf & _ " MsgBox ""30〜59秒"", vbInformation, FormatDateTime(T)" & vbCrLf & _ "End If" End Sub Private Sub Command1_Click() With CreateObject("ScriptControl") .Language = "VBScript" .ExecuteStatement Label1.Caption End With End Sub