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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • voroojak
    • 2017/02/28
    • 3

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

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

    فایل های پیوست شده
  • rasools13

    • 2017/01/20
    • 360
    • 80.00

    #2
    با سلام

    با تعریف تابع ذیل میتوانید این کار را انجام دهید
    .
    کد PHP:
    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 نمایید در این صورت تمامی سلول های دارای لینک و بدون لینک در کنار یکدیگر قرار گرفته و به راحتی میتوانیدآن ها را حدف کنید
    [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
    [/CENTER]

    کامنت

    • voroojak
      • 2017/02/28
      • 3

      #3
      نوشته اصلی توسط rasools13
      با سلام

      با تعریف تابع ذیل میتوانید این کار را انجام دهید
      .
      کد PHP:
      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

        • 2017/01/20
        • 360
        • 80.00

        #4
        نوشته اصلی توسط voroojak
        سلام
        ممنون از کمکتون میشه بگید چطوری این کدی که دادیدو وارد کنم؟
        دکمه های alt+f11 رو بفشارید تا پنجره vba باز شود در کادر باز شده همانند تصویر روی نام فایل کلیک راست کرده و modelu ایجاد کنید
        .
        Click image for larger version

Name:	S5png.png
Views:	5
Size:	42.1 کیلو بایت
ID:	131858
        .
        کد رودر این ناحیه کپی کنید
        .
        حال در اکسل همانند توابع دیگر میتوانید با واردکردن نام آن و انتخاب از لیست از آن استفاده کنید
        [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
        [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
        [/CENTER]

        کامنت

        • voroojak
          • 2017/02/28
          • 3

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

          کامنت

          چند لحظه..