حذف تمام متن های بدون لینک در اکسل

[voroojak]

سلام همانطور که در عکس میبینید من میخوام متن های که بدون لینک هستن یکجا پاک کنم
اگه کسی میتونه راهنمایی که ممنون میشم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[rasools13]

با سلام

با تعریف تابع ذیل میتوانید این کار را انجام دهید
.

Function HasLink(Target As Range) As Boolean
    If Target.Hyperlinks.Count > 0 Then
        HasLink = True
    Else
        HasLink = False
    End If
End Function 

.
در صورتی که سلول مورد نظر دارای لینک باشد مقدار True و نداشتن لینک مقدار False را نشان میدهد
.
برای کار شما میتوانید در ستون کنار داده ها تون این تابع را نوشته سپس ان را sort نمایید در این صورت تمامی سلول های دارای لینک و بدون لینک در کنار یکدیگر قرار گرفته و به راحتی میتوانیدآن ها را حدف کنید

[voroojak]

با سلام

با تعریف تابع ذیل میتوانید این کار را انجام دهید
.

Function HasLink(Target As Range) As Boolean
    If Target.Hyperlinks.Count > 0 Then
        HasLink = True
    Else
        HasLink = False
    End If
End Function 

.
در صورتی که سلول مورد نظر دارای لینک باشد مقدار True و نداشتن لینک مقدار False را نشان میدهد
.
برای کار شما میتوانید در ستون کنار داده ها تون این تابع را نوشته سپس ان را sort نمایید در این صورت تمامی سلول های دارای لینک و بدون لینک در کنار یکدیگر قرار گرفته و به راحتی میتوانیدآن ها را حدف کنید

سلام
ممنون از کمکتون میشه بگید چطوری این کدی که دادیدو وارد کنم؟

[rasools13]

سلام
ممنون از کمکتون میشه بگید چطوری این کدی که دادیدو وارد کنم؟

دکمه های alt+f11 رو بفشارید تا پنجره vba باز شود در کادر باز شده همانند تصویر روی نام فایل کلیک راست کرده و modelu ایجاد کنید
.

.
کد رودر این ناحیه کپی کنید
.
حال در اکسل همانند توابع دیگر میتوانید با واردکردن نام آن و انتخاب از لیست از آن استفاده کنید

[voroojak]

آقا دستت دردنکنه ایشالله خیرببینی