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

¤£¦PÄæ¦ì½Æ»s¨ì¥t¤@¤u§@ªí

¤£¦PÄæ¦ì½Æ»s¨ì¥t¤@¤u§@ªí

¦U¦ì¤j¤j,§A¦n

¦]¬°§Ú¨C¦¸¤J¦s®w³£­n¥Ñºô¤W¤U¸ü¤@­ÓªÅ¥Õªº¼ÒªO­«·s¿é¤J¸ê®Æ, ¦pªG§Ú·Q±q"Inventory(test)" ªºÀɮ׽ƻs¸ê®Æ¨ì"Inventory-12-29-16-12blank"³o­ÓÀÉ®×, ¦ý·í¤¤¦³¤@¨ÇÄæ¦ì¦WºÙ¦¸§Ç¬O¤£¦Pªº, §Ú¥u°µ¨ì¬Ûµ¥¦WºÙ¥i¥H½Æ»s, ¦ý¦pªG­n°µ¨ì§¹¥þ¹ïÀ³,À³«ç¼Ë­×§ï©O? ÁÙ¦³¤@ÂI, ¦pªG§Ú·Qµ{¦¡¼g¦¨, ¥i¦Û¦æ¿ï¨ú­è¤U¸üªÅ¥Õ¼ÒªOÀ³«ç¼Ë­×§ï©O??

ÁÂÁÂ

INVENTORY.rar (20.16 KB)

¦^´_ 1# mdr0465

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O³o¼Ë ·PÁÂ
  1. Public Sub ¸ó¤u§@ï½m²ß()
  2.     Application.ScreenUpdating = False
  3.    
  4.     Arr = [A1].CurrentRegion
  5.     Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
  6.     Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
  7.    
  8.     For X = 2 To UBound(Arr)
  9.         Cells(X, 1) = Arr(X, 1)
  10.         Cells(X, 2) = Arr(X, 3)
  11.         Cells(X, 6) = Arr(X, 6)
  12.         Cells(X, 10) = Arr(X, 10)
  13.         Cells(X, 18) = Arr(X, 18)
  14.         Cells(X, 19) = Arr(X, 19)
  15.     Next X

  16.     Workbooks("Inventory-12-29-16-12blank.xlsx").Close True

  17.     Application.ScreenUpdating = True
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# °a¤ªºµ


°a®v¥S,§A¦n:

ÁÂÁ§Aªº¦^ÂЩMÀ°¦£, ¦ý¦³¤@¨Ç°ÝÃD·Q½Ð§A¦AÀ°¦£

¦]¬°§Ú¨C¦¸³£­n¤U¸ü³Ì·sªºª©¥»(Inventory-12-29-16-12blank)¿é¤J¸ê®Æ, ¦ÓA¦Cªº¦WºÙ¦³¥i¯à·|§ïÅÜ,¯à§_°µ¨ìAÄæ¦WºÙ§ïÅܤF, ­ì¦³©T©w¤w¿é¤J¼ÒªOªº¸ê®Æ(Inventory(test))¥i¥HÀHµÛ³Ì·sª©¥»ªº®æ¦¡¦Ó¦Û°Ê°t¹ï¥¿½T¦ì¸m©O?

ÁÙ¦³¤@¼Ë¬O¦]¬°µ{¦¡¬O¹w³]¯S©wªºÀɮצWºÙ, ½Ð°Ý¯à§_°µ¨ì¤@­Ó¥\¯àÃþ¦ü¶}±ÒÀÉ®×¼Ò¦¡¤@¼Ë,¨C¦¸³£¥i¥H¦Û¦æ¿ï¨ú¬Y¤@­ÓÀɮרӽƻs¸ê®Æ©O??

¸U¤À·P¿EÀ°¦£, ÁÂÁÂ

TOP

¦^´_ 3# mdr0465

¥Î°a¤jªºµ{¦¡­×§ï
Sub ex1()
Dim d As Object, X%, Y%
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Arr = [a1].CurrentRegion
For Each a In Range([a1], [a1].End(2))
   d(a.Value) = a.Column                      '¬ö¿ý"Inventory(test)"¦U¦WºÙªºÄæ¦ì­È
Next
Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
For X = 2 To UBound(Arr)
   For Y = 1 To [a1].CurrentRegion.Columns.Count
      Cells(X, Y) = Arr(X, d(Cells(1, Y).Value))   '§Q¥Î"Inventory-12-29-16-12blank"ªº¦WºÙ§PÂ_"Inventory(test)"¸ê®ÆÄæ¦ì­È
   Next Y
Next X
Workbooks("Inventory-12-29-16-12blank.xlsx").Close True
Application.ScreenUpdating = True
End Sub

ÁÙ¦³¤@¼Ë¬O¦]¬°µ{¦¡¬O¹w³]¯S©wªºÀɮצWºÙ, ½Ð°Ý¯à§_°µ¨ì¤@­Ó¥\¯àÃþ¦ü¶}±ÒÀÉ®×¼Ò¦¡¤@¼Ë,¨C¦¸³£¥i¥H¦Û¦æ¿ï¨ú¬Y¤@­ÓÀɮרӽƻs¸ê®Æ©O??
-->¬Oµ{¦¡¦Û¦æ¶}±ÒInventory(test)¦A±N¸ê®Æ½Æ»s©óInventory-12-29-16-12blank¶Ü??

TOP

¦^´_ 4# jcchiang

¬O½Æ»s¨ì¥t¤@­Ó§Ú¦Û¤v¿ï©wªºÀÉ®×¥i¥H¶Ü¡HÁÂÁÂ

TOP

¦^´_ 4# jcchiang

Jcciang ¦¨¥\¤F¡AÁÂÁ§AªºÀ°¦£

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD