Prev: If calculation
Next: YTD % over 12 accumulating figures
From: Victoria612 on 27 May 2010 15:56 I think I got it  can someone confirm this is accurate? Sub Macro() Dim lngRow As Long Dim intA As Integer, intB As Integer, intC As Integer, intD As Integer, intE As Integer, intF As Integer For intA = 1 To 2 For intB = 1 To 2 For intC = 1 To 2 For intD = 1 To 2 For intE = 1 To 2 For intF = 1 To 2 lngRow = lngRow + 1 Range("A" & lngRow).Resize(, 6) = Split(intA & "," & intB & "," & intC & "," & intD & "," & intE & "," & intF, ",") Next Next Next Next Next Next End Sub Also, can someone explain why there are 64 total scenarios? For some reason I was convinced it was 36 (6 to the n power, n being the number of possible answers, which in this case is 2) Thank you. "Victoria612" wrote: > I have 6 questions that may be answered yes or no, and for the sake of > keeping everything in integer form, let's assume "1" for yes and "0" for no. > > Depending on how a customer answers all 6 questions, they will receive a > predetermined score. I am attempting to develop the answer key, sotospeak, > to refer the reps to once they are finished asking the customer these > questions. > > I was hoping for the code that would build a macro to create this tabe for > me  a table that would lay out all of the 6 questionanswer combinations, > like the following: > > Questions Scenario 1 Scenario 2 Scenario 3 Scenario 4 > 1 1 1 1 > 1 > 2 1 0 0 > 0 > 3 1 1 0 > 1 > 4 1 1 1 > 0 > 5 1 1 1 > 1 > 6 1 1 1 > 1 > > ...and so on, so that I am given all the possible 6 answer scenarios.... > > Your help is greatly appreciated! > > Victoria > >
From: Dave Peterson on 27 May 2010 16:50 It worked ok for me. If you have two options and each option has 2 choices, then you'll end up with 2^2=4. AA AB BA BB If you have 3 options and each option has 2 choices, then you'll end up with 2^3=8. AAA AAB ABA BAA ABB BAB BBA BBB So the rule would be 2 (the number of choices) raised to the number of options. =2^6=64 Take a look at your output and you'll see all those possibilities. Victoria612 wrote: > > I think I got it  can someone confirm this is accurate? > > Sub Macro() > Dim lngRow As Long > Dim intA As Integer, intB As Integer, intC As Integer, intD As Integer, intE > As Integer, intF As Integer > For intA = 1 To 2 > For intB = 1 To 2 > For intC = 1 To 2 > For intD = 1 To 2 > For intE = 1 To 2 > For intF = 1 To 2 > lngRow = lngRow + 1 > Range("A" & lngRow).Resize(, 6) = Split(intA & "," & intB & "," & intC & "," > & intD & "," & intE & "," & intF, ",") > Next > Next > Next > Next > Next > Next > End Sub > > Also, can someone explain why there are 64 total scenarios? For some reason > I was convinced it was 36 (6 to the n power, n being the number of possible > answers, which in this case is 2) > > Thank you. > > "Victoria612" wrote: > > > I have 6 questions that may be answered yes or no, and for the sake of > > keeping everything in integer form, let's assume "1" for yes and "0" for no. > > > > Depending on how a customer answers all 6 questions, they will receive a > > predetermined score. I am attempting to develop the answer key, sotospeak, > > to refer the reps to once they are finished asking the customer these > > questions. > > > > I was hoping for the code that would build a macro to create this tabe for > > me  a table that would lay out all of the 6 questionanswer combinations, > > like the following: > > > > Questions Scenario 1 Scenario 2 Scenario 3 Scenario 4 > > 1 1 1 1 > > 1 > > 2 1 0 0 > > 0 > > 3 1 1 0 > > 1 > > 4 1 1 1 > > 0 > > 5 1 1 1 > > 1 > > 6 1 1 1 > > 1 > > > > ...and so on, so that I am given all the possible 6 answer scenarios.... > > > > Your help is greatly appreciated! > > > > Victoria > > > >  Dave Peterson

Pages: 1 Prev: If calculation Next: YTD % over 12 accumulating figures 