Если вы используете Excel для получения информации из внешнего источника, возможно, что в ваших ячейках окажется довольно странная информация. Например, предположим, что у вас есть ячейки, содержащие числа, такие как 1,234,5-. Они отформатированы как текстовые ячейки в Excel и поэтому не могут использоваться в расчетах.

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

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2300) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Converting_Text_to_Numbers [Преобразование текста в числа].