ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¡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ÁÂ~~

¦^´_ 1# david1216jp


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





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

TOP

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

  2. Application.ScreenUpdating = False

  3. Dim shp As OLEObject

  4. Columns("A:R").Select
  5. Selection.Delete Shift:=xlToLeft

  6. For Each shp In ActiveSheet.OLEObjects
  7.    shp.Delete
  8. Next shp

  9. Range("A1").Select

  10. Application.ScreenUpdating = True

  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD