FAlonso

­º¥ý¸Ñ¨M®æ¤l©³¦â°ÝÃD
¥Î¤U¦Cµ{¦¡¸Õ¸Õ¨äÃC¦â½s¸¹

1. Sub abc()
   
2. Dim i
   
3. i = Sheet1.Range("A1").Interior.ColorIndex '­×§ï¥Ø¼Ð¦a§}
   
4. MsgBox i
   
5. End Sub

½Æ»s¥N½X

µM«á

1. Option Explicit
   
2. Sub choosesheet()
   
3. Dim myyear As String, mystock As String
   
4. Dim myfind As Range, myrange As Range, mycell As Range
   
5. 
   
6. thisworkbook.activate
   
7. 
   
8. myyear = Application.InputBox(myyear, "Enter year")
   
9. 
   
10. If IsNumeric(myyear) Then
    
11.     If myyear < 2001 Or myyear > 2010 Then
    
12.     MsgBox "Out of Range"
    
13.     Exit Sub
    
14.     Else
    
15.     Sheets(myyear).Activate
    
16.     End If
    
17. Else
    
18. MsgBox "Not A Number"
    
19. Exit Sub
    
20. End If
    
21. 
    
22. mystock = Application.InputBox(mystock, "Enter Stock Name")
    
23. 
    
24. With Sheets(myyear)
    
25. Set myfind = .Rows(1).Find(what:=mystock, after:=.[b1], lookat:=xlPart)
    
26. If myfind Is Nothing Then
    
27. MsgBox "No Findings"
    
28. Else
    
29. Set myrange = .Range(myfind, myfind.End(xlDown))
    
30. 
    
31. For Each mycell In myrange
    
32. If mycell.Interior.ColorIndex = 6 Then
    
33. mycell.Activate
    
34. Exit For
    
35. End If
    
36. Next
    
37. 
    
38. End If
    
39. End With
    
40. End Sub

½Æ»s¥N½X

¿é¤J¦~¥÷¤Î¨äªÑ²¼¥N¸¹©Î¦WºÙ,¸Óµ{¦¡«K·|¥h¨ì«ü©w¶À¦¡®æ¤l
½ÐªÖ©w¨C­Ócolumn¥u¦³¤@­Ó¶À¦â®æ¤l¦Ó¤w,¦pªG¤£¬O¦¹µ{¦¡»Ý­n§@­×§ï,Ãþ¦üfindnext + loop xxxx<>xxx.address¤§Ãþªº
¦³°ÝÃD¦Acall§Ú

FAlonso

¦^´_  FAlonso


§A¦n~
½Ð°Ý§Ú°õ¦æ§¹²Ä¤@­Óµ{¦¡½X¥L¶]¥Xªº°T®§¬O"4142"³o¬O¤°»ò·N«ä?!
ÁÂÁ§Aªº¦^µª! ...
candy516 µoªí©ó 2011-1-17 18:05

«ü®æ¤l¬O"µL¶ñº¡".§Ydefaultªºcolor index
¸Óµ{¦¡¬O°»¹î¥X¶À¦âªº½s¸¹,¤£¥Î²q
§Ú²Ä¤G­Óµ{¦¡,§Aı±o«ç¼Ë?

FAlonso

¦^´_  FAlonso


³á~­ì¨Ó¬O³o­Ó·N«ä§r!
²Ä¤G­Óµ{¦¡¤]«Ü¼F®`­C!
¤j®a³£¦n¼F®`­ò!
^^
candy516 µoªí©ó 2011-1-17 21:34

Ãö©ó¨º­Ó¶ñÅv¤é¼Æ,§Ú¿ð¨Ç¼g¤@­Óµ{¦¡µ¹§A