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

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

¦^´_ 10# PD961A
  1. Sub Ex()
  2.     Dim Rng As Range, N%
  3.     Set Rng = Sheet2.Range("A1").CurrentRegion
  4.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  5.     N = 1
  6.     For i = 2 To Rng.Rows.Count
  7.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  8.             With Sheet1.Range("A1").CurrentRegion.Rows(N + 1)
  9.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  10.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(N, "0000000")
  11.                 N = N + 1
  12.             End With
  13.         Next
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-9-21 16:23 ½s¿è

¦^´_ 11# GBKEE


    ÁÂÁÂGBKEEª©¥D
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

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

¦^´_ 11# GBKEE

ª©¥D
¤£¦n·N«ä..±a¨ì±ø½X¾÷µ{¦¡«á..PNªº¸ê®Æ¦³¨Ç¸ê®ÆŪ¤£¥X¨Ó
¥i¥H½Ð±zÀ°¦£­×¥¿..ÁÂÁ±z..

pdf417.rar (13.2 KB)

¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 13# PD961A
½Ðªþ¤W ±ø½X¾÷µ{¦¡ ¸Õ¸Õ¬Ý

TOP

¦^´_ 14# GBKEE


    ½Ð°Ýª©¥D©M¥ý¶i
ELSeqªº¬y¤ô¸¹±Æ§Ç·|­«½Æ..½Ð°Ý¥i¥H­×¥¿¶Ü?ÁÂÁÂ....

ELSeq»Ý¨D(I0831©T©w«e5½X)(6-11½X¬°¦~¤ë¤é)
­Y²Ä1¦¸¿é¤J¤º®e¬°I0831100109¥X³f¼Æ¶q=4«h«ö¤U°õ¦æ¶s«á..SHEET1¥i±o¨ì
I08311001090000001~0000004ªº¬y¤ô¸¹±Æ§Ç




¥i¬O¦P¤Ñ¥Í²£ªº»s³y¤é´Á·|¦³¬Û¦P..¦ý¬O«~¦W¤£¦P
­Y²M°£²Ä1¦¸¿é¤Jªº¤º®e¦A¿é¤J¤£¦Pªº«~¦W(¦ý¦P¥Í²£¤é´Á)·|²£¥Í¬Û¦PªºELSeq



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

TOP

¦^´_ 15# PD961A
  1. Sub Ex()
  2.    '¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
  3.   Dim Rng As Range, N%, F As Range, No%
  4.    Dim Sh As Worksheet
  5.     Set Sh = Sheet2
  6.     Set Rng = Sh.Range("A1").CurrentRegion
  7.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  8.     N = 2
  9.     For i = 2 To Rng.Rows.Count
  10.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  11.             ''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.             Set F = Sh.Range("IU:IU").Find(Rng.Rows(i).Cells(5).Value)
  13.             If Not F Is Nothing Then No = F(1, 2) + 1 Else No = 1
  14.            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15.             With Sheet1.Range("A1").CurrentRegion.Rows(N)
  16.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  17.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(No, "0000000")
  18.                 N = N + 1
  19.                 No = No + 1
  20.             End With
  21.             ''''''''''''''''''''''''''''''''''
  22.             If Not F Is Nothing Then
  23.                 F(1, 2) = No - 1
  24.             Else
  25.                 With Sh.Range("IU65536").End(xlUp)
  26.                     .Offset(1) = Rng.Rows(i).Cells(5).Text
  27.                     .Offset(1, 1) = No - 1
  28.                 End With
  29.             End If
  30.             '''''''''''''''''''''''''''''''''''''''''
  31.         Next
  32.     Next
  33. End Sub
½Æ»s¥N½X

TOP

¦^´_ 16# GBKEE
ª©¥D
½Ð°Ý
    '¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
³o¦æ«ü¥O­n¦bSheet2ªºIUÄæ¥[¤W¤é´Á?½Ð°Ý­n¦p¦ó¥[??
ÁÂÁ±z..
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

    '¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
³o¦æ«ü¥O­n¦bSheet2ªºIUÄæ¥[¤W¤é´Á?½Ð°Ý ...
PD961A µoªí©ó 2010-9-30 08:43

³o¦æ¤£¬O«ü¥O ¬Oµù¸Ñ «e­±¦³¥[¤W'  µù¸Ñ²Å¸¹
µ{¦¡¸Ì¦³¨â¬qµù¸Ñ¤¤ªºµ{¦¡½X ´N¬O¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
°õ¦æ¬Ý¬Ý´Nª¾¹D

TOP

¦^´_ 18# GBKEE

ª©¥D
    ³o¦æ¤£¬O«ü¥O ¬Oµù¸Ñ «e­±¦³¥[¤W'  µù¸Ñ²Å¸¹
¤£¦n·N«ä...§Úª¾¹D¥¦¬Oµ{¦¡½X¸Ìªºµù¸Ñ²Å¸¹...
¬O­n½Ð°Ý±z¥[¨ìSHEET2ªºIUÄ檺¤é´Á??«ç»ò¥[??
§Ú¨ì"½s¸¹"¨º­Ó¤u§@ªíªºIU1Ä楴¤J¤é´Á«á°õ¦æ¤£·|Åܪü...
¤£ª¾¹D­þ¸Ì¤£¹ï...
ÁÂÁ±z..
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-9-30 17:05 ½s¿è
µ{¦¡¸Ì¦³¨â¬qµù¸Ñ¤¤ªºµ{¦¡½X ´N¬O¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
°õ¦æ¬Ý¬Ý´Nª¾¹DGBKEE µoªí©ó 2010-9-30 13:00


§Ú¬O§i¶D§A µ{¦¡¦b Sheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U  ½Ð°õ¦æµ{¦¡«á¨ìIUÄæ¬Ý¬Ý

½Ð§A¤£¥Î¨ì"½s¸¹"¨º­Ó¤u§@ªíªºIU1Ä楴¤J¤é´Á

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD