Excel: Bir listedeki tüm değerleri koşullu olarak listelemek için Makro

Question

Belirli bir projeye ait tüm kaynakları rolleriyle listelemem gereken bir Makro yazmaya çalışıyorum. Örneğin :

Resource Project 1 Project 2 Project 3 
X1   Manager  Team Lead 
X2   Analyst     Team Lead 
X3      Consultant 
X4   BA      Consultant 

Sonra neden

olmalıdır:

  List 
Project 1 X1, X2 and X4 
Project 2 X1 and X3 
Project 3 X2 and X4 

nasıl ben bunu başarmak gerektiği gibi önerin. Teşekkürler.

Answer 1

Bu UDF'yi deneyin. olarak G4

Option Explicit 

Function listProjectResources(rng As Range, rsc As Range) 
    Dim tmp As String, r As Long, c As Long, n As Long 
    Set rsc = rsc.Resize(rng.Rows.Count, rng.Columns.Count) 
    For r = 1 To rng.Rows.Count 
     For c = 1 To rng.Columns.Count 
      If Not IsEmpty(rng.Cells(r, c)) Then 
       tmp = tmp & _ 
         IIf(CBool(Len(tmp)), " and ", vbNullString) & _ 
         rsc.Cells(r, c).Value2 
       n = n + 1 
      End If 
     Next c 
    Next r 

    If n > 2 Then _ 
     tmp = Replace(tmp, " and ", Chr(44) & Chr(32), 1, n - 2) 

    listProjectResources = tmp 
End Function 

Kullanım

Module1 (Code),

=listProjectResources(INDEX($B$2:$D$5, 0, MATCH(F4, B$1:D$1, 0)), A$2:A$5)