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

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

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

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

½s½X°ÝÃD.rar (15.65 KB)

¦^´_ 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
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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¤@¦¸

TOP

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

TOP

¦^´_ 7# sheau-lan


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

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

TOP

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

Book1.rar (124.8 KB)

TOP

¦^´_ 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)

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD