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

[µo°Ý] ¦p¦ó¤@¦¸¹L§R°£ (ª½½u±µÂI)¹Ï®×?

[µo°Ý] ¦p¦ó¤@¦¸¹L§R°£ (ª½½u±µÂI)¹Ï®×?

¥»©«³Ì«á¥Ñ idsmchow ©ó 2012-1-7 00:27 ½s¿è

¦pÃD ¨C¤@±iSheet³£¦³¦n¦h (ª½½u±µÂI)¹Ï®×, ½Ð°Ý¦n¦ó§R°£? (³o¬OOracle ¥X¨Óªº®æ¦¡)

¥t¥~·Q½Ð°Ý (ª½½u±µÂI)¹Ï®×, ¬O§_·|¼vÅT¥¨¶°ªº¹B§@?  ¦]¬°¨C·í¦³³o¨Ç®æ¦¡¥X²{, ¹q¸£´N¥X²{¥Õµe­±, µ¥¤F«Ü¤[¤]¨S¦³¤ÏÀ³, »Ý­n±j¦æ ALT+CTR+DEL  colse.

¦Ó¥B ¬O§_·|¨Ï¨ì File size ¿E¼W?

½Ð°ÝÀ³¦n¦ó¸Ñ¨M°ÝÃD?

ª½½u±µÂI.rar (452.2 KB)

¥»©«³Ì«á¥Ñ jarodz ©ó 2012-1-7 13:07 ½s¿è

¥i¥H¥Î
activesheet.shapes.selectall
selection.delete
§â³o±isheetªºshape¥þ³¡§R°£¡C

TOP

¦^´_ 1# idsmchow
·Q½Ð°Ý (ª½½u±µÂI)¹Ï®×, ¬O§_·|¼vÅT¥¨¶°ªº¹B§@?
¬O§A(ª½½u±µÂI)¹Ï®×¤Ó¦h¤F (1435 ) ÀÉ®×Åܤj  
   
  1. Sub Ex()
  2.     MsgBox ActiveSheet.Shapes.Count
  3. End Sub
½Æ»s¥N½X

TOP

½Ð°Ý¦p¦ó­×§ï,¤@¦¸¹L§R°£¦h±iSheet -(ª½½u±µÂI). ÁÂÁÂ!!

Sub test()
    Dim a As Integer, b As Range, eachsht As Worksheet
    For a = 5 To 252
    Set b = Sheets("Table").Cells(a, 2)
    For Each eachsht In Worksheets

    If eachsht.Name = b Then
    eachsht.Shapes.SelectAll
    Selection.Delete
    End If

    Next
    Next
End Sub

TOP

Dim b As string

b = sheets("Table").Cells(a,2).value

TOP

¦^´_ 4# idsmchow
  1. Sub Ex()
  2.     Dim A As Integer
  3.     For A = 5 To 252
  4.         With Sheets(Sheets("Table").Cells(A, 2).Text)
  5.             .Activate
  6.             .Shapes.SelectAll
  7.             Selection.Delete
  8.         End With
  9.     Next
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE


    «D±`¦³¥Î, ²³æ´X¥y´N¯à°µ¥X®ÄªG.  
   «D±`·PÁ¤j®a¦^µª:)

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD