Hur kontrollerar jag om en form eller bild finns i det aktiva arket?
Till exempel har det redan lagts till dussintals former eller bilder i det aktiva kalkylbladet, och nu vill du kontrollera om en viss form eller bild finns i det aktiva arket eller inte, hur kan du snabbt hantera det här jobbet utan att kontrollera formerna eller bilder en efter en? I Excel kan ingen inbyggd funktion hjälpa dig, men i den här artikeln introducerar jag en VBA-kod för att snabbt hitta om en form eller bild finns i det aktiva arket.
Kontrollera om det finns en form eller bild i det aktiva arket
Kontrollera om det finns en form eller bild i det aktiva arket
Använd nedan makrokoden för att kontrollera om en viss bild finns i det aktiva arket.
1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulerna och klistra in under koden i skriptet.
VBA: Kontrollera om det finns en form eller bild
Sub CheckImage () 'UppdateraExtendoffice20170927 Dim xChar som bild Dim xFlag som Boolean Dim xCharName Som sträng vid fel Återuppta nästa applikation.ScreenUpdating = False xCharName = "cat" xFlag = False för varje xChar i ActiveSheet.Pictures Debug.Print xChar.Name Om xChar.Name = xCharName MsgBox "Bilden är på det aktiva arket", vbInformation, "KuTools för Excel" xFlag = True Exit For End If Next if Not xFlag Then MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel" End Om Application.ScreenUpdating = True End Sub
3. Tryck F5 för att köra koden dyker en dialog upp för att påminna dig om bilden finns i det aktiva arket.
 |
 |
Tips: I makrokoden kan du ändra bildnamnet i xCharName = "katt" för att möta ditt behov.
Relativa artiklar:
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
