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

[µo°Ý] §P§OÃöÁä¦r¼Æ¶q

[µo°Ý] §P§OÃöÁä¦r¼Æ¶q

½Ð±Ð¦U¦ì¤j¤j

§Ú·Q§P§OÃöÁä¦r

±qColumn 6 ¨ì Column 10

·Qºâ¨C­ÓColumn ,¬õ¦â NG ªº¼Æ¥Ø,
¥H¤Î¥[Á`ªº¼Æ¥Ø

½Ð°Ý­n¦p¦ó¨Ï¥ÎVBA­pºâ??

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-4-2 11:15 ½s¿è

¦^´_ 1# a703130
  1. Sub nn()
  2. restr = InputBox("¿é¤JÃöÁä¦r¦ê", , "NG")
  3. With ActiveSheet
  4. For i = 6 To 10
  5.    a = .Range(.Cells(1, i), .Cells(.Rows.Count, i).End(xlUp))
  6.    mystr = Join(Application.Transpose(a), "")
  7.    x = x + (Len(mystr) - Len(Replace(mystr, restr, ""))) / 2
  8.    MsgBox "²Ä" & i & "Äæ" & (Len(mystr) - Len(Replace(mystr, restr, ""))) / Len(restr) & "­Ó" & restr
  9. Next
  10. MsgBox "Á`­p¦³" & x & "­Ó" & restr
  11. End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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