konto usunięte

Temat: Rozpoznanie formatowania komórki i działanie warunkowe

Witam,
jak za pomocą makra w VBA, rozpoznać typ formatowania komórki, ponieważ w wielu komórkach mam powstawiane funkcje przypisujące (=Arkusz2!E1 itp.), które często zwracają liczbę (111111,222222,).
Podczas zapisu do pliku, muszę wykryć, że ta komórka jest sformatowana jako Tekstowa i wstawić cudzysłów, tak aby w pliku zapisana była jako "111111" lub "222222".

Mój pomysł jest taki, ale nie programuje w ogóle pod vba, także nie mam pojęcia jak go zrealizować.
1.Przy wejściu do komórki z funkcją, skoczyć do adresu skąd została pobrana i porównać formatowanie komórki metodą IsText().Ten post został edytowany przez Autora dnia 17.06.13 o godzinie 17:13

konto usunięte

Temat: Rozpoznanie formatowania komórki i działanie warunkowe

Nie wiem, czy dobrze zrozumiałem pytanie. Jeśli chcesz sprawdzić format komórki w VBA, to powinieneś użyć właściwości 'NumberFormat'. Przykład funkcji zwracającej format:



Function format_komorki(adres As String) As String

format_komorki = Range(adres).NumberFormat

End Function



Możesz jej użyć w arkuszu wpisując np.:



=format_komorki("Arkusz2!E1")



Podstawowe formaty komórek są zgodne z formatowaniem w "Formatuj komórki" i są to np.:

"General" - formatowanie ogólne
"0", "0.0", "0.00" itd. - Zapis liczbowy - odpowiednia ilość miejsc po przecinku
"#,##0.00 $" - Zapis walutowy
"m/d/yyyy" - data krótka
"[$-F800]dddd, mmmm dd, yyyy" - data długa
"[$-F400]h:mm:ss AM/PM" - Godzina
"0.00%" - zapis procentowy
"0.00E+00" - format naukowy liczb - zapis wykładniczy
"@" - zapis tekstowy

Tak więc w Twoim przypadku prawdopodobnie wykorzystasz porównanie do "@".

Edit: Literówka, VBS/VBATen post został edytowany przez Autora dnia 18.06.13 o godzinie 09:23
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Rozpoznanie formatowania komórki i działanie warunkowe

Mariusz T.:
Nie wiem, czy dobrze zrozumiałem pytanie. Jeśli chcesz sprawdzić format komórki w VBS, to powinieneś użyć
VBS <> VBA.



Wyślij zaproszenie do