Чі оцінюється ефективність использование Людський ресурсов на підприємстві? 20. Чі відповідають отрімані результатів поставленим цілям?
Разом за крітерієм Крітерій 5: Коордінація 21. Чі існує ефективна система управління? 22. Чи встановлений зв'язок между керівніцтвом и співробітнікамі? Крітерій 1: ПлануванняI ruk n I rab n 23. Чі проводитися робота з урегулювання и Запобігання конфліктніх СИТУАЦІЙ? 24. Чі проводитися коректування й уточнення планів и завдань? 25. Чі застосовуються НОВІ ТЕХНОЛОГІЇ в работе підприємства?
Разом за крітерієм Загальна оцінка управління Додаток Б
Лістінг програми
Option Explicit
Sub Загрузка_Форми_ВводДанних ()
FormVvod. Show
End Subi As IntegerSub UserForm_Activate (). Caption=Format (Now, dd/mm/yy ) ( A1 ). Value=Lbldata. Caption. SetFocus. AddItem ( 1. Чі встановл мета организации, чі ясно візначені Стратегічні и Поточні задачі? Raquo;)
LstVopr. AddItem ( 2. Чі проводитися збір і аналіз даних про спожівачів? Raquo;)
LstVopr. AddItem ( 3. Чі чітко розділені обов'язки на підприємстві? Raquo;)
LstVopr. AddItem ( 4. Чі аналізується інформація про конкурентів и досвід других компаний? Raquo;)
LstVopr. AddItem ( 5. Чі раціонально розподіляються ресурси підприємства: матеріальні, Людські, фінансові? Raquo;)
LstVopr. AddItem ( 6. Чі зрозуміла Організаційна структура? Raquo;)
LstVopr. AddItem ( 7. Чі існують документи и стандарти підприємства, что регламентують посадові обов'язки и рамки відповідальності для шкірного робітника? Raquo;)
LstVopr. AddItem ( 8. Чі створюються умови для удосконалювання и развития підприємства? Raquo;)
LstVopr. AddItem ( 9. Чі Ефективний організованій процес Надання послуг? Raquo;)
LstVopr. AddItem ( 10. Чі прівабліві для споживача дані послуги? Raquo;)
LstVopr. AddItem ( 11. Чі Високі лідерські якості керівника? Raquo;)
LstVopr. AddItem ( 12. Чі створюються в Компанії умови для навчання и развития робітніків? Raquo;)
LstVopr. AddItem ( 13. Чі задоволені Особисті спожи робітніків? Raquo;)
LstVopr. AddItem ( 14. Чі беруть доля робітники в ДІЯЛЬНОСТІ по розвитку підприємства? Raquo;)
LstVopr. AddItem ( 15. Чі задоволені робітники результатами своєї роботи? Raquo;)
LstVopr. AddItem ( 16. Чі існує система ОЦІНКИ якості процесса обслуговування? Raquo;)
LstVopr. AddItem ( 17. Чі існує система ОЦІНКИ отриманий результатів? Raquo;)
LstVopr. AddItem ( 18. Чі враховуються думки і побажання КЛІЄНТІВ у работе? Raquo;)
LstVopr. AddItem ( 19. Чі оцінюється ефективність использование Людський ресурсов на підприємстві? Raquo;)
LstVopr. AddItem ( 20. Чі відповідають отрімані результатів поставленим цілям? Raquo;)
LstVopr. AddItem ( 21. Чі існує ефективна система управління? Raquo;)
LstVopr. AddItem ( 22. Чи встановлений зв'язок между керівніцтвом и співробітнікамі? Raquo;)
LstVopr. AddItem ( 23. Чі проводитися робота з урегулювання и Запобігання конфліктніх СИТУАЦІЙ? Raquo;)
LstVopr. AddItem ( 24. Чі проводитися коректування й уточнення планів и завдань? Raquo;)
LstVopr. AddItem ( 25. Чі застосовуються НОВІ ТЕХНОЛОГІЇ в работе підприємства? Raquo;)
LstKrit. AddItem ( Планування )
LstKrit. AddItem ( Організація )
LstKrit. AddItem ( Мотивація )
LstKrit. AddItem ( Контроль )
LstKrit. AddItem ( Коордінація ) LstVopr. ListIndex=0
LblVopr. Caption=LstVopr. List (0). ListIndex=0. Caption=LstKrit. List (0)=2SubSub TxtBall_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) KeyAscii=13 Then_ClickIfSubSub CmdSave_Click () Val (TxtBall. Text) lt; 0 Or Val (TxtBall. Text) gt; 4 Or TxtBall. Text= Then Введено некоректні дані raquo ;. SetFocusSubIfLstVopr. ListIndex=0 Then. ListIndex=0. Caption=LstKrit. List (0) (4, i)=CDbl (TxtBall. Text). ListIndex=1. Caption=LstVopr. List (1) LstVopr. ListIndex=1 Then. ListIndex=0. Caption=LstK...