文字列を固定長文字列を含む構造体へ一括して渡す方法 (ID:91719)

名前

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

本文 Option Explicit Private Type A A1 As String * 1 A2 As String * 3 End Type Private Type B B1 As String * 4 End Type Private Sub Form_Load() Dim X As A Dim Y As B Y.B1 = "1234" LSet X = Y Debug.Print "A.A1=[" & X.A1 & "], A.A2=[" & X.A2 & "]" End Sub