[µo°Ý] VBA_½Ð²¤Æµ{¦¡½X¡CÁÂÁÂ!

­ã´£³¡ªL

¤T¦C¡e¦P®É¡f¥X²{ [R5]¡A¶ñ¤J¤£¦P©³¦â¡G

Private Sub CommandButton1_Click()
Dim b As Range, RW, y%
With Sheets(2)
¡@¡@¡@Sheets(1).Range("J7", "P" & Sheets(2).[R6] + 5).Copy .[J7]
¡@¡@¡@Application.Goto .Range("T7:T" & .[R7].End(xlDown).Row)¡@'¤£¥ÎSelect¡Aª½±µ¸õ¿ï¥Ø¼Ð°Ï¡@
¡@¡@¡@RW = Array(.[T5], .[T5] - .[T3], .[T5] - .[T3] * 2)¡@'¢²°Ïªº´Á¼Æ°}¦C¡@
¡@¡@¡@For Each b In Selection
¡@¡@¡@¡@¡@If b <> "" Then
¡@¡@¡@¡@¡@If .Range("R" & b.Row) + 1 = .[T5] And .Range("R" & b.Row) - .[T3] * 2 > 6 Then
¡@¡@¡@¡@¡@¡@¡@Dim R(1 To 3) As Range, U%
¡@¡@¡@¡@¡@¡@¡@For y = 1 To 3
¡@¡@¡@¡@¡@¡@¡@¡@¡@Set R(y) = .[J:P].Rows(RW(y - 1) + 6).Find(.[R5], Lookat:=xlWhole)¡@'¼Ð©w¢²°Ï[R5]­ÈªºÀx¦s®æ¡@
¡@¡@¡@¡@¡@¡@¡@¡@¡@If R(y) Is Nothing Then U = 1: Exit For¡@'­Y¥ô¤@°Ï¤£§t [R5]¡A¥H U=1 ªí¥Ü¡A¸õ¥X¡@
¡@¡@¡@¡@¡@¡@¡@Next y
¡@¡@¡@¡@¡@¡@¡@If U = 0 Then¡@'¢²°Ï¬Ò§t[R5]
¡@¡@¡@¡@¡@¡@¡@¡@¡@For y = 1 To 3: R(y).Interior.ColorIndex = Array(4, 45, 8)(y - 1): Next¡@'¼Ð¥Ü¡e­Ó§O¡f©³¦â¡@
¡@¡@¡@¡@¡@¡@¡@¡@¡@With Union(R(1), R(2), R(3)).Font: .ColorIndex = 3: .FontStyle = "²ÊÅé": End With¡@'³]©w¤å¦r¡@
¡@¡@¡@¡@¡@¡@¡@End If
¡@¡@¡@¡@¡@End If
¡@¡@¡@¡@¡@End If
¡@¡@¡@Next b
¡@¡@¡@.[A1].Select
End With
End Sub

¥i²¤Æªº¤£¦h¡A°Ñ¦Ò¶WªOªº¤èªk´î¤Ö¤T¼hªº°j°é¦Ó¤w¡I¡@

Airman

¦^´_ 11# ­ã´£³¡ªL
­ã¤j:
±zªº§U¤H¼ö¸Û¹ê¦b¥O¤p§Ì§éªA

¤Ö¤F3­Ó°j°éÅܼƴN¤Ö¤F³\¦h¡A°£¤F²¤Æµ{¦¡½X¡A®Ä²v¤]´£¤É«Ü¦h~¡A
¤×¨ä¬O¤£¥ÎSelect~¹ï©ó®Ä²vªº´£¤É§ó¬OÅãµÛ¡C

¸U¤À·PÁ±zªº­@¤ß±Ð¾É©M¶O¯«ªº¦A¥[µ{¦¡µù¸Ñ~¤p§Ì¨ü¯q¨}¦h~·P®¦¦A·P®¦....

­ã´£³¡ªL

¦^´_ 12# Airman


¥u¾Ì©Ò´£¨Ñªºµ{¦¡½X, ­n¦^·¹­ì»Ý¨D³W«h, °£¶O®É¶O²´¤O¥~, ¨Ã«D©ö¨Æ,
ÁÙ¦n¦³¶WªO±M·~¦Ñ¤â¥´¥ý¾W, §Ú´¡ªá¼g¤£¦P»Ý¨D½}¤F~~

Airman

¦^´_ 13# ­ã´£³¡ªL
­ã¤j:
¦A¦¸ÁÂÁ±zªº¶O¯«¡C

¥i§_¥t¥~¦A½Ð±z½ç±Ð:
¦p¦ó±NSet R(y) = .[J:P].Rows(RW(y - 1) + 6).Find(.[R5], Lookat:=xlWhole)¡@§ï¬°~
"¼Ð©w¢²°Ï[R5]­ÈªºÀx¦s®æ¬°¬Û¦PÄæ¦ì"¡@¡C
ÁÂÁ±z!

¬°¤F§K©ó­«­zÁc(·Ð)½Æªº»¡©ú¤Î¦h¥eª©­±¡A©Ò¥H¥¼¥t¶}ÃD½Ð¯q~·q½Ð¨£½Ì!·P®¦!

Airman

»Ý¨D¡J
½Ð±N¡y·j´M¦bR7(=90´Á),R7-T3(=81´Á),R7-T3*2(=72´Á)¤T­Ó´Á¼Æ¦P®É¦³¤@­Ó(§t)¥H¤Wªº¥æ¶°­È(=07,39)¡F¨Ã¤À§O±N¨ä¼Ð¥Ü4,45,8¸¹©³¦â¡zªº¦C19~¦C33µ{¦¡½X~²¤Æ¬°¦p¦C7~¦C17¤§µ{¦¡½Xªº«¬ºA¼gªk~
EX¡JRV = Array(.Range("R" & b.Row),.Range("R" & b.Row)- .[T3],.Range("R" & b.Row)- .[T3] * 2)  '¥t¢²°Ïªº´Á¼Æ°}¦C

¸Ô¦pªþ¥ó~ TEST_2.rar (61.49 KB)

¤U¸ü¦¸¼Æ: 7

2015-11-23 06:15

·q½Ð¦U¦ì¤j¤j¤£§[«ü¾É~·P®¦!

GBKEE

¦^´_ 11# ­ã´£³¡ªL
¦r¦ê¥Î InStr , Split

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, E As Variant, C As Variant, Ar As String
   
4.     Ar = "4,45,8"
   
5.     With Sheets(2)
   
6.         Sheets(1).Range("J7", "P" & Sheets(2).[R6] + 5).Copy .[J7]
   
7.         Set Rng = .[J7].Resize(.[J7].End(xlDown).Row, 7)
   
8.         For Each E In Array(.[T5], .[T5] - .[T3], .[T5] - .[T3] * 2)
   
9.                             '.T5,T5-T3,T5-T3*2 '91,82,73
   
10.             C = Application.Match(.[R5], Rng.Rows(E), 0) '§ä¨ì¶Ç¦^¼Æ¦r
    
11.             If IsNumeric(C) Then
    
12.                 With Rng.Rows(E).Cells(C)
    
13.                     .Interior.ColorIndex = Split(Ar, ",")(0)
    
14.                     .Font.ColorIndex = 3
    
15.                     .Font.FontStyle = "²ÊÅé"
    
16.                 End With
    
17.                 If InStr(Ar, ",") Then Ar = Mid(Ar, InStr(Ar, ",") + 1)
    
18.             End If
    
19.         Next
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

Airman

¦^´_ 16# GBKEE
GBKEE¶W¤j:¦­¦w!
¤£¦n·N«ä¡A¥ý½Ð±Ð:­nÅý¶Qµ{¦¡¦bµ²§ô«á¡A·Æ¹«°±¯d¦bA1¡A­n«ç»ò¼g?(¦bEnd With´¡¤J.[A1].Activate©Î.[A1].Select³£¤£¹ï )

¦^À³¶Q¯d¨¥:
¤p§Ìªº·N«ä¬O±N¦C19~¦C33µ{¦¡½X²¾°£¡A²¤Æ¦¨¦pÃþ¦ü¦C7~¦C17µ{¦¡½X«¬ºAªº¼gªk¡C
·íµM¥H¶Q¼gªk§ó¬°Â²¤Æ¡C
¦p¤£¶û±ó~·q½Ð±z´f¤©½ç±Ð!·P®¦

GBKEE

¦^´_ 17# Airman

1. With Sheets(2)
   
2.    ' ¦p­ã´£³¡ªLª©¥D ªº
   
3.     Application.Goto .Range("T7:T" & .[R7].End(xlDown).Row)¡@'¤£¥ÎSelect¡Aª½±µ¸õ¿ï¥Ø¼Ð°Ï¡@
   
4.    '©Î .Activate   
   
5.   '©Î .Select
   
6.    '¨ÏSheets(2) ¬°§@¥Î¤¤¤u§@­¶,Àx¦s®æ¤~¥i¥Î.Activate ©Î.Select
   
7.     '
   
8.     .[A1].Activate   
   
9. '©Î.[A1].Select
   
10. End With

½Æ»s¥N½X

½Ð¦b«ü©ú­n²¤Æªºµ{¦¡½X¦b­þ¸Ì

Airman

¦^´_ 18# GBKEE
GBKEE¶W¤j:±z¦n!
©êºp!¤p§Ì»¡ªº¤ÓÅo¶Û¤F¡AÅý±z»~¸Ñ¤F~­«·s»¡©ú¦p¤U:
½Ð±Ð:
¥H¶Q#13ªºµ{¦¡½X¡A¦pªG­n¦A¼W¥[~
1.¡y·j´M¦bR7(=90´Á),R7-T3(=81´Á),R7-T3*2(=72´Á)¤T­Ó´Á¼Æ¦P®É¦³¤@­Ó(§t)¥H¤Wªº¥æ¶°­È(=07,39)¡F¨Ã¤À§O±N¨ä¼Ð¥Ü4,45,8¸¹©³¦â¡z~
À³¸Ó«ç»ò¦A¼W¼g?
2.µ{¦¡°õ¦æµ²§ô«á¡A·Æ¹«°±¯d¦bA1¡A½Ð°Ý­n«ç»ò¼W¼g?

¥H¤W·q½Ð´f¤©½ç±Ð!ÁÂÁ±z!

GBKEE

¦^´_ 19# Airman
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, E As Variant, C As Variant, Ar As String, x_No, x As Variant
   
4.     x_No = Array(7, 39)
   
5.     Ar = "4,45,8"
   
6.     With Sheets(2)  '
   
7.     'With Sheets("Sheet1")
   
8.         .Activate   '±N¥Ø«eªº¤u§@ªí¦¨¬°¨Ï¥Î¤¤ªº¤u§@ªí¡Cµ¥¦P©ó«ö¤@¤U¤u§@ªí¯Á¤Þ¼ÐÅÒ¡C
   
9. 
   
10.         Sheets(1).Range("J7", "P" & Sheets(2).[R6] + 5).Copy .[J7]
    
11.         Set Rng = .[J7].Resize(.[J7].End(xlDown).Row, 7)
    
12.         For Each E In Array(.[T5].Value, .[T5] - .[T3], .[T5] - .[T3] * 2) '´Á§Oªº°j°é
    
13.             '¡y·j´M¦bR7(=90´Á),R7-T3(=81´Á),R7-T3*2(=72´Á)¤T­Ó´Á¼Æ~
    
14.             '.T5,T5-T3,T5-T3*2 '91,82,73 ½Ð­×§ï¤½¦¡
    
15.             
    
16.             For Each x In x_No   '¤ñ¹ï¼Æ¦rªº°j°é
    
17.                 C = Application.Match(x, Rng.Rows(E), 0) '§ä¨ì¶Ç¦^¼Æ¦r
    
18.                 If IsNumeric(C) Then
    
19.                     With Rng.Rows(E).Cells(C)
    
20.                         .Interior.ColorIndex = Split(Ar, ",")(0)
    
21.                         .Font.ColorIndex = 3
    
22.                         .Font.FontStyle = "²ÊÅé"
    
23.                     End With
    
24.                 End If
    
25.             Next
    
26.             If InStr(Ar, ",") Then Ar = Mid(Ar, InStr(Ar, ",") + 1)
    
27.         Next
    
28.         .[a1].Select  '·Æ¹«°±¯d¦bSheets(2)ªº A1
    
29.     End With
    
30. End Sub

½Æ»s¥N½X