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

[µo°Ý] ¦Û°Ê®Mªí

[µo°Ý] ¦Û°Ê®Mªí

Dear,
§Ú¤£ª¾¹D³o­Ó®Mªí°ÝÃD¯à§_¥Î¨ç¼Æ¸Ñ¨M,¦ý¦]¬°ªí®æ¤¤ªº¸ê®Æ¤j¦h¥Î¨ç¼Æ®M¥X¨Óªº,©Ò¥H¦b³o¸Ìµo°Ý...    ¦Û°Ê®Mªí.rar (34.84 KB)
        ¥X³fsheet¬O¤@­Ó¨C¤Ñ¥X³f¥Îªºªí®æ,©Ò¥H¸ê®Æ¬OÅܰʪº
        ¦]¬°Àɮ׫ܤj,§Ú§â»P¸É³f©ú²ÓµLÃöªº¸ê®Æ³£Delete,ÁקK¤zÂZ
        ¨C¤Ñªº¯Ê³f³£»Ý­n³o±i³øªí¥hµoµ¹¸É³fªº³æ¦ì
        °£¤FªíÀY1:2¥~,³o±i³øªí¨C¤Ñªì©l³£¬OªÅ¥Õªº
        §Ú­n§â¥X³fsheetªº¸ê®Æ®M¶i¨Ó,½Ð±Ð¥Î¨ç¼Æ¤ñ¸û¦n°µ,ÁÙ¬OVBA?
       
        ¥X³fsheet­n®M¹L¨Óªº³f®Æ:
1..        ¦³¯Ê³fªº³¡¥÷¡A¨Ì§Ç±qAS:BH±a¸ê®Æ
2..        §Ú¥ý°µ¤@­Ó2­Ó½d¨Ò"ªL¤f" & "·x·x1"
3..        ²{¦bµLªk¹F¦¨ªº³¡¥÷¦b©ó
        ­n¦p¦óÅý¦³¯Ê³fªºAS:BHªºªíÀY¦Û°Ê±a¨ì³o¸ÌªºBÄæ?¦ýµL¯Ê³fªº¦Û°Ê¸õ¹L¡I
        ¨Ã¥BÅý¯Ê³fªº®Æ¸¹¦Û°Ê±a¨ìAÄæ?
4..        ²Ä2µ§¯Ê³fªºªíÀY "·x·x1"±a¤JBÄæ,®Æ¸¹¦Û°Ê±a¨ìAÄæ«á
        ¦p¦óÅýEÄ檺¤½¦¡¥H·x·x1¬°¹ï¶H?¦Ó¤£¥Î¦U§O­×§ï¤½¦¡?
¨Ò¡G        =SUMPRODUCT((¥X³f!$F$4:$F$12=$A7)*(¥X³f!$AS$3:$BH$3=B$6)*(¥X³f!$AS$4:$BH$12))
        ¦p¦óÅý(¥X³f!$AS$3:$BH$3¦Û°Ê·j´MB$6),¦Ó¤£¥Î¦U§O§ï?

¦^´_ 2# luhpro
¯u¬O¤Ó·PÁ¤F...

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2019-11-16 23:17 ½s¿è

¦^´_ 2# luhpro

½Ð°Ý¤j¤j,
¤@¯ë§Ú¦b¥ÎVBA®É,¥ÎAlt + F11´N¥i¥H¬Ý¨ìModuleªºµ{¦¡½X,¬°¤°»ò±z¼gªºµ{¦¡¬Ý¤£¨ìModule ?
¥t¥~¦]¬°ªí®æ¤@¶}©lªºª¬ºA³£¬OªÅ¥Õªº,¶ñ¤J¸ê®Æ®É­n±q²Ä3¦C¶}©l,¦ý¦b´ú¸Õ®É³£·|±q²Ä6¦C¶}©l¶ñ,¥i§_À°¦£§ï¬°°_©l¥Ñ²Ä3¦C¶}©l¼g¤J¸ê®Æ?
¥t¥~§Úªºµ{¦¡­n©ñ¦b¥t¤@ÀÉ®×Macro.xlsm¤¤°õ¦æ,¨Ã«ü©wÀɦW"³Ì·s®w¦s.xlsx"½Ð°Ýµ{¦¡­n«ç»ò­×¥¿?
ÁÂÁ±z

TOP

¦^´_ 5# luhpro

·PÁÂ ¤j¤j,
°õ¦æ¨S¦³°ÝÃD¤F

TOP

¦^´_ 5# luhpro

SOS
¤j¤j,
§Ú¨Ì¹ê»Ú»Ý¨D,¤p¤pªº§ï¤Fµ{¦¡,´ú¸Õ®É¤]³£¨S°ÝÃD,¦ý...
µ{¦¡¦b¥¿¦¡¨Ï¥Î®É,µo¥Í¤F°ÝÃD
°±¦b³o¸Ì ".Cells(lRow, 6) = Int(vD2(1) / .Cells(lRow, 4)) ' ½c"
¦Ó¥B¶]¥X¤@¨Ç´ú¸Õ®É¥¼´¿¥X²{ªº¸ê®Æ,
§Ú§â¥¦¯d¦b°õ¦æµ²ªG¤¤,
½ÐÀ°¦£¬Ý¤U....·PÁÂ
3rd_µ{¦¡»P°õ¦æÀÉ ¤À¶}.rar (136.08 KB)

TOP

¦^´_ 8# luhpro

¤j¤j,
´ú¸Õ«á."¦ü¥G"¬Ý¤£¥X¦³§ïÅÜ吔...
¦³¯Ê³fªº³¡¥÷¡A¨Ì§Ç±q"­¸¤ñ"AS:BH±a¸ê®Æ,´ú¸ÕÀɤ¤ªº¯Ê³f¨ä¹ê¥u¦³¤@¶µ(72²~)
¥i¬O»sªí§¹¦¨«á·|§â­q³æªº¼Æ¶q±a¨ì¼t¯Ê!!
¥t¥~¤]·Q½Ð°Ý,¤é«á­Y¥X³f¾ÚÂI¼W¥[®É,"­¸¤ñ"AS:BHÄæ¼Æ¤]·|¼W¥[,½Ð°Ý·í¾ÚÂI¼W¥[®É­n¦p¦ó­×§ï?

TOP

¦^´_ 12# ­ã´£³¡ªL

·PÁ­ã¤j,
¦h¤Ñ¨Ó ²{¦b¤~¦³ªÅ¥i¥H¤Wºô¬d¬Ý, ³o´X¤Ñ¦]¬°¦³·s¤u§@,²ÖÀŤF....
µ¥§Ú´ú¸Õ¤U¦A³ø§i

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2019-11-25 22:43 ½s¿è

¦^´_ 12# ­ã´£³¡ªL

­ã¤j¦n,
§Ú¨Ì²{¦æªº´ú¸ÕÀÉ,§âµ{¦¡­×§ïÀɦW«á
µ{¦¡´ú¸Õµ²ªG¯d¦b¼t¯Êªí¤¤(¤£¬O ¦Û°Ê¼t¯Êªí)
¥¦»P8¼Óªºµ{¦¡´ú¸Õ¬Û¦P,·í"­¸¤ñ"sheet¦³­q³æ¼Æ¾Ú®É,
­q³æ¸ê®Æ·|³s¦P¼t¯Ê,¤@°_§e²{¦b¼t¯Êªí¤¤
¦A³Â·Ð¬Ý¤U, ·PÁÂ
3rd_µ{¦¡»P°õ¦æÀÉ ¤À¶}_amd.rar (255.3 KB)

TOP

¦^´_ 15# ­ã´£³¡ªL
³o°}¤l¦]¬°§@·~¤º®e¦³ÅÜ°Ê,©Ò¥Hªí®æ¤]¤j´T­×§ï,½ÐÀ°¦£¬Ý¤U....
1)  For C = 45 To UBound(Arr, 2)
  §ï¦¨ For C = 45 To 60
³o­Ó¤èªk´ú¸Õ«áOK,
¦b°õ¦æ¼t¯Êªí«á·|¥X²{¦Û°Ê¥[Á`(¥Ø«e¦b²Ä8¦C)
§Ú·Q¥[­Ó"¦X­p",½Ð°Ý¦bµ{¦¡­þ­Ó¦a¤è¥i¥H¥[¤J?

2) ¥t¥~³o­Ó¤è¦¡,§ÚÁÙ¸Õ¤£¥X¨Ó,½Ð°Ý§Ú¥[¤Jªº¦a¤è¬O§_¤£¹ï?
For C = 45 To UBound(Arr, 2)
    Ck = 0
    If Arr(3, C) = "¹º³æ¦X­p" Then Exit For  '¥[¤J³o¤@¦æ, ¥H[¹º³æ¦X­p]§PÂ_¼t¯ÊÄæ¦ìªºµ²§ôÂI
3rd_¼t¯Êªí.rar (286.86 KB)

TOP

¦^´_ 15# ­ã´£³¡ªL
¸É¥R:
¼t¯Êªí.sheet AÄ檺®Æ¸¹,¤£ª¾¯à§_Åý¥¦¤@¨Ö¥X²{?

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD