Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Excel - удаление из содержимого ячейки одиночной кавчки
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
При извлечении атрибутов необходимо работать с результатом, выведенным в файл Excel. В этом файле внутри каждой ячейки перед числом стоит одиночная кавчка, независимо от того, что в опциях извлечения данных было указан тип данных столбца "число" . Как программно удалить одиночную кавычку из ячеек используя макрос в экселе?
эта кавычка тебе мешает чёли??? она же не видна при просмотре и печати, видна только при редактировании...
а вот прикинь мне надо триста ячеек разным образом пересчитать, а содержимое этих ячеек благодаря кавычки воспринимается екселем как текст. Эту кавычку нельзя убрать через тупо "найти - заменить" потому как она не определяется в ячейке.Можно конечно вручную ячейки это все попробывать удалить, особо рьяных - милости прошу.
> KyCOK
Скинь файл Эксель на webfile.ru или
на аналогичный сайт - попробую
на зуб
~'J'~
Кавычка эта для выравнивания. Как же все таки решать типовые задачи в Excell, запустить запись макроса проделайте все вручную (т.е. удалити эту кавычку) остановите запись макроса, далее изучите полученный маркос и отшлифуйте. Все проблема решена
> KyCOK
Навскидку через перезапись формул
(предварительно выдели нужный диапазон ячеек)
Sub RemQuotes()
' remove the single quotes in front of cell text
With Application
.Volatile
.ScreenUpdating = False
.Calculation = xlCalculationManual
Dim cel As Range
Dim i As Long, cnt As Long
cnt = Selection.Count
For i = 1 To cnt
Selection.Item(i).Formula = Trim(Selection.Item(i).Formula)
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End With
MsgBox "Done"
End Sub~'J'~
Господа благодарю за добрые советы. К своему стыду признаться, обнаружил, что на версии экесля была отключена проверка орфографии. При активации Оной в ячейках с цифрами возникли вопросы по вариантам типа данных....
всем большой респект!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Excel - удаление из содержимого ячейки одиночной кавчки
Форум работает на PunBB, при поддержке Informer Technologies, Inc
