Jak udělat šťastnou kresbu v listu aplikace Excel pomocí VBA

V pracovním listu aplikace Excel můžete také losovat štěstí. V tomto článku vám ukážeme, jak tento úkol dokončit v Excelu.

Losování Lucky je v našem každodenním životě velmi běžné. Například musíte na konci roku dát zaměstnancům bonusy. Chtěli byste náhodně vybrat některé šťastné zaměstnance. Proto můžete použít soubor Excel k losování štěstí.

Udělejte si losování štěstí

V této části si metody podrobně představíme.

1. Otevřete soubor Excel se všemi informacemi o zaměstnancích. V tomto příkladu je v listu 18 zaměstnanců. A stávající bonusy se počítají podle jejich objemu prodeje.
2. Poté stisknutím klávesových zkratek „Alt + F11“ na klávesnici otevřete editor jazyka Visual Basic.
3. Poté vložte nový modul do editoru.
4. V tomto kroku zkopírujte následující kódy do nového modulu:

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

V těchto kódech vzorec „Int(Rnd() * (19 – 2 + 1)) + 2“ zajistí, že náhodné číslo bude v 2-19. Vzorec můžete také upravit podle svých potřeb.

Ve skutečnosti, kromě výše uvedeného vzorce pro generování čísla, můžete také použít funkci listu „RandBetween“. A musíte změnit kódy v modulu.

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

5. Poté klikněte na kartu „Vývojář“ na pásu karet.
6. Poté klikněte na tlačítko „Vložit“ na panelu nástrojů.
7. V rozevíracím seznamu vyberte možnost „Tlačítko“.
8. Poté klikněte do listu. Zobrazí se okno „Přiřadit makro“.
9. V tomto okně klikněte na makro, které jste zadali do nového modulu.
10. Poté klikněte na tlačítko „OK“.
11. Dále můžete vidět tlačítko v pracovním listu. Klepněte pravým tlačítkem na tlačítko.
12. Ve vyskakovacím okně vyberte možnost „Upravit text“.
13. Nyní zadejte název tlačítka. Pojmenujeme ho „Šťastná osoba“.
14. Dokončili jste všechna nastavení. Můžete spustit aktivitu. Klikněte na tlačítko.
15. A poté uvidíte vyskakovací okno se jménem vašeho zaměstnance.

Z výše uvedených kroků můžete vidět, že použití Excelu k losování štěstí je velmi pohodlné. Příště můžete také zvážit použití souborů Excel pro tyto úkoly.

Jak opravit soubory Excel

Většina uživatelů ukončí aplikaci Excel, pokud se setkají s chybami v aplikaci Excel. A až příště otevřou soubor Excel, problémy již nebudou existovat. Pokud se však setkáte s vážnými problémy s Excelem, musíte provést další akce. K tomu můžete použít nástroj třetí strany opravit poškozený Excel xlsx a opravovat chyby v Excelu. Toto je také nejúčinnější metoda pro řešení chyb v Excelu.

Úvod autora:

Anna Ma je ​​expertem na obnovu dat v DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit poškozená data dokumentu a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com