300 Примера

Конвертор валута

Currency Converter

У наставку ћемо погледати програм у Екцел ВБА који ствара Усерформ који обраћа било који износ од један валута у другу.

Усерформ који ћемо створити изгледа овако:



Претварач валута у програму Екцел ВБА



наћи стандардну девијацију у екцелу

Да бисте креирали овај кориснички образац, извршите следеће кораке.

1. Отворите Висуал Басиц Едитор . Ако Пројецт Екплорер није видљив, кликните на Виев, Пројецт Екплорер.



2. Притисните Уметни, Кориснички образац. Ако се Тоолбок не појави аутоматски, кликните на Виев, Тоолбок. Екран треба да буде подешен на доле наведени начин.

Постављање корисничког екрана у програму Екцел ВБА

3. Додајте ознаке, оквире са листама (прво лево, друго десно), текстуалне оквире (прво лево, друго десно) и командно дугме. Када се ово заврши, резултат би требао бити у складу са сликом корисничког обрасца приказаном раније. На пример, креирајте контролу оквира са листом кликом на ЛистБок из Тоолбок -а. Затим можете превући оквир са листом на Усерформ.



4. Можете променити називе и натписе контрола. Имена се користе у Екцел ВБА коду. Титлови су они који се појављују на екрану. Добра је пракса да промените називе контрола, али то овде није потребно јер у овом примеру имамо само неколико контрола. Да бисте променили натпис Усерформ, командно дугме и ознаке, кликните на Виев, Пропертиес Виндов и кликните на сваку контролу.

5. Да бисте приказали Усерформ, поставите а командно дугме на радном листу и додајте следећу линију кода:

Приватно СубЦоммандБуттон1_Цлицк ()

УсерФорм1.Схов

Крај Суб

Сада ћемо креирати Суб УсерФорм_Инитиализе. Када користите методу Схов за Усерформ, ова подмена ће се аутоматски извршити.

6. Отворите Висуал Басиц Едитор .

7. У Пројецт Екплореру кликните десним тастером миша на УсерФорм1, а затим кликните на Виев Цоде.

пречица за додавање колоне у екцел

8. Изаберите Кориснички образац са леве падајуће листе. Одаберите Инитиализе са десне падајуће листе.

9. Додајте следеће редове кода:

Приватно СубУсерФорм_Инитиализе ()

ВитхЛистБок1
.АддИтем 'Еуро'
.АддИтем 'Ус Доллар'
.АддИтем 'Британска фунта'
Крај Витх

ВитхЛистБок2
.АддИтем 'Еуро'
.АддИтем 'Ус Доллар'
.АддИтем 'Британска фунта'
Крај Витх

ЛистБок1.ЛистИндек = 1
ЛистБок2.ЛистИндек = 0

ТектБок1.Валуе = 1
ТектБок2.Валуе = 0.722152

Крај Суб

Објашњење: прво су испуњена два оквира с пописом. Затим је валута америчког долара постављена као подразумевана у првом оквиру са листом, а валута ЕУРО је подразумевана у другом оквиру са листом. Коначно, вредност 1 се уноси у прво поље за текст, а вредност 0,722152 се уноси у друго поље за текст.

Сада смо креирали први део Усерформ -а. Иако већ изгледа уредно, ништа се неће догодити када кликнемо на дугме Иди.

10. У Пројецт Екплореру двапут кликните на УсерФорм1.

11. Двапут кликните на дугме Иди.

истовремено применити формат рачуноводственог броја

12. Додајте следеће редове кода:

Приватно СубЦоммандБуттон1_Цлицк ()

Ниједанстопе (0ДодвадесетДо2)Као Доубле, иКао Интегер, јКао Интегер

стопе (0, 0) = 1
стопе (0, 1) = 1,38475
стопе (0, 2) = 0,87452

стопе (1, 0) = 0,722152
стопе (1, 1) = 1
стопе (1, 2) = 0,63161

стопе (2, 0) = 1,143484
стопе (2, 1) = 1.583255
стопе (2, 2) = 1

Заи = 0До2
Зај = 0До2
АкоЛистБок1.ЛистИндек = иИЛистБок2.ЛистИндек = јОндаТектБок2.Валуе = ТектБок1.Валуе * стопе (и, ј)
Следећиј
Следећии

Крај Суб

Објашњење: прво, декларирамо низ. Низ има две димензије. Састоји се од 3 реда и 3 колоне. Затим иницијализујемо сваки елемент низа. На пример, курсеви (1,0) су курсна листа од америчког долара до евра. Затим започињемо двоструку петљу. У зависности од изабраних валута у оквирима са листама, Екцел ВБА конвертује износ унесен у прво поље за текст и приказује резултат у другом оквиру за текст.

Пример: ако је и = 2 и ј = 1 и унесемо вредност 2 у прво поље за текст, Екцел ВБА поставља вредност 2 * стопе (2,1) = 2 * 1,583255 = 3,16651 у друго поље за текст.

13. Тестирајте Усерформ.

Резултат:

Резултат претварача валута

3/11 Завршено! Сазнајте много више о корисничким облицима>
Идите на следеће поглавље: Домет



^