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

[µo°Ý] «ü©w½d³òÀx¦s®æ¤º§t«ü©w­^¤å±N¸ÓÀx¦s®æ¥h°£°ÝÃD½Ð±Ð

[µo°Ý] «ü©w½d³òÀx¦s®æ¤º§t«ü©w­^¤å±N¸ÓÀx¦s®æ¥h°£°ÝÃD½Ð±Ð

DEAR  ALL¤j¤j
1.«ü©w½d³òÀx¦s®æ¤º§t«ü©w­^¤å±N¸ÓÀx¦s®æ¥h°£°ÝÃD½Ð±Ð
1.1 Àx¦s®æ RANGE("H3:Z100") ¤º¦³§t  E ¤§¤º®e«h¸Ó Àx¦s®æ¥h°£.¾l¸ê®ÆÄ涶§Ç¦V«e.
  1.1.1 ¨Ò :   H3=F123   I3=F123E  J3=12345  K3=E1231 -- °õ¦æ«áÅÜ
                            H3=F123   I3=12345     -- ¦]­ì I3  K3 §tE ¥h°£. ¾lÄæ¸ê®Æ ¶¶§Ç¦V«e
2.·Ð¤£§[½ç±Ð THANKS*10000
ù

DEAR  ALL¤j¤j
1.«ü©w½d³òÀx¦s®æ¤º§t«ü©w­^¤å±N¸ÓÀx¦s®æ¥h°£°ÝÃD½Ð±Ð
1.1 Àx¦s®æ RANGE("H3:Z100") ¤º¦³§t ...
rouber590324 µoªí©ó 2015-4-23 14:29

¤£¾A¦X¥Î For Each R In RANGE("H3:Z100") ªº¤è¦¡¨Ó½ü¨µ(¹M¾ú)©Ò¦³¼ÐªºÀx¦s®æ,
¦]¬°§R°£«á¸ê®Æ¦ì¸m·|¦³ÅܤÆ, ¸û¾A·íªº¤è¦¡¬O¥Î­Ë§Çªk.
  1. Sub nn()
  2.   Dim lRow&, iCol%
  3.   
  4.   For lRow = 100 To 3 Step -1
  5.     For iCol = 26 To 8 Step -1
  6.       With Cells(lRow, iCol)
  7.         If InStr(1, .Text, "E") <> 0 Then .Delete Shift:=xlShiftToLeft
  8.       End With
  9.     Next
  10.   Next
  11. End Sub
½Æ»s¥N½X

TOP

DEAR luhpro ¤j¤j
¯u¦a«D±`·PÁ±z   100%²Å¦X»Ý¨D.
¯u¬O¾ÇµL¤îºÉ   THANKS*10000
ù

TOP

¦^´_ 3# rouber590324
´M§ä¥\¯à¤£¿ù¥Î


    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

DEAR  Hsieh ¤j¤j
·PÁ±z´£¨Ñ¥t¤@«ä¦Ò¤è¦V  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD