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

موضوع: سوال در زمینه ماکرو

  1. #1


    آخرین بازدید
    2016/05/02
    تاریخ عضویت
    September 2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    سوال در زمینه ماکرو

    با سلام ممنون میشم اگه کسی بتونه کمکم کنه.






    http://www.uplooder.net/cgi-bin/dl.c...88becf7dea4fea
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط hadi1358 نمایش پست ها
    با سلام ممنون میشم اگه کسی بتونه کمکم کنه.






    http://www.uplooder.net/cgi-bin/dl.c...88becf7dea4fea
    درود ، دوسطر آخر برای چی باید حذف بشه چه شرطی باعث حذف دوسطر آخر میشه

    برای قسمت دوم سوال از table استفاده کنید محدوده رو انتخاب و از تب insert گزینه table رو بزنید



  5. #3


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

    با درود
    واسه حذف 2 سطر آخر باید ببینم که کدوم ستون از سطر آخر همیشه پر هستش. یا یه مشخصه منحصر به فرد داره. مثلا اگه بنا به همین فایل خودتون بخوایم پیش بریم . ستون C پر هستش و مثلا من باید ردیف اینو پیدا کنم و یه یک بهش اطافه کنم و ردیف بعدیشو هم پاک کنه. اگر بخوام بر اساس ستون A برم باید اخرین ردیفشو پیدا کنم و بگم 2 تای بعدیشو حذف کنه. اینو ما باید دقیق تر بدونیم. بعدش واسه فرمول ها هم اگر نخوایم کاری که منطقی تر هستش و استاد عزیز آقای وطن پرست گفتن رو انجام بدیم باید با حلقه for و ترکیبش با اخرین ردیف این کار رو انجام بدیم. در ضمن من نمیدونم چه فرمولی و تو چه ستونی باید قرار بگیره.................
    در پناه خداوندگار ایران زمین باشید و پیروز

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    2016/05/02
    تاریخ عضویت
    September 2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    سلام آقای اسماعیلی اگر امکانش هست برای فایل زیر با فرض اینکه ستون b یعنی ستون تاریخ سررسید همیشه دارای اطلاعات باشد و بخواهیم دو سطر بعدی را حذف کنیم یک ماکرو بنویسید.با تشکر

    http://www.uplooder.net/cgi-bin/dl.c...1b0bf06686f6d5

  8. سپاس ها (1)


  9. #5


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام
    با اجازه جناب اسماعیلی.
    می تونید از این کد استفاده کنید.و sub مربوطه رو اجرا کنید
    این کد طبق فایل نمونه هست. این مورد لحاظ شده که تا جایی که ستون b پر هست رو نگه داره و دو سطر بعد اون رو پاک کنه.
    سوالی بود در خدمتم



    کد:
    Sub del()
    Dim d As String
    d = WorksheetFunction.CountA(Sheet2.Range("b:b")) + 1
    Rows(d & ":" & d + 1).Select
        Selection.Delete Shift:=xlUp
    End Sub
    ویرایش توسط khakzad : 2013/09/26 در ساعت 17:00


  10. #6


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

    با درود
    با تشکر از سرکار خانم خاکزاد. بله دقیقا این کار درست توسط این کد انجام میشه فقط ممکنه یه مشکل پیش بیاد البته شایدم نیاد . اگر ما احیانا تو ستون b مون بین اش یه خالی داشته باشیم اون موقع فک کنم به مشکل بخوریم. البته 100 درصد کار سر کار خانم درسته و با اجازه از ایشون من فقط یه تیکه از کد رو تغییر میدم.


    کد:
    Dim d As Long
        With Sheet2
            d = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
        End With
    
    Rows(d & ":" & d + 1).Delete
    اینو ما برای شیت 2 ستون B تنظیم کردیم.کار سرکار خانم هم با توجه به اینکه احتمالا شما همه سل هاتون تو ستون B همیشه پر هستش درست هست. تو کد ایشون هم میتونستیم گزینه Select رو به Delete به یک باره تبدیل کنیم
    ویرایش توسط امين اسماعيلي : 2013/09/26 در ساعت 20:42
    در پناه خداوندگار ایران زمین باشید و پیروز

  11. سپاس ها (3)


  12. #7


    آخرین بازدید
    2016/05/02
    تاریخ عضویت
    September 2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    با سلام
    ضمن تشکر از خانم خاکزاد و آقای اسماعیلی ،نمیدونم کجای کار من ایراد داره !!!!


    http://up.ht/19EdKDw

  13. #8


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

    با درود
    و اما مشکل کار شما
    والا بیش از اینا ازتون انتظار داشتم . شما برین ببینین این شیتی که شما داری براش کد مینویس درسته اسمشو گذاشتی شیت 2 اما از لحاظ کد نویسی اسمش شیت 1 هستش . تو ویژوال اونی که داخل پرانتز نیست اسم اصلی توکد نویسی است. خوب حالا ولش کن در کل تو کد ها شیت 2 رو به 1 تغییر بده میبینی درست میشه
    در پناه خداوندگار ایران زمین باشید و پیروز

  14. سپاس ها (1)



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

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

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

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

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

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

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

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

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