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

[µo°Ý] ´£¨ú«ü©w¸ê®Æ«á,­«·s±Æ¦C

[µo°Ý] ´£¨ú«ü©w¸ê®Æ«á,­«·s±Æ¦C

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-3-28 01:14 ½s¿è

½Ð°Ý¦p¦ó±N¸ê®Æ®w¤ºªº¨Ì·Ó¶µ¥Ø¡A´£¨ú«ü©wªº¶µ¥Ø«á¶ñ¤J«ü©w¤u§@­¶®Ø¬[¤º
¤é³øªí-1.rar (51.04 KB)
¦³ÃC¦â³¡¤À¡A¬O¥u»Ý­n¿é¥X¸ê®Æ®w¸ê®Æªº³¡¤À
¨ä¥L³¡¤À¬O©T©w³¡¤À


§Ú¦³oobird ¤j¤j´£¨Ñªº¦¡¦C¡A¦ý¬O¦]¬°¸ê®Æ®wªº®æ¦¡¦³§ïÅÜ¡A©Ò¥HµLªk¥¿±`°õ¦æ
¥B©Ò»Ý¶ñ¤Jªº®Ø¬[¤]¦³©ÒÅÜ°Ê¡A©Ò¥H§Æ±æ¦³¤j¤j¯àÀ°¦£¸Ñ¨M
  1. Sub yy()
  2.      Dim i%, j%, n%, c, arr, a
  3.      c = Array(3, 4, 5, 10, 1, 11, 12)
  4.      With Sheets("ºî¦X¸ê®Æ®w")
  5.          n = .[b65536].End(3).Row
  6.          a = .Range(.Cells(4, 2), .Cells(n, 13))
  7.      End With
  8.      ReDim arr(1 To UBound(a), 1 To 7)
  9.      For j = 1 To UBound(a)
  10.         For i = 1 To 7
  11.             arr(j, i) = a(j, c(i - 1))
  12.         Next i, j
  13.         With Sheets("¶µ¥Ø¢°")
  14.             .Cells(2, 1).Resize(j - 1, 7) = arr
  15.             .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
  16.              .UsedRange.Borders.LineStyle = 1
  17.         End With
  18.     End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD