VBA orqali Excel ish varag'ida omadli chizishni qanday qilish mumkin

Hozir ulashing:

Excel ish varag'ida siz omadli o'yinni ham qilishingiz mumkin. Ushbu yozma qismda biz sizga Excelda ushbu vazifani qanday bajarishni ko'rsatamiz.

Kundalik hayotimizda omadli o'yin juda keng tarqalgan. Masalan, yil oxirida xodimlarga bonuslar berishingiz kerak. Ba'zi baxtli xodimlarni tasodifiy tanlashni xohlaysiz. Shunday qilib, omadli o'yinni o'tkazish uchun Excel faylidan foydalanishingiz mumkin.

Omadli lotereya qiling

Ushbu bo'limda biz usullarni batafsil ko'rib chiqamiz.

  1. Xodimlarning barcha ma'lumotlari bilan Excel faylini oching. Ushbu misolda ishchi varaqda 18 nafar xodim bor. Va mavjud bonuslar ularning savdo hajmiga qarab hisoblanadi.misol
  2. Va keyin Visual Basic muharririni ochish uchun klaviaturadagi "Alt + F11" yorliqlarini bosing.
  3. Shundan so'ng, muharrirga yangi modul qo'ying.Modulni kiritish
  4. Ushbu bosqichda quyidagi kodlarni yangi modulga ko'chiring:
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

Ushbu kodlarda "Int(Rnd() * (19 – 2 + 1)) + 2 formulasi tasodifiy sonning 2-19 oralig'ida bo'lishiga ishonch hosil qiladi. Bundan tashqari, formulani o'zingizning ehtiyojingizga qarab o'zgartirishingiz mumkin.

Aslida, raqam yaratish uchun yuqoridagi formuladan tashqari, siz "RandBetween" ish varag'i funksiyasidan ham foydalanishingiz mumkin. Va siz moduldagi kodlarni o'zgartirishingiz kerak.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Shundan so'ng, lentadagi "Tuzuvchi" yorlig'ini bosing.
  2. Va keyin asboblar panelidagi "Qo'shish" tugmasini bosing.
  3. Ochiladigan ro'yxatda "tugma" variantini tanlang.Tugmani joylashtiring
  4. Shundan so'ng, ish varag'ini bosing. Siz "Makroni tayinlash" oynasini ko'rasiz.
  5. Ushbu oynada yangi modulga kiritgan makrosni bosing.Makroni tayinlash
  6. Va keyin "OK" tugmasini bosing.
  7. Keyin ish varag'idagi tugmani ko'rishingiz mumkin. Tugmani o'ng tugmasini bosing.
  8. Qalqib chiquvchi oynada "Matnni tahrirlash" variantini tanlang.
  9. Endi tugma uchun nom bering. Biz uni "Omadli odam" deb nomlaymiz.Matnni tahrirlash
  10. Siz barcha sozlamalarni tugatdingiz. Va siz harakatni boshlashingiz mumkin. Tugmani bosing.
  11. Va keyin siz xodimingiz nomi bilan qalqib chiquvchi oynani ko'rasiz.natija

Yuqoridagi bosqichlardan ko'rinib turibdiki, omadli o'yinni o'tkazish uchun Exceldan foydalanish juda qulay. Keyingi safar ushbu vazifalar uchun Excel fayllaridan foydalanishni ham ko'rib chiqishingiz mumkin.

Excel fayllarini qanday tiklash mumkin

Foydalanuvchilarning ko'pchiligi Excel dasturida xatoliklarga duch kelsa, Excel ilovasidan chiqib ketadi. Va keyingi safar Excel faylini ochganda, muammolar endi bo'lmaydi. Ammo jiddiy Excel muammolariga duch kelsangiz, qo'shimcha choralar ko'rishingiz kerak. Buning uchun siz uchinchi tomon vositalaridan foydalanishingiz mumkin shikastlangan Excel xlsx-ni ta'mirlash va Excel xatolarini tuzatish. Bu, shuningdek, Excel xatolari bilan kurashishning eng samarali usuli hisoblanadi.

Muallif kirish:

Anna Ma ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan hujjat ma'lumotlarini tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.