½Ð°Ý²V¦X½s½X§ÚÀ³¸Ó«ç»ò°µ

sheau-lan

³Â·Ð¦U¦ì¥\¤O±j¤jªº¤j¤jÀ°¦£:'(

stillfish00

¦^´_ 1# sheau-lan
«~¸¹¥u·|·s¼WÁÙ¬O·|¥h­×§ï¤§«eªº??
¨Ò¦p: ¦pªG­×§ï[A6]Àx¦s®æ¬°M4-xxx³W®æªº«~¸¹ , ¤U¤èªº¦s©ñ½s¸¹­n¥þ³¡§ó·s¶Ü??

¦pªG¤£¥ÎºÞ¡A¥i°Ñ¦Ò¤U­±¡F¦pªG­n¡A¤£¦p«Ø­Ó«ö¶s§ó·s¥þ³¡¦s©ñ½s¸¹¤ñ¸û¾A¥Î¡C

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim ar, spec, prefix, count As Long
   
3.     With Target
   
4.         If .Row >= 3 And .Column = 1 Then
   
5.             '¨ä¥¦Äæ³B²z²¤¹L, °²³]DÄæ¤w¨ú±o³W®æ
   
6.             '.........
   
7.             spec = Cells(.Row, "D").Value
   
8.             prefix = Split(spec, "-")(0)
   
9.             ar = Range(Cells(1, "H"), Cells(.Row - 1, "H"))
   
10.             For Each x In ar
    
11.                 If prefix = Split(x, "-")(0) Then
    
12.                     count = count + 1
    
13.                 End If
    
14.             Next
    
15.             Application.EnableEvents = False
    
16.             Cells(.Row, "H").Value = prefix & "-" & Replace(Cells(1, count / 4 + 1).Address(False, False), "1", "")
    
17.             Application.EnableEvents = True
    
18.         End If
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

­Y¸ê®Æ¤£¦h¥i°Ñ¦Ò¤½¦¡¡G
=IF(D3="","",LEFT(D3,FIND("-",D3))&CHAR(64+INT(COUNTIF(D$2:D2,LEFT(D3,FIND("-",D3))&"*")/4)+1))

sheau-lan

stillfish00 ¤j¤j
¥i¥H¥Î¤F,MM³W®æ°ò¥»¤W¨S°ÝÃD
¦ý­^¨î³W®æ3/8,1/4,#8
³o¨Ç³W®æ³£¤£¦æ®º

GBKEE

¦^´_ 4# sheau-lan
DÄæ ³W®æ¦³ÅÜ°Ê, HÄæ ³W®æ-A  ¿é¤J ¥~²°¼ÐÅÒ

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim W As Variant, Ar As Variant, i As Integer
   
4.     With Target.Cells(1)
   
5.         W = Split(.Cells, "-")
   
6.         If .Column = 4 And UBound(W) >= -1 Then
   
7.             Application.EnableEvents = False
   
8.             Ar = Application.Transpose(Range("H3", Range("H" & Rows.Count).End(xlUp)))
   
9.             Ar = Filter(Ar, W(0) & "-")
   
10.             i = 65
    
11.             Do While UBound(Filter(Ar, W(0) & "-" & Chr(i))) >= 3
    
12.                 i = i + 1
    
13.             Loop
    
14.             .Cells.Offset(, 4) = W(0) & "-" & Chr(i)
    
15.             Application.EnableEvents = True
    
16.         End If
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

sheau-lan

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 99
Dim TG As Range
With Target
If .Row >= 3 And .Column = 1 Then
     If .Value = "" Then
98:      .Offset(0, 2) = ""
         .Offset(0, 3) = ""
         .Offset(0, 4) = ""
         .Offset(0, 5) = ""
         .Offset(0, 6) = ""
         .Offset(0, 7) = ""
         .Offset(0, 8) = ""
         .Offset(0, 9) = ""
         
  Else: Set TG = Sheet7.[H3:H9999].Find("*" & .Value & "*", , , xlWhole)
             If TG Is Nothing Then GoTo 98
                .Offset(0, 9) = TG.Offset(0, -6).Value
               TG2 = .Offset(0, 2).Value
                .Offset(0, 2) = TG.Offset(0, -3).Value
                .Offset(0, 3) = TG.Offset(0, -2).Value
                .Offset(0, 5) = Application.VLookup(TG2, Sheet15.[A4:H9999], 8, False)
                     If IsError(.Offset(0, 5).Value) Then .Offset(0, 5) = ""
                .Offset(0, 6) = TG.Offset(0, 1).Value
¤j¤j...¥i§Ú«e­±ÁÙ¦³³o¤@¬q
¥i¥H¥[¤@°_¶Ü?
³o¤@¬q¬O§ì¨ä¥L¬ÛÃö¸ê®Æªº
¤£¥Î¦AKEY¤@¦¸

sheau-lan

GBKEE ¤j¤j...³Â·Ð½Ð¬Ý¤@¤U§Úªº¯d¨¥,§Ú¸Õ¤F¦n¤[
³£¨S¿ìªk¥[¤@°_

­ã´£³¡ªL

¦^´_ 7# sheau-lan


½Ð´£¨Ñ¸û§¹¾ãªº°Ñ¦Ò¸ê®Æ¤ÎÀÉ®×, ¨Ã¸Ô²Ó»¡©ú¾Þ§@¬yµ{¤Î»Ý¨D,
¦Ó¤£¬O¥u¦³µ{¦¡½X, ¤]³\¥i¥H±qµ{¦¡½X¸ÑŪ, ¦ý«Üªá®É¶¡¤]®e©ö»~§P!

¥t¡D¤½¦¡¥i¥H°µ¨ìªº¸Ü, ¬°¦ó¤@©w­n¥ÎVBA¡H¡H¡H

sheau-lan

­ã´£³¡ªL ¤j¤j...§A­n¨DªºªþÀÉ®×»¡©ú

­ã´£³¡ªL

¦^´_ 9# sheau-lan

¢°¡D¡e«~¸¹¡f©T©w¥|½X¡]­^¼Æ²V¦X¡f¡H³£¥Ñ¤W¦Ó¤U³v¤@¿é¤J¡H
¢±¡D¦³µL¥i¯à¿é¤J«á¤S§ó§ï¡A³y¦¨¡e¦s©ñ½s¸¹¡f¶·¥Ñ¤W¦Ó¤U¦A­«·s½s¸¹¡H

¥ý¥Î¤½¦¡³B²z¡A¡e¦s©ñ½s¸¹¡f·|¦Û°Ê¥H³Ì·sªºª¬ºA½s½X¡A¬Ý¬O§_¦p©Ò»Ý¡A­Y«D±o¥Îvba¡A¦A»¡¡G
Xl0000111v01.rar (85.38 KB)

¤U¸ü¦¸¼Æ: 4

2015-9-21 18:23