top of page
検索

ものづくり:スケジュール表、ステップ3 複数行の入力に悪戦苦闘

執筆者の写真: Dancing ShigekoDancing Shigeko

更新日:2024年11月11日

 こんにちは、Dancing Shigekoです!


 昨日に続き、エクセルでのスケジュール表づくり。→前回


 二行目以降の入力が同一テキストボックスに入ってしまう。


 これを解消するのに、いろいろと試すものの、なかなかうまくいかない。


 少し方針を変更して、二行目に入れても文字が出力される方法がないか試してみることに。


---

Private Sub Worksheet_Change(ByVal Target As Range)

Dim txt As String

Dim tb As Shape

Dim tempShape As Shape

Dim tempWidth As Double

Dim tempHeight As Double

Dim padding As Double

Dim cell As Range

Dim tbName As String

' パディングを設定

padding = 10

' A1, A2の変更を監視

If Not Intersect(Target, Me.Range("A1:A2")) Is Nothing Then

For Each cell In Target

If cell.row = 1 Or cell.row = 2 Then

' テキストボックスの名前を設定

tbName = "MyTextBox" & cell.row

' テキストボックスが存在するか確認

On Error Resume Next

Set tb = Me.Shapes(tbName)

On Error GoTo 0

' テキストボックスが存在しない場合は作成

If tb Is Nothing Then

Set tb = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100 + (cell.row - 1) * 100, 200, 50)

tb.Name = tbName

End If

' セルの内容を取得してテキストボックスに設定

txt = cell.Value

tb.TextFrame.Characters.text = txt

' 一時的なテキストボックスを作成してサイズを計算

Set tempShape = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 0, 0)

tempShape.TextFrame.Characters.text = txt

tempShape.TextFrame.AutoSize = True

tempWidth = tempShape.Width

tempHeight = tempShape.Height

tempShape.Delete

' テキストボックスのサイズを設定

tb.Width = tempWidth + padding

tb.Height = tempHeight + padding

End If

Next cell

End If

End Sub

---

 A列だけを対象にしたら、一応出せるようになった。

 これであとはセルをB列、C列の入力も反映できるようにしたらいいはず!


 明日には次のステップに行けるようになるか。


 乞うご期待!



閲覧数:0回0件のコメント

最新記事

すべて表示

国内ドラマ『アイシー~瞬間記憶捜査・柊班~』第4話 柊、部下を庇う

こんにちは、Dancing Shigekoです!  瑞江がなくなりどう変化するのか。  今回は国内ドラマ『アイシー~瞬間記憶捜査・柊班~』第4話を紹介します! [内容] #4 途絶えた福音  瑞江が亡くなって傷が癒えない中、殺人事件が発生。関係者と思われる女性・奥貫梨々花に...

Comments


© 2023 サイト名 Wix.comを使って作成されました
当サイトの内容、テキスト、画像等の無断転載・無断使用を固く禁じます。

 
 
bottom of page