要制作抽獎程序，可以使用VBA（Visual Basic for Applications）編程語言來實現。以下是一個簡單的抽獎程序的示例：
1.首先，在Excel中創建一個表格，表格的第一列是參與抽獎的人員姓名。
2.打開Visual Basic編輯器，在工具欄中選擇插入->模塊，然后在模塊中編寫以下代碼：
Sub Lottery()
Dim rng As Range
Dim winner As Variant
' 設置抽獎范圍為第一列中有值的單元格
Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
' 生成一個隨機數來選擇獲獎者
Randomize
winner = WorksheetFunction.RandBetween(1, rng.Rows.Count)
' 顯示獲獎者的姓名
MsgBox "Congratulations! The winner is " & rng.Cells(winner, 1).Value
End Sub
3.保存并關閉Visual Basic編輯器。
4.在Excel中，選中任意單元格，然后按下快捷鍵Alt+F8打開宏窗口。
5.在宏窗口中選擇Lottery宏，并點擊運行按鈕。
6.程序會在彈出的對話框中顯示獲獎者的姓名。
這個抽獎程序的原理是通過生成一個隨機數，然后根據隨機數選擇獲獎者。參與抽獎的人員姓名保存在Excel表格的第一列中，程序會根據有值的單元格的范圍進行抽獎。可以根據實際需求進行修改和擴展。
