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

[¤À¨É] with ªº¥Îªk¤ß±o¤À¨É

[¤À¨É] with ªº¥Îªk¤ß±o¤À¨É

with ªº¥Îªk¤ß±o¤À¨É
Sub Ma3333()
With Workbooks("111.xls").Sheets("Sheet2")     '¤£¥i¥H.Sheet2 (µL¦¹»yªk)
.Range("a8").Value = 1  '³Ì«e­±ªºÂI¤£¥i®³±¼ ,®³±¼·|Åܦ¨¦bactive sheet
End With
End Sub
--------
Sub Ma3333()
With Workbooks("111.xls")
.Sheets("Sheet2").Range("a8").Value = 1   '³Ì«e­±ªºÂI¤£¥i¤Ö±¼  ¤£¥i¥H¥Î.sheet2.range("a8").Value = 1 (µL¦¹»yªk)
End With
End Sub

¦^´_ 1# t8899
ÁÂÁÂt8899¤j¤j¤À¨É­ì¨ÓÂIÂI  .   ¬O³o¼Ë¥Î³~¡A¤£¯à¤£¥[¤W¥h¡C®³±¼·|Åܦ¨¦bactive sheet¡C
¬Q¤Ñ¤]¼gwith¡A¬°¤Frange»Pcell¨Ö¥Î¨Ó¿ï¾Ü½d³ò°µ²M·¡¡A­è¦n¸I¨ì.Range(....)³o¼Ëªº±Ô­z¡A¦³µo²{»Ý­n¥[¤@­Ó . ¦brange«e­±¥u¬O¤£ª¾¹D¬°¤°»ò¡H¯u¬OÁÂÁ¤À¨É¡I
With Worksheets(1)
.Range(.Cells(2, 3), .Cells(6, 4)).ClearContents '§Q¥Îrange»Pcells¨Ã¥Î¿ï¾Ü½d³ò²M°£
End With
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD