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

[µo°Ý] ­åªR°ÝÃD½Ð±Ð

[µo°Ý] ­åªR°ÝÃD½Ð±Ð

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/8/11 06:09): ¨S¬Ý¨ì¹Ï¤ù

DEAR ALL ¤j¤j
1. SHEET1.RANGE("B2")=¦p¹Ï¤@¤º®e  SHEET1.RANGE("B3")-SHEET1.RANGE("B10")¬°Ãþ¦üSHEET1.RANGE("B2")¤º®e.
2.»Ý¨D±NSHEET1.RANGE("B2")-SHEET1.RANGE("B10")¸ê®Æ­åªR.¥HSHEET1.RANGE("B2")¬°¨Ò»¡©ú¦p¤U
2.1 Â_¦C³B¸ê®Æ»Ý©î¶}»P;¸¹¸ê®Æ»Ý©î¶}.   
  2.1.1 ¤w¹Ï¤@¸ê®Æ  RANGE("C2")=°ÊºA¸ÉÀv     RANGE("D2")=DSDD(1)ser pad      RANGE("E2")=D>=140+50
                          RANGE("F2")= D<140+55    RANGE("G2")=S>200+60              RANGE("H2")=S>27
                          RANGE("I2")=(2)line         RANGE("J2")=S<100+48                RANGE("K2")= *¯S§O(line to pad & Y,line+35um)
                          RANGE("L2")=S>27S<100+48
3.·Ð¤£§[½ç±Ð  THANKS*10000
   
¹Ï¤@
°ÊºA¸ÉÀv
DSDD(1)ser pad;D>=140+50;D<140+55;S>200+60;
S>27;(2)line;S<100+48;
*¯S§O(line to pad & Y,line+35um)
S>27S<100+48;
ù

DEAR  ALL ¤j¤j
¤w§ä¨ì¸Ñµª¦p¤U  THANKS*10000

Sub ¥ú¸n»áªR()
Sheet27.Select
Sheet27.[C2:AZ65536].ClearContents
On Error Resume Next
T2 = Split([B2], ";")
[C2].Resize(, UBound(T2) + 1) = T2
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD