Ինչպե՞ս հեռացնել հիպերհղումները ՝ առանց ֆորմատավորումը հանելու:
Excel- ում, երբ մենք ջնջում ենք այն հիպերհղումները, որոնք ունեն որոշակի ձևաչափում, ինչպիսիք են ֆոնի գույնը, տառատեսակը, չափը և այլն, ձևաչափումը կհեռացվի, ինչպես նաև ցուցադրված հետևյալ նկարը. Հիպերհղումները հեռացնելիս երբեմն հարկավոր է պահպանել բջջի ձևաչափումը: Կա՞ն որևէ եղանակներ, որոնք կօգնեն մեզ լուծել այս նյարդայնացած խնդիրը:
Հեռացրեք հիպերհղումները ՝ առանց VBA կոդով ձևաչափումը հանելու
Հեռացրեք հիպերհղումները ՝ առանց VBA կոդով ձևաչափումը հանելու
Excel- ում այս առաջադրանքը լուծելու ուղղակի միջոց չկա, բայց հիպերհղումները հեռացնելիս կարող եք կիրառել հետևյալ VBA կոդը ՝ բջջի ձևաչափումը պահպանելու համար:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Հեռացրեք հիպերհղումները `առանց ձևաչափումը հանելու
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Այնուհետեւ սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ հիպերհղումները պարունակող բջիջները ընտրելիս, տես նկարի նկարը.
4. Եվ այնուհետեւ կտտացրեք OK երկխոսությունը փակելու համար հիպերհղումները հանվում են, բայց հիպերհղումների ձևաչափումը մնում է:
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս փոխել մի քանի հիպերհղման ուղիներ միանգամից Excel- ում:
Ինչպե՞ս Excel- ում հիպերհղումներից հանել իրական հասցեները:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: