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

[µo°Ý] ¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ósheet?

[µo°Ý] ¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ósheet?

·Q½Ð°Ý¤@¤U¦U¦ìVBA°ª¤â~
³Ìªñ¦b¬ã¨s¤@­Ó¯àÅý
¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ó"®w¦s°O¿ý"sheet?
(¥»¨Ó·Q­n¥Îªþ¥[ÀÉ®× ·|¤ñ¸û¦n»¡©ú ¥i¬Oªþ¥[¤£¤W¨Ó)

¦³ÂI¹³
https://www.youtube.com/watch?v=deRlUjhIHOo   
³oºØª¬ªp

¥H¤U¬O¼gªº¸ê®Æ,¤w¸g·Q¤F¦n¤[ª¦¤Fº¡¦hªº¤å °£¤F¬Ý¤£À´ªº¤§¥~
§Ú³o­Ó·s¤â´N¬O¤£·|¼g§r
³Â·Ð¦U¦ì¤F

Sub ¼g¤J¸ê®Æ()
If Range("A:A").End(xlDown).Row = 65536 Then
End If
Dim a(10)
a(0) = Range("B5")
a(1) = Range("D5")
a(2) = Range("J5")
a(3) = Range("C6")
a(4) = Range("B9")
a(5) = Range("D9")
a(6) = Range("E9")
a(7) = Range("F9")
a(8) = Range("G9")
a(9) = Range("H9")
a(10) = Range("I9")


Sheets("®w¦s°O¿ý").Select

End Sub

Sub test()
    Dim arr
    Sheets("±ÄÁʳæ").Select
    arr = Array([B5], [D5], [J5], [C6], [B9], [D9], [E9], [F9], [G9], [H9], [I9])
    Sheets("®w¦s°O¿ý").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub
[b]Kubi[/b]

TOP

¦^´_ 1# guaga
¤¹³\¤W¶ÇªºÀɮתþ¥óÃþ«¬¬°:chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png¡C
©Ò¥H¡AÀ£ÁY«á¦A¤W¶Ç§a

TOP

¦^´_ 2# Kubi
§A¦n §Ú¸Õ¹L³o¼Ëªº¤èªk ¤£¹L ¤£¦æ­C
¤wªþ¤WÀÉ®×

±ÄÁÊe.zip (22.81 KB)

ÀÉ®×

TOP

¦^´_ 3# stillfish00


    §A¦n,§Ú¤w¸g¥I¤WÀɮפF ³Â·Ð§A¤F

TOP

¦^´_ 2# Kubi

§Ú¤w¸g§Ë¦n¤F «D±`ÁÂÁ§A  ¬O§Ú¦Û¤v§âÄæ¦ì¶ñ¿ù©Ò¥HÅã¥Ü¤£¥X¨Ó
¤£¹L"«~¦W"ªº¦a¤è ¦³¸ê®Æ,«oÅã¥Ü¤£¥X¨Ó­C

Sub test()
    Dim arr
    Sheets("±ÄÁʳæ").Select
    arr = Array([D5], [J5], [B6], [C10], [D10], [E10], [F10], [G10], [H10], [I10], [J10])
    Sheets("±ÄÁÊ°O¿ý").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub

TOP

¦^´_ 6# guaga
  1. Option Explicit
  2. Sub test()
  3.     Dim arr, i As Integer
  4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
  5.     With Sheets("±ÄÁʳæ")
  6.         For i = 10 To .[B30].End(xlUp).Row
  7.             arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
  8.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
  9.         Next
  10.     End With
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE

ª©¥D§A¦n
³o¼Ë¨Ï¥Î¤W¨S¦³°ÝÃD
¥i¬O¿é¤J¤Uµ§¸ê®Æ®É¯à¤§«eªº¸ê®Æ´N·|¤£¨£ ¦³¸Ñ¶Ü

TOP

¦^´_ 8# guaga
³o¦æµ{¦¡½X¾n¸Ñ±¼
  1. 'Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
ÁÂÁª©¥DÀ°§Ú¸Ñ¨M³o­Ó°ÝÃD
¥i¥H¶¶«K½Ð°Ý¤@¤U ¤@¶}©l§Ú¼gªº¨º­Óµ{¦¡ ¬°¬Æ»ò·|¦æ¤£³q¶Ü?

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD