Як зробити вдалий малюнок на аркуші Excel за допомогою VBA

Поділитися зараз:

На аркуші Excel ви також можете зробити щасливий малюнок. У цій статті ми покажемо вам, як виконати це завдання в Excel.

Розіграш Lucky дуже поширений у нашому повсякденному житті. Наприклад, в кінці року потрібно надати премію працівникам. Ви хотіли б обрати випадкових працівників випадковим чином. Тому ви можете використовувати файл 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. А потім натисніть кнопку «ОК».
  7. Далі ви можете побачити кнопку на аркуші. Клацніть правою кнопкою миші.
  8. У спливаючому вікні виберіть опцію “Редагувати текст”.
  9. Тепер дайте назву кнопці. Ми назвемо його “Щаслива людина”.редагування тексту
  10. Ви завершили всі налаштування. І можете розпочати дію. Натисніть кнопку.
  11. І тоді ви побачите спливаюче вікно з іменем вашого працівника.Результат

З наведених вище кроків видно, що за допомогою Excel робити щасливу розіграш дуже зручно. Наступного разу ви також можете розглянути можливість використання файлів Excel для цих завдань.

Як відновити файли Excel

Більшість користувачів вийдуть із програми Excel, якщо вони зіткнуться з помилками в програмі Excel. І наступного разу, коли вони відкриють файл Excel, проблем більше не буде. Але якщо ви стикаєтесь із серйозними проблемами Excel, вам потрібно вжити додаткових дій. Ви можете використовувати сторонній інструмент для відновити пошкоджений та виправити помилки Excel. Це також найефективніший метод боротьби з помилками Excel.

Вступ автора:

Анна Ма - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити пошкоджені дані документа - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.