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

موضوع: جلوگیری از درج اطلاعات تکراری

  1. #1


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    Cap جلوگیری از درج اطلاعات تکراری

    سلام براساتید گرامی
    اگر یک فایل اکسل با چهارشیت داشته باشیم و در ستون a همه شیت ها تعدادی کد ملی متغیر درج شده باشد و بخواهیم در ادامه همان ستون یکی از شیت ها کد ملی جدید وارد کنیم آیا کدی هست که اگر کد ملی جدید دریک از شیت ها موجود باشد پیغامی مبنی بر تکراری بودن کد ملی جدید صادر و نام شیتی که کد ملی قبلاً در ان ثبت شده است اعلام گردد وهمچنین اجازه ثبت کد ملی جدید تکراری داده نشود.
    هزاران سپاس
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


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

    نقل قول نوشته اصلی توسط sunstar نمایش پست ها
    سلام براساتید گرامی
    اگر یک فایل اکسل با چهارشیت داشته باشیم و در ستون a همه شیت ها تعدادی کد ملی متغیر درج شده باشد و بخواهیم در ادامه همان ستون یکی از شیت ها کد ملی جدید وارد کنیم آیا کدی هست که اگر کد ملی جدید دریک از شیت ها موجود باشد پیغامی مبنی بر تکراری بودن کد ملی جدید صادر و نام شیتی که کد ملی قبلاً در ان ثبت شده است اعلام گردد وهمچنین اجازه ثبت کد ملی جدید تکراری داده نشود.
    هزاران سپاس

    سلام دوست عزيز
    لطفا اين كد رو ملاحظه بفرماييد. اميدوارم جواب همه سوالاتتون داخلش باشه

    دقت بفرماييد كه اين كدها بايد در ThisWorkbook قرار بگيرند

    کد:
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet
    cm = Target.Text
    For i = 1 To 4
        Set ws = Sheets( i)
        For Each cel In ws.Range("A1").CurrentRegion
            If cel.Text = cm And cel.Address <> Target.Address Then flag = 1: Exit For
        Next cel
        If flag = 1 Then Exit For
    Next i
    
    
    If flag = 1 Then
        MsgBox "You Melli code is repeated." & vbCrLf & "Other Code is located in : " & ws.Name
        Target.Value = ""
    End If
    End Sub
    ویرایش توسط Amir Ghasemiyan : 2018/01/21 در ساعت 16:35 دلیل:اصلاح كدها

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    سلام براستاد گرامی
    میشه یه فایل نمونه بذارید چون کد اعلامی شما تو فایل من جواب نمیده ، از زحمات جنابعالی خیلی ممنونم

  6. #4


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

    خدمت شما
    فايل هاي پيوست شده فايل هاي پيوست شده

  7. سپاس ها (2)



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

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

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

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

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

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

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

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