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

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

¥»©«³Ì«á¥Ñ 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

¦^´_ 21# Hsieh

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD