ВБА Апплицатион.ЦутЦопиМоде = Нетачно
Ако сте снимили макрое током копирања и лепљења, вероватно сте видели следећу линију кода:
1 | Апплицатион.ЦутЦопиМоде = Нетачно |
Ова линија кода „брише“ међуспремник*. Ако сте копирали Екцел ћелију, покретањем ове линије кода уклонит ћете анимацију око копиране ћелије:
ЦутЦопиМоде је својство на нивоу апликације које показује да ли је програм Мицрософт Оффице (нпр. Екцел) у режиму исецања или копирања. Док је у режиму копирања (или сечења), Екцел има нешто ускладиштено у међуспремнику што се може залепити.
Нисам свестан времена када бисте икада морали да поставите Апплицатион.ЦутЦопиМоде на Труе.
Избегавање ЦутЦопиМоде = Нетачно
Обично можете избећи потребу за постављањем Апплицатион ЦутЦопиМоде = Фалсе коришћењем најбољих пракси ВБА Цопи+Пасте. На пример, следећи ред кода копира и залепи ћелију у један ред, уклањајући потребу да ЦутЦопиМоде поставите на Фалсе:
123 | Суб ЦопиПасте_ОнеЛине ()Опсег ("а1"). Копирај опсег ("б1")Енд Суб |
Набавите Статус Апплицатион.ЦутЦопиМоде
Повремено ћете можда желети да добијете статус Апплицатион.ЦутЦопиМоде. Потенцијално за спречавање грешака при покушају лепљења када у међуспремнику нема ничега. Да бисте добили статус, користите следећи код:
123456789101112 | Суб Гет_Апплицатион_ЦутЦопиМоде_Статус ()Изаберите Цасе Апплицатион.ЦутЦопиМодеЦасе Ис = клЦопиМсгБок "Режим копирања"Цасе Ис = клЦутМсгБок "Режим сечења"Случај је = НетачноМсгБок "Није у режиму исецања или копирања"Крај ИзаберитеЕнд Суб |
*Апплицатион.ЦутЦопиМоде ће обрисати само међуспремник апликације Мицрософт Оффице (нпр. Екцел). Неће обрисати међуспремник Виндов. Кликните на везу да бисте сазнали више о томе како очистити међуспремник Виндов помоћу ВБА.