Господа, здравствуйте. Приключился такой глюк - после присвоения значения ячейке любым способом из кода, следующие строки просто не выполняются без какого-либо сообщения об ошибке. Кусок кода следующий:
Код
Private Sub CommandButton7_Click()
CellRow = Selection.Row
Range(Cells(CellRow, 1), Cells(CellRow, 377)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells(CellRow, 9).Select
Cells(CellRow, 5).Value = "HCL400/2" ' ОШИБКА ЗДЕСЬ
Cells(CellRow, 9).FormulaLocal = "=СУММ(RC[4]:RC[370])"
MsgBox "!"
End Sub
Причем, пару недель назад все работало нормально. Может будут какие идеи? Добавил тестовый файл/заменил на .xlsm Какая-то фигня происходит. Тестовый файл открытый в одиночестве работает как надо. Исходный файл в с тем-же расширением не работает как надо. Если не закрывая исходный файл открыть тестовый - то он тоже не работает. Как так то???
Андрей Комаров, здравствуйте Оформите код тэгом "<…>" и внедрите его в файл-пример — посмотрим
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
New, точно - воспринимается же как ссылка на ячейку
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Без изменений. Просто апостроф попадает в значение ячейки.
"New написал: Тут главное понять, что хочет ввести в ячейку автор. Просто какой-то текст который делит на 2 или формулу. Если формулу, то надо использовать Formula или FormulaLocal и знак равно. Если текст, то добавить апостроф перед Н"
Автор хочет вставить текст и продолжить выполнение кода. Собственно, текст вставляется корректно, но выполнение программы прекращается. Если внутрь кавычек вставить апостроф, как Вы предлагаете, то он просто попадает в текст ячейки. Прочее без изменений.
Тут главное понять, что хочет ввести в ячейку автор. Просто какой-то текст который делит на 2 или формулу. Если формулу, то надо использовать Formula или FormulaLocal и знак равно. Если текст, то добавить апостроф перед H
А ведь с правилами форума надо было ознакомиться перед созданием темы...
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.