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

[µo°Ý] ¦p¦ó±N¥X³f¼Æ¶q¼Æ¦r.±a¨ì¥t­Ó¤u§@ªí«á¦Û°Ê²£¥Í¬y¤ô½s¸¹

[µo°Ý] ¦p¦ó±N¥X³f¼Æ¶q¼Æ¦r.±a¨ì¥t­Ó¤u§@ªí«á¦Û°Ê²£¥Í¬y¤ô½s¸¹

½Ð°Ý¥ý¶i
¦p¦ó±N¤u§@ªí"½s¸¹"ªº¥X³f¼Æ¶q¼Æ¦r..±a¨ìSHEET1«á¦Û°Ê²£¥Í¬y¤ô½s¸¹¡K
­Y¥X³f¼Æ¶q¬°100«h¤u§@ªí1»Ý­n¦³100¦C¦P¸ê®Æ..¦ý¤£¦P¬y¤ô½s¸¹..
(SHEET1ªº½s¸¹¥H18½X¬°­ì«h..§Æ±æ¯à¤£©î¶}³o18½X..)ÁÂÁÂ.


PDF417CODE.rar (4.5 KB)
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

¦^´_ 1# PD961A
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets("½s¸¹")
  4.         For i = 1 To .[h2] - 1
  5.             .[A2:G2].Offset(i) = .[A2:G2].Value
  6.             .[A2:G2].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i + 1, "0000000")
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ª©¥DÁÂÁ±z
¹ï¤£°_¤j·§¬O§Úªº±Ô­z¤£¬O«Ü§¹¾ã
©Ò¥H±zªºµ{¦¡½X±a¤J«á...±o¨ìªºµ²ªG¬O¬Û¤Ïªº

¸ê®Æ¿é¤J¬O¦b¤u§@ªí"½s¸¹"HÄ檺¥X³f¼Æ¶q¬°¼Ðªº
­Y¥X³f¼Æ¶q¬°"50"«h¦b¤u§@ªíSHEET1·|±o¨ì50­Ó¤£¦P½s¸¹¶¶§Çªº¬y¤ô¸¹
¦Ó¤£¬O¦b"½s¸¹"¨º±iªí±Æ§Ç¥X50­Ó¬y¤ô¸¹
«D±`·PÁ±z....
1.gif
2010-9-12 23:29


2.gif
2010-9-12 23:29
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets("½s¸¹")
  4.         For i = 1 To .[h2]
  5.             Sheets("Sheet1").[A1:G1].Offset(i) = .[A2:G2].Value
  6.             Sheets("Sheet1").[A1:G1].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i, "0000000")
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X
«ü©wªí¦W§Y¥i¡C

TOP

¦^´_ 3# PD961A
  1. Sub nn()
  2. With Sheets("½s¸¹")
  3. ReDim ar(.[H2] - 1)
  4. cnt = CDec(Mid(.[D2], 2))
  5. For i = 0 To .[H2] - 1
  6.   ar(i) = Array(.[A2].Value, "'" & .[B2].Value, .[C2].Value, Mid(.[D2], 1, 1) & cnt + i, .[E2].Value, .[F2].Value, .[G2].Value)
  7. Next
  8. Sheet1.[A2].Resize(.[H2], 7) = Application.Transpose(Application.Transpose(ar))
  9. End With
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-9-13 00:20 ½s¿è

¦^´_ 4# oobird
¦^´_ 5# Hsieh

    ÁÂÁ¢±¦ìª©¥D
±z­Ì¥Ø«eµ¹ªºµ{¦¡¥i¥H¿é¤J¤@¦C«á±a¨ìSHEET1=50­Ó¬y¤ô¸¹

¥i¥H¦A½Ð°Ý
­Y«ùÄò¿é¤J¼Æµ§¸ê®Æ«á
¬O§_¤´¯à«ùÄò¦³±Æ§Ç¬y¤ô¸¹ªº¥\¯à
ÁÂÁ±z
11.gif
2010-9-13 00:10


22.gif
2010-9-13 00:10
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

°ÝÃD³Ì¦n©ú½T¨Ç¡A¼Æµ§¸ê®Æ§A·Q«Ø¥ß¨º¤@µ§ªº¬y¤ô¸¹¡H¥þ³¡¥­§¡¤ÀÅu¨º50µ§¡H

TOP

¦^´_ 7# oobird

oobirdª©¥DÁÂÁ±z
   
¸ê®Æ¿é¤J¬O¦b¤u§@ªí"½s¸¹"HÄ檺¥X³f¼Æ¶q¬°¼Ðªº

¥HSHEET1¬O°õ¦æ«áµ²ªG
­Y½s¸¹¤u§@ªí²Ä1¦C¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº100..«h¦b¤u§@ªíSHEET1-"DÄæ"·|±o¨ì100­Ó¬y¤ô¸¹(001~100)

¦P­¶¸ê®Æ¿é¤J¦b½s¸¹¤u§@ªí²Ä2¦C¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº10..
«h¦b¤u§@ªíSHEET1-"DÄæ"·|±o¨ì10­Ó¬y¤ô¸¹(101~110)

¦P­¶¸ê®Æ¿é¤J½s¸¹¤u§@ªí²Ä3¦C
¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº2..«h¦b¤u§@ªíSHEET1-"DÄæ"©µÄò109¤§«á
±o¨ì111~112
¥H¦¹Ãþ±À....

¬y¤ô¸¹¦b«È¤áºÝ»Ý¨D¦@7½X
¥u¯à²Ö­p¤£¯à­«½Æ
ÁÂÁ±z
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. With Sheets("½s¸¹")
  5. For Each a In .Range(.[A2], .[A65536].End(xlUp))
  6.     d(a.Value) = d(a.Value) + a.Offset(, 7)
  7.     d1(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, Mid(a.Offset(, 3), 1, 11), a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value)
  8. Next
  9. Sheets("Sheet1").[A2:G65536].Clear
  10. For Each ky In d.keys
  11.    ReDim Ar(d(ky))
  12.    For i = 0 To d(ky) - 1
  13.      x = d1(ky)(3) & Format(i, "0000000")
  14.      With Sheets("Sheet1")
  15.        .[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = Array(d1(ky)(0), d1(ky)(1), d1(ky)(2), x, d1(ky)(4), d1(ky)(5), d1(ky)(6))
  16.      End With
  17.    Next
  18. Next
  19. End With
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-9-17 09:50 ½s¿è

ÁÂÁÂ
¢Õ¢Ð¢Ù¢Ó¢Ó
oobird
Hsieh ª©¥D

«È¤áºÝ»Ý¨D§ó·s
­«·s¤W¶ÇÀÉ®×
½Ð¥ý¶iµ¹¤©­×¥¿°õ¦æ«áªºµe­±
ÁÂÁÂ..

1.jpg
2010-9-17 09:46



2.jpg
2010-9-17 09:46




PDF417CODE990917.rar (95.67 KB)
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD