Kaip padaryti laimingą piešimą „Excel“ darbalapyje per VBA

„Excel“ darbalapyje taip pat galite padaryti laimingą piešinį. Šiame rašymo straipsnyje parodysime, kaip atlikti šią užduotį programoje „Excel“.

Laimingas lošimas yra labai dažnas mūsų kasdieniame gyvenime. Pavyzdžiui, metų pabaigoje darbuotojams reikia skirti premijas. Norėtumėte atsitiktinai atrinkti kelis laimingus darbuotojus. Todėl galite naudoti „Excel“ failą laimingam traukimui.

Padarykite laimingąjį burtą

Šioje dalyje mes išsamiai supažindinsime su metodais.

1. Atidarykite Excel failą su visa darbuotojų informacija. Šiame pavyzdyje darbalapyje yra 18 darbuotojų. O esami priedai skaičiuojami pagal jų pardavimo apimtį.
2. Tada paspauskite klaviatūros sparčiuosius klavišus „Alt + F11“, kad atidarytumėte „Visual Basic“ rengyklę.
3. Po to į redaktorių įdėkite naują modulį.
4. Atlikdami šį veiksmą, nukopijuokite šiuos kodus į naują modulį:

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

Šiuose koduose formulė „Int(Rnd() * (19 – 2 + 1)) + 2“ užtikrins, kad atsitiktinis skaičius bus 2–19. Taip pat galite keisti formulę pagal savo poreikius.

Tiesą sakant, išskyrus aukščiau pateiktą formulę skaičiui generuoti, taip pat galite naudoti darbalapio funkciją „RandBetween“. O kodus reikia keisti modulyje.

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

5. Po to juostelėje spustelėkite skirtuką „Kūrėjas“.
6. Tada įrankių juostoje spustelėkite mygtuką „Įterpti“.
7. Išskleidžiamajame sąraše pasirinkite parinktį „Mygtukas“.
8. Po to spustelėkite darbalapį. Pamatysite langą „Priskirti makrokomandą“.
9. Šiame lange spustelėkite makrokomandą, kurią įvedėte į naują modulį.
10. Ir tada spustelėkite mygtuką „Gerai“.
11. Toliau darbalapyje galite pamatyti mygtuką. Dešiniuoju pelės mygtuku spustelėkite mygtuką.
12. Iššokančiajame lange pasirinkite parinktį „Redaguoti tekstą“.
13. Dabar nurodykite mygtuko pavadinimą. Pavadinsime jį „Laiminguoju asmeniu“.
14. Baigėte visus nustatymus. Galite pradėti veiklą. Spustelėkite mygtuką.
15. Tada pamatysite iššokantį langą su savo darbuotojo vardu.

Iš aukščiau pateiktų veiksmų matote, kad labai patogu naudoti „Excel“ laimingam traukimui. Kitą kartą taip pat galite naudoti „Excel“ failus šioms užduotims atlikti.

Kaip pataisyti „Excel“ failus

Dauguma vartotojų išeis iš „Excel“ programos tol, kol susidurs su „Excel“ klaidų. Ir kitą kartą, kai jie atidarys „Excel“ failą, problemų nebeliks. Bet jei susiduriate su rimtomis „Excel“ problemomis, turite imtis papildomų veiksmų. Tam galite naudoti trečiosios šalies įrankį pataisyti sugadintą Excel xlsx ir ištaisyti „Excel“ klaidas. Tai taip pat yra efektyviausias būdas spręsti „Excel“ klaidas.

Autoriaus įvadas:

Anna Ma yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sugadintus doc duomenis ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com