¡i¨D§U¡j¸ß°Ý¦p¦ó§R°£ª«¥ó¦ý¤£n§R°£¨ìVBAªº«ö¶s
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-3-27
- ³Ì«áµn¿ý
- 2021-7-4
|
¡i¨D§U¡j¸ß°Ý¦p¦ó§R°£ª«¥ó¦ý¤£n§R°£¨ìVBAªº«ö¶s
¥»©«³Ì«á¥Ñ david1216jp ©ó 2019-5-21 21:15 ½s¿è
¦U¦ì«e½ú̦n¡A¥ý¦æ´£¨ÑÀɮצp¤U¡A
¹ï±b³æ.rar (102.75 KB)
Àɮפ¤§Ú¦³ª¦¤å¼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ÁÂ~~ |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 20
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-9-16
|
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-3-27
- ³Ì«áµn¿ý
- 2021-7-4
|
·PÁ±z¨ó§U´£¨Ñ·N¨£¡A§Úèè·Q¨ì¸Ñ¨Mªº¤èªk¡A¤w¸Ñ¨M°ÝÃD¡A¦A¦¸·PÁÂ~~
¹ï±b³æ.zip (104.67 KB)
- Sub DeleteAll()
- Application.ScreenUpdating = False
- Dim shp As OLEObject
- Columns("A:R").Select
- Selection.Delete Shift:=xlToLeft
- For Each shp In ActiveSheet.OLEObjects
- shp.Delete
- Next shp
- Range("A1").Select
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|