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

[µo°Ý] TEXTBOX°ÝÃD´M°Ý

[µo°Ý] TEXTBOX°ÝÃD´M°Ý

Dear all ¤j¤j
1.¦³®Ñ¼g¹Ï¤@µ{¦¡
  1.1 ¨ä¤¤ Text Box 62560 ¤é¤[§Ñ°O©óªí³æ¦ó³B.¦³µL¿ìªk´M§ä¥¦©óªí³æ¦ó³B??
2.·Ð¤£§[½ç±Ð  thanks*10000  

¹Ï¤@
   Sub TEXTBOX62560§R°£1()
    Sheet14.Select
    Range("A1").Select
    Y = Sheet3.Range("D218")
    If Y - 1 = 0 Then
    ActiveSheet.Shapes("Text Box 62560").Select
    Selection.Delete
    End If
    Range("A1").Select
   
   End Sub
ù

­n§âÀɮ׶ǤW¨Ó¡A¦U¸ô°ª¤â¤~¦³¿ìªk¸Ñ´b¡C

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD