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

[µo°Ý] ¨DÀ°¦£!¦³Ãö­«½Æ¿é¤Jªº¸ê®Æ¬O§_¥i¥H¦Û°ÊÂл\???

[µo°Ý] ¨DÀ°¦£!¦³Ãö­«½Æ¿é¤Jªº¸ê®Æ¬O§_¥i¥H¦Û°ÊÂл\???

¦U¦ì°ª¤â¤Î¶W¯Åª©¥D¤j®a¦n

               ¦³¤@­Ó°ÝÃD·Q½Ð±Ð,ªþ¥ó¦pªG±N¸ê®Æ¶ñ§¹«á «ö°õ¦æ¦sÀÉ, ¸ê®Æ·|Àx¦s¦b¤u§@ªí4,¦pªG°õ¦æ¦sÀɹJ¨ì¦P¼Ëªº©m¦W®É, ¸ê®Æ­n¦p¦ó¦Û°ÊÂл\©O!!!!!!!!¨DÀ°¦£  ·P®¦ ¦Ò®Öªí.zip (19.8 KB)
yvonne

C7:C10=LOOKUP(1,0/(¤u§@ªí4!C$2:C$99=D$3)/(¤u§@ªí4!B$2:B$99=F$3),OFFSET(¤u§@ªí4!C$2,,ROW(A1),98))
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

[ª©¥DºÞ²z¯d¨¥]
  • ¤p»x(2018-5-10 18:22): ª¬ªp¡H«ç»ò­Ó¤£¦æ¡A½Ð»¡©ú!! ²³æ»¡¥y¤£¦æ¡A«e½ú­Ì¦p¦óÀ°?

¦^´_ 2# hcm19522


    ¤£¦æ©O~~¤j¤j
yvonne

TOP

¦^´_ 2# hcm19522


    ·PÁÂh¤j¦^ÂÐ,³o¦n¹³¬O¤½¦¡,©Ò¥H§Ú¤£ª¾¦p¦ó¥Î,·PÁ¤p»xª©¥Dµ¹¤©«Øij,§Ú¥H«á·|ª`·N,³o­Óºô¯¸¯uªº¬OÅý§Ú¨ü¯q¨}¦h,·PÁ«e½ú­Ìªº¨ó§U
yvonne

TOP

¦pªG°õ¦æ¦sÀɹJ¨ì¦P¼Ëªº©m¦W®É

©m¦W¦³¥i¯à·|­«ÂÐ, ¬JµM¦³[¤u¸¹], À³¬O°ß¤@ªº, ¥Î[¤u¸¹]¨Ó§ì¤~¬O§´·í§a!!

TOP

  1. Sub µn¸ü()
  2. Dim FRng As Range, xR As Range, N%, U, T$
  3. If [F3] = "" Then MsgBox "¤u¸¹¥¼¿é¤J!!": Exit Sub
  4. Set FRng = [¤u§@ªí4!B:B].Find([F3], Lookat:=xlWhole)
  5. If Not FRng Is Nothing Then
  6.    Beep
  7.    If MsgBox("¤u¸¹¤w¦s¦b,¬O§_­nÂл\¸ê®Æ?   ", 4 + 32 + 256) = vbNo Then Exit Sub
  8. End If
  9. If FRng Is Nothing Then Set FRng = [¤u§@ªí4!B65536].End(xlUp)(2)
  10. Set FRng = FRng(1, 0)
  11. For Each xR In [B3,F3,D3,C7,C8,C9,C10]
  12.     N = N + 1
  13.     FRng(1, N) = xR
  14. Next
  15. U = Val([C10])
  16. T = Switch(U <= 59, "¤B", U >= 90, "Àu", U >= 80, "¥Ò", U >= 70, "¤A", U >= 60, "¤þ")
  17. N = N + 1: FRng(1, N) = T

  18. MsgBox "µn¸ü¸ê®Æ§¹¦¨!!"
  19. End Sub
½Æ»s¥N½X

TOP

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


    ·PÁ·Ǥj¦^´_,§Ú¥ý¬ã¨s¤@¤U!!!«D±`·PÁÂ
yvonne

TOP

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


    ·Ç¤j ¯uªº¤Ó·PÁ¤F ¥i¥HWORK

¦ý½Ð±Ð¤@¤U¤U­±¿Ã¥ú³¡¤À §Ú¤£¤ÓÀ´¥¦ªº·N«ä ¥i¥H½Ð±Ð¶Ü????·PÁ«e½ú

yvonne

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2018-5-12 12:05 ½s¿è

¦^´_ 8# afu9240


http://forum.twbts.com/viewthread.php?tid=15644&rpid=84940

¬Ý¤C¼Óªº»¡©ú

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD