پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: در خواست کمک از مدیران،

  1. #1

    آخرین بازدید
    2014/03/28
    تاریخ عضویت
    December 2013
    نوشته ها
    4
    امتیاز
    10
    سپاس
    3
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    confused در خواست کمک از مدیران،

    سلام به همه مدیران عزیز،

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

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    دوست من نمیدونم کارت رو تا اینجا داری درست انجام داددی یا نه. اما کار دومت با ستور if قابل انجام هست فرضا
    کد:
    if sheet1.range("A1").value=sheet1.range("b1").value then
    دستورات سورت که که میخواین
    else
    سورت اولی 
    end if
    ویرایش توسط امين اسماعيلي : 2013/12/20 در ساعت 22:07
    در پناه خداوندگار ایران زمین باشید و پیروز


  4. #3

    آخرین بازدید
    2014/03/28
    تاریخ عضویت
    December 2013
    نوشته ها
    4
    امتیاز
    10
    سپاس
    3
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام دوست عزیز
    1- این دستورات به درستی دارن کار میکنن
    2- جدول به صورت ستونی هست و سورت به اون صورتـه که کلا در یک شیت قرار دارن
    3- میخوام سورت ستونها بهم نخوره (تعداد ردیفها زیاده) وقتی مساوی بودن فقط کمی تغییر کنه
    متشکرم
    ویرایش توسط ali_121 : 2013/12/23 در ساعت 11:38

  5. #4


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام دوست عزیز.
    ببینید برداشت بنده از سوال شما درسته؟
    مثلا دو ستون دارید.ستون اول نام بانک (که هرکدوم مثلا 10-12 بار تکرار شدن و پراکنده. ستون دوم مبلغ وام)
    حالا می خواید اول نام بانک ها رو مرتب کنید.تا اینجا که اوکی.همون دستور اولیه سورت هست.
    حالا م یخواید بین بانک های مشابه مبلغ وام رو بصورت نزولی مرتب کنید.
    خب اینجا هم خیلی ساده هست.شما باید ابزار سورت رو باز کنید.add ;evel رو بزنید و در اون level سرستون مربوط به قیمت رو انتخاب کنید و گزینه نزولی رو بزنید.
    حالا باز اگر قیمت های مساوی داشتید می تونید یک سطح دیگه اضافه کنید و قیمت های مشابه رو مثلا بر اساس زمان مرتب کنید (با فرض اینکه ستون زمان داشته باشید)
    در واقع ماهیت وجود چندین سطح در سورت همین هست و فقط در این خصوص استفاده میشه.ویژه داده های تکراری هست

    امیدوارم مفید باشه


  6. #5

    آخرین بازدید
    2014/03/28
    تاریخ عضویت
    December 2013
    نوشته ها
    4
    امتیاز
    10
    سپاس
    3
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام دوست جون
    این جدول تقریبا شبه جدول مسابقات هست و میخوام به صورت اتوماتیک هر بار که داده ای عوض شد خودش سورت کنه

  7. #6


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    این ماکرو رو ضبط کردم کدها رو بببینید:
    کد:
     ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A34") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B34") _
            , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1:C34") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
            .SetRange Range("A1:C34")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    اگر دقت کنید می بینید قبل از WITH شروط رو آورده.اول ستون a بعد b و بعد و مشخصاتی که برای هر شرط مطرحه (صعودی، نزولی و . . .)مشخصات یکی از شرط ها رو قرمز کردم راحت تر ببینید.
    از with هم که مشخصات کلی سورت رو می بینید .اینکه دیتا header داره یا نه و . . . .
    حالا شما با توجه به داده های خودتون، نام شیت، محدودهف شروط و . . . رو تغییر بدید و ماکرو خودتون رو ران کنید.
    سوالی بود در خدمتم
    موفق باشید
    ویرایش توسط khakzad : 2013/12/23 در ساعت 13:18


  8. #7

    آخرین بازدید
    2014/03/28
    تاریخ عضویت
    December 2013
    نوشته ها
    4
    امتیاز
    10
    سپاس
    3
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط khakzad نمایش پست ها
    این ماکرو رو ضبط کردم کدها رو بببینید:
    کد:
     ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A34") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B34") _
            , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1:C34") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
            .SetRange Range("A1:C34")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    اگر دقت کنید می بینید قبل از WITH شروط رو آورده.اول ستون a بعد b و بعد و مشخصاتی که برای هر شرط مطرحه (صعودی، نزولی و . . .)مشخصات یکی از شرط ها رو قرمز کردم راحت تر ببینید.
    از with هم که مشخصات کلی سورت رو می بینید .اینکه دیتا header داره یا نه و . . . .
    حالا شما با توجه به داده های خودتون، نام شیت، محدودهف شروط و . . . رو تغییر بدید و ماکرو خودتون رو ران کنید.
    سوالی بود در خدمتم
    موفق باشید
    دکمه سپاس کم بود خواستم از دوست عزیز خاکزاد تشکر ویژه کرده باشم
    مشکلم به کلی حل شد با راهنمایی که دوست عزیز کردند
    متشکرم

  9. سپاس ها (1)


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


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

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,812
    امتیاز
    6436
    سپاس
    8,164
    سپاس شده
    5,190 در 1,505 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    ببخشید که اینجا مطرح کردم نمیدونم چرا نمیتونم پست جدید بدم
    به هرحال موضوع سوالم مشترک با این پست هستش:
    تو فایل پیوست میخوام اگه هر عددی را تو باکس تکرار وارد کردم به همون تعداد اطلاعات را زیر هم تو شیت یک ثبت کنه به عبارت ساده تر: من اطلاعات را تو تکست باکسها وارد میکنم بعد تو خونه تکرار به طور مثال عدد 3 را وارد میکنم بعد دکمه ثبت را که میزنم اطلاعات سه بار تو شیت یک زیر هم نوشته بشه
    ممنون
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls tekrar.xls اطلاعات (39.0 کیلو بایت, 14 نمایش)


  11. سپاس ها (1)


  12. #9


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط barrai نمایش پست ها
    ببخشید که اینجا مطرح کردم نمیدونم چرا نمیتونم پست جدید بدم
    به هرحال موضوع سوالم مشترک با این پست هستش:
    تو فایل پیوست میخوام اگه هر عددی را تو باکس تکرار وارد کردم به همون تعداد اطلاعات را زیر هم تو شیت یک ثبت کنه به عبارت ساده تر: من اطلاعات را تو تکست باکسها وارد میکنم بعد تو خونه تکرار به طور مثال عدد 3 را وارد میکنم بعد دکمه ثبت را که میزنم اطلاعات سه بار تو شیت یک زیر هم نوشته بشه
    ممنون

    میتونید از کد زیربرای دکمه ثبت استفاده کنید:

    کد:
    Private Sub CommandButton1_Click()
    Dim X As Integer
    Dim nextrow As Range
    Dim cNum As Integer
    
    
    Set nextrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    
    
    cNum = 4
    For i = 1 To TextBox5.Value
        For X = 1 To cNum
            nextrow = Me.Controls("TextBox" & X).Value
            Set nextrow = nextrow.Offset(0, 1)
    
    
            If X = cNum Then
                Set nextrow = nextrow.Offset(1, -4)
            End If
        Next
    Next i
    End Sub
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



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


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

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,812
    امتیاز
    6436
    سپاس
    8,164
    سپاس شده
    5,190 در 1,505 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    آقا نیما ارور میده به خط چهار اونجایی که با set شروع میشه

  14. سپاس ها (1)



صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

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

کلمات کلیدی این موضوع

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

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

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