VBA Application.CutCopyMode = Nepareizs
Ja kopēšanas un ielīmēšanas laikā esat ierakstījis makro, iespējams, esat redzējis šādu koda rindiņu:
| 1 | Application.CutCopyMode = Nepareizs |
Šī koda rinda “notīra” starpliktuvi*. Ja esat nokopējis Excel šūnu, palaižot šo koda rindu, tiks noņemta animācija ap kopēto šūnu:
CutCopyMode ir lietojumprogrammas līmeņa rekvizīts, kas norāda, vai Microsoft Office programma (piemēram, Excel) ir izgriešanas vai kopēšanas režīmā. Kopēšanas (vai izgriešanas) režīmā Excel starpliktuvē ir kaut kas saglabāts, ko var ielīmēt.
Es nezinu laiku, kad jums kādreiz būtu jāiestata lietojumprogramma.CutCopyMode uz True.
Izvairīšanās no CutCopyMode = False
Parasti varat izvairīties no nepieciešamības iestatīt lietojumprogrammu CutCopyMode = False, izmantojot VBA kopēšanas un ielīmēšanas paraugpraksi. Piemēram, šī koda rinda kopē un ielīmē šūnu vienā rindā, tādējādi vairs nav nepieciešams iestatīt CutCopyMode uz False:
| 123 | Sub CopyPaste_OneLine ()Diapazons ("a1"). Kopēt diapazonu ("b1")Beigu apakš |
Iegūstiet Application.CutCopyMode statusu
Reizēm jūs varētu vēlēties iegūt Application.CutCopyMode statusu. Iespējams, lai novērstu kļūdas, mēģinot ielīmēt, ja starpliktuvē nekas nav. Lai iegūtu statusu, izmantojiet šādu kodu:
| 123456789101112 | Sub Get_Application_CutCopyMode_Status ()Atlasiet Case Application.CutCopyModeLieta ir = xlCopyMsgBox "Kopēšanas režīms"Lieta ir = xlCutMsgBox "Izgriešanas režīms"Lieta ir = nepatiesaMsgBox "Nav izgriešanas vai kopēšanas režīmā"Beigas AtlasītBeigu apakš |
*Application.CutCopyMode notīrīs tikai Microsoft Office lietotnes (piemēram, Excel) starpliktuvi. Tas netiks notīrīts Window starpliktuve. Noklikšķiniet uz saites, lai uzzinātu vairāk par to, kā notīrīt Windows starpliktuvi, izmantojot VBA.
