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

[µo°Ý] Ãö©ó¦¹¬qµ{¦¡½Xªº§ï¶i¥H¤Î»¡©ú?

[µo°Ý] Ãö©ó¦¹¬qµ{¦¡½Xªº§ï¶i¥H¤Î»¡©ú?

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-6-30 14:43 ½s¿è

¥\¯à:¥HC2Àx¦s®æªº³æ¤@±ø¥ó§@¬°§PÂ_
§Æ±æ:C2¦h±ø¥ó§PÂ_ ¥H¡i,¡j C2=¬õ,¿} §Y¶Ç¦^³Ì«á¤@¶µ¦³¦¹±ø¥óªº¤U¤@¹Dµæ
©Î¬O¦³¤j¤j¥i¥HÀ°µù©ú¥H¤Uµ{¦¡½Xªº¸Ñ»¡,¦nÅý¦Û¦æ§ï¶i¶Ü?\
2015-06-30_144300.png
2015-6-30 14:43

2015-06-30_144249.png
2015-6-30 14:43

¥X²{«ü©w¸T§Ò,¸õ©¹³Ì«á¤@¶µ¸T§Ò ©¹¤U¤@¹Dµæ.rar (18.15 KB)
  1. Sub Á׶}¸T§Ò()
  2. Dim arr, str, i&, k&, n&, brr
  3. On Error Resume Next
  4. str = [c2].Value
  5. arr = Sheets("data").[a1].CurrentRegion
  6. ReDim brr(1 To UBound(arr) + 1, 1 To 2)
  7.     For i = 1 To UBound(arr)
  8.         For j = 1 To UBound(arr, 2) Step 2
  9.             If InStr(arr(i, j + 1), str) Then
  10.                 k = k + 1
  11.                 n = k + 1
  12.                 brr(k, 1) = arr(i, j)
  13.                 brr(k, 2) = arr(i, j + 1)
  14.                 brr(n, 1) = arr(i, j + 2)
  15.                 brr(n, 2) = arr(i, j + 3)
  16.             End If
  17.         Next
  18.     Next
  19. 'If Err <> 0 Then MsgBox "¬d¤£¨ìµ²ªG": Exit Sub
  20. [c6] = brr(n, 1)
  21. MsgBox "³Ì«á¦³" & str & "¬°¡G" & brr(k, 1) & vbCr & "¥¦ªº¤U¤@­Ó¬O¡G" & brr(n, 1)
  22. End Sub
½Æ»s¥N½X

¦^´_ 1# starry1314
¸Õ¸Õ¬Ý
  1. Sub tt()
  2.     Dim arr(), str As String, brr As String
  3.     str = Sheets("¤u§@ªí1").[c2].Value
  4.     Sheets("¤u§@ªí1").[E8] = ""
  5.     arr = Sheets("data").[a1].CurrentRegion.Rows(2).Value
  6.     For i = 2 To UBound(arr, 2) Step 2
  7.             If InStr(arr(1, i), str) = 0 Then
  8.                 Sheets("¤u§@ªí1").[E8] = arr(1, i - 1)
  9.                 brr = arr(1, i)
  10.                 Exit For
  11.             End If
  12.     Next
  13.     If brr = "" Then
  14.         MsgBox "¬d¤£¨ìµ²ªG"
  15.     Else
  16.         MsgBox "³Ì«á¦³" & Sheets("¤u§@ªí1").[E8] & "¬°¡G" & brr
  17.     End If
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-6-30 22:45 ½s¿è

¦^´_ 2# GBKEE


    ªO¤j~¤£¦æ­C,¦pªG¬O³æ±ø¥óªº¸Ü¬O¥¿½Tªº,
¦ý¦pªGC2¬°
EX:¬õ,¿}  <¤£ºÞ¿é¤Jªº±ø¥ó¬O¤°»ò¥u­n¬O¦h±ø¥ó¥L³£·|Ū¨ú²Ä¤@¶µ

¥Ø«e¼gªk¦n¹³¬O§âC2¤º®e µø¬°¤@­Ó±ø¥ó,
¥¿¦b§ä«ç»òÅý¥L¥H¡i,¡j°µ°Ï¤À¥u­n¥X²{¨ä¤¤¤@­Ó±ø¥ó ´N¸õ©¹¤U¤@¹Dµæ¦â

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-6-30 23:13 ½s¿è

¦^´_ 2# GBKEE


   ¦³­Ó·Qªk...
¦pªG¥H²Ä¤@­Ó±ø¥ó·j´M§¹ªºµ²ªG¦ì¸m,
¦A¥H²Ä¤@­Óµ²ªG¦ì¸m°µ¬°°_©lÄ~Äò¥H²Ä¤G­Ó±ø¥óÄ~Äò·j´M
ª½¨ìC2ªº¦h±ø¥ó¬Ò·j´M¹L«áªº³Ì«á¤@µ§+1=¤º®eª«¬ÒµLC2¤º±ø¥óªº µæ

©Î¬O±NC2ªº¦h±ø¥ó¤£­n°µ¦b¦P¤@­ÓÀx¦s®æ¤º,
EX C2¦³¤T­Ó±ø¥ó ¤û,½Þ,¦Ï
Åܧó¦¨
C2 ¤û
C3 ½Þ
C4 ¦Ï

³o¼Ë·|¤ñ¸û¦n¶Ü?

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-6-30 23:39 ½s¿è

¦^´_ 2# GBKEE
  1. Sub tt_GB1()

  2. ¥Ø«e³o¼Ë¥i¥H¹F¦¨§Ú·Q­nªº¦h±ø¥ó...¦ý¦pªG³o¼Ë¨Ï¥Îstr¥i¯à·|¹F¨ì¤W¦Ê­Ó
  3. ¦³¸û²©öªº¼gªk¶Ü??
  4. [code]Sub tt_GB1()
  5.     Dim arr(), str As String, brr As String, str1 As String, str2 As String
  6.     str = Sheets("¤u§@ªí1").[c2].Value
  7.     str1 = Sheets("¤u§@ªí1").[c3].Value
  8.     str2 = Sheets("¤u§@ªí1").[c4].Value
  9.     'Sheets("¤u§@ªí1").[E8] = ""
  10.     arr = Sheets("data").[a1].CurrentRegion.Rows(3).Value
  11.     For i = 2 To UBound(arr, 2) Step 2
  12.             If InStr(arr(1, i), str) = 0 Then
  13.             If InStr(arr(1, i), str1) = 0 Then
  14.             If InStr(arr(1, i), str2) = 0 Then
  15.                 Sheets("¤u§@ªí1").[E8] = arr(1, i - 1)
  16.                 brr = arr(1, i)
  17.                 Exit For
  18.                 End If
  19.             End If
  20.             End If
  21.     Next
  22.     If brr = "" Then
  23.         MsgBox "¬d¤£¨ìµ²ªG"
  24.     Else
  25.         MsgBox "³Ì«á¦³" & Sheets("¤u§@ªí1").[E8] & "¬°¡G" & brr
  26.     End If
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# starry1314
¥¿¦b§ä«ç»òÅý¥L¥H¡i,¡j°µ°Ï¤À¥u­n¥X²{¨ä¤¤¤@­Ó±ø¥ó ´N¸õ©¹¤U¤@¹Dµæ¦â
  1. Option Explicit
  2. Sub Ex()
  3.     Dim arr(), str As String, brr() As String, I As Integer
  4.     Dim S As Variant, E As Integer
  5.     str = Sheets("¤u§@ªí1").[c2].Value
  6.     Sheets("¤u§@ªí1").[E8] = ""
  7.     arr = Sheets("data").[a1].CurrentRegion.Rows(2).Value
  8.     For I = 2 To UBound(arr, 2) Step 2
  9.         S = Split(str, ",")
  10.         ReDim brr(0 To UBound(S))
  11.         For E = 0 To UBound(S)
  12.             If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
  13.         Next
  14.         S = Join(brr, "")
  15.         If S = "" Then
  16.             Sheets("¤u§@ªí1").[E8] = arr(1, I - 1)
  17.             Exit For
  18.         End If
  19.     Next
  20.     With Sheets("¤u§@ªí1").[E8]
  21.         If .Value = "" Then
  22.             MsgBox "¬d¤£¨ìµ²ªG"
  23.         Else
  24.             MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
  25.         End If
  26.     End With
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ¤Ó·PÁªO¤j¤F~±µ¤U¨Ó´N¬O¼o®É¶¡ªº¤uµ{¤F..

¦]¨C®æÄæ¦ì­n§PÂ_ªº¦C¼Æ¤£¦P,¥u¦³³¡¤À¬O¨Ì§Ç©¹¤Uªº,so­n±Nªñ¤d­ÓÄæ¦ì¤@¤@®M¥Î¦¹µ{¦¡¤F

ªO¤j ¥i¥HÀ°§Ú¬Ý¬Ý§Úµù¸Ñªº¹ï¶Ü? ¨Sµù©úªº¬O¤£¤Ó²z¸Ñªº³¡¤À
    Option Explicit '±j¨î«Å§i ¨¾¤î¿ù¦r ³y¦¨¿ù¦r»~¥H¬°ÅܼÆ
    Sub Ex()
        Dim arr(), str As String, brr() As String, I As Integer
        Dim S As Variant, E As Integer
        str = Sheets("¤u§@ªí1").[c2].Value 'Ū¨ú¸T§Ò
        'Sheets("¤u§@ªí1").[E8] = "" '±NÀx¦s®æ²MªÅ
        arr = Sheets("data").[a1].CurrentRegion.Rows(4).Value 'Ū¨ú¸ê®ÆÅܼÆ-¦C
        For I = 2 To UBound(arr, 2) Step 2 '¸ê®ÆÅÜ¼Æ ¥H2Äæ°µ¬°¤@­Ó¼Æ¾Ú
            S = Split(str, ",") '±N¸T§Ò:¥H,°Ï¹j¦h±ø¥ó
            ReDim brr(0 To UBound(S)) '¼Æ²Õ¤º±q0¶}©l­pºâ¦Ü³Ì«á¤@¦ì = ¦p 1-10 µ¥¦PUBound 0-9
            For E = 0 To UBound(S)
                If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
            Next
            S = Join(brr, "")
            If S = "" Then
                Sheets("¤u§@ªí1").[E8] = arr(1, I - 1)
                Exit For
            End If
        Next
        With Sheets("¤u§@ªí1").[E8]
            If .Value = "" Then
                MsgBox "¬d¤£¨ìµ²ªG"
            Else
                MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
            End If
        End With
    End Sub

TOP

¦^´_ 7# starry1314
  1. Option Explicit '±j¨î«Å§i ¨¾¤îÅܼÆKey¿ù¦r,³y¦¨¿ù¦r»~¥H¬°ÅܼÆ
  2.     Sub Ex()
  3.         Dim arr(), str As String, brr() As String, I As Integer
  4.         Dim S As Variant, E As Integer
  5.         str = Sheets("¤u§@ªí1").[c2].Value 'Ū¨ú¸T§Ò
  6.         'Sheets("¤u§@ªí1").[E8] = "" '±NÀx¦s®æ²MªÅ
  7.         arr = Sheets("data").[a1].CurrentRegion.Rows(4).Value 'Ū¨ú¸ê®ÆÅܼÆ-¦C
  8.         For I = 2 To UBound(arr, 2) Step 2 '¸ê®ÆÅÜ¼Æ ¥H2Äæ°µ¬°¤@­Ó¼Æ¾Ú
  9.             S = Split(str, ",") '±N¸T§Ò:¥H,°Ï¹j¦h±ø¥ó
  10.             ReDim brr(0 To UBound(S))
  11.             'ReDim ³¯­z¦¡ ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
  12.             '¼Æ²Õ¤º¤¸¯Àªº¤W­­­È '¦p 5-10 µ¥¦PUBound=10 ,LBound=5 ¤U­­­È
  13.             For E = 0 To UBound(S) '¨Ì§Ç¾É¤J¼Æ²Õ¤º¤¸¯À
  14.                 If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
  15.             Next
  16.             S = Join(brr, "")
  17.             'Join ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê , ¸Ó¦r¦ê¬O³z¹L³sµ²¬Y­Ó°}¦C¤¤ªº¦h­Ó¤l¦r¦ê¦Ó«Ø¥ßªº
  18.             If S = "" Then
  19.                 Sheets("¤u§@ªí1").[E8] = arr(1, I - 1)
  20.                 Exit For
  21.             End If
  22.         Next
  23.         With Sheets("¤u§@ªí1").[E8]
  24.             If .Value = "" Then
  25.                 MsgBox "¬d¤£¨ìµ²ªG"
  26.             Else
  27.                 MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
  28.             End If
  29.         End With
  30.     End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE


    ·PÁªO¤jªº±Ð¾Ç¡I¡I¡I¯u¬OÀ°¤F¤j¦£

TOP

¦^´_ 8# GBKEE

ª©¤j~½Ð°ÝFOR ©MNEXT ¬O­n¦b¸Ó«ç»ò©ñ©O
§Ú±N­ì¥»ªº¦C,©M­n¿é¤Jªº¦ì¸m³£§ï¥ÎÅܼÆ,¦ý§Úªº FOR A ¥u·|¶]²Ä¤@¦¸,¤§«áªºNEXT³£¤£·|¦A¸g¹LA,©Ò¥HÅܦ¨©T©w¦b²Ä1¦C
A=¦C  Q=¿é¤J¦ì¸m
    Sub ¸õ¸T§Ò()
    Dim arr(), str As String, brr() As String, I As Integer, A As Integer, Q As Integer
    Dim S As Variant, E As Integer

            str = Sheets("¸T§Ò").[B3].Value
            For A = 1 To 100
            arr = Sheets("Data").[c1].CurrentRegion.Rows(A).Value
            
                For Q = 1 To 100
            
        
            For I = 2 To UBound(arr, 2) Step 2
                S = Split(str, ",")
                ReDim brr(0 To UBound(S))
                For E = 0 To UBound(S)
                    If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
                Next
                S = Join(brr, "")
                If S = "" Then
                    Sheets("µæ³æ").[C6] = arr(1, I - 1)
                    Exit For
                End If
            Next
            
            With Sheets("µæ³æ").Range("c" & Q)
                If .Value = "" Then
                    'MsgBox "¬d¤£¨ìµ²ªG"
                Else
                    'MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
                End If
            End With
        Next
    Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD