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

[µo°Ý] ´¡¤Jªí®æ

[µo°Ý] ´¡¤Jªí®æ



½Ð°ÝEXCEL¯à°÷´¡¤J¤@¦C¦P¤W¤@¦C®æ¦¡ªºªí®æ¶Ü??

§Ú¬O­n¦b³Ì«á¤@¦C(W46)¥[¤J·sªº¤@¦C¦b©³¤U(W46¤U)

¨ÌEXCEL¸Ì¬O¥i¥H´¡¤J¤@¾ã¦C

¦ý¬O¨S¦³®æ½u

±qW45´¡¤J´N¥i¥H


¦ý¬O§Ú¬O­n¥Î¥¨¶°¨Ó¼g

©Ò¥H¤£·Q°µ¥ô¦ó­×§ï ª½±µ¦bW46¤U¼W¥[¤@¦C¤@¼Ò¤@¼Ëªºªí®æ

¤£ª¾¸Ó«ç»ò°µ


½Ð±Ð¦U¦ì¤j¤j

ÁÂÁ  :  )

¦^´_ 1# li_hsien
¥Î¿ý»s¥¨¶°¸Õ¸Õ


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

ÁÂÁªO¤j

©Ò¥H¨S¦³ª½±µ¯à´¡¤Jªí®æªº¤èªk§q

¥u¯à¨Ì½Æ»s¶K¤W  ¨Ó¥h±¼¤º¤å¯d¤U©Ò­nªº®æ¦¡§a

TOP

ªO¤j§ÚÁÙ·Q½Ð°Ý¤@¤U

¥Î¥¨¶°°õ¦æCOPYªº°Ê§@
¶K¤W«á·|¦³µê½u®Ø¦b½Æ»sªº¹ï¶H¤W

·Q½Ð°Ý§Ú¯à°õ¦æ§¹¥¨¶°
§â¨ºµê½u¥h±¼ ¦Ó«D¤H¤u¥Î·Æ¹«ÂI¨â¤U¶Ü??

ÁÂÁÂ :  )

TOP

¦^´_ 3# li_hsien
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = Range("C5:F5")
  5.     Rng.Copy
  6.     Range("C8").Insert Shift:=xlDown
  7.     Range("C8").Resize(1, Rng.Columns.Count) = ""
  8.     Application.CutCopyMode = False
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

ÁÂÁªO¤j

§Ú¤S¾Ç¨ìÂI·sªF¦è¤F  :  )

¬Q¤Ñ¤~µo²{¦³¦^¤å­­¨î  «¢«¢

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD