как у числа в ячейке убрать последнии с цифры

Novichek Гость	#1 28.01.2008 08:00:54 как с помощью ВБА или функций Экселя, у числа в ячейке убрать последнии с цифры, например было 123456789 а стало 123456

Guest

Гость

28.01.2008 08:23:59

{quote}{login=Novichek}{date=28.01.2008 08:00}{thema=как у числа в ячейке убрать последнии с цифры}{post}как с помощью ВБА или функций Экселя, у числа в ячейке убрать последнии с цифры, например было 123456789 а стало 123456{/post}{/quote}

=ЛЕВСИМВ("123456789";ДЛСТР("123456789")-3)

- очевидно, что вместо констант в формуле, могут быть ссылки на ячейки, содержащие обрабатываемые данные.

- организовав на листе в дополнительном месте расчет этих формул, получите данные с отсеченными цифрами.
- этот диапазон можно специальной вставкой значений перезаписать на место исходных данных.

Guest Гость	#3 28.01.2008 09:09:27 а средствами ВБА???

Guest Гость	#4 28.01.2008 09:28:52 а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой

Сергей Гость	#5 28.01.2008 09:42:35 {quote}{login=}{date=28.01.2008 09:28}{thema=}{post}а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой{/post}{/quote} =ЕСЛИ(E1="";"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3))

Сергей

Гость

28.01.2008 09:44:41

{quote}{login=Сергей}{date=28.01.2008 09:42}{thema=Re: }{post}{quote}{login=}{date=28.01.2008 09:28}{thema=}{post}а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой{/post}{/quote}

=ЕСЛИ(E1="";"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote}

Это на пустое значение в ячейки :)

Guest

Гость

28.01.2008 09:46:17

{quote}{login=Сергей}{date=28.01.2008 09:44}{thema=Re: Re: }{post}{quote}{login=Сергей}{date=28.01.2008 09:42}{thema=Re: }{post}{quote}{login=}{date=28.01.2008 09:28}{thema=}{post}а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой{/post}{/quote}

=ЕСЛИ(E1="";"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote}

Это на пустое значение в ячейки :){/post}{/quote}

На ноль =ЕСЛИ((E1=0);"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3))

Виталий

Гость

28.01.2008 10:07:05

{quote}{login=Novichek}{date=28.01.2008 08:00}{thema=как у числа в ячейке убрать последнии с цифры}{post}как с помощью ВБА или функций Экселя, у числа в ячейке убрать последнии с цифры, например было 123456789 а стало 123456{/post}{/quote}

Оставит три последние цыфры (789)
Right(123456789, 3)

Оставит шесть первых цыфр (123456)
Left(123456789, 6)

Выбирает часть текста(выбирает 4 символа начиная со 2-го(2345))
Mid(123456789, 2, 4)

Guest Гость	#9 28.01.2008 10:56:35 спасибо огромное, за помощь всем!!!

Guest

Гость

#10

28.01.2008 13:26:18

{quote}{login=}{date=28.01.2008 09:46}{thema=Re: Re: Re: }{post}{quote}{login=Сергей}{date=28.01.2008 09:44}{thema=Re: Re: }{post}{quote}{login=Сергей}{date=28.01.2008 09:42}{thema=Re: }{post}{quote}{login=}{date=28.01.2008 09:28}{thema=}{post}а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой{/post}{/quote}

=ЕСЛИ(E1="";"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote}

Это на пустое значение в ячейки :){/post}{/quote}

На ноль =ЕСЛИ((E1=0);"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote}
вот нашел у себя косяк надо дописать условие, если С2 =0 тогда ничего не делаем(оставляем ноль), а если С2 не равно 0, тогда проверяем длину строки ячейки С2 если она меньше или ровна 5 тогда отнимаем от неё 3 цифры последнии, а иначе отнимаем 5 цифр

Guest Гость	#11 28.01.2008 13:53:44 {quote}{login=}{date=28.01.2008 01:26}{thema=Re: Re: Re: Re: }{post}{quote}{login=}{date=28.01.2008 09:46}{thema=Re: Re: Re: }{post}{quote}{login=Сергей}{date=28.01.2008 09:44}{thema=Re: Re: }{post}{quote}{login=Сергей}{date=28.01.2008 09:42}{thema=Re: }{post}{quote}{login=}{date=28.01.2008 09:28}{thema=}{post}а как в =ЛЕВСИМВ(E1;ДЛСТР(E1)-3) сделать проверку на ноль, если в данной ячейке ноль то ничего не делать с этой ячейкой{/post}{/quote} =ЕСЛИ(E1="";"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote} Это на пустое значение в ячейки :){/post}{/quote} На ноль =ЕСЛИ((E1=0);"";ЛЕВСИМВ(E1;ДЛСТР(E1)-3)){/post}{/quote} вот нашел у себя косяк надо дописать условие, если С2 =0 тогда ничего не делаем(оставляем ноль), а если С2 не равно 0, тогда проверяем длину строки ячейки С2 если она меньше или ровна 5 тогда отнимаем от неё 3 цифры последнии, а иначе отнимаем 5 цифр{/post}{/quote} вот вроде наваял сам =ЕСЛИ(T3=0;;ЕСЛИ(ДЛСТР(T3<5);ЛЕВСИМВ(T3;ДЛСТР(T3)-3);ЛЕВСИМВ(T3;ДЛСТР(T3)-5)))

Читают тему