フレキシブルグリッドで・・・ (ID:118130)

名前

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

本文 Sayさんとは違ったアプローチで！ どちらが良いかは、ゆりさんが決めてください。 Option Explicit 'テキストボックスから選択セルにまとめて入れる Private Sub Command1_Click() MSFlexGrid1.Text = Text1.Text & Text2.Text & Text3.Text & Text4.Text Text1.Text = vbNullString Text2.Text = vbNullString Text3.Text = vbNullString Text4.Text = vbNullString End Sub '選択セルからテキストボックスに Private Sub Command2_Click() Text1.Text = Format(MSFlexGrid1.Text, "ggg") Text2.Text = Format(MSFlexGrid1.Text, "e") & "年" Text3.Text = Format(MSFlexGrid1.Text, "m") & "月" Text4.Text = Format(MSFlexGrid1.Text, "d") & "日" End Sub Private Sub Form_Load() 'Date関数でとりあえず現在日付を入れてみました Text1.Text = Format(Date, "ggg") Text2.Text = Format(Date, "e") & "年" Text3.Text = Format(Date, "m") & "月" Text4.Text = Format(Date, "d") & "日" End Sub