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

[µo°Ý] Calculate¡A¯à§_¦^¶Çµo¥ÍÅܰʪºÀx¦s®æªºÄæ¦ì

¦^´_ 20# ketrddem


¢Ù¢±¡G¢°¢±¢°¢µ²Î¤@¡D²Å¦X±ø¥ó¢°¡D«Øij¶R¶i
¤U¤@¤ÀÄÁ¡D±ø¥ó¤£¦¨¥ß¡A¢Ù¢±¦p¦óÅã¥Ü¡H

³Ì¦nªþ¤W²³æ½d¨ÒÀɮסA§_«h¤@¨Ó¤@©¹¤Á¤]¤£¨ìÂI¡A¤Ó®ö¶O¤j®a®É¶¡¡I
­Y­n°ÊºAÅã¥Ü¡A¤]³\¥u¥Î¤½¦¡§Y¥i¸Ñ¨M¡I

TOP

¥Ø«eªº·Qªk¡A¤U¤@¤ÀÄÁ¡A±ø¥ó¤£¦¨¥ß¡AK2¤£¶ñ¤J¥ô¦ó¸ê®Æ
¦pªG¬O¤@¤U¦¨¥ß¤@¤U¤£¦¨¥ß
´N¦b­È¶ñ¤JK2¤§«e¡A¥ý±½¤@¹MKÄæ¡A¬Ý¦³¨S¦³¦P®É²Å¦X1216±ø¥ó¤@¡C¦pªG¦³¡A´N¸õ¹L¤£¶ñ¤J

´«¨¥¤§¡A¦P¤@­Ó±ø¥ó¥u·|²£¥Í¤@¦¸°T¸¹¡A¦Ó¥B¥u´£¨Ñ¦h°T©ÎªÅ°T¡A±a¶i¤£±a¥X¡C

³o³£¬O¦¸­n°ÝÃD¡A¥D­n¬O¦p¦ó¨ú±oµo¥ÍÅܰʪºÄæ¦ìªº¦ì§}¡C¦ì§}§ì¤£¨ì¡A«áÄòªº°Ê§@³£µLªk¶i¦æ¤F¡C
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð

TOP

¤p§Ì·Q¥X¸Ñªk¤F¡A¨Ñ¦U¦ì°Ñ¦Ò«ü±Ð¡G

¥i¯à¶¤F¤@¤j°é¡A¦ý¯u¨S¿ìªkªºª¬ªp¤U¡A¤]³\³o­Ó¤gªkÁå¿ûªº¤èªk¤Ï¦Ó¤ñ¸û²³æ

SHEET1¡A¬°CALCULATEªº¤u§@ªí­«ºâ¨Æ¥ó
SHEET2¡A¥ÎVBA¡A¨C¤Q¬í±NSHEET1¾ã±iªí½Æ»s­È¨ìSHEET2¤W
SHEET3¡A¤ñ¹ïSHEET2»PSHEET1ªºÄæ¦ì¡A¦]¬°SHEET3¤£¬O¥Î¨ìCALCULATE¤èªk¡A©Ò¥H®t²§Äæ¦ì´N«Ü®e©ö§ä¤F¡C
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð

TOP

¤p§Ì¤S·Q¥X¸Ñªk¤F
¤G¼h°j°é
FOR I TO LOSTROW
       FOR J TO LOSTCOLUMN
              IF CELLS(I,J).VALUE = "YES"
                    MSGBOX  "ªÑ¸¹" & CELLS(I,1).VALUE & "²Å¦X±ø¥ó" & CELLS(1,J).VALUE
              END IF
      NEXT
NEXT

¥H¤W¡A±ß¤W¦A¹ê»Ú¼g¼g¬Ý¡A¹B§@¬Ý¬Ý
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð

TOP

µ¹­Ó°Ñ¦Ò¤è®×¡G
TEST001.rar (25.62 KB)
http://www.funp.net/921173

¦¹©«§Úµo·N¨£¦Ü¦¹¬°¤îÅo¡I¡I¡I

TOP

¦^´_ 24# ketrddem

TOP

¦^´_ 27# c_c_lai


    ¤Ó·PÁ¤F¡A§¹¥þ´N¬O§Ú·Q¹ê²{ªºª¬ªp
    ¥J²Ó¬Ý¤F»yªk¡A¨ä¹ê¬O¤§«e¦Û¤w·Q±o¤Ó½ÆÂø¤F
     ¨ä¹ê´N³æ¯Â§ä¡uyes¡v´N¦n¤F§r¡C

    ´«¨¥¤§¡A¨ä¹ê¤£»Ý­n°µ¨ì¤G¼h°j°é¡A¥Îif¤@Äæ¤@Ä檺§ä´N¦n¤F¡C
    ·PÁ¤£§[«ü±Ð¡C
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD