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

موضوع: sort کردن اطلاعات با ورود اطلاعات جدید

  1. #1


    آخرین بازدید
    2021/05/08
    تاریخ عضویت
    August 2014
    محل سکونت
    اردبیل
    نوشته ها
    10
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    سطح اکسل
    49.00 %

    sort کردن اطلاعات با ورود اطلاعات جدید

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

  2.  

  3. #2


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    از این کد در شیت مربوطه استفاده کنید.
    کد:
    Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A:D") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar sort.rar اطلاعات (15.2 کیلو بایت, 21 نمایش)
    ویرایش توسط amir_ts : 2016/08/02 در ساعت 00:10
    ای برادر تو همه اندیشه ای


  4. #3


    آخرین بازدید
    2021/05/08
    تاریخ عضویت
    August 2014
    محل سکونت
    اردبیل
    نوشته ها
    10
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    سطح اکسل
    49.00 %

    نقل قول نوشته اصلی توسط amir_ts نمایش پست ها
    با سلام
    از این کد در شیت مربوطه استفاده کنید.
    کد:
    private sub worksheet_change(byval target as range) if target.column = 1 then activeworkbook.worksheets("sheet1").sort.sortfields.clear activeworkbook.worksheets("sheet1").sort.sortfields.add key:=range("a1"), _ sorton:=xlsortonvalues, order:=xlascending, dataoption:=xlsortnormal with activeworkbook.worksheets("sheet1").sort .setrange range("a:d") .header = xlno .matchcase = false .orientation = xltoptobottom .sortmethod = xlpinyin .apply end with end if end sub
    ممنون.
    ولی این کد یه مشکلی داره اونم اینکه فقط ستون a رو سورت می کنه ولی مقادیر متناظرش در ستونهای دیگه تغییر نمی کنن

  5. #4
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط lalsevda_62 نمایش پست ها
    ممنون.
    ولی این کد یه مشکلی داره اونم اینکه فقط ستون a رو سورت می کنه ولی مقادیر متناظرش در ستونهای دیگه تغییر نمی کنن
    یه راه ساده تر :
    یه ماکرو ضبط کن و خودت دستی کارت سورت را انجام بده ( یعنی فیلتر کن و بعد سورت ) بعد این را تو ایونت مربوطه ( هر جا که تشخیص میدی قرار بده ) فقط حواست به رنج کدماکرو باشه


  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط lalsevda_62 نمایش پست ها
    سلام.
    من می خوام داخل یک شیت اطلاعات افراد رو وارد کنم و کد ملی رو در ستون a قرار بدم.
    می خوام با وارد کردن اطلاعات یک شخص اون سطر براساس کد ملی (اطلاعات ستون a) اتوماتیک سورت بشه و نیازی نباشه که هر وقت اطلاعات جدیدی رو وارد می کنم بخوام دوباره سورت کنم.

    سلام
    این کد رو بر اساس محدوده رنج فایل کدنظرتون تغییر بدین
    کد:
    .SetRange Range("A:D")


  8. سپاس ها (1)



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

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

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

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

  1. نحوۀ sort کردن سلولهای مرج شده
    توسط na3er در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2015/11/15, 16:51
  2. مشكل در sort
    توسط rosesefid در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2015/08/31, 10:53
  3. مشکل در sort کردن
    توسط homlet در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2015/08/15, 18:56
  4. sort در اکسل
    توسط رضا حدیدی در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/05/14, 20:52
  5. تابع sort
    توسط himanhch در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2010/08/07, 13:43

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

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

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

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

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