VBA Application.CutCopyMode = Netačno
Ako ste snimili makronaredbe tijekom kopiranja i lijepljenja, vjerojatno ste vidjeli sljedeći redak koda:
1 | Application.CutCopyMode = Netačno |
Ova linija koda "briše" međuspremnik*. Ako ste kopirali Excel ćeliju, pokretanjem ovog retka koda uklonit ćete animaciju oko kopirane ćelije:
CutCopyMode je svojstvo na razini aplikacije koje pokazuje je li program Microsoft Office (npr. Excel) u načinu izrezivanja ili kopiranja. Dok je u načinu kopiranja (ili izrezivanja), Excel ima nešto spremljeno u međuspremnik što se može zalijepiti.
Nisam svjestan vremena kada biste morali postaviti Application.CutCopyMode na True.
Izbjegavanje CutCopyMode = Netačno
Obično možete izbjeći potrebu postavljanja Application CutCopyMode = False korištenjem VBA Copy+Paste najboljih praksi. Kao primjer, sljedeći redak koda kopira i lijepi ćeliju u jedan redak, uklanjajući potrebu postavljanja CutCopyMode na False:
123 | Sub CopyPaste_OneLine ()Raspon ("a1"). Kopiraj raspon ("b1")Kraj podm |
Nabavite Status Application.CutCopyMode
Povremeno ćete možda htjeti dobiti status Application.CutCopyMode. Potencijalno za sprječavanje pogrešaka prilikom pokušaja lijepljenja kada u međuspremniku nema ništa. Da biste dobili status, upotrijebite sljedeći kôd:
123456789101112 | Sub Get_Application_CutCopyMode_Status ()Odaberite Case Application.CutCopyModeSlučaj je = xlCopyMsgBox "Način kopiranja"Slučaj je = xlCutMsgBox "Način rezanja"Slučaj je = NetačnoMsgBox "Nije u načinu izrezivanja ili kopiranja"Kraj OdaberiteKraj podm |
*Application.CutCopyMode izbrisat će samo međuspremnik aplikacije Microsoft Office (npr. Excel). Neće izbrisati međuspremnik Windowsa. Kliknite vezu da biste saznali više o tome kako očistiti međuspremnik Window pomoću VBA.