¡i¨D§U¡j¸ß°Ý¦p¦ó§R°£ª«¥ó¦ý¤£­n§R°£¨ìVBAªº«ö¶s

david1216jp

¦U¦ì«e½ú­Ì¦n¡A¥ý¦æ´£¨ÑÀɮצp¤U¡A
¹ï±b³æ.rar (102.75 KB)

¤U¸ü¦¸¼Æ: 5

2019-5-21 21:14

Àɮפ¤§Ú¦³ª¦¤å¼g¤F¤@­Ó¥¨¶°DeleteAll¡A
¦ý¬O°õ¦æ¤§«á³£·|§â§Ú¦b®ÇÃä©ñ¸mªº«ö¶s¦P®É§R°£±¼(¦ü¥G¤£¯à¥Îshapes)¡A
½Ð°Ý¬O§_¦³¤èªk¥i¥H§ï¼g¡A§âÀɮפ¤Forms.HTML:Text»PForms.HTML:Checkbox³£§R°£±¼¡A
µM«á¤£·|°Ê¨ì®ÇÃ䪺«ö¶s¡AÁÙ¦V¦U¦ì°ª¤â¨D§U¡A·PÁÂ~~

jeffrey628litw

¦^´_ 1# david1216jp


    «Øij¥ÎÄx©³¥Õ¦r¨ººØ«ö¶s´N¤£·|³Q VBA µ{¦¡§R°£±¼ VBA «ö¯Ã¡C

¤U¸ü (28.39 KB)

2019-5-22 13:27

VBA - ³]¦h±ø¥ó±q¸ê®Æ®w¤¤¼´¥Xµ²ªG(±`¥Î).rar (14.19 KB)

¤U¸ü¦¸¼Æ: 8

2019-5-22 13:28

david1216jp

·PÁ±z¨ó§U´£¨Ñ·N¨£¡A§Ú­è­è·Q¨ì¸Ñ¨Mªº¤èªk¡A¤w¸Ñ¨M°ÝÃD¡A¦A¦¸·PÁÂ~~
¹ï±b³æ.zip (104.67 KB)

¤U¸ü¦¸¼Æ: 3

2019-5-22 15:31

1. Sub DeleteAll()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5. Dim shp As OLEObject
   
6. 
   
7. Columns("A:R").Select
   
8. Selection.Delete Shift:=xlToLeft
   
9. 
   
10. For Each shp In ActiveSheet.OLEObjects
    
11.    shp.Delete
    
12. Next shp
    
13. 
    
14. Range("A1").Select
    
15. 
    
16. Application.ScreenUpdating = True
    
17. 
    
18. End Sub

½Æ»s¥N½X