Jump to content
Sign in to follow this  

Secret Santa Automation

Recommended Posts



EDIT 11/29/14: I made a huge mistake in the original as it only created pairs (i.e. if I get you - you also get me).  What I really needed was for each person to get anyone but themselves - but not necessarily create a pair.  The issue then became that if there was one person left at the end they could not get themselves.

This new version (1.1).  Does several things:

1. It creates a unique match for everyone on the list without reciprocal pairs

2. Added: deletion of blank rows before processing

3. Added checking for the word "name" in the first cell to see if headers are included

4. Sample names file included

5. GUI slightly modified



Its that time of year again.  The holidays are upon us.  Therefore, I decided to automate the creation a "secret santa" list.   These lists are popular around the holidays but usually require at least some manual labor to pair people up.  This generator takes the work out of it.  Just feed it a list of names via an Excel spreadsheet with the names populated in the first column (no blanks or headers please).  It will then generate a new file with the pairings for each name on the list.  I even paid for a graphic with usage right that is included in the zip file along with the source and Koda GUI (modified for relative file location of the image).  Enjoy.

Just the code for those that don't want the whole file:

; Secret Santa Pairing Genertaor
; Use this application to randonmly pair people for secret Santa
; All names must be entered on first col of a spreadhsheet
; no headers - no blank rows
; JFish v 1.1

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Jayme\Documents\Code\secret santa\secretSnataGUI2.kxf
$Form1 = GUICreate("Secret Santa List Generator v 1.1", 533, 331, 201, 124)
$Button1 = GUICtrlCreateButton("Select Excel File With Names", 144, 200, 233, 49)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Pic1 = GUICtrlCreatePic(@ScriptDir&"\400pxSecretSanata.bmp", 64, 8, 404, 172)
$Label1 = GUICtrlCreateLabel("Press the above button to select an Excel file containing names in Col A", 16, 264, 507, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("The software will randomly produce Secret Santa pairs  and display then in a new file", 16, 293, 502, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
#EndRegion ### END Koda GUI section ###

func _createList()
; will be used to control the while loop - counts the number of pairs created
dim $pairs=0
; find a an Excel sheet containing names in Col 1
$path=FileOpenDialog("Select File With Secret Santa Names",@ScriptDir,"Excel (*.xl*)" )
    If @error Then
            ; Display the error message.
            MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
        ; open excel file from FileOpenDialog
        GLOBAL $excel=_Excel_Open()
        Local $oWorkbook = _Excel_BookOpen($excel, $path)
        ;delete all blank rows in Col A
        ; find last non blank row
        $LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row
        ;find text in cell A1 to make sure it is not a header
        Local $aResult = _Excel_RangeRead($oWorkbook, Default, "A1")
        ;non-comprehensive data check to make sure the number of names is even for pairing and A1 does not contain header
        if mod($LastRow,2)<>0 or StringInStr($aResult,"name")<>0 then
            MsgBox("","Data Error","You need to have an even number of names and the file should not contain headers")
            $namesArray = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("A:A"))
            ; close that workbook

            ; create new 2D array to store the pairings
            dim $pairingArray[ubound($namesArray)][3]

            ; populate first row of new array
            For $a=0 to UBound($pairingArray)-1

            ; this starts a loop that will run until everyone has a pairing
            while $pairs<(UBound($pairingArray)-1)

                ;this loop looks for a partner for each person on the list sequesntially
                for $names=0 to UBound($pairingArray)-1
                    ;does the name have anyone assigned to it? If not then ...
                    if $pairingArray[$names][1]=="" Then
                        ;generate random number
                        local $randomNumber=round(Random(0,ubound($pairingArray)-1),0)
                            ; creates to VARs for name on list and randomly generated name used for comparison
                            ;checks to ensure that if only one name is left on the list without a partner that you need
                            ;to erase everything and do it again ... this one drove me CRAZY
                            if $pairs==UBound($pairingArray)-2 AND $pairingArray[UBound($pairingArray)-1][1]=="" AND $pairingArray[UBound($pairingArray)-1][2]=="" Then
                                for $deleteNames=0 to ubound($pairingArray)-1
                                ;ConsoleWrite(@crlf&"!!!DEBUG: NEW LOOP TRIGGEED !!!")
                            ; if the name random name is the same as the person you are matching OR the person you are
                            ; attempting to match has already been assigned then keep trying ...
                            if ($originalName==$randomName) OR ($pairingArray[$randomNumber][2]=="matched") then
                                until ($pairingArray[$pairs][0]<>$pairingArray[$randomNumber][0]) AND ($pairingArray[$randomNumber][2]<>"matched")
                            ; random person looks good so write it to the array
                            ; mark that person as matched so we don't pick them again
                            ; increment the condition for the outer while loop
                            ; in this case keep going until we have the whole list
            ; paste it to a new results Excel spreadsheet
            GLOBAL $resultsWorkbook=_Excel_BookNew($excel)
        EndIf; this one is for the even number check

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        case $Button1
        Case $GUI_EVENT_CLOSE



Edited by Jfish

Build your own poker game with AutoIt: pokerlogic.au3 | Learn To Program Using FREE Tools with AutoIt

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • rudi
      By rudi
      I used the various "_Excel_*()" funktions to open workbooks, read and write cells.
      I was looking through the helpfile for the _EXCEL_* funktions, if there is a direkt way to set background color or text color -- if there is one, then I missed it?
      Searching the forum I found this posting demonstrating how to do this task using ...
      Is there a way to set the background color etc. with the native "_EXCEL_*" as well?
      Regards, Rudi.
    • MrCheese
      By MrCheese
      Hi guys,
      Wondering, is there a better way, likely to use 'for...next' to add a letter to each range, by moving right -> along a range of columns in excel.
      I currently use this, but its clunky.
      If $run = 1 Then $range = "B6:B41" If $run = 2 Then $range = "C6:C41" If $run = 3 Then $range = "D6:D41" If $run = 4 Then $range = "E6:E41" If $run = 5 Then $range = "F6:F41" If $run = 6 Then $range = "G6:G41" If $run = 7 Then $range = "H6:H41" If $run = 8 Then $range = "I6:I41" If $run = 9 Then $range = "J6:J41" If $run = 10 Then $range = "K6:K41" If $run = 11 Then $range = "L6:L41" If $run = 12 Then $range = "M6:M41" If $run = 13 Then $range = "N6:N41" If $run = 14 Then $range = "O6:O41" If $run = 15 Then $range = "P6:P41" If $run = 16 Then $range = "Q6:Q41" If $run = 17 Then $range = "R6:R41" If $run = 18 Then $range = "S6:S41" If $run = 19 Then $range = "T6:T41" If $run = 20 Then $range = "U6:U41" If $run = 21 Then $range = "V6:V41" If $run = 22 Then $range = "W6:W41" If $run = 23 Then $range = "X6:X41" If $run = 24 Then $range = "Y6:Y41" If $run = 25 Then $range = "Z6:Z41" If $run = 26 Then $range = "AA6:AA41" If $run = 27 Then $range = "AB6:AB41" If $run = 28 Then $range = "AC6:AC41" If $run = 29 Then $range = "AD6:AD41" If $run = 30 Then $range = "AE6:AE41" If $run = 31 Then $range = "AF6:AF41" If $run = 32 Then $range = "AG6:AG41" If $run = 33 Then $range = "AH6:AH41" If $run = 34 Then $range = "AI6:AI41" If $run = 35 Then $range = "AJ6:AJ41" If $run = 36 Then $range = "AK6:AK41" If $run = 37 Then $range = "AL6:AL41" If $run = 38 Then $range = "AM6:AM41" If $run = 39 Then $range = "AN6:AN41" If $run = 40 Then $range = "AO6:AO41" If $run = 41 Then $range = "AP6:AP41" If $run = 42 Then $range = "AQ6:AQ41" If $run = 43 Then $range = "AR6:AR41" If $run = 44 Then $range = "AS6:AS41" If $run = 45 Then $range = "AT6:AT41" If $run = 46 Then $range = "AU6:AU41" If $run = 47 Then $range = "AV6:AV41" If $run = 48 Then $range = "AW6:AW41" If $run = 49 Then $range = "AX6:AX41" If $run = 50 Then $range = "AY6:AY41"  
      Normally, if it was going down the rows, i'd use this:
      For $i = 0 To UBound($iRowCount) - 1 $row = $i + 1 $range = "B"&$row&":B"&$row+1 Next  
      so something like this, but i don't know how to code sequential columns:
      For $i = 0 To UBound($iColCount) - 1 $col = $i + 1 $range = $col&"1:"&$col&"40" Next  
      If I don't make sense, let me know.
      Any help would be great. thanks
    • ShawnW
      By ShawnW
      I have a script that takes a large excel file, pulls out and reorganizes certain information I need, and spits out a trimmed down csv file which I uses to upload the information on my website. Some of this information contains characters with accents or em dashes. By default it would create a csv file in ANSI which I then uploaded but had to tell my website import system it was windows-1252 in order for it to look correct.
      This was all working fine except now I need to add in a non-breaking space and non-breaking hyphen into parts of my output. At first I tried using ChrW(0xA0) and ChrW(0x2011) as replacements. A quick test in the console looked correct, however opening the csv output in notepad++ showed the space correctly but a ? for the hyphen and the file was still encoded as ANSI. I tried to view it as UTF-8 instead but this just made the space appear as xAO and also other characters appeared that way like my em dashes appeared as x97 and another symbol as xA7 etc.
      If I instead do a convert to UTF-8 from notepad++ then those problems go away except the hyphen still displays as ?. I then noticed on the page I linked for the non-breaking hyphen it lists the UTF-8 hex as 0xE2 0x80 0x91 (e28091). I was unsure how to enter this in autoit but several things i tried all failed to get the hyphen inserted.
      I need a way to get both the space and hyphen added correctly as either ANSI or UTF-8, but if it is UTF-8 then I need a way to convert all of the other data I extracted from the excel file.
      I've included a test excel file with a single line and test script to create a csv demonstrating the problem.
    • Nareshm
      By Nareshm
      I try to activate my opened excel file using this code :
      #include <Excel.au3> $oExcel = _Excel_Open() $sCaption = $oExcel.Caption WinSetState($sCaption, "", @SW_MAXIMIZE) But when i edit cell in my excel file above code not working because it open new excel sheet.
    • anusha
      By anusha
      Hi I have jus started using auto-it . Please correct me if I'm wrong.
      I need to read data from an input in text box and search in excel file and return value in next column of matched cell on GUI.
      I have written below code but i cannot use variable which has data stored. it works only when search string is hard coded.
      Please help out.
      Func Example()
      Local $GuiMain = GUICreate("EXCEL TEST", 399, 180) ;creates main GUI
      ;~ Local $idOK = GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
      Local $iWidthCell = 70
      Local $idLabel = GUICtrlCreateLabel("PART NUMBER", 10, 30, $iWidthCell,50)
      Local $RUN_1 = GUICtrlCreateButton("OK", 70, 70, 85, 25)
      Local $Input_1 = GUICtrlCreateInput("PART NUMBER", 100, 20, 120, 20)
      Local $sMenutext = GUICtrlRead($Input_1, 1)
      GUISetState(@SW_SHOW, $GuiMain)

          While 1
          $MSG = GUIGetMsg()
              Case $MSG = $GUI_EVENT_CLOSE
              Case $MSG = $RUN_1
                  Local $oAppl = _Excel_Open()

      Local $sFilePath1 = "D:\Anu_WorkFolder\Components.xlsx"
      Local $oWorkbook = _Excel_BookOpen($oAppl, $sFilePath1, Default, Default, True)
      Local $aResult = _Excel_RangeFind($oWorkbook, $sMenutext , Default, Default, $xlWhole)

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.