Как да направите щастлив тираж в работен лист на Excel чрез VBA

В работния лист на Excel можете също да направите късметлия. В тази статия ще ви покажем как да завършите тази задача в Excel.

Тегленето на късмет е много често в нашето ежедневие. Например трябва да давате бонуси на служителите в края на една година. Бихте искали да изберете някои щастливи служители на случаен принцип. Следователно можете да използвате файла на Excel, за да направите щастливо изготвяне.

Направете щастливо теглене

В тази част ще представим подробно методите.

1. Отворете файла Excel с цялата информация на служителите. В този пример в работния лист има 18 служители. А съществуващите бонуси се изчисляват според обема на продажбите им.
2. И след това натиснете клавишните комбинации „Alt + F11“ на клавиатурата, за да отворите редактора на Visual Basic.
3. След това вмъкнете нов модул в редактора.
4. В тази стъпка копирайте следните кодове в новия модул:

Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

В тези кодове формулата “Int (Rnd () * (19 - 2 + 1)) + 2” ще гарантира, че произволното число ще бъде в 2-19. Можете също така да модифицирате формулата според вашите нужди.

Всъщност, с изключение на горната формула, за да генерирате число, можете да използвате и функцията на работния лист „RandBetween“. И трябва да смените кодовете в модула.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)

5. След това щракнете върху раздела „Програмист“ в лентата.
6. И след това щракнете върху бутона „Вмъкване“ в лентата с инструменти.
7. В падащия списък изберете опцията „Бутон“.
8. След това щракнете върху работния лист. Ще видите прозореца „Присвояване на макрос“.
9. В този прозорец щракнете върху макроса, който сте въвели в новия модул.
10. И след това щракнете върху бутона „OK“.
11. След това можете да видите бутона в работния лист. Щракнете с десния бутон върху бутона.
12. В изскачащия прозорец изберете опцията „Редактиране на текст“.
13. Сега дайте име на бутона. Ще го наречем „Щастливец“.
14. Завършихте всички настройки. Можете да започнете дейността. Кликнете върху бутона.
15. И тогава ще видите изскачащ прозорец с име на вашия служител.

От горните стъпки можете да видите, че използването на Excel за правене на късмет е много удобно. Следващият път можете също да помислите за използване на файлове на Excel за тези задачи.

Как да поправите вашите Excel файлове

По-голямата част от потребителите ще излязат от приложението Excel, стига да се срещнат с грешки в Excel. И следващия път, когато отворят файл на Excel, проблемите вече няма да съществуват. Но ако срещнете сериозни проблеми с Excel, трябва да предприемете допълнителни действия. Можете да използвате инструмент на трета страна за поправете повредения Excel xlsx и да коригирате грешки в Excel. Това е и най-ефективният метод за справяне с грешки в Excel.

Въведение на автора:

Ана Ма е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправяне на повредени данни на документа и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com