Ինչպե՞ս ստուգել, արդյոք բջիջը պարունակում է նկար Excel- ում:
Excel- ում շատ հեշտ է գտնել և ընտրել բոլոր նկարները ակտիվ աշխատանքային թերթում: Բայց գիտե՞ք ինչպես ստուգել, արդյոք բջիջը պարունակում է նկար Excel- ում: Այս հոդվածի մի մեթոդ կարող է օգնել ձեզ:
Ստուգեք, արդյոք բջիջը պարունակում է նկար VBA կոդով
Ստուգեք, արդյոք բջիջը պարունակում է նկար VBA կոդով
Ստորև ներկայացված VBA կոդը կարող է օգնել ստուգել, թե արդյոք բջիջը նկար է պարունակում: Խնդրում եմ, արեք հետևյալ կերպ.
1. Բացեք աշխատաթերթը, որը դուք պետք է ստուգեք, թե արդյոք նկարը գոյություն ունի նշված խցում, ապա սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք VBA կոդը օրենսգրքի պատուհանում:
VBA կոդ. Ստուգեք, արդյոք բջիջը պարունակում է նկար Excel- ում
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ Երկխոսության վանդակում, խնդրում ենք մուտքագրել այն բջիջը, որը ցանկանում եք ստուգել, թե արդյոք այն պարունակում է նկար, ապա սեղմեք կոճակը OK կոճակ Տեսեք,
4. Այնուհետև կհայտնվի երկխոսության տուփ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, եթե նկար կա կամ չկա նշված բջիջում:
Related Articles:
- Ինչպե՞ս ավտոմատ կերպով փոխել բոլոր նկարները Excel- ում բջիջներով տեղափոխելու և չափսերի համար:
- Ինչպե՞ս կենտրոնացնել նկարը Excel խցում:
- Ինչպե՞ս Excel- ում բջիջի մեջ դինամիկ կերպով տեղադրել նկարը կամ նկարը:
- Ինչպե՞ս մեծացնել պատկերը Excel- ում կտտացնելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
