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

[µo°Ý] ¦Cªº°j°é»yªk

[µo°Ý] ¦Cªº°j°é»yªk

½Ð±Ð¤@¤U!
Àx¦s®æS3¨ìAG3 ¦³¤@¦C¸ê®Æ¡A ·Q¥ÎVBA°j°é¦bS6¨ìAG6¼g¤J¤½¦¡¡A ÅýS6¨ìAG6µ¥©óS3¨ìAG3 ªº­È¡C
VBAªº°j°é»yªk­n¦p¦ó¼g¡C

VBA ¦Cªº°j°é»yªk.png (51.72 KB)

VBA ¦Cªº°j°é»yªk.png

¦^´_ 1# ABK


Sub ex1()
    For Each x In [S3:AG3]
        x(4).Value = x.Value
    Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089

ÁÂÁÂML¤j !
§Úªº»Ý¨D¬O­n¼g¤J¤½¦¡ ¡C

TOP

¦^´_ 3# ABK


Sub ex()
    [S6:AG6] = "=S3"
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# ABK
½Ð°Ñ¦Ò¡C
Sub test()
    For c = 19 To Cells(3, 19).End(xlToRight).Column
        Cells(6, c).Value = "=" & Replace(Cells(3, c).Address, "$", "")
    Next c
End Sub

TOP

¦^´_ 1# ABK


Sub a()

Range("s6:ag6").Formula = "=r[-3]c"

End Sub
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

¦^´_ 1# ABK
  1. Sub EX()
  2. n = 1
  3. For Each aa In Range([S3], [AG3].End(xlToRight))
  4. Cells(6, 18 + n) = aa
  5. n = n + 1
  6. Next
  7. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 4# ML089


·PÁÂ ML089 ¤j !

TOP

¦^´_ 6# linyancheng


·PÁÂlinyancheng ¤j !

TOP

¦^´_ 7# faye59


    ·PÁÂfaye59 ¤j !

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD