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

موضوع: جلو گيري از ورود داده هاي تكراري با كپي

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2018/11/30
    تاریخ عضویت
    April 2013
    نوشته ها
    15
    امتیاز
    3
    سپاس
    0
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    جلو گيري از ورود داده هاي تكراري با كپي

    با عرض سلام خدمت دوستان گرامي
    براي جلو گيري از ورود داده هاي تكراري در data validation از فرمول زير COUNTIF(A:A;A3)=1استفاده نمودم ولي اگه داده تكراري رو كپي كنم انو قبول ميكنه اگه ممكنه منو راهنمايي كنيد تا كپي رو قبول نكنه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2016/08/18
    تاریخ عضویت
    December 2010
    نوشته ها
    398
    امتیاز
    253
    سپاس
    750
    سپاس شده
    383 در 159 پست
    تعیین سطح نشده است

    RE: جلو گيري از ورود داده هاي تكراري با كپي

    سلام
    این فرمول رو بایستی به صورت COUNTIF(A:A;A1)=1= در قسمت Validation Data___Custom بزاری
    توی خود همین تالارهای گفتگو قسمت توابع هم راجع به همین موضوع بحث شده است

  3. #3


    آخرین بازدید
    2018/11/30
    تاریخ عضویت
    April 2013
    نوشته ها
    15
    امتیاز
    3
    سپاس
    0
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    RE: جلو گيري از ورود داده هاي تكراري با كپي

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

  4. #4


    آخرین بازدید
    2014/08/24
    تاریخ عضویت
    June 2011
    نوشته ها
    277
    امتیاز
    87
    سپاس
    37
    سپاس شده
    92 در 36 پست
    تعیین سطح نشده است

    RE: جلو گيري از ورود داده هاي تكراري با كپي

    نقل قول نوشته اصلی توسط ahadbares
    با عرض سلام خدمت دوستان گرامي
    براي جلو گيري از ورود داده هاي تكراري در data validation از فرمول زير COUNTIF(A:A;A3)=1استفاده نمودم ولي اگه داده تكراري رو كپي كنم انو قبول ميكنه اگه ممكنه منو راهنمايي كنيد تا كپي رو قبول نكنه
    به جای علامت مساوی از کوچکتر مساوی استفاده کنید.

    =COUNTIF(A:A;A1)<=1

  5. #5


    آخرین بازدید
    2018/11/30
    تاریخ عضویت
    April 2013
    نوشته ها
    15
    امتیاز
    3
    سپاس
    0
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    RE: جلو گيري از ورود داده هاي تكراري با كپي

    سلام
    من هرچه كردم نشد فايل رو واستون ميزارم توي ورك بوك مشاركت بخش ورود اطلاعات موقع زدن انتقال وام گيرند موقع زدن كليد اگه داده تكراري باشه بازم تو ورك بوك ديتا انو رو قبول ميكنه در حالي كه نبايد قبول كنه بخش هاي زياد فايل رو حذف كردم تا حجمش كم بشه در ضمن موقع كه جستجوي اطاعات كليد كنسل رو ميزنم برنامه هنگ ميكنه ماكروشو هم ميزارم اگه ممكنه راهنماييم كنيد قبلا از لطف جناب عالي متشكرم

  6. #6


    آخرین بازدید
    2018/11/30
    تاریخ عضویت
    April 2013
    نوشته ها
    15
    امتیاز
    3
    سپاس
    0
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    RE: جلو گيري از ورود داده هاي تكراري با كپي

    سلام
    من هرچه كردم نشد فايل رو واستون ميزارم توي ورك بوك مشاركت بخش ورود اطلاعات موقع زدن انتقال وام گيرند موقع زدن كليد اگه كد ملي تكراري باشه بازم تو ورك بوك ديتا انو رو قبول ميكنه در حالي كه نبايد قبول كنه بخش هاي زياد فايل رو حذف كردم تا حجمش كم بشه در ضمن موقع كه جستجوي اطاعات كليد كنسل رو ميزنم برنامه هنگ ميكنه ماكروشو هم ميزارم اگه ممكنه راهنماييم كنيد قبلا از لطفتون متشكرم

    Sub Button8_Click()
    'Standard Sheet Module code, like: Sheet1.
    Dim iFound
    Dim Message$, Title$, Default$, myCode$

    Message = "Enter data to search for:" ' Set prompt.
    Title = "Get Data!" ' Set title.
    Default = "" ' Set default.
    ' Display message, title, and default value.
    myCode = InputBox(Message, Title, Default)

    iFound = False
    Application.ScreenUpdating = False

    'Check data sheet for data wanted!
    Workbooks("data.XLS").Activate
    Workbooks("data.xls").Worksheets("Sheet1").Select

    For Each r In Workbooks("data.xls").Worksheets("Sheet1").UsedRan ge.Rows
    x = r.Row
    N = r.Column
    If Worksheets("Sheet1").Cells(x, N) = myCode Then
    iFound = True
    'Copy the found data from the starting row = myStart to
    'the ending row = myFinish for the Found Date [myDate]
    'to Sheet2 in column "C" change as needed!
    'Start data import just below any entery in this column!
    Workbooks("data.xls").Worksheets("Sheet1").Range(C ells(x, N), Cells(x, 12)).Copy _
    Destination:=Workbooks("mosharekat.xls").Worksheet s("Sheet1").Range("z1")
    Else

    End If
    Next r

    If iFound = False Then MsgBox "Date not Found!"
    Workbooks("mosharekat.xls").Activate
    Workbooks("mosharekat.xls").Worksheets("Sheet1").S elect
    Application.CutCopyMode = True
    Application.ScreenUpdating = True
    End Sub

    Sub GreyCalc()
    Sheets("Sheet1").Range("e2:e13").Copy
    Workbooks("data.xls").Worksheets("Sheet1").Range(" a1" & Columns.Count).End(xlUp) _
    .Offset(1).PasteSpecial xlPasteValues, Transpose:=True
    Range("a1").Select
    Application.CutCopyMode = False
    End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده


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

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

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

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

  1. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  2. سوال در مورد كپي يه تيكه از متن
    توسط rosesefid در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 11
    آخرين نوشته: 2012/10/22, 21:00
  3. كپي از word به اكسل
    توسط rosesefid در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/10/10, 13:38
  4. كپي تاريخ
    توسط rosesefid در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 8
    آخرين نوشته: 2012/09/26, 16:57
  5. كپي كردن نمودارها ؟
    توسط farzin24622 در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 0
    آخرين نوشته: 2011/01/26, 23:18

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

حذف فايل تكراري exceliran.com

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

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

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