پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

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

  1. #1


    آخرین بازدید
    02 _ 05 _ 2016
    تاریخ عضویت
    September_2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست

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

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






    http://www.uplooder.net/cgi-bin/dl.c...88becf7dea4fea

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,152
    امتیاز
    11612
    سپاس
    4,480
    سپاس شده
    10,994 در 2,952 پست

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






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

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





  5. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,176
    امتیاز
    3085
    سپاس
    1,558
    سپاس شده
    3,019 در 759 پست

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

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    02 _ 05 _ 2016
    تاریخ عضویت
    September_2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست

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

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

  8. سپاس ها (1)


  9. #5


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

    داشبورد (مقدماتی)
    جداول محوری - Pivot table
    کتاب آموزش جامع و پیشرفته اکسل 2010
    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    March_2010
    محل سکونت
    تهران
    نوشته ها
    2,053
    امتیاز
    4465
    سپاس
    2,518
    سپاس شده
    4,053 در 1,243 پست

    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 : 26 _ 09 _ 2013 در ساعت 17:00


  10. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,176
    امتیاز
    3085
    سپاس
    1,558
    سپاس شده
    3,019 در 759 پست

    با درود
    با تشکر از سرکار خانم خاکزاد. بله دقیقا این کار درست توسط این کد انجام میشه فقط ممکنه یه مشکل پیش بیاد البته شایدم نیاد . اگر ما احیانا تو ستون 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 به یک باره تبدیل کنیم
    ویرایش توسط امين اسماعيلي : 26 _ 09 _ 2013 در ساعت 20:42
    در پناه خداوندگار ایران زمین باشید و پیروز

  11. سپاس ها (3)


  12. #7


    آخرین بازدید
    02 _ 05 _ 2016
    تاریخ عضویت
    September_2013
    نوشته ها
    5
    امتیاز
    10
    سپاس
    3
    سپاس شده
    2 در 2 پست

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


    http://up.ht/19EdKDw

  13. #8


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,176
    امتیاز
    3085
    سپاس
    1,558
    سپاس شده
    3,019 در 759 پست

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

  14. سپاس ها (1)



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

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

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

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

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

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

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

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