Typ pojedynczej zmiennej
VBA Pojedynczy typ danych służy do przechowywania liczb wymagających miejsc dziesiętnych. Może przechowywać wartości od -3,4028235E+38 do -1,401298E-45 dla wartości ujemnych i od 1,401298E-45 do 3,4028235E+38 dla wartości dodatnich.
Aby zadeklarować zmienną Single, użyj instrukcji Dim (skrót od Dimension):
| 1 | Dim sngA jako Single |
Następnie, aby przypisać wartość do zmiennej, po prostu użyj znaku równości:
| 1 | sngA = 3658,25 |
Umieszczenie tego w procedurze wygląda tak:
| 12345678 | Sub sngPrzykład()'deklaruj podwójną zmienną'Dim sngA jako Single'wypełnij podwójną zmiennąsngA = 3658,25'pokaż okno wiadomościMsgBox sngANapis końcowy |
Jeśli uruchomisz powyższy kod, pojawi się następujący komunikat.
Typ danych podwójnych
Typ danych Double to tylko dłuższa wersja Pojedynczy typ danych. W związku z tym może wpływać na zaokrąglenie, gdy jest stosowany w procedurze jako Pojedynczy typ danych zostanie zaokrąglony do 4 miejsc po przecinku, podczas gdy Podwójnie Typ danych zostanie zaokrąglony do 12 miejsc po przecinku. Jeśli potrzebujesz więcej niż 4 miejsc po przecinku, możesz użyć typu danych Double.
Typy danych Int lub Long
Jeśli nie potrzebujesz miejsca dziesiętnego, możesz użyć typu danych Int lub typu Long.
| 1 | Dim intA jako liczba całkowita |
| 1 | Dim LngB jak Long |
Programowanie VBA | Generator kodu działa dla Ciebie!
Zadeklaruj pojedynczą zmienną na poziomie modułu lub globalnym
W poprzednich przykładach zadeklarowaliśmy Pojedynczy zmienna w ramach procedury. Zmienne zadeklarowane za pomocą procedury mogą być używane tylko w ramach tej procedury.
Zamiast tego można zadeklarować zmienne Single na poziomie modułu lub globalnym.
Poziom modułu
Poziom modułu zmienne są deklarowane na górze modułów kodu z Ciemny oświadczenie.
Zmiennych tych można używać z dowolną procedurą w tym module kodu.
Poziom globalny
Poziom globalny zmienne są również deklarowane na górze modułów kodu. Jednak zamiast używać Ciemny oświadczenie, użyj Publiczny oświadczenie wskazujące, że Pojedynczy zmienna jest dostępna do użycia w całym projekcie VBA.
| 1 | Publiczny SngA jako singiel |
Gdybyś miał zadeklarować Pojedynczy zmiennej na poziomie modułu, a następnie spróbuj użyć jej w innym module, wystąpiłby błąd.
Jeśli jednak użyłeś słowa kluczowego Public, aby zadeklarować Pojedynczy zmienna, błąd nie wystąpi, a procedura przebiegnie bez zarzutu.
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
Formatuj pojedynczy przechowywany jako ciąg
Może być czas, w którym chcesz sformatować pojedynczy typ danych do ciągu - na przykład możesz chcieć wyświetlić symbol waluty i zaokrąglić liczbę do 2 miejsc po przecinku.
Aby to osiągnąć, użyj funkcji Format.
Poniższa procedura
| 1234567891011 | PodtestSingleToCurrencyString()'deklaruj zmienną łańcuchowąDim strMoney As String'zadeklaruj pojedynczą i wypełnij wartośćDim sngValue As SinglesngValue = 44055,256'przekonwertuj singiel na ciąg z symbolem waluty z 2 miejscami po przecinkustrMoney = Format(sngValue , "$#,##0.00")'zobacz wynik'MsgBox strMoneyNapis końcowy |
zwróci ten wynik:
Podobnie możesz chcieć wyświetlić numer jako sformatowany numer telefonu.
Tej procedury:
| 1234567891011 | Test podrzędny Pojedynczy Na Telefon()'deklaruj zmienną łańcuchowąDim strPhone As String'zadeklaruj pojedynczą i wypełnij wartośćDim sglValue As singlesglValue = 555968541'przekonwertuj singiel na ciąg z symbolem walutystrPhone = Format(sglValue , "(000)-000 0000")'zobacz wynik'MsgBox strPhoneNapis końcowy |
zwróci ten wynik:
