Msha спасибо за ответ. Если возможно растолкуй, пожалуйста, как это сделать практически, а то мой уровень достаточно низкий и я не смог понять что-же конкретно надо сделать. Из какого меню и что надо выбрать. Или это другой способ.
Помогите с формулой для даты прописью из другой ячейки
Пожалуйста!
Может у кого-то есть готовая формула?
Она похожа на :сумма прописью.
Только мне нужно
напр: в одной яч ввожу 21-11, а она мне с пом этой формулы
в другой ячейке: 21 ноября 2006г.
Заранее спасиба!
Пожалуйста!
Может у кого-то есть готовая формула?
Она похожа на :сумма прописью.
Только мне нужно
напр: в одной яч ввожу 21-11, а она мне с пом этой формулы
в другой ячейке: 21 ноября 2006г.
Заранее спасиба!
F
Flying Spur
Не знаю правильно ли я Вас понял, но в случае ввода числа 21-11, Excel автоматически переводит это число в формат даты 21.ноя. поэтому при установке в другой ячейке ссылки на данную ячейку в формате =С(столбец) R(строка) (например =d12) автоматически появляется число в таком же формате 21.ноя. чтобы его изменить необходимо нажать на ячейке с формулой CTRL+1 и и на закладке "Число" выбрать формат числа "Дата" и выбрать необходимый Вам формат 21 ноября 2006г.
Для того чтобы число 21-11 так и отображалось в ячейке как 21-11, то на той же закладке "Число" необходимо выбрать самое нижнее значение ("все форматы" и добавить с правой стороны в тип следующий тип числа "[$-419]Д-ММ;@" (без кавычек).
Вроде все, но может я чего-то не понял.
Уря! Получилось!
Хочу поделиться со всеми:
1. Нужно установить надстройку для Excel
берем от суюда:
__http://rapidshare.com/files/5439068/DatProp.xla.html
2. Записываем его в папку :
c:\\Doc..and Set...\Пользователь\App..D..\Micr...\AddIns
3. В Excel в меню Сервис/Надстрока устанавл. флажок на DatProp
4. в любой ячейке(в наш.случ. это O45), не попадающ.в форму,
пишем
=ismonthprop(A1)
5. В нужной ячейке пишем:
=СЦЕПИТЬ(" ";O45;" 06г.")
И готова!!!
Хочу поделиться со всеми:
1. Нужно установить надстройку для Excel
берем от суюда:
__http://rapidshare.com/files/5439068/DatProp.xla.html
2. Записываем его в папку :
c:\\Doc..and Set...\Пользователь\App..D..\Micr...\AddIns
3. В Excel в меню Сервис/Надстрока устанавл. флажок на DatProp
4. в любой ячейке(в наш.случ. это O45), не попадающ.в форму,
пишем
=ismonthprop(A1)
5. В нужной ячейке пишем:
=СЦЕПИТЬ(" ";O45;" 06г.")
И готова!!!
Ищу формулу чтобы отделять последнее слово из ячейки
Ищу формулу чтобы отделять последнее слово из предложения (находящегося в одной ячейке) в другую ячейку, Напр:
У меня есть в одной ячейке след.:
"Подшипник передний внутр К151040"
Мне нада отделить "К151040"
и получить в одной ячейке:
"Подшипник передний внутр"
Заранее спасиба
Ищу формулу чтобы отделять последнее слово из предложения (находящегося в одной ячейке) в другую ячейку, Напр:
У меня есть в одной ячейке след.:
"Подшипник передний внутр К151040"
Мне нада отделить "К151040"
и получить в одной ячейке:
"Подшипник передний внутр"
Заранее спасиба
to MIA:
Private Sub razdel(Cell1 As Range, Cell2 As Range)
Dim st As String
st = Cell1.Value
Cell2 = Right(st, Len(st) - InStrRev(st, " "))
End Sub
'пример использования в макросе
Public Sub razdelSample()
razdel ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, 2)
End Sub
Private Sub razdel(Cell1 As Range, Cell2 As Range)
Dim st As String
st = Cell1.Value
Cell2 = Right(st, Len(st) - InStrRev(st, " "))
End Sub
'пример использования в макросе
Public Sub razdelSample()
razdel ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, 2)
End Sub
Одной формулой почти нереально сделать - получиться что-то типа..[=ЕСЛИ(ЕОШИБКА(ПОИСК(" ";A3;ПОИСК(" ";A3;2)+1));ПРАВСИМВ(A3;ДЛСТР(A3)-ПОИСК(" ";A3;1));ЕСЛИ(ЕОШИБКА(ПОИСК(" ";ПРАВСИМВ(A3;ДЛСТР(A3)-ПОИСК(" ";A3;1));1));"фа";"га"))]- это только на строку с 2 пробелами - т.е. полное извращение. Гораздо правильней сделать как посоветовал ploki. Но если не охота возиться с VBA - то с помощью формул в 6-7 столбах постепенно избавляй строку от пробелов - потом в результирующей ячейки поставь формулу - которая выхватывает правильное значение:
1 :2 :3 :4 : 5
Подшибник перед внутр К1540 :перед внутр К1540:внутр К1540:К1540 :К1540
Подшибник внутр И1730 :внутр И1730 :И1730 : :И1730
1 :2 :3 :4 : 5
Подшибник перед внутр К1540 :перед внутр К1540:внутр К1540:К1540 :К1540
Подшибник внутр И1730 :внутр И1730 :И1730 : :И1730
Автоматизировать создание диаграмм можно. Но трудно - без VBA не обойтись. Предлагаю следующий вариант.
Выделяешь нужные данные - запускаешь запись макроса.
Дальше делаешь стандартные действия по созданию диаграмм - кнопочку Диаграмма, выбираешь тип диаграммы, определяешь ось Х, название, где разместить - потом настраиваешь остальные параметры шрифты осей , заливки если надо. Останавливаешь запись макроса. Заходишь в редактор VBA и начинаешь править и отлаживать этот макрос. Очень много свойств и объектов у диаграммы - с наскоку сделать вряд-ли получится.
Выделяешь нужные данные - запускаешь запись макроса.
Дальше делаешь стандартные действия по созданию диаграмм - кнопочку Диаграмма, выбираешь тип диаграммы, определяешь ось Х, название, где разместить - потом настраиваешь остальные параметры шрифты осей , заливки если надо. Останавливаешь запись макроса. Заходишь в редактор VBA и начинаешь править и отлаживать этот макрос. Очень много свойств и объектов у диаграммы - с наскоку сделать вряд-ли получится.
Образец файла с формулой для разбивки предложения из одной ячейки на слова
В моем случае требовалось чтобы формула разбивала несколько слов из одной ячейки в разные+ к тому что отделилось добавляла еще нужное слово (напр. название производителя)
Если кому нужно:
_http://www.megaupload.com/?d=5YLEH1IB
или
_http://grpravo.by.ru/Obrazec%20formuly%20excel.xls
В моем случае требовалось чтобы формула разбивала несколько слов из одной ячейки в разные+ к тому что отделилось добавляла еще нужное слово (напр. название производителя)
Если кому нужно:
_http://www.megaupload.com/?d=5YLEH1IB
или
_http://grpravo.by.ru/Obrazec%20formuly%20excel.xls
Последнее редактирование модератором:
Помогите написать формулу
Задача в следующем:
Имеются наименования производителя, которые являются постоянными (напр 4 шт), в зависимости от этого автоматически подставлялась страна происхождения.
Нашла что-то похожее в готовой формуле :
=ВЫБОР(A1;"Италия";"Германия";"Венгрия")
Только мне не подходит то что оно работает только если у меня в ячейке А1 будет цифра, соотв. 1-это будет италия, 2-герм и т.д.
А у меня в ячейке А1 стоит тот самый производитель.
Плз, помогите....
Задача в следующем:
Имеются наименования производителя, которые являются постоянными (напр 4 шт), в зависимости от этого автоматически подставлялась страна происхождения.
Нашла что-то похожее в готовой формуле :
=ВЫБОР(A1;"Италия";"Германия";"Венгрия")
Только мне не подходит то что оно работает только если у меня в ячейке А1 будет цифра, соотв. 1-это будет италия, 2-герм и т.д.
А у меня в ячейке А1 стоит тот самый производитель.
Плз, помогите....
A
Ashcraft
В стандартных функциях экселя я не силен, поэтому мне легче сделать такую задачу макросом примерно такого вида:
Sub Замена()
Dim Counter As Integer
For Counter = 1 To 20
End Sub
Соответственно блок If повторяешь столько раз, сколько у тебя производителей. В принципе решение грубое, топорное, но работает
Sub Замена()
Dim Counter As Integer
For Counter = 1 To 20
If Worksheets("Лист1").Cells(Counter, 1).Value = "Название фирмы" Then
Worksheets("Лист1").Cells(Counter, 2) = "Страна производитель"
End If
Next CounterWorksheets("Лист1").Cells(Counter, 2) = "Страна производитель"
End If
End Sub
Соответственно блок If повторяешь столько раз, сколько у тебя производителей. В принципе решение грубое, топорное, но работает
В стандартных функциях экселя я не силен, поэтому мне легче сделать такую задачу макросом примерно такого вида:
Sub Замена()
Dim Counter As Integer
For Counter = 1 To 20
If Worksheets("Лист1").Cells(Counter, 1).Value = "Название фирмы" ThenNext Counter
Worksheets("Лист1").Cells(Counter, 2) = "Страна производитель"
End If
End Sub
Соответственно блок If повторяешь столько раз, сколько у тебя производителей. В принципе решение грубое, топорное, но работает
Никогда не работала с макросами
Могу я прислать файл? А Вы поможете мне его туда вставить?
мой icq 68-181-288
