Jak zrobić szczęśliwe losowanie w arkuszu programu Excel za pośrednictwem VBA

Podziel się teraz:

W arkuszu programu Excel możesz również dokonać szczęśliwego losowania. W tym artykule pokażemy, jak zakończyć to zadanie w programie Excel.

Szczęśliwe losowanie jest bardzo powszechne w naszym codziennym życiu. Na przykład musisz dać premie pracownikom pod koniec roku. Chciałbyś losowo wybrać kilku szczęśliwych pracowników. Dlatego możesz użyć pliku Excel, aby wykonać szczęśliwe losowanie.

Zrób Szczęśliwe Losowanie

W tej części szczegółowo przedstawimy metody.

  1. Otwórz plik Excel ze wszystkimi informacjami o pracownikach. W tym przykładzie w arkuszu znajduje się 18 pracowników. A istniejące premie są obliczane na podstawie ich wielkości sprzedaży.Przykład
  2. Następnie naciśnij klawisze skrótu „Alt + F11” na klawiaturze, aby otworzyć edytor Visual Basic.
  3. Następnie wstaw nowy moduł do edytora.Wstaw moduł
  4. W tym kroku skopiuj następujące kody do nowego modułu:
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

W tych kodach formuła „Int(Rnd() * (19 – 2 + 1)) + 2” zapewni, że liczba losowa będzie w 2-19. Możesz również modyfikować formułę zgodnie z potrzebami.

Właściwie, z wyjątkiem powyższej formuły, aby wygenerować liczbę, możesz również użyć funkcji arkusza roboczego „RandBetween”. I musisz zmienić kody w module.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Następnie kliknij kartę „Programista” na wstążce.
  2. Następnie kliknij przycisk „Wstaw” na pasku narzędzi.
  3. Z rozwijanej listy wybierz opcję „Przycisk”.Wstaw przycisk
  4. Następnie kliknij arkusz roboczy. Zobaczysz okno „Przypisz makro”.
  5. W tym oknie kliknij makro, które wprowadziłeś do nowego modułu.Przypisz makro
  6. Następnie kliknij przycisk „OK”.
  7. Następnie możesz zobaczyć przycisk w arkuszu. Kliknij prawym przyciskiem myszy.
  8. W wyskakującym okienku wybierz opcję „Edytuj tekst”.
  9. Teraz podaj nazwę przycisku. Nazwiemy go „Szczęśliwa Osoba”.Edytować tekst
  10. Zakończyłeś wszystkie ustawienia. Możesz rozpocząć działanie. Kliknij przycisk.
  11. Następnie zobaczysz wyskakujące okienko z imieniem i nazwiskiem Twojego pracownika.Wynik

Z powyższych kroków widać, że używanie Excela do szczęśliwego losowania jest bardzo wygodne. Następnym razem możesz również rozważyć użycie plików Excela do tych zadań.

Jak naprawić pliki Excela

Większość użytkowników wyjdzie z aplikacji Excel, o ile napotkają błędy w Excelu. A następnym razem, gdy otworzą plik Excela, problemy już nie będą istniały. Ale jeśli napotkasz poważne problemy z Excelem, musisz podjąć dodatkowe działania. Możesz użyć narzędzia innej firmy, aby naprawa uszkodzonego Excela xlsx i napraw błędy w programie Excel. To również najskuteczniejsza metoda radzenia sobie z błędami w programie Excel.

Wprowadzenie autora:

Anna Ma jest ekspertem ds. Odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw uszkodzone dane dokumentów i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.