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

[µo°Ý] VBA¦hÄæ¦Û°Ê¦V¤U¶ñº¡

[µo°Ý] VBA¦hÄæ¦Û°Ê¦V¤U¶ñº¡

¤£¦n·N«ä·Q±Ð½Ð¤@¤U¤j®v­Ì~~~~~
¥H¤U¬°¦Û¦æ¿ý»s´ú¸Õ¥¨¶°¡A§Æ±æ¯à­×§ï¬°¨C¦¸«ö¤U¡u¦Û°Ê¶ñº¡¡v«ö¶s®É¡A"U2:BU2"¥i¨ÌTÄæ¸ê®Æ¦h¹è¦Û°Ê¦V¤U¶ñº¡

¨Ò¦p¡G
1. TÄæ¸ê®Æ¥u¨ìT12®É¡A«ö¤U¡u¦Û°Ê¶ñº¡¡v«ö¶s¡A"U2:BU2"¦Û°Ê¦V¤U¶ñº¡¦Ü12¦C§Y¥i
2. TÄæ¸ê®Æ¨ìT500®É¡A«ö¤U¡u¦Û°Ê¶ñº¡¡v«ö¶s¡A"U2:BU2"¦Û°Ê¦V¤U¶ñº¡¦Ü500¦C

¨D¤j®v­ÌÀ°À°¦£Åo~~~~~~

Sub ¦Û°Ê¶ñº¡()
    Range("U2:BU2").Select
    Selection.AutoFill Destination:=Range("U2:BU197")
    Range("U2:BU197").Select
End Sub
*¦v¤k¤@ªTµL»~*

¦^´_ 1# msmplay
  1. Sub ¦Û°Ê¶ñº¡()
  2.     Dim r
  3.     r = Cells(Rows.Count, "T").End(xlUp).Row
  4.     Range("U2:BU2").AutoFill Destination:=Range("U2:BU" & r), Type:=xlFillCopy
  5.     Range("U2:BU" & r).Select
  6. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00

s¤j~~~~~·PÁ·PÁÂ!!!¤w¸Ñ¨M¤p©f°ÝÃD!!!«D±`ÁÂÁ±z¼ö¤ßÀ°¦£³á!!!
*¦v¤k¤@ªTµL»~*

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD