Теперь рассмотрим код модуля формы frm_Balance
Код формы frm_Balance
В листинге 17.5. вы можете найти код модуля формы frm_Balance. Здесь мы вычисляем баланс доходов и расходов по всей таблице. Вычисления ведутся в коде обработчика события Activate.
Private Sub cmd_OK_Click()
frm_Balance.Hide
End Sub
Private Sub UserForm_Activate()
'Адрес строки
Dim num_Address
'Переменная для хранения суммы доходов
Dim num_Earn
'Переменная для хранения суммы расходов
Dim num_Spend
For i = 1 To ActiveSheet.Range("B1") - 1
num_Address = i + ActiveSheet.Range("B2")
'Если в строке хранится значение дохода
'добавим его в num_Earn
If ActiveSheet.Cells(num_Address, 3) = "Доход" _
Then
num_Earn = num_Earn + _
ActiveSheet.Cells(num_Address, 4)
End If
'Если в строке хранится значение расхода
'добавим его в num_Spend
If ActiveSheet.Cells(num_Address, 3) = "Расход" _
Then
num_Spend = num_Spend + _
ActiveSheet.Cells(num_Address, 4)
End If
Next i
lbl_Balance = num_Earn - num_Spend
If num_Earn > num_Spend Then _
lbl_Msg = "Доходы больше расходов."
If num_Earn = num_Spend Then _
lbl_Msg = "Доходы равны расходам."
If num_Earn < num_Spend Then _
lbl_Msg = "Доходы меньше расходов."
End Sub
Листинг 17.5. Код формы frm_Balance (html, txt)
Задача об обмене значениями
17-02-Обмен значений.xlsm - пример к п. 17.2.
Условие
Произвести обмен значениями двух переменных без использования третьей
Решение
Предположим, что имеются 2 переменные (А и В), содержащие числа. Для обмена значениями этих переменных достаточно произвести следующие действия:
- Сложить А и В и результат записать в А
- Вычесть из А переменную В и записать результат в В.
- Вычесть из А переменную В и записать результат в А.
Для решения задачи будем считать, что число A записано в ячейку B2, число В - в ячейку C2. Подпишем соответствующим образом эти ячейки и разместим на рабочем листе кнопку с именем cmd_Change и надписью Обменять А и В (рис. 17.6.)
Рис. 17.6. Рабочий лист, подготовленный для решения задачи
В листинге 17.6. вы можете найти программный код для решения задачи, размещенный в обработчике события Click для кнопкиcmd_Change
'Сохраняем сумму ячеек в B2
ActiveSheet.Range("B2") = _
ActiveSheet.Range("B2") + _
ActiveSheet.Range("C2")
'Разность сохраняем в С2
ActiveSheet.Range("C2") = _
ActiveSheet.Range("B2") - _
ActiveSheet.Range("C2")
'И еще раз разность в B2
ActiveSheet.Range("B2") = _
ActiveSheet.Range("B2") - _
ActiveSheet.Range("C2")
Листинг 17.6. Решение задачи (html, txt)
Перевод чисел из одной системы счисления в другую
17-03-Системы счисления.xlsm - пример к п. 17.3.
Условие
Перевести заданное пользователем целое число A из одной системы счисления (P) в другую (Q). P и Q могут изменяться от 2 до 10.
Решение
MS Excel содержит функции для преобразования чисел между различными системами счисления, однако здесь мы создадим универсальное решение. Вы сможете встроить этот код в свои проекты. При необходимости вы сможете доработать его так, чтобы он смог работать с системами счисления, основание которых превышает 10.
В данном случае наиболее очевидным является перевод введенного числа сначала из системы счисления с основанием P в систему с основанием 10, а потом уже из системы с основанием 10 в систему с основанием Q.
Перевод в десятичную систему счисления осуществляется в два этапа:
- Разбиение введенного числа на отдельные цифры
- Получение десятичного числа по следующему алгоритму:
Первую цифру числа в системе счисления с основанием Q нужно умножить на Q в нулевой степени. Полученное число прибавить к произведению второй цифры числа, умноженную на Q в 1-й степени и так далее. Например:
Перевод из двоичной системы в десятичную:
1101 =1*2^3+1*2^2+0*2^1+1*2^0=8+4+0+1=13
Перевод из пятеричной системы в десятичную:
1042=1*5^3+0*5^2+4*5^1+2*5^0=125+0+20+2=147
Перевод в систему счисления с основанием Q из системы с основанием 10 осуществляется путем накапливания остатков от деления этого числа на Q с последующим изменением этого числа целочисленным делением его на Q до тех пор, пока переводимое число не станет равным 0.
Для решения этой задачи нам понадобится форма, содержащая следующие элементы управления (табл. 17.6.). У текстовых полей свойство AutoSize установлено в True.
| Таблица 17.6. Элементы управления | |
| Имя элемента управления | Подпись и примечания |
| cmd_OK | Перевести. Кнопка для перевода чисел |
| txt_P | Из системы P. Текстовое поле для хранения основания системы счисления P. |
| txt_Q | В систему Q. Поле для хранения основания системы счисления Q |
| txt_A | Число для перевода. Число, заданное для перевода из системы P в Q |
| txt_B | Результат. Текстовое поле для вывода результата перевода |
На рис. 17.7. вы можете увидеть форму программы.
Рис. 17.7. Форма программы для перевода чисел из одной системы счисления в другую
В листинге 17.7. вы можете найти код события Click для кнопки cmd_OK.
'Для хранения основания системы P
Dim num_P
'Для хранения основания системы Q
Dim num_Q
'Для хранения числа в 10-й системе
Dim num_10
'Для хранения очередного числа в
'системе счисления Q
Dim num_S
num_P = Val(txt_P)
num_Q = Val(txt_Q)
'Переводим введенное число из
'системы счисления P
'в десятичную систему
For i = 1 To Len(txt_A)
num_10 = num_10 + Val(Mid(txt_A, i, 1)) * _
num_P ^ (Len(txt_A) - i)
Next i
'Переводим число из десятичной системы
'в систему с основанием Q
txt_B = ""
While num_10 <> 0
'Остаток от деления запишем в str_S
num_S = num_10 Mod num_Q
'Запишем очередное число в
'окно для вывода результата
txt_B = Mid(Str(num_S), 2, 1) + txt_B
'Запишем в num_10 результат
'целочисленного деления
'num_10 на основание системы
'счисления Q
num_10 = num_10 \ num_Q
Wend
