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

[Âà¶K] VBAªº¼g§@§Þ¥©»P¼W¶i®Ä¯à

«ôŪ«á,ı±o·R¯q¨}¦h,·PÁ¤À¨É¤ß±o,ÁÂÁÂ

TOP

Cells(r, c) = .Cell(r, c)

³o¦æ,¨s³º´X®É¥Î³æ¼Æªºª«¥ó,¨Ò¦pcell,worksheetµ¥¦r²´,¦³³æ¼Æ²³¼Æ,¤ñ¸û²V¶Ã
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ skybbs ©ó 2011-1-19 20:23 ½s¿è

¦^´_ 01# Hsieh
½Ð°ÝÁ¤j,

¦bEXCEL2003¸Ì¼g¤F¦p¤U:
01 Range("D6:E6").Copy
02 Range("h3").PasteSpecial xlPasteValues
¦]¬°¦U¦³¤@­Ó­È¤À§O¦bD6&E6, ©Ò¥Hª½±µ½Æ»s¨ìH3®É, ´N·|Åܦ¨½Æ»s¨ìH3 & I3

·Q­n¨Ì·ÓÁ¤jªº¤è¦¡Â²µu, ¤À§O¸Õ¤F¦p¤U:
Sheet1.[H2:I2] = Application.Transpose(Sheet1.[D6:E6])
µ²ªG¶È·|§âD6ªº­È½Æ»s¨ìH2&I2, E6¨Ã¤£·|½Æ»s¨ìI2.

¥t¥~¤]¸Õ¤F:
Range("H2:I2") = Range("D6:E6")
µ²ªG³£¨S¦³°Ê§@.
½Ð°Ý¦pªG­n§â¦P¤@­ÓSheetªºD6 & E6½Æ»s¨ìH3 & I3À³¸Ó¦p¦ó¼g»yªk©O ?
ÁÂÁÂ.

TOP

¦^´_ 1# Hsieh


    ·PÁ¤À¨É;¹ï·s¤â¨Ó»¡¯u¬OÀò¯q¨}¦h:)
jeromefu

TOP

Looking Ahead on Request
¡uWish you all the best¡v Thanks a lot ¡I¡I
¡ø(^£s^)¡ù

TOP

ª©¤j¨ü±Ð¤F

¥H«á¿ý»sªº¥¨¶°·|­×¥¿«á¦A¨Ï¥Î

TOP

°ª¤â~~ Ä~Äò«ôŪ§Aªº ¸ê®Æ½d³ò¿ï¾Ü~ ¦b¤½¥q§Ú¥Î ¥¨¶°¼g§¹ µy·L­×§ï~´N¦Û±o·Nº¡~ªG¯u¬O¾Ç²`¦ü®ü¡C

TOP

¦^´_ 13# FAlonso

cells¨ÃµL©Ò¿×¾á­t¼Æ¤§¤À¡A¦bEXCEL¤¤cells´N¬O¥þ³¡Àx¦s®æ¡A¦Ó¬A¸¹¤¤ªº2­Ó¤Þ¼Æ¡A¤À§O¬O¦C¸¹»PÄ渹
Cells(1,1)´N¬O«ü¨ìA1Àx¦s®æ¡A¥L´N¬O³æ¤@Àx¦s®æ¡A­YCELLS«h·|«ü¦V©Ò¦³Àx¦s®æ¡C
WorkSheet¬O¤u§@ªíª«¥ó¡A³o°ß¤@·|³y¦¨³æ¼Æ²{¶H¬Oµo¥Í¦bÅܼƫŧi®É¡A·íÅܼƭn«Å§i¦¨¤u§@ªíª«¥ó«¬ºA®É
Dim Sh As WorkSheet
³o´Nªí¥ÜShÅܼƬO¤@­Ó¤u§@ªí
¨º»ò¡A·í§Ú­Ì¦b²³¦h¤u§@ªí¤¤¡A¨ú±o³æ¤@¤u§@ªí´N¬O¦b½Æ¼Æ¤u§@ªí¤¤«ü¦W¤u§@ªí
Set Sh=WorkSheets(index)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# skybbs


    Range("H2:I2") = Range("D6:E6").Value
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 21# Hsieh

½Ð°ÝÁ¤j:
Range("H2:I2").Value = Range("D6:E6").Value
Range("H2:I2") = Range("D6:E6").Value
¦¹¨â­Óªí¥Ü¦¡¦³¦ó¤£¦P.

TOP

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