جا به جا شدن Data validation ها

[neda-a]

سلام
مشکلی که دارم اینه در یک فایل اکسل یک table دارم که برخی از ستون های آن را از طریق Data validation قانونی گذاشتم که در محدوده خاصی فقط بتوان عدد وارد کرد (min , max دارد)
اشکال اینه وقتی سطری به جدول اضافه یا یک سطر حذف کنم ستون هایی که data validation دارند قانونشون به یه ستون قبل شیفت پیدا میکنه مثلا اگر ستونB بدون محدودیت و ستون c دارای محدودیت بین 0تا20 و ستون D محدودیت 0تا40 باشد با حذف یا اضافه شدن یک سطر قانون ستون C به ستون B و قانون ستون D به B شیفت پیدا می کند!!!!
شما تا به حال این مشکل را داشتید؟

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

[generalsamad]

با سلام
دلیلش اینه که وقتی شما سطری رو حذف میکنید به تعداد سطری که حذف میکنید از محدوده datavalidation تون کم میشه
فکر کنم با استفاده از کدنویسی این مشکل برطرف میشه

[neda-a]

آهان چه جالب! به نظرتون این یه باگ برای اکسل نیست؟
کدش را می تونید بهم بگین؟

با سلام
دلیلش اینه که وقتی شما سطری رو حذف میکنید به تعداد سطری که حذف میکنید از محدوده datavalidation تون کم میشه
فکر کنم با استفاده از کدنویسی این مشکل برطرف میشه

[امين اسماعيلي]

ye nemone file mizarin baresish konim

[generalsamad]

این کد را ملاحظه بفرمائید
کد زیر دیتاولیدیشنی ایجاد میکنه که در محدوده مورد نظر فقط مقادیر بین 10 تا 20 را قبول میکند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Range("A1:A10").Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="10", Formula2:="20"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "خطا"
        .InputMessage = ""
        .ErrorMessage = "شما مجاز به وارد کردن اين مقدار نميباشيد."
        .ShowInput = True
        .ShowError = True
    End With
End Sub 

با استفاده از ضبط ماکرو میتونید مجوزهای دیگه رو نیز بدست بیاورید
سوالی داشتید بفرمائید راهنمائی خواهیم کرد.