Може да се наложи да преобразувате числа, съхранени като текст, в действителни числа във вашия VBA код. В този урок ще разгледаме функциите, които трябва да използвате, за да преобразувате низ в цяло число, дълъг, двоен, десетичен или валутен тип данни (Щракнете тук, за да научите за преобразуването на числа в низове)
Конвертиране на низ в цяло число
Можете да използвате функцията CInt или CLng, за да преобразувате низ в цяло число. Ако дробът е по -малък от .5, функцията ще закръгли надолу, ако дробът е по -голям или равен на .5, функцията ще се закръгли. Следният код ще преобразува низ в цяло число:
| 1 | MsgBox CInt ("7.55") |
Резултатът е:
Следният код използва функцията CLng за преобразуване на низ в цяло число:
| 1 | MsgBox CLng ("13,5") |
Резултатът е:
Забележка: Можете да използвате функцията CInt или CLng, за да преобразувате низ в цяло число или дълги (съответно) типове данни. Типът дълги данни е същият като целочисления тип данни, с изключение на това, че се допускат по -големи числа. В миналото разграничението е било необходимо поради ограничения в паметта. В съвременното програмиране няма причина да не се използва дългият тип данни, тъй като паметта вече не е проблем. Така че винаги е по -добре да използвате дълъг тип данни вместо цяло число.
Можете да използвате непосредствения прозорец, за да видите как ще се обработи стойността, ако не се преобразува в цяло число:
| 1 | Отстраняване на грешки Отпечатайте "13,5" + "13,5" |
Обикновено текстът ще се съхранява като променлива и тази променлива ще трябва да бъде преобразувана в числов тип данни, както е показано в кода по -долу:
| 1234567 | Sub Using_Variables ()Dim valueOne As StringvalueOne = 5MsgBox CLng (valueOne) + CLng (valueOne)End Sub |
Конвертиране на низ в десетичен
Можете да използвате функцията CDbl или CDec, за да преобразувате низ в десетичен знак. Следният код би преобразувал низ в двоен тип данни:
| 1 | MsgBox CDbl ("9.1819") |
Резултатът е:
Следният код би преобразувал низ в десетичен тип данни:
| 1 | MsgBox CDec ("13.57") + CDec ("13.4") |
Резултатът е:
Можете да използвате непосредствения прозорец, за да видите как ще се обработи стойността, ако не се преобразува в двоен или десетичен тип данни:
| 1 | Debug.Print "13.57" + "13.4" |
Резултатът е:
Забележка: Десетичният тип данни може да съхранява по -големи числа от двойния тип данни, така че винаги е препоръчително да използвате десетичния тип данни, когато не сте сигурни.
Конвертирайте низа във валута
Можете да използвате функцията CCur, за да конвертирате низ във валута. Следният код би преобразувал низ във валутен тип данни:
| 1 | Диапазон ("A1"). Стойност = CCur ("18,5") |
Резултатът е:
