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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • sunstar

    • 2013/12/29
    • 132

    [حل شده] جلوگیری از درج اطلاعات تکراری

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

    • 2013/09/20
    • 4598
    • 100.00

    #2
    نوشته اصلی توسط 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
    Last edited by Amir Ghasemiyan; 2018/01/21, 16:35. دلیل: اصلاح كدها

    کامنت

    • sunstar

      • 2013/12/29
      • 132

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

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4598
        • 100.00

        #4
        خدمت شما
        فایل های پیوست شده

        کامنت

        چند لحظه..