jackyq

¦^´_ 4# jackson7015

¦]¬°  Excel  2000 ¨Sªk¥Î #3¼Óªº¤èªk

jackson7015

¦^´_ 2# jackyq
¦^´_ 3# ML089
·PÁÂjackyq¤ÎML089¦^ÂÐ

jackyq¤j¤jªº´ú¸Õ«á¥i¥H¨Ï¥Î¡A¦ý¬O»Ý­n¦h´X­Ó¨BÆJ¡A©Ò¥H¤§«á¦³Ãþ¦üªº»Ý¨D¥i¥H¦A¨Ï¥Î¡A·PÁÂ~

ML089¤j¤jªº¼gªk¡A¦n¹³µLªk±N®æ¦¡©Ò¦³½Æ»s¡A¦]¬°Àx¦s®æ¤º¤å¦r¤j¤p¤Î¸óÄæ¸m¤¤³£¨S¦³¥X²{
¦]¬°¦³³¡¤ÀÀx¦s®æ¤º¦³¶ñ¤JÃC¦â¡A¬O§_¤]¥i¥H¥H´¡¤Jªº¤è¦¡°µ³B²z?
ÁÂÁÂ~

ML089

¦^´_ 1# jackson7015

Sub ·s¼W¼Æ¶q()
    Dim Rng As Range
    Set Rng = Rows("1:47")
    Rng.Copy
    With Rows("48:48").Resize(, Rng.Rows.Count)    'columns/rows
        .PasteSpecial Paste:=xlPasteFormats    '®æ¦¡
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats    '­È
        .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats    '¤½¦¡
    End With
End Sub

jackyq

¦³µLª½±µªº«ü¥O?  ¤£¾å±o­C

¥Î´¡¤J«á¦A§â¹Ï§R°£ªº¤èªk

Sub kill_Image(R_«ü©w½d³ò As Range)

R_x1 = R_«ü©w½d³ò.Left
R_x2 = R_«ü©w½d³ò.Left + R_«ü©w½d³ò.Width
R_y1 = R_«ü©w½d³ò.Top
R_y2 = R_«ü©w½d³ò.Top + R_«ü©w½d³ò.Height

For Each p In R_«ü©w½d³ò.Parent.Pictures
    x1 = p.Left
    x2 = p.Left + p.Width
    y1 = p.Top
    y2 = p.Top + p.Height
   
    xx = x1 >= R_x1 And x1 <= R_x2 Or x2 >= R_x1 And x2 <= R_x2
    yy = y1 >= R_y1 And y1 <= R_y2 Or y2 >= R_y1 And x2 <= R_y2
  
    If xx And yy Then
       p.Delete
    End If
Next
End Sub