Здравствуйте. Столкнулся с проблемой интересной. При выгрузке из 1С в excel некоторые табельные номера выгружаются "криво". Табельный номер как бы есть на просмотре, но стоит встать в эту ячейку с номером там становится 0 , и в строке формула 0 Прилагаю во вложении файл. Подскажите, можно ли как либо решить данную проблему. Именно в конечном файле, так как в 1С перед выгрузкой ничего сделать нет возможности.
Здравствуйте. Столкнулся с проблемой интересной. При выгрузке из 1С в excel некоторые табельные номера выгружаются "криво". Табельный номер как бы есть на просмотре, но стоит встать в эту ячейку с номером там становится 0 , и в строке формула 0 Прилагаю во вложении файл. Подскажите, можно ли как либо решить данную проблему. Именно в конечном файле, так как в 1С перед выгрузкой ничего сделать нет возможности.minister
при смене формата ячейки становится 0 про формулу не совсем понял Скорее всего правильно - нужен макрос. Так как для конечный пользователей проще это будет
при смене формата ячейки становится 0 про формулу не совсем понял Скорее всего правильно - нужен макрос. Так как для конечный пользователей проще это будетminister
Sub u_444() a = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b1:b" & a) u = c.DisplayFormat.NumberFormat v = c.Value Range("b" & c.Row) = Application.Text(v, u) Next End Sub
[/vba]
[vba]
Код
Sub u_444() a = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b1:b" & a) u = c.DisplayFormat.NumberFormat v = c.Value Range("b" & c.Row) = Application.Text(v, u) Next End Sub
Sub u_444() a = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b1:b" & a) u = c.DisplayFormat.NumberFormat v = c.Value Range("b" & c.Row) = Application.Text(v, u) Next End Sub
СПАСИБО. А если пустое поле - он 0 ставит. Можно как либо задать что бы если пусто - пропускать поле?
Sub u_444() a = Cells(Rows.Count, "b").End(xlUp).Row For Each c In Range("b1:b" & a) u = c.DisplayFormat.NumberFormat v = c.Value Range("b" & c.Row) = Application.Text(v, u) Next End Sub
СПАСИБО. А если пустое поле - он 0 ставит. Можно как либо задать что бы если пусто - пропускать поле?minister