როგორ გააკეთოთ იღბლიანი გათამაშება 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)
  1. ამის შემდეგ, დააწკაპუნეთ ჩანართზე "დეველოპერი" ლენტით.
  2. შემდეგ დააჭირეთ ღილაკს "ჩასმა" ხელსაწყოთა ზოლში.
  3. ჩამოსაშლელ სიაში აირჩიეთ "ღილაკი".ჩასმა ღილაკი
  4. ამის შემდეგ დააწკაპუნეთ სამუშაო ფურცელზე. თქვენ იხილავთ "მინიშნება მაკრო" ფანჯარას.
  5. ამ ფანჯარაში დააწკაპუნეთ მაკროზე, რომელიც შეიტანეთ ახალ მოდულში.მიანიჭეთ მაკრო
  6. და შემდეგ დააჭირეთ ღილაკს "OK".
  7. შემდეგ შეგიძლიათ იხილოთ ღილაკი სამუშაო ფურცელში. დააჭირეთ ღილაკს მარჯვენა ღილაკით.
  8. ფანჯარაში, რომელიც გამოჩნდება, აირჩიეთ "ტექსტის რედაქტირება".
  9. ახლა დაასახელეთ ღილაკის სახელი. ჩვენ მას "იღბლიან ადამიანს" დავარქმევთ.ტექსტის რედაქტირება
  10. თქვენ დაასრულეთ ყველა პარამეტრი. და შეგიძლიათ დაიწყოთ აქტივობა. დააწკაპუნეთ ღილაკზე.
  11. და შემდეგ ნახავთ ფანჯარას თქვენი თანამშრომლის სახელით.შედეგი

ზემოაღნიშნული ნაბიჯებიდან ხედავთ, რომ Excel-ის გამოყენება იღბლიანი გათამაშებისთვის ძალიან მოსახერხებელია. შემდეგ ჯერზე თქვენ ასევე შეგიძლიათ განიხილოთ Excel ფაილების გამოყენება ამ ამოცანებისთვის.

როგორ შეაკეთოთ თქვენი Excel ფაილები

მომხმარებელთა უმრავლესობა გამოვა Excel აპლიკაციიდან მანამ, სანამ Excel-ში შეცდომებს შეხვდებიან. და შემდეგ ჯერზე, როდესაც ისინი გახსნიან Excel ფაილს, პრობლემები აღარ იქნება. მაგრამ თუ Excel-ის მძიმე პრობლემებს შეხვდებით, საჭიროა დამატებითი ქმედებების განხორციელება. თქვენ შეგიძლიათ გამოიყენოთ მესამე მხარის ინსტრუმენტი შეაკეთეთ დაზიანებული Excel xlsx და Excel-ის შეცდომების გამოსწორება. ეს ასევე Excel-ის შეცდომების მოგვარების ყველაზე ეფექტური მეთოდია.

ავტორი შესავალი:

ანა მა არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული დოკუმენტის მონაცემების შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად

გააზიარე ახლა:

კომენტარები დახურულია.