[[20211222162834]]　『マルチページのテキストボックスの一部を空白』（くにもん）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『マルチページのテキストボックスの一部を空白』（くにもん）

下記のコードをネットで見つけたのですが、マルチページを使用している場合、すべてのページでクリアになってしまいます。
ページ1のみに限定する方法を教えてください。
よろしくお願いいたします。

Sub Sample()

    Dim Ctrl As Control

    For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Then _
            Ctrl.Value =""
    Next Ctrl
End Sub

＜ 使用 Excel：Excel2019、使用 OS：Windows10 ＞

---

ご参考。

 Sub Sample()
    Dim Ctrl As Control
    For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Then _
            MsgBox Ctrl.Parent.Name
    Next Ctrl
 End Sub

（ひまつぶし） 2021/12/22(水) 16:59

---

  For Each Ctrl In Me.MultiPage1.Pages(0).Controls
 ではどうでしょう
（´・ω・`） 2021/12/22(水) 17:02

---

お兄ちゃんありがとう
（くにもん） 2022/01/05(水) 13:19

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.