返回列表下一主題上一主題發帖

[發問] TEXTBOX問題尋問

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-11-28 13:54 | 只看該作者

[發問] TEXTBOX問題尋問

Dear all 大大
1.有書寫圖一程式
1.1 其中 Text Box 62560 日久忘記於表單何處.有無辦法尋找它於表單何處??
2.煩不吝賜教 thanks*10000

圖一
Sub TEXTBOX62560刪除1()
Sheet14.Select
Range("A1").Select
Y = Sheet3.Range("D218")
If Y - 1 = 0 Then
ActiveSheet.Shapes("Text Box 62560").Select
Selection.Delete
End If
Range("A1").Select

End Sub