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

½Ð°Ý¦P¤@¦C¿z¿ï¬Û¦P¦WºÙ?

½Ð°Ý¦P¤@¦C¿z¿ï¬Û¦P¦WºÙ?

·Q½Ð°Ý¦U¦ì°ª¤â

¦b¦P¤@¦C¼Æ­È¤¤¡A¦p¦ó"¦³®Ä§Ö³t"ªºª¾¹D¬O§_¦³­þ¨Ç¼Æ­È­«½Æ?

¨Ò¦p:12534845610790

¦³¤°»ò¿ìªk¥i¥Hª¾¹D³o¦C¼Æ¦r¤¤¦³¨â­Ó5¸ò0­«½Æ?

ÁÂÁÂ!!

¦^´_ 1# jeffshow


    ¼Ó¥D~ §Ú¥Î¤F¤@­Ó«Ü²Âªº¤è¦¡¨Ó³B²z~
    1. ¥ý±N¼Æ¦r©î¤À (¥Î¸ê®Æ­åªR)
    2. ¥Îcountif ¨Ó²Î­p¨C­Ó¼Æ¦r¦³´X­Ó¦r¤¸
   
   
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 1# jeffshow

³]Àx¦s®æ¬°A1
  1. Sub AA()
  2. Columns("IV") = ""
  3. For I = 1 To Len([A1])
  4.   Cells(I, "IV") = Mid([A1], I, 1)
  5. Next I
  6. For J = 0 To 9
  7.   If (Application.CountIf(Columns("IV"), J)) > 1 Then
  8.      X = X & J & " "
  9.   End If
  10. Next J
  11. MsgBox X & "­«ÂÐ"
  12. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-1 22:33 ½s¿è

¦^´_ 1# jeffshow
¨Ì·Ó§Aªº½d¨Ò¡AÀ³¸Ó¬O1¡B5¡B4¡B0¤~¹ï§a
  1. Sub nn()
  2. For i = 0 To 9
  3. If Len([A1]) - Len(Replace([A1], i, "")) > 1 Then mystr = IIf(mystr = "", i, mystr & "," & i)
  4. Next
  5. MsgBox mystr
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD