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