VBA арқылы Excel жұмыс парағында қалай сәтті сурет салуға болады

Excel жұмыс парағында сіз сәтті ұтыс ойынын да жасай аласыз. Бұл жазбада біз Excel бағдарламасында осы тапсырманы қалай аяқтау керектігін көрсетеміз.

Сәтті ұтыс ойыны күнделікті өмірде жиі кездеседі. Мысалы, бір жылдың соңында қызметкерлерге сыйақы беру керек. Сіз бірнеше бақытты қызметкерлерді кездейсоқ таңдағыңыз келеді. Сондықтан, сіз сәттілік ұтысын жасау үшін Excel файлын пайдалана аласыз.

Сәтті ұтыс ойынын жасаңыз

Бұл бөлімде біз әдістерді егжей-тегжейлі таныстырамыз.

1. Қызметкерлердің барлық мәліметтерімен Excel файлын ашыңыз. Бұл мысалда жұмыс парағында 18 қызметкер бар. Ал қолда бар бонустар олардың сату көлеміне қарай есептеледі.
2. Содан кейін Visual Basic редакторын ашу үшін пернетақтадағы «Alt + F11» пернелер тіркесімін басыңыз.
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)

5. Осыдан кейін таспадағы «Әзірлеуші» қойындысын басыңыз.
6. Содан кейін құралдар тақтасындағы «Кірістіру» батырмасын басыңыз.
7. Ашылмалы тізімде «Түйме» опциясын таңдаңыз.
8. Осыдан кейін жұмыс парағын басыңыз. Сіз «Макросты тағайындау» терезесін көресіз.
9. Бұл терезеде жаңа модульге енгізген макросты басыңыз.
10. «ОК» батырмасын басыңыз.
11. Әрі қарай жұмыс парағындағы түймені көре аласыз. Түймені тінтуірдің оң жақ түймешігімен басыңыз.
12. Қалқымалы терезеде «Мәтінді өңдеу» опциясын таңдаңыз.
13. Енді түймеге атау беріңіз. Біз оны «Бақытты адам» деп атаймыз.
14. Барлық параметрлерді орнатуды аяқтадыңыз. Енді әрекетті бастай аласыз. Түймені басыңыз.
15. Содан кейін сіз өзіңіздің қызметкеріңіздің аты бар терезені көресіз.

Жоғарыдағы қадамдардан сіз сәтті ұтыс ойынын жасау үшін Excel бағдарламасын пайдалану өте ыңғайлы екенін көре аласыз. Келесі жолы сол тапсырмалар үшін Excel файлдарын пайдалану мүмкіндігін қарастыруға болады.

Excel файлдарын қалай жөндеуге болады

Пайдаланушылардың көпшілігі Excel бағдарламасында қателерге тап болғанша Excel қолданбасынан шығады. Келесі жолы олар Excel файлын ашқанда, проблемалар бұдан былай болмайды. Бірақ Excel бағдарламасының күрделі мәселелеріне тап болсаңыз, қосымша әрекеттерді орындау қажет. Үшінші тарап құралын пайдалануға болады зақымдалған Excel xlsx жөндеу және Excel қателерін түзетіңіз. Бұл сонымен қатар Excel қателерімен күресудің ең тиімді әдісі.

Автордың кіріспесі:

Анна Ма - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген құжат деректерін жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com