[µo°Ý] ²M°£½d³ò¤ºªºÃC¦â

missbb

·Q­n²M°£½d³ò¤ºªºÃC¦â (¦ý¬O­n«O¯d­ì¦³ªº®æ¦¡¤Æ³]©w), ¥Î¤Uµ{¦¡½X«o¤£¦æ, ½Ð«ü±Ð¬O¨º¨à¿ù¤F?

1. Sub test()
   
2. Dim i As Integer
   
3.   
   
4.    
   
5. lastrow = Range("a" & Rows.Count).End(xlUp).Row
   
6.    
   
7. For i = 7 To Sheets.Count
   
8.    With Sheets(i).Range("F4:aj" & lastrow)
   
9.    .ClearContents
   
10.    .Interior.ColorIndex = xlNone
    
11.    
    
12.     End With
    
13.    
    
14.     Next i
    
15.    
    
16. End Sub

½Æ»s¥N½X

lcctno

§Ú¬O¨Ï¥Î¿ý»sªº¤èªk±o¨ìªº¤uµ{½X
.Interior.ColorIndex = xlNone §ï¬°¥H¤U ©Î³\¥i¦æ
Selection.FormatConditions.Delete

missbb

¦^´_ 2# lcctno

¤w¸Õ¦ý¤£¤ä´©¦¹¤èªk, ªþ¤WÀÉ®×.

1. ªí®æTEST2.rar (48.59 KB)
   ¤U¸ü¦¸¼Æ: 7
   

   2015-8-23 20:25

½Æ»s¥N½X

²Ä2­Ó°ÝÃD¬O·Q¦b¤£¦P¤u§@ªí, ²M°£F4¦ÜAJ ³Ì«á¤@¦æªº¤º®e¤ÎÃC¦â, ¥HD17 ¶}¤u¤H¼Æ ¬°¼Ð°O, ¦]«Ü¤u§@ªí¤H¼Æ¤£¦P, ¥u¼g¤F¤U¦C´N¤£À´¤F???:'(

1. Sub ²M°£F4¦ÜAJLR()
   
2. 
   
3. '·Q²M°£F4¦ÜAJ ³Ì«á¤@¦æªº¤º®e¤ÎÃC¦â, ¥HD17 ¶}¤u¤H¼Æ ¬°¼Ð°O, ¦]«Ü¤u§@ªí¤H¼Æ¤£¦P
   
4. 
   
5. Dim r As Variant
   
6. Dim c As Variant
   
7. Dim cl As Variant
   
8. 
   
9. Worksheets("taiwan").Activate
   
10. 
    
11. Set c = Range("D4:D20").Find("¶}¤u¤H¼Æ")
    
12. If Not c Is Nothing Then
    
13.    c.Select
    
14.    r = Selection.Row  'ªð¦^¦æ
    
15.    cl = Selection.Column 'ªð¦^¦C
    
16.    
    
17.    End If
    
18. 
    
19. End Sub

½Æ»s¥N½X

lcctno

¥Ñ©ó§Ú¬O·s¤â «Ü¦hªºvba§Ú³£¬O¨Ï¥Î¿ý»s¥¨¶°ªº¤è¦¡¨Ó¨Ï¥Î µM«á·Q¿ìªk´î¥h¤£»Ý­nªºµ{¦¡½X ÁöµM¤W¤£¤FÂi­± ¦ý¨º¬Oªì¾ÇªÌªº§Ú ³Ì§Öªº¤èªk´N¥u¦³³o©Û¤F  ¦ýÆZ¦n¥Îªº ±z¥i¥H¦Û¤v¸Õ¸Õ¥Î¿ý»s¥¨¶°ªº¤è¦¡©î©Û

ikboy

Sub test()
Dim i As Integer
Dim r As Variant
Dim c As Variant
Dim cl As Variant
zr = Rows.Count
For i = 7 To Sheets.Count
    With Sheets(i)
        lastrow = .Range("aj" & zr).End(3).Row
        .Range("F4:aj" & lastrow).Clear  '§óª½±µ¦a§R°£¤º®e¤Î®æ¦¡
        Rem .ClearContents
        Rem .Interior.ColorIndex = xlNone
    End With
Next i
Worksheets("taiwan").Activate
Set c = Range("D420").Find("¶}¤u¤H¼Æ")
If Not c Is Nothing Then
   c.Select
   r = c.Row  'ªð¦^¦æ
   cl = c.Column 'ªð¦^¦C
End Sub

missbb

¦^´_ 5# ikboy

THANKS