Καλησπέρα.
Κατ' αρχάς, στην
vba, το ερωτηματικό
(;),
δεν έχει θέση στις συναρτήσεις, ως διαχωριστικό στα ορίσματα.
Έχουμε
πάντα (,) ανεξάρτητα από τοπικές ρυθμίσεις.
Τα δεκαδικά, είναι
πάντα της μορφής
5.36 (δηλ. με τελεία) ανεξάρτητα από τοπικές ρυθμίσεις.
Τώρα...
Χωρίς να γνωρίζω τον κώδικα, θα πρότεινα τα εξής:
1
Αν κάποιες τιμές με δεκαδική μορφή, πάνε πχ σε κελιά,
τότε
πριν την γραμμή κώδικα που «στέλνει» την
x τιμή, κάνε μια μορφοποίηση όπως:
Sheet1.Cells(1,1).NumberFormat=
"#,##0.00"
Αυτό είναι αριθμός, με δύο δεκαδικά,
διαχωριστικό χιλιάδων
(,)----Ναι είναι σωστό
διαχωριστικό δεκαδικού μέρους
(.)----Ναι είναι σωστό
2
Χρησιμοποίησε την
Cdbl(), για να ορίσεις μια
Double ή Single τιμή πχ
Dim
x as
Double x=
Cdbl(Sheet1.Cells(1,1).Value
)
ή
Dim
x as
Double x=Sheet1.Cells(1,1).Value
Sheet1.Cells(3,3).Value=
Cdbl(x)
Προς το παρόν αυτά και αν δεν έχουμε αποτέλεσμα
(που θα έχουμε... αν εφαρμοστούν σωστά) τα ξαναλέμε...με κάποιο παράδειγμά σου...