В одной ячейке текст и число

[Shavminator]

Здравствуйте, с наступающим всех новым годом.
Вопрос такой
Можно ли в одной ячейке вставить текст и число.
например
Приход по контрагентам
="Контрагент "+сумм()
и чтоб когда приходы или расходы изменились сумма в формуле тоже изменился, как простая =сумм().

и еще вопрос.
есть много данные, вид как число но сохранено как текст.
поставил тип число не помогает, мне нужно суммироват или вычесть, не получается.
нашел выход. Если нажать F2 и затем Enter число сохряняется в числовом варианте и можно сделать разные расчеты.
но этих данных через чур много, по ячейкам много времени уйдет.
как сделать это автоматически.

Заранее благодарю

[SAS888]

1) Используй функцию =СЦЕПИТЬ(значение1, значение2, ...)
2) Используй функцию =Ч(значение)

[Alkaline]

По первому: ссылки с амперсандом (&) дадут нужное, например:

=A1&B23

или

="Контрагент "&B3


По второму: Обычно Excel отслеживает такую проблему и предлагает заменить на число. Нужно выделить всю область, содержащую такие значения, и, кликнув мышью в рядом расположенный восклицательный знак, выбрать "Преобразовать в число".

[Shavminator]

Огромное спасибо, если будут проблемы сообщю...

[Shavminator]

А по поводу второго вопроса насчет форматов есть какие нибудь предложения.
Заранее благодарю.

[SAS888]

Если, например, в "A1" число 5 в текстовом формате, а в ячейке "B1" число 7 в общем (или числовом) формате, то написав в ячейке "C1" формулу
"=A1*B1", возможны следующие варианты:

1) Если ячейка "C1" имеет текстовый формат - получим строку "=A1*B1".
2) Если ячейка "C1" имеет общий(или числовой) формат - получим 35, но формат ячейки "C1" изменится на текстовый.

Чтобы получить результат 35 в общем формате, нужно во-первых, чтобы ячейка "C1" исходно имела общий формат, во-вторых формула в "C1" должна иметь вид: "=Ч(A1*B1)". Т. е. результат вычислений преобразуем в числовой формат и помещаем в ячейку, имеющую соответствующий формат.

[Alkaline]

Shavminator, я понимаю, что когда такая проблема возникла, хочется решить ее изящно, без дополнительных формул и вспомогательных ячеек. Решить - и забыть раз и навсегда. Придется разобрать детально.

Во-первых, проблема появляется только тогда, когда ячейкам сначала был присвоен текстовый формат, а потом туда вставили или ввели числовые значения. (Если были числа, потом их сделали текстом, а потом опять указали числовой формат ячеек, то проблемы не возникает.) Отсюда следует, что устанавливать формат ячеек желательно до вставки - это на будущее.

Далее, в Excel 2003 и, кажется 2002 (а может, и 2000) есть указатель в виде зеленого треугольника в левой верхней части ячейки (и восклицательного знака при выборе ячейки), когда там ошибка. В ниспадающем списке для такой ситуации ("Число сохранено как текст") есть возможность автоматически преобразовать значение в число. При этом для связных диапазонов (выбираемых без зажатия клвиши Ctrl) данную операцию можно выполнить за один раз.

Едем дальше. Можно, конечно, после установки формата ячейки "Числовой" нажать F2 для редактирования и тут же Enter - тогда значение ячейки придет в норму. Руками это делать муторно. Вот макрос, который для всего предварительно выделенного диапазона установит сначала формат "Общий", а потом пройдется по каждой ячейке, "нажимая" F2 и Enter (можно выделить и весь лист, т.е. не только проблемные ячейки, но для них всех будет установлен формат "Общий"!):

Sub Макрос1()

Selection.NumberFormat = "General"

For i = 1 To Selection.Cells.Count
Application.SendKeys ("{F2}~")
Next

End Sub

ВНИМАНИЕ! Поскольку нажатия посылаются активному приложению, то запускать макрос нужно на рабочем листе Excel, а не из редактора Visual Basic, т.ч. следует произвести назначение кнопки или горячей клавиши макросу (например, Ctrl+m). Вызывается меню макросов по Alt+F8.

Также можно не назначать принудительно формат "Общий" - для этого нужно удалить строку Selection.NumberFormat = "General" и перед выполнением макроса вручную установить желаемый формат для выделенных ячеек.

[Pavel55]

Попробуйте так, у меня работает.
Выделяете диапазон, а затем запускаете этот макрос

Sub Test()
Dim iCell As Range
    Selection.NumberFormat = "General"
    For Each iCell In Selection.Cells
        iCell.Value = iCell.Value
    Next
End Sub

[Alkaline]

Да, так красивее.

[Shavminator]

Вот огромное спасибо ребята, помогли.
А что с помощю VBA можно так просто все сделать?
А где взять справочник по VBA? а то там все по английски.
и еще, если изучить VBA в Exel-е, потом можно будет работать и в Access-e?
Или VBA в Exel и VBA в Access разные вещи.