Здравствуйте. Возможно ли, как-то программно произвести активацию ячеек в разных диапазонах. Пытался путем копирования и вставки в тоже место, но выходит сообщение, что данная команда не приемлема для несвязанных диапазонов. [vba]
Код
Sub Макрос1() Range("A1,C1,E1").Select Selection.Copy ActiveSheet.Paste End Sub
[/vba]
Здравствуйте. Возможно ли, как-то программно произвести активацию ячеек в разных диапазонах. Пытался путем копирования и вставки в тоже место, но выходит сообщение, что данная команда не приемлема для несвязанных диапазонов. [vba]
Код
Sub Макрос1() Range("A1,C1,E1").Select Selection.Copy ActiveSheet.Paste End Sub
[/vba]Но с учетом того что таким образом необходимо пройти 30 ячеек то процесс происходит длительно. Можно ли как-то структурировать данный код, дабы сократить время выполнения?
RAN, Нет, активация не помогла, только таким образом
[/vba]Но с учетом того что таким образом необходимо пройти 30 ячеек то процесс происходит длительно. Можно ли как-то структурировать данный код, дабы сократить время выполнения?Сергей13
Сообщение отредактировал Сергей13 - Понедельник, 11.06.2018, 18:52
Пытался путем копирования и вставки в тоже место, но выходит сообщение, что данная команда не приемлема для несвязанных диапазонов.
Да, в таком контексте не приемлема.Хоть с макрореодером, хоть без. Но, в принципе, вставлять значения из разных ячеек в разные ячейки инмтрументами VBA возможно, но Excel'ю надо по порядку обяснить, что и куда вставлять. Ибо он мысли не читает Например: [vba]
Код
Range("A1,C1,E1").Select For Each MyCell In Selection MyCell.FormulaR1C1 = MyCell.Value Next
[/vba]
Сергей13, Если вам надо преобразовать формулы в значение, то это делается так(просто пытаюсь догадаться что вам надо): [vba]
Код
Range("A1,C1,E1").Select For Each MyCell In Selection.SpecialCells(xlCellTypeFormulas) MyCell.Formula = MyCell.Value Next
[/vba] а выделение(точнее выбор) ячеек, как уже выше упомянул RAN, делается Селектом. Активной(.Activate) может быть лишь одна ячейка из выбранных
Пытался путем копирования и вставки в тоже место, но выходит сообщение, что данная команда не приемлема для несвязанных диапазонов.
Да, в таком контексте не приемлема.Хоть с макрореодером, хоть без. Но, в принципе, вставлять значения из разных ячеек в разные ячейки инмтрументами VBA возможно, но Excel'ю надо по порядку обяснить, что и куда вставлять. Ибо он мысли не читает Например: [vba]
Код
Range("A1,C1,E1").Select For Each MyCell In Selection MyCell.FormulaR1C1 = MyCell.Value Next
boa, на своем уровне для себя для своей работы занимаюсь лепиловым, не столь важно как, главное чтобы работало. По сути есть некие данные которые активируя или двойным кликом по ячейкам (в количестве 30) а далее Enter или вводом дополнительных данных то они (данные) при событии вода данных отображаются в других таблицах учета, поэтому приходится активировать данные ячейки путем копирования ячейки в себя, конечно в корне неправильно но работает, только долго по времени.
boa, на своем уровне для себя для своей работы занимаюсь лепиловым, не столь важно как, главное чтобы работало. По сути есть некие данные которые активируя или двойным кликом по ячейкам (в количестве 30) а далее Enter или вводом дополнительных данных то они (данные) при событии вода данных отображаются в других таблицах учета, поэтому приходится активировать данные ячейки путем копирования ячейки в себя, конечно в корне неправильно но работает, только долго по времени.Сергей13
Сергей13, а вы попробуйте сформулировать цель и задачи, приложите файл с примером «что было» и «что надо», и возможно вам подскажут более оптимальное решение... оно ж не удобно чесать правое ухо левой рукой...
P.S. я дико извиняюсь, но ваш последний пост... что-то типа: сел на огурец и поехал в Москву, как любила говорить моя школьная учительница по физике
Сергей13, а вы попробуйте сформулировать цель и задачи, приложите файл с примером «что было» и «что надо», и возможно вам подскажут более оптимальное решение... оно ж не удобно чесать правое ухо левой рукой...
P.S. я дико извиняюсь, но ваш последний пост... что-то типа: сел на огурец и поехал в Москву, как любила говорить моя школьная учительница по физикеboa
Сообщение отредактировал boa - Вторник, 12.06.2018, 00:28
boa, По сути да, на огурце, но я же не программист, а водила, просто необходимо было для упрощения некого учета что-то слепить в excel и слепил, конечно не фонтан, но все таки здорово помогает по отношению к куче бумажек и калькуляторов. А ныне пытаюсь просто дополнить, улучшить.
boa, По сути да, на огурце, но я же не программист, а водила, просто необходимо было для упрощения некого учета что-то слепить в excel и слепил, конечно не фонтан, но все таки здорово помогает по отношению к куче бумажек и калькуляторов. А ныне пытаюсь просто дополнить, улучшить.Сергей13
Сообщение отредактировал Сергей13 - Вторник, 12.06.2018, 01:08