Mündəricat
Bu məqalədə biz Excel VBA-da sətri nömrəyə çevirməyin bir neçə üsulunu müzakirə edəcəyik. Biz daxili funksiyalardan necə istifadə edəcəyimizi və VBA kod nümunələri ilə sətri nömrəyə çevirmək üçün onlardan istifadə edərək fərdi funksiya yaratmağı görəcəyik.
Təcrübə İş Kitabını endirin
Bu məqaləni oxuyarkən məşq etmək üçün bu məşq kitabını endirin.
Strini Nömrəyə Çevirin.xlsm
Səti Nömrəyə çevirməyin 3 yolu Excel VBA-da
1. Növə çevirmə funksiyalarından istifadə edərək sətiri nömrəyə çevirin
Excel bir neçə daxili tip çevirmə funksiyası təmin edir. Biz onları VBA kodumuzda sətir məlumat tipindən müxtəlif məlumat tiplərinə asanlıqla çevirmək üçün istifadə edə bilərik.
1.1 Sətiri Tam ədədə
sətir -ə çevirmək üçün tam , kodumuzda CInt funksiyasından istifadə edə bilərik. CInt funksiyası yalnız bir arqument qəbul edir və bu rəqəmli dəyər olmalıdır. Vizual Kod Redaktorunda aşağıdakı kodu sınayaq.
7124
F5 basın çalışdırmaq üçün kod . Çıxış MsgBox -də göstərilir.
CInt funksiyası çevrildi rəqəmli sətir dəyəri (“12.3” ) ilə tam 12.
CInt funksiyası haqqında daha çox başa düşmək üçün aşağıdakıları yerinə yetirin kod redaktorunda kodu daxil edin və nəticələri müşahidə edin.
1863
çıxışı buradasonra ekran görüntüsü .
Kod izahı
Bu kodda biz For… CInt funksiyasını B3:B7 xanalarının sətirlərində tətbiq etmək üçün növbəti döngə . çıxışlar C3:C7 xanalarında çap olunur. Biz Hüceyrə funksiyasından giriş dəyərlərini və çıxış qiymətlərinin harada çap ediləcəyini təyin etmək üçün istifadə etdik.
Nəticələr
CInt funksiyası 25.5 -i növbəti tam ədəd 26 -ə çevirdi. Digər tərəfdən, 10.3 -ü 11 deyil, 10-a çevirdi. Onluq rəqəmli dəyər .5-dən kiçik olduqda, funksiya eyni ədədə yuvarlanır. Lakin onluq rəqəm sətir dəyəri növbəti tam ədəd rəqəminə çevrilir, əgər -ə bərabərdirsə və ya .5-dən böyükdürsə.
Qeyd
Tam dəyər -32,768 ilə 32,767 arasında dəyişir. bu diapazondan kənarda olan rəqəmsal dəyər qoysaq, Excel xəta göstərəcək.
1.2 String to Long
CLng funksiyası rəqəmli sətir dəyərini uzun datatip -ə çevirir. O, CInt funksiyasına bənzər şəkildə işləyir. Əsas fərq -2,147,483,648 və 2,147,483,647 arasında olan aralıq -dadır.
The code to run is here below:5272
Burada B3:B9 xanalar bəzi ədədi sətir dəyərini ehtiva edir və çevrilmiş l rəqəmlər xanalarda C3:C9. CLng funksiyası çevrildi -32800 və 32800 uğurla CInt funksiyası edə bilmədiyi uzun nömrələrə . Lakin rəqəm dəyəri daxil edilmiş aralıqdan kənardırsa, o, həmçinin xəta alacaq.
1.3 Sətiri Ondalığa
CDec funksiyasından istifadə edərək biz çevirə bilərik a ədədi sətir dəyəri a ondalık məlumat növü. B3:B7 xanalarında ədədi dəyərləri onluq verilənlər növünə çevirmək üçün aşağıdakı kodu işlədin.
7214
1.4 String to Single
Bu misalda biz giriş sətirlərini tək verilənlər növünə çevirəcəyik (tək -dəqiq üzən nöqtəli) ədədlər. Bunun üçün biz CSng funksiyasından istifadə etməliyik.
Vahid məlumat növü- (i) -3.402823E38 ilə -1.401298E-45
(ii) 1.401298E-45 to <03. 
üçün müsbət rəqəmlər.
Vizual əsas redaktorda aşağıdakı kodu işlədin.
3378
Çıxışda xanalar B3:B9 bəzi ədədi sətir dəyərini ehtiva edir və çevrilmiş tək məlumat tipli nömrələr C3:C9 xanalarındadır. Lakin o, həmçinin xəta
1.5 Sətirdən İkiqat
Bu misalda biz daxiletmə sətirlərini ikiqat məlumat tipi (ikiqat dəqiqlikli üzən) çevirəcəyik -nöqtə) rəqəmləri. Bunun üçün bizə lazımdır CDbl funksiyasından istifadə etmək üçün.
İkiqat məlumat növü - (i) -1,79769313486231E308 ilə -4,94065645841247E-324 <3 üçün dəyişir>mənfi rəqəmlər.
(ii) 4.94065645841247E-3245645841247E-3245645841247E-3241403-ə qədər <3741>38 <3741>38 <3741>37 <3741>38 .
Vizual əsas redaktorda aşağıdakı kodu işlədin.
5334
Çıxışda B3:B9 hüceyrələri bəzi
1.6 String to Currency
valyuta məlumat növü hesablamalar pul ilə əlaqəli olduqda əlverişlidir. Üstəlik, sabit – nöqtə hesablamada daha dəqiqlik istəyiriksə, valyuta məlumat növünün istifadəsi yaxşı seçimdir. Sətri valyuta məlumat növünə çevirmək üçün CCur funksiyasından istifadə etməliyik. Məlumat növü aralığı -922,337,203,685,477.5808 -dən 922,337,203,685,477.5808-ə qədərdir.
Kod çevirmək rəqəm dəyəri C3:C7 xanalarındakı B3:B7 -dən valyuta məlumat növü -ə 4> xana aşağıdadır.
9173
1.7 String to Byte
CByte funksiyası ədədi sətir dəyərlərini bayt məlumat növünə çevirir. 0-dan 255-ə qədər.
Kod kimidirizləyir :
7158
Çıxışda xanalar B3:B9 bəzi ədədi sətir dəyərini ehtiva edir, və çevrilmiş bayt məlumat növü nömrələri C3:C9 xanalarındadır. Lakin o, həmçinin xəta <4 alacaq>əgər daxiletmə rəqəm dəyəri aralıqdan kənardırsa.
Ətraflı oxuyun: Excel-də VBA-dan istifadə edərək sətri uzunluğa necə çevirmək olar
Oxşar oxunuşlar
- Excel VBA-da sətri ikiqat çevirmə (5 üsul)
- Excel VBA ilə Mətni Nömrəyə Necə Çevirmək olar (Makrolarla 3 Nümunə)
- Excel-də Nömrəyə çevirmə xətasını düzəldin (6 üsul)
- Excel-də Elmi İşarəni Rəqəmlərə Necə Çevirmək olar (7 Metod)
2. Excel-də sətiri yoxlamaq və nömrəyə çevirmək üçün xüsusi VBA funksiyasından istifadə
Bu təsvirdə biz çevirmə üçün fərdi funksiya edəcəyik nömrələrə sətirlər. Bundan sonra biz daxili funksiya kimi iş vərəqimizdə bu fərdi funksiyanı istifadə edə bilərik. Bu misalda, xüsusi funksiyanı yaratarkən sətirləri tam ədədlərə çevirmək üçün CInt funksiyasından istifadə edəcəyik. Biz həmçinin 1-ci üsul -də təsvir olunan bütün digər funksiyalardan sətirləri müxtəlif məlumat növlərinə çevirmək üçün istifadə edə bilərik. İndi bunu yerinə yetirmək üçün aşağıdakı addımları yerinə yetirin.
Addımlar:
- Budur, B3:B7, xanalarında bizdə bəziləri var. ədədi sətirdəyərlər.
- İndi, vizual əsas redaktorda, kopyalayın və yapışdırın aşağıdakı kodu və sonra saxlamaq üçün Ctrl + S basın
2228
- C3 xanasında, yazmağa başlayın funksiya adı ( StringToNumber ). Excel istifadə etmək üçün avtomatik olaraq funksiyanı təklif edəcək. Funksiyaya daxil olmaq üçün Tab düyməsini basın.
- xana istinadını B3 qoyun tek arqument olaraq.
- İndi mötərizələri bağladıqdan sonra Enter düyməsini basın.
- tətbiq etmək üçün C3 xanasının sağ aşağı küncündə Doldurma Dəstəyi tapın. xanalara funksiya C4:C7.
- Son nəticə sətir dəyərlərindən gözlənilən tam ədədlərdir. .
3. Excel-də Seçilmiş Hüceyrə Aralığını Rəqəmlərə çevirmək üçün VBA Kodu
Bu təsvirdə biz seçilmiş xanaların diapazonunu çevirəcəyik tam ədədlərə sətir dəyərləri ehtiva edir. Hər hansı bir xanada qeyri-rəqəm dəyəri varsa, çıxış əvəzinə tire (-) sətir olacaq. addımları edin:
- Xaçaları seçin B3:B6 rəqəm sətirləri dəyərlər və B7 olunan a qeyri-rəqəm
- Visual Basic Redaktorunda nüsxə və yapışdırın aşağıdakıları kod .
8388
- İndi aşağıda göstərildiyi kimi çıxış ü çalışdırmaq üçün F5 düyməsini basın. aşağıdakı skrinşot .
Qeydlər
- Biz istifadə etdik İfadənin rəqəmə çevrilib-çevrilmədiyini yoxlayan VBA kodumuzdakı 2-ci və 3-cü metodlarda rəqəm funksiyası .
- In metodu 1 , biz daxili funksiyalardan (CInt, CDbl, CSng…..) istifadə etdik. Lakin qeyri-rəqəm dəyər varsa, o, uyğunsuzluq xətası göstərəcək.
Nəticə
İndi biz Excel-də sətir dəyərlərini rəqəmlərə çevirməyi bilirik. Ümid edirik ki, bu, sizi bu funksiyadan daha inamlı istifadə etməyə təşviq edər. Hər hansı bir sualınız və ya təklifiniz varsa, onları aşağıdakı şərh qutusuna yazmağı unutmayın.
