ユーザ定義変数の中身を一気にクリアするには (ID:110055)

名前

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

本文 例えば、こんな感じ？ Option Explicit Private Type typeData I As Integer D As Date s As String End Type Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal length As Long) Private Sub Form_Load() Dim data As typeData data.I = 999 data.D = #11/4/2003# data.s = "askdfjlksjdf" Debug.Print data.I, data.D, data.s ZeroMemory data, LenB(data) Debug.Print data.I, data.D, data.s End Sub