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

¹Ï®×«ö¶s¦p¦ó§R°£

¹Ï®×«ö¶s¦p¦ó§R°£

½Ð°Ý³oºØ¹Ï®×ªº«ö¶s¡A­n«ç»ò¥ÎVBA§R°£©O?
¥¼©R¦W.jpg
2021-5-3 11:08


(¦]¬°ªí³æ±±¨î¶µ«ö¶s¦³ÂI¨î¦¡¡A¤£¦n¬Ý¡A©Ò¥H§Ú¬O¥Î"´¡¤J"--"¹Ï®×"ªº«ö¶s)

§Ú¥Î
Columns(20).Delete
Columns(21).Delete
Columns(22).Delete
«Ü©_©Ç~¥u§R°£2~«ö¶s1«o§R¤£±¼

¦^´_ 1# ssooi


¥i¥H½T»{³]©w¹Ï®×®æ¦¡Äݩʦ³µL³Q©T©w¡A©ÎªÌ§ï¬°¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
For Each shp In ActiveSheet.Shapes
        shp.Delete
Next

TOP

sheets("¤u§@ªí¦WºÙ").shapes("¹Ï®×¦WºÙ").delete

TOP

§Ú«á¨Ó¤]¥Î¿ý»s¥¨¶°§ä¨ìµª®×¤F
·PÁ¦U¦ì¤j®a
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 2" _
    )).Select
Selection.Delete

TOP

For Each shpPicChk In ActiveSheet.Shapes                                              ' ´M§ä½d³ò:[T1:V100]¤º¦³µL¹Ï¤ù(¥B¤£¬°¤U©Ô«ö¶s), ¦pªG¦³ªº¸Ü, «h§R°£.
           If Left(shpPicChk.Name, 4) <> "Drop" Then
              If (shpPicChk.TopLeftCell.Column >= 20 And shpPicChk.TopLeftCell.Column <= 21 And shpPicChk.TopLeftCell.Row >= 1 And shpPicChk.TopLeftCell.Row <= 100) Then
                 shpPicChk.Delete
              End If
           End If
       Next shpPicChk
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD