Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Таблица эксель-разная? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Таблица эксель-разная?
tboi50 Дата: Вторник, 30.01.2024, 10:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте!
Подскажите пожалуйста в чем дело и как можно исправить.
С программы инфо-предприятие загружается отчет в экселе.НО! Там точки вместо запятых в числах и ничего не суммируется ,ни считается.Изменяла точки на запятые, все равно не работает ,а высвечивается "ЗНАЧ".Можно ли как то это исправить? Обращалось в "Инфо-пр.",ответили: с экселем не работаем,а что выгружаем ,то и выгружаем.." Странно как-то...Пробую решить сама,но всё тщетно.Но очень надо,т.к. программа" зарплата " в инфопр.работаем.
Спасибо огромное!
К сообщению приложен файл: 9066581.jpg (32.4 Kb)
 
Ответить
СообщениеЗдравствуйте!
Подскажите пожалуйста в чем дело и как можно исправить.
С программы инфо-предприятие загружается отчет в экселе.НО! Там точки вместо запятых в числах и ничего не суммируется ,ни считается.Изменяла точки на запятые, все равно не работает ,а высвечивается "ЗНАЧ".Можно ли как то это исправить? Обращалось в "Инфо-пр.",ответили: с экселем не работаем,а что выгружаем ,то и выгружаем.." Странно как-то...Пробую решить сама,но всё тщетно.Но очень надо,т.к. программа" зарплата " в инфопр.работаем.
Спасибо огромное!

Автор - tboi50
Дата добавления - 30.01.2024 в 10:41
Nic70y Дата: Вторник, 30.01.2024, 10:44 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8988
Репутация: 2361 ±
Замечаний: 0% ±

Excel 2010
tboi50, вместо картинки загрузите файл, достаточно тех строк, что на картинке.
Там точки вместо запятых
частое явление выгрузки с других программ


ЮMoney 41001841029809
 
Ответить
Сообщениеtboi50, вместо картинки загрузите файл, достаточно тех строк, что на картинке.
Там точки вместо запятых
частое явление выгрузки с других программ

Автор - Nic70y
Дата добавления - 30.01.2024 в 10:44
elovkov Дата: Вторник, 30.01.2024, 10:47 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 401
Репутация: 71 ±
Замечаний: 0% ±

Excel 2013
Возможно еще пробелы на пустоту надо поменять, но как сказал Nic70y - без примера это не точно)))


Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
 
Ответить
СообщениеВозможно еще пробелы на пустоту надо поменять, но как сказал Nic70y - без примера это не точно)))

Автор - elovkov
Дата добавления - 30.01.2024 в 10:47
tboi50 Дата: Суббота, 03.02.2024, 13:03 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Вот файлик.
К сообщению приложен файл: zpl_ved_nepravilnyj_ehksel.xls (245.0 Kb)
 
Ответить
СообщениеЗдравствуйте! Вот файлик.

Автор - tboi50
Дата добавления - 03.02.2024 в 13:03
Nic70y Дата: Суббота, 03.02.2024, 13:12 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8988
Репутация: 2361 ±
Замечаний: 0% ±

Excel 2010
tboi50, кроме замены точки на запятую,
нужно вторым действием
найти: удерживая Alt набрать 0160
заменить на: ни чего не писать
(это неразрывный пробел)
и этого может быть мало и нужно будет скопировать пустую ячейку,
а затем, выделив ячейки с числами - специальная вставка - сложить

файл просто ужас, еще хуже чем у меня с 1С-ки %)


ЮMoney 41001841029809
 
Ответить
Сообщениеtboi50, кроме замены точки на запятую,
нужно вторым действием
найти: удерживая Alt набрать 0160
заменить на: ни чего не писать
(это неразрывный пробел)
и этого может быть мало и нужно будет скопировать пустую ячейку,
а затем, выделив ячейки с числами - специальная вставка - сложить

файл просто ужас, еще хуже чем у меня с 1С-ки %)

Автор - Nic70y
Дата добавления - 03.02.2024 в 13:12
cmivadwot Дата: Суббота, 03.02.2024, 13:45 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 532
Репутация: 97 ±
Замечаний: 0% ±

365
tboi50, если там все считает ..то зачем в эксель? Вариант через формулы в дополнительное поле.... ну а потом ---копировать-вставлять... иди еще как...
К сообщению приложен файл: 6205092.xls (239.0 Kb)
 
Ответить
Сообщениеtboi50, если там все считает ..то зачем в эксель? Вариант через формулы в дополнительное поле.... ну а потом ---копировать-вставлять... иди еще как...

Автор - cmivadwot
Дата добавления - 03.02.2024 в 13:45
tboi50 Дата: Понедельник, 05.02.2024, 15:59 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Спасибо большое,но ничего у меня не получилось.... тупая что ль совсем.. мне если только по шагам объяснять..
А вам спасибо за внимание!
 
Ответить
СообщениеЗдравствуйте! Спасибо большое,но ничего у меня не получилось.... тупая что ль совсем.. мне если только по шагам объяснять..
А вам спасибо за внимание!

Автор - tboi50
Дата добавления - 05.02.2024 в 15:59
Nic70y Дата: Понедельник, 05.02.2024, 16:02 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8988
Репутация: 2361 ±
Замечаний: 0% ±

Excel 2010
tboi50, Вы как заменяете?
через окно Ctrl+H
или как?


ЮMoney 41001841029809
 
Ответить
Сообщениеtboi50, Вы как заменяете?
через окно Ctrl+H
или как?

Автор - Nic70y
Дата добавления - 05.02.2024 в 16:02
Serge_007 Дата: Понедельник, 05.02.2024, 16:56 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
файл просто ужас, еще хуже чем у меня с 1С-ки
yes


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
файл просто ужас, еще хуже чем у меня с 1С-ки
yes

Автор - Serge_007
Дата добавления - 05.02.2024 в 16:56
cmivadwot Дата: Понедельник, 05.02.2024, 22:13 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 532
Репутация: 97 ±
Замечаний: 0% ±

365
tboi50, запустите прикрепленный файл..... (там Ваш первый файл с макросом меняющим в выделенных ячейках неразрывные пробелы на ничего и точки на запятые) открываете файл, который необходимо преобразовать (ранее открытый-прикрепленный не закрываем) выделяйте область с цифрами..где точки и неразрывные пробелы мешающие счёту....., нажимаете ctrl+й (сочетание клавиш запускающих макрос) (нажать крайнюю, нижнюю кнопку слева, не отпуская ее нажать букву "й" (раскладка вроде должна быть русской, Caps Lock отжатым))))))) должен сработать макрос из приложенного файла и заменить в выделенной области..как описано ранее..неразрывные пробелы на ничего и точки на запятые.. Возможно в свойствах приложенного файла придется поставить галочку "разблокировать"... и разрешить макросы если спросит... возможно еще допиливать формат ячеек придется под цифровой и разделять по разрядам.......
К сообщению приложен файл: zamenachtobschitalos.xlsm (66.2 Kb)


Сообщение отредактировал cmivadwot - Понедельник, 05.02.2024, 22:21
 
Ответить
Сообщениеtboi50, запустите прикрепленный файл..... (там Ваш первый файл с макросом меняющим в выделенных ячейках неразрывные пробелы на ничего и точки на запятые) открываете файл, который необходимо преобразовать (ранее открытый-прикрепленный не закрываем) выделяйте область с цифрами..где точки и неразрывные пробелы мешающие счёту....., нажимаете ctrl+й (сочетание клавиш запускающих макрос) (нажать крайнюю, нижнюю кнопку слева, не отпуская ее нажать букву "й" (раскладка вроде должна быть русской, Caps Lock отжатым))))))) должен сработать макрос из приложенного файла и заменить в выделенной области..как описано ранее..неразрывные пробелы на ничего и точки на запятые.. Возможно в свойствах приложенного файла придется поставить галочку "разблокировать"... и разрешить макросы если спросит... возможно еще допиливать формат ячеек придется под цифровой и разделять по разрядам.......

Автор - cmivadwot
Дата добавления - 05.02.2024 в 22:13
Nic70y Дата: Вторник, 06.02.2024, 07:56 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 8988
Репутация: 2361 ±
Замечаний: 0% ±

Excel 2010
cmivadwot, Ваш макрос оставить нечисла нечислами,
предлагаю так:
[vba]
Код
Sub точкзапятминуспробел()
    Selection.Replace What:="-", Replacement:=""
    Selection.Replace What:=" ", Replacement:=""
    Selection = Selection.Value
End Sub
[/vba]

апдэйт
вариант макроса.
[vba]
Код
Sub u_11()
    Application.ScreenUpdating = False
    c = ThisWorkbook.Name
    a = ThisWorkbook.Path
    b = Dir(a & "\*.xls")
    Do While b <> ""
    If b <> c Then
        Workbooks.Open Filename:=a & "\" & b
        e = Chr(160)
        For Each d In Workbooks(b).Sheets(1).UsedRange.SpecialCells(xlCellTypeConstants, 7)
            f = d.Value
            g = Left(f, 1)
            If g <> "0" Then
                h = Replace(f, e, "")
                i = Replace(h, ".", ",")
                If IsNumeric(i) Then
                    d.Value = h
                Else
                    d.Value = Replace(f, "-", "")
                End If
            End If
        Next
    End If
    b = Dir
    Loop
    Application.ScreenUpdating = False
End Sub
[/vba]
создайте папку, поместите в нее прикрепленный файл.
свой файл(ы) положите в ту же папку.
откройте прикрепленный файл (при этом Ваши файлы должны быть закрыты)
нажмите кнопку.
К сообщению приложен файл: 0008.xlsm (18.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 06.02.2024, 10:16
 
Ответить
Сообщениеcmivadwot, Ваш макрос оставить нечисла нечислами,
предлагаю так:
[vba]
Код
Sub точкзапятминуспробел()
    Selection.Replace What:="-", Replacement:=""
    Selection.Replace What:=" ", Replacement:=""
    Selection = Selection.Value
End Sub
[/vba]

апдэйт
вариант макроса.
[vba]
Код
Sub u_11()
    Application.ScreenUpdating = False
    c = ThisWorkbook.Name
    a = ThisWorkbook.Path
    b = Dir(a & "\*.xls")
    Do While b <> ""
    If b <> c Then
        Workbooks.Open Filename:=a & "\" & b
        e = Chr(160)
        For Each d In Workbooks(b).Sheets(1).UsedRange.SpecialCells(xlCellTypeConstants, 7)
            f = d.Value
            g = Left(f, 1)
            If g <> "0" Then
                h = Replace(f, e, "")
                i = Replace(h, ".", ",")
                If IsNumeric(i) Then
                    d.Value = h
                Else
                    d.Value = Replace(f, "-", "")
                End If
            End If
        Next
    End If
    b = Dir
    Loop
    Application.ScreenUpdating = False
End Sub
[/vba]
создайте папку, поместите в нее прикрепленный файл.
свой файл(ы) положите в ту же папку.
откройте прикрепленный файл (при этом Ваши файлы должны быть закрыты)
нажмите кнопку.

Автор - Nic70y
Дата добавления - 06.02.2024 в 07:56
cmivadwot Дата: Вторник, 06.02.2024, 13:20 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 532
Репутация: 97 ±
Замечаний: 0% ±

365
Nic70y, День добрый. Спасибо. Да..заметил .. не было времени исправить.. в начальном прокатывало))) это просто записанный макрос... вроде пытался еще записать изменение формата ячеек но не вышло. выделить все желтый треугольник - преобразовать в число.. Но вы допилили. tboi50, разберется.. наверно.
 
Ответить
СообщениеNic70y, День добрый. Спасибо. Да..заметил .. не было времени исправить.. в начальном прокатывало))) это просто записанный макрос... вроде пытался еще записать изменение формата ячеек но не вышло. выделить все желтый треугольник - преобразовать в число.. Но вы допилили. tboi50, разберется.. наверно.

Автор - cmivadwot
Дата добавления - 06.02.2024 в 13:20
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!