[[20170609103558]]　『テキストボックス　値クリアー』（らら）　ページの最後に飛ぶ

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

　

『テキストボックス　値クリアー』（らら）

お世話になります
教えてください

別なサイトにテキストボックス　一気にクリアーがありまして
これを使用しようと考えています

この場合　テキストボックス８を除いた全てを
クリアーする事はできるのでしょうか

宜しくおねがいたします

Private Sub CommandButton10_Click()

  Dim Ctrl As Control

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

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

---

 If (TypeName(Ctrl) = "TextBox") * (Ctrl.Name <> "TextBox8") Then _
 とか
（seiya） 2017/06/09(金) 11:10

---

seiya様

有難う御座いました
（らら） 2017/06/09(金) 11:46

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

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