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

موضوع: یه مشکل بزرگ (حرفه ای ها کمک کنند)

  1. #1


    آخرین بازدید
    2017/07/20
    تاریخ عضویت
    November 2016
    نوشته ها
    6
    امتیاز
    10
    سپاس
    3
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    یه مشکل بزرگ (حرفه ای ها کمک کنند)

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

نام:  e1.png
مشاهده: 13
حجم:  63.1 کیلو بایت

    دوم اینکه ما می خوایم بعضی از زیر مجموعه ها رو در همون سطر خودش بیاریم ( اونایی که با قرمز مشخص کردم) یعنی احتیاج به موارد دیگه نداریم (میخوایم پرینت کنیم بدون زیر مجموعه)
    حالا مشکل اینه که این زیر مجموعه ها یک دست نیستند یعنی سطرها با هم فرق می کنند یکی 6 سطر داره یکی 13 تا و ... به نظر شما راه حلی وجود داره ما بتونیم این مشکل رو حل کنیم؟

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  e2.png
مشاهده: 11
حجم:  87.1 کیلو بایت

    ممنون

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

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط yasemi نمایش پست ها
    سلام دوستان ما یک فایل اکسل از بدهکارانمون داریم که از سیستم می گیریم اما یه مشکلی با اون داریم مشکل اینه که اول اینکه این چه نوع اکسلی هست و به این نوع فایل های که زیر مجموعه دارند چی میگن و چطور ساخته میشه؟
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  e1.png
مشاهده: 13
حجم:  63.1 کیلو بایت

    دوم اینکه ما می خوایم بعضی از زیر مجموعه ها رو در همون سطر خودش بیاریم ( اونایی که با قرمز مشخص کردم) یعنی احتیاج به موارد دیگه نداریم (میخوایم پرینت کنیم بدون زیر مجموعه)
    حالا مشکل اینه که این زیر مجموعه ها یک دست نیستند یعنی سطرها با هم فرق می کنند یکی 6 سطر داره یکی 13 تا و ... به نظر شما راه حلی وجود داره ما بتونیم این مشکل رو حل کنیم؟

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  e2.png
مشاهده: 11
حجم:  87.1 کیلو بایت

    ممنون

    فایل رو پیوست کردم
    با سلام...

    داداش شرمنده،حرفه ای نیستم ولی جسارتا جواب دادم

    این خاصیت گروه بندی اکسل هستش...

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

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Capture.PNG
مشاهده: 9
حجم:  120.3 کیلو بایت
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  4. #3


    آخرین بازدید
    2017/07/20
    تاریخ عضویت
    November 2016
    نوشته ها
    6
    امتیاز
    10
    سپاس
    3
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ممنون از جواب شما اما مشکل من اینه کل میخوام او چندتا خونه ای که با قرمز رنگ مشخص کنم رو بیارم بیرون و در سطر خودش قرار بدم که با توجه به متغیر بودن گروه ها نمیدونم چطور میشه این کار رو انجام داد

  5. #4


    آخرین بازدید
    2017/07/20
    تاریخ عضویت
    November 2016
    نوشته ها
    6
    امتیاز
    10
    سپاس
    3
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    خودم حلش کردم ممنون از همه
    کد:
    Sub ReportStaf()
    Dim lr, lr1, i As Integer
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        
              lr1 = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
                 lr = 1
                      For i = 4 To 305
      
                          If Val(ws.Range("AB" & i)) = lr Then
                          Sheets("TopNMoshtari").Range("AH" & i) = Str(lr)
                          lr = lr + 1
                          lr1 = i
                           For j = i To lr1 + 14
                              If Val(ws.Range("AE" & j)) = 1 Then
                                Sheets("TopNMoshtari").Range("AI" & i) = Sheets("TopNMoshtari").Range("K" & j)
                                Sheets("TopNMoshtari").Range("AJ" & i) = Sheets("TopNMoshtari").Range("I" & j)
                                Sheets("TopNMoshtari").Range("AK" & i) = Sheets("TopNMoshtari").Range("F" & j)
                                Sheets("TopNMoshtari").Range("AL" & i) = Sheets("TopNMoshtari").Range("D" & j)
                            End If
                            Next j
                            
                          Else
                          Sheets("TopNMoshtari").Range("AH" & i) = Str(Sheets("TopNMoshtari").Range("AH" & i))
                          
    
    
                      End If
                
           
        Next i
    
    
     
    Next ws
    
    
    
    
    End Sub


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

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

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

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

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

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

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

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