ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA_¥[¤J±N¦U¦PÄæ¦ìªº¬Û¦P­È(¥æ¶°­È)¼Ð¥Ü©³¦âªºµ{¦¡½X_1¡C

[µo°Ý] VBA_¥[¤J±N¦U¦PÄæ¦ìªº¬Û¦P­È(¥æ¶°­È)¼Ð¥Ü©³¦âªºµ{¦¡½X_1¡C

VBA_3AA_4_¹ïÀ³¦Cªº¦PÄæ¥æ¶°­È¼Ð¥Ü©³¦â¡C.rar (25.37 KB)

¥H¤Uµ{¦¡»yªk~½Ð¦A¥[¤J¤@¬q¡J
±N¦U¦PÄæ¦ìªº¬Û¦P­È(¥æ¶°­È)¼Ð¥Ü©³¦âªºµ{¦¡½X¡C
¸Ô²Ó¹Ï¥Ü¦pªþ¥ó¡C
ÁÂÁÂ!

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ª½±µ¸õ¿ï¥Ø¼Ð°Ï
      For Each b In Selection
          If b <> "" Then
          If .Range("R" & b.Row) < .[T5] And .Range("R" & b.Row) - 4 > 1 Then
      
          Dim R(1 To 3) As Range, x%, z%, i%, U%
         
          RW = Array(.[T5], .[R6], b(1, -1))
          For x = 1 To 4
          For y = 1 To 7
              Set R(1) = .[J6].Cells(RW(0) - x + 1, y): U = 0
              For z = 2 To 3
                  Set R(z) = .[J6:P6].Offset(RW(z - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
                  If R(z) Is Nothing Then U = 1: Exit For
              Next z
              If U = 0 Then
                 For i = 1 To 3: R(i).Interior.ColorIndex = Array(4, 6, 8)(i - 1): Next
              End If
          Next y
          Next x
          End If
         
          End If
      Next b
      .[A1].Select
End With
End Sub

For z = 2 To 3
¡@¡@Set R(z) = .[J6:P6].Offset(RW(z - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
¡@¡@If R(z) Is Nothing Then U = 1: Exit For
¡@¡@If R(z).Column <> R(1).Column Then U = 1: Exit For¡@
Next z

TOP

¦^´_ 2# ­ã´£³¡ªL
­ã¤j:
ÁÂÁ±z§Ö³tªº¦^ÂÐ~´ú¸ÕOK¤F~·P®¦

TOP

VBA_¤G°ÏR5­È¼Ð¥Ü¦rÃC©M©³¦âªº»yªk¡C

¥»©«³Ì«á¥Ñ Airman ©ó 2016-1-2 08:17 ½s¿è




·s¼W»Ý¨D»yªk¡J
°²³]¦b¦C41´¡¤JFor x = 0 To 6(§Y±N¤ñ¹ï½d³òÂX¥R¬°~$R7¡J$R7 -6¤ñ¹ï$Q$6¡J$Q$6 -6)¡F
·í¦U¥ô¤@²Õ¹ïÀ³¦C¦P®É¦³Åã¥Ü$R$5­È®É~«h±N¸Ó²Õ¤G­ÓÅã¥Ü$R$5­È¤§Àx¦s®æ¼Ð¥Ü3¸¹²Ê¦rÃC¤Î4¸¹,8¸¹©³¦â¡C

¥H¤W  Àµ½Ð¦U¦ì¥ý¶i¡B«e½ú¤£§[½ç±Ð!  ÁÂÁÂ!

¸Ô²Ó»¡©ú¦pªþ¥ó~ VBA_¤G°ÏR5­È¼Ð¥Ü¦rÃC©M©³¦âªº»yªk¡C.rar (32.73 KB)

TOP

¦^´_ 2# ­ã´£³¡ªL
­ã¤j:±z¦n!
#4¬°¤p§Ì¤µ¦­·s¶}ªºµo°ÝÃD~
·q½Ð±z´f¤©½ç±Ð¬°Ã«!·P®¦

TOP

¦^´_ 5# Airman


If .Range("R" & b.Row) - 6 > 0 And .[Q6] > .Range("R" & b.Row) Then
¡@¡@For x = 0 To 6
¡@¡@¡@¡@U = 0
¡@¡@¡@¡@For y = 1 To 2
¡@¡@¡@¡@¡@¡@Set R(y) = Nothing
¡@¡@¡@¡@¡@¡@Set R(y) = .[J6:P6].Offset(RW(y - 1) - x, 0).Find(.[R5], Lookat:=xlWhole)
¡@¡@¡@¡@¡@¡@If R(y) Is Nothing Then Exit For
¡@¡@¡@¡@¡@¡@'If R(y).Column <> R(1).Column Then Exit For '¦PÄæ¥[¦¹¦æ
¡@¡@¡@¡@¡@¡@U = U + 1
¡@¡@¡@¡@Next y
¡@¡@¡@¡@If U = 2 Then
¡@¡@¡@¡@¡@¡@For y = 1 To 2
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Interior.ColorIndex = Array(8, 4)(y - 1)
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Font.ColorIndex = 3
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Font.FontStyle = "²ÊÅé"
¡@¡@¡@¡@¡@¡@Next y
¡@¡@¡@¡@End If
¡@¡@Next x
End If

­Y¦]¡e¨Ö©«¡f¡A¨Ï¤£¦P»Ý¨D±ø¥ó²V¦b¤@°_¡A³y¦¨¾\Ū©Êªº¤£«K¡A
¥i¦V¶WªO¤ÏÀ³¡A©Î¦bµoÃD®É¥[ª`¿ô¥Ø¤å¦r¡I¡@

­Ë¬OÃþ¦ü»Ý¨Dªº°ÝÃD¡A¤w¦³¦h­Ó°Ñ¦Ò¡A¦³®É¶¡¥i¦Û¦æ¥h±ÀºV¨äÅÞ¿è¸Õ¼g¡A¨ÃªðÂаõ¦æ´ú¸Õ¤Î­×§ï¡A
¨ä¹ê»P¤½¦¡¬Û®t¤£»·¡A¤£­n¦b·Nµ{¦¡ªøµu¡A¦³®É¦h¼g´X­Ó§PÂ_¤@¼Ë¥i¹F¦¨¥Øªº¡I

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2016-1-2 15:15 ½s¿è

¦^´_ 6# ­ã´£³¡ªL

­ã¤j:
´ú¸ÕOK¤F~ÁÂÁ±zªº­@¤ß±Ð¾É~·P®¦

¤p§Ì¬O¦³¥ý¦Û¦æ¼g¼g¬Ý¡A¦ýı±o­è¶}©lÁÙ¬O¦h¬ãŪ±zªº¼Ð·Ç¼gªk~
¦A±q¤£¦P»Ý¨Dªº»yªk¤§¶¡ªº¬Û²§³B¾Ç²ß§Þ¥©~
EX:
¦¹¦¸¨S¦³¦A¼gRW=.......
ª½±µ©µÄò«e¤@¬q

            Set R(y) = .[J].Rows(RW(y - 1) + 6).Find(.[R5], Lookat:=xlWhole)  
            ¼W­×¬°
             Set R(y) = .[J66].Offset(RW(y - 1) - x, 0).Find(.[R5], Lookat:=xlWhole)
.........µ¥µ¥

Ãö©ó¨ÖÃD~¥Ñª¾ÃÑ+ªº¸gÅç~¦h¨¥¤£¦p¤Ö¨¥¡F¤Ö¨¥¤£¦p¤£¨¥¡C
°ß®£¦p·íªì¦]¦Û¤vªº¦h¨¥¦Ó³s²Ö¤Fapplerotª¾ÃѪø

·PÁ±zªºÃöª`©M«Øij~¦b¦¹ÂÔ¦V±zÁù°`­P·N

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD