[µo°Ý] (¤w¸Ñ¨M)¥i¥H°w¹ï®æ¦¡¤Æ±ø¥óªºÃC¦â°µ§PÂ_¶Ü?

freeffly

§Ú·Q¹ï®æ¦¡¤Æ±ø¥ó¤UªºÀx¦s®æ¥h°µ§PÂ_
¹ï©ó¨S¥Ñ®æ¦¡¤Æ¤WÃC¦âªº¦CÁôÂÃ
¥»¨Ó§Ú·Q¥Î¤U­±ªºµ{¦¡½X³B²z
µo²{®æ¦¡¤Æªº³¡¥÷¤£²Å¦X
½Ð¦U¦ì¤j¤jÀ°§Ú¬Ý¤@¤U­n«ç»ò§ï
§Úªº¼gªk¥i¯à¤]¤£¬O«Ü¥¿½T½ÐÀ°¦£­×¥¿




Sub ÁôÂææ¦C()
    Application.ScreenUpdating = False
    For i = 5 To Range("B65536").End(xlUp).Row
    Do While Cells(i, 2).Interior.ColorIndex = xlNone
    Cells(i, 2).EntireRow.Hidden = True
    i = i + 1
    Loop
    Next
End Sub

freeffly

¦^´_ 2# Hsieh
       ½Ð°Ý¦pªG§Úªº±ø¥ó¬O³o¼Ë §ÚÀ³¸Ó¦p¦ó¼g¤~¯à¹F¨ì§Ú­nªºµ²ªG?

     Columns("B:B").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=VLOOKUP($B1,$M$548:$M$556,1,0)=$B1"
    With Selection.FormatConditions(1).Font
        .Bold = False
        .Italic = False
        .ColorIndex = 4
    End With
    Selection.FormatConditions(1).Interior.Pattern = xlNone
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=FIND(""°ª¶¯"",$B1,1)"
    With Selection.FormatConditions(2).Font
        .Bold = True
        .Italic = False
    End With
    Selection.FormatConditions(2).Interior.Pattern = xlNone

freeffly

¦^´_ 4# Hsieh


    ¤j¤j½T»{¤@¤U
  ®æ¦¡¤Æ±ø¥ó§Ú¸Ì­±ªº¤½¦¡³o¼Ë¬O¤£okªº¶Ü? ­n§ï¦¨¹³§A¨º¼Ë¶Ü?

freeffly

¦^´_ 5# GBKEE

   
¤j¤j§Aªº¤è¦¡¹ï§Ú¥Ø«eªº¥\¤O¦³ÂIÃø²z¸Ñ

¦pªG¦³®É¶¡¥i¥H»¡©ú¤@¤U¶Ü?
¦³¨Ç¨Ï¥Î¤è¬O§Ú¨S¬Ý¹L

k%  F%(1)  §@¥Î?  ()¸Ì­±¦³¤°»ò§®³B¶Ü?
«á­±case¸Ì­±§Ú¤w¸g¶Ã±¼¤F

freeffly

¦^´_ 9# Hsieh


    ÁÂÁ¤j¤j¸Ñ»¡
      ¦³ºØÁŵM¶}®Ôªº·Pı

freeffly

¦^´_ 8# GBKEE


    §Ú¦b¬ã¨s¤@¤U¥Ø«e¬ÝÁÙ¦³ÂI¨S¨º»ò²M·¡
      ÁÂÁ ¤j¤j¸Ñ»¡