Jak zmienić format komórki na tekst za pomocą VBA

Question

Mam kolumnę "duration" w arkuszu Excel. Format komórki zmienia się zawsze — Chcę przekonwertować czas trwania z minut na sekundy, ale z powodu formatowania komórki zawsze daje mi różne odpowiedzi.

Myślałem, że przed wykonaniem konwersji mogę przekonwertować ten format komórki na tekst, tak aby traktował to jako wartość tekstową i nie próbował automatycznie formatować.

Obecnie kopiuję wszystkie dane do Notatnika, a następnie zapisuję je z powrotem w arkuszu Excel, aby usunąć cały poprzedni format. Czy istnieje sposób na zautomatyzowanie ustawiania formatowania komórki na tekst za pomocą języka VBA?

Answer 1

Aby odpowiedzieć na to pytanie bezpośrednio, to jest:

Range("A1").NumberFormat = "@" 

Albo

Cells(1,1).NumberFormat = "@" 

Jednak Proponuję dokonywania zmiany formatu, co rzeczywiście chcesz wyświetlany. Pozwala to na zachowanie typu danych w komórce i łatwe użycie formuł komórek do manipulowania danymi.

Answer 2

To powinno zmienić format na tekst.

Worksheets("Sheetname").Activate 
Worksheets("SheetName").Columns(1).Select 'or Worksheets("SheetName").Range("A:A").Select 
Selection.NumberFormat = "@" 

Answer 3

Jeden punkt: musisz ustawić właściwość NumberFormat PRZED załadowaniem wartości do komórki. Miałem dziewięciocyfrowy numer, który wciąż był wyświetlany jako 9.14E + 08, gdy NumberFormat został ustawiony po załadowaniu komórki. Ustawienie właściwości przed załadowaniem wartości sprawiły, że liczba wyglądają jak chciałem, jak prostym tekstem

czyli

można spróbować najpierw jest automatyczne dopasowanie.
Excel_Obj.Columns ("A: V") EntireColumn.AutoFit