stillfish00

¦^´_ 1# flutist
ÆZ°½Ãiªº¼gªk...

1. Sub LottoRun()
   
2.     With Sheets("Sheet1").[D2]
   
3.     Select Case [=IFERROR(SUM(COUNTIF(Sheet1!B2:B6,OFFSET(Sheet2!B1:G1,MATCH(Sheet1!A2,Sheet2!A:A,0)-1,)))*10+(B7=OFFSET(Sheet2!H1,MATCH(Sheet1!A2,Sheet2!A:A,0)-1,)),-1)]
   
4.         Case 61
   
5.             .Value = "®¥³ß§A¹ï¤¤ÀY¼ú"
   
6.         Case 51
   
7.             .Value = "®¥³ß§A¹ï¤¤¶L¼ú"
   
8.         Case 50
   
9.             .Value = "®¥³ß§A¹ï¤¤°Ñ¼ú"
   
10.         Case 41
    
11.             .Value = "®¥³ß§A¹ï¤¤¸v¼ú"
    
12.         Case 40
    
13.             .Value = "®¥³ß§A¹ï¤¤¥î¼ú"
    
14.         Case 31
    
15.             .Value = "®¥³ß§A¹ï¤¤³°¼ú¡A¼úª÷$1,000"
    
16.         Case 30
    
17.             .Value = "®¥³ß§A¹ï¤¤´¶¼ú¡A¼úª÷$400"
    
18.         Case -1
    
19.             .Value = "´Á§O§ä¤£¨ì"
    
20.         Case Else
    
21.             .Value = "´Ý©À"
    
22.     End Select
    
23.     .EntireColumn.AutoFit
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

stillfish00

§ó¥¿ ÀY¼ú¬°Case 60

stillfish00

À³¸Ó¬OCase 60, 61