نمایش نتایج: از شماره 1 تا 1 , از مجموع 1

موضوع: نمایش تمامی سلول های مرج شده در یک شیت

  1. #1


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    Lightbulb نمایش تمامی سلول های مرج شده در یک شیت

    سلام دوستان

    با این کد که خدمتتون تقدیم میکنم میتونین لیستی از همه سلول های مرج شده داخل شیتتون رو داشته باشید.
    گاهی وقت ها مثلا وقتی میخواهید محدوده خاصی رو تبدیل به table کنید ممکنه با خطای سلول مرج شده مواجه بشید. برای اینکه بتونین اون سلول ها رو پیدا کنید میتونین از این کد کمک بگیرید


    کد:
    Sub FindAllMerged()
    Dim c As Range
    Dim sMsg As String
    sMsg = ""
    For Each c In ActiveSheet.UsedRange
        If c.MergeCells Then
            If sMsg = "" Then sMsg = "Merged worksheet cells:" & vbCr
            sMsg = sMsg & Replace(c.Address, "$", "") & vbCr
        End If
    Next
    If sMsg = "" Then sMsg = "No Merged Cells Found."
    MsgBox sMsg
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است