دستور حلقه جهت پاک کردن سلول

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • khorasan66

    • 2012/06/12
    • 111
    #1

    دستور حلقه جهت پاک کردن سلول

    با سلام خدمت اساتید گرامی
    دو ستون A و B دارای اطلاعات می باشند .
    احتیاج به دستور VB دارم که در هر ردیف اگر سلول B=1 باشد اطلاعات سلول A آن ردیف را پاک نماید . این دستور تا آخرین ردیف حاوی اطلاعات ادامه یابد
    برچسب ها: هیچ‌کدام
    • s.cheraghi

      • 2011/02/27
      • 311
      #2
      RE: دستور حلقه جهت پاک کردن سلول

      فایل ضمیمه رو بررسی کنید
      فایل های پیوست شده
      در یادگیری سیر نشوید :idea:

      برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
      برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
      [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

        کامنت

        • khorasan66

          • 2012/06/12
          • 111
          #3
          RE: دستور حلقه جهت پاک کردن سلول

          تشکر عالی بود

            کامنت

            • ali65e

              • 2013/12/14
              • 120
              • 5.00
              #4
              سلام.
              دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم
              فایل های پیوست شده

                کامنت

                • Amir Ghasemiyan

                  • 2013/09/20
                  • 4600
                  • 100.00
                  #5
                  نوشته اصلی توسط ali65e
                  سلام.
                  دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم

                  سلام دوست عزيز
                  متاسفانه با تغيير سرور اين مشكل به وجود آمده و تعدادي از فايل هاي ضميمه به مشكل برخوردن. من به دوستمون پيام ميدم. هر وقت آن شدن در صورتي كه هنوز فايلشون رو داشته باشن براتون آپ ميكنن.
                  با تشكر از توجه شما

                    کامنت

                    • hs208

                      • 2013/12/13
                      • 74
                      #6
                      با سلام
                      ممنون میشم اگه مجدد فایل رو آپ کنید. فایل فعلی طبق گفته دوستمون (ali65e) باز نمیشه. با تشکر

                        کامنت

                        • امين اسماعيلي
                          مدير تالار ويژوال بيسيك

                          • 2013/01/17
                          • 1198
                          • 84.00
                          #7
                          با درود
                          اگر منظورتون اینه که اگر تو ستون b هر سلی برابر 1 بود اون موقع سل متناضرش توی ستون A پاک بشه از کد زیر میتونین استفاده کنین
                          کد:
                          For Each c In ActiveSheet.Range("B1:B10")
If c.Value = 1 Then
c.Offset(0, -1) = ""
End If
Next c
                          اینو واسه یه باتن یا تو ایونت فعال شدن اون شیت بنویس
                          در ضمن این تا B10 رو در بر میگیره . پویا کردنش. یعنی چطور بفهمی که تا کجای ستون B پره رو میزارم بر عهده خودت. تنبلی نکنیا. تو سایت نمونه زیاد هست. راه حل این موردم زیاده......
                          در پناه خداوندگار ایران زمین باشید و پیروز

                            کامنت

                            • Ali Parsaei
                              مدير تالارتوابع اکسل

                              • 2013/11/18
                              • 1522
                              • 71.67
                              #8
                              نوشته اصلی توسط ali65e
                              سلام.
                              دوست عزیز من بیشتر فایلهای مثالی که توو این سایت گذاشته شده (از جمله فایلی که شما گذاشتید)رو وقتی میگیرم و بعد میخوام بازشون کنم،با این ارور مواجه میشم.چکار باید بکنم؟لطفا راهنماییم کنید چکار باید بکنم
                              فعلا" علي الحساب مي توانيد فايل مورد نظر در اين بحث (يعني Remove.xlsm ) را SAVE کرده و به صورت دستي M آخر پسوندش را پاک کنيد و آن را باز کنيد، البته احتمال زياد يک چيزهاييش از کار خواهد افتاد ولي شايد فعلا" همان هم به دردتان بخورد.
                              [SIGPIC][/SIGPIC]

                                کامنت

                                • ali65e

                                  • 2013/12/14
                                  • 120
                                  • 5.00
                                  #9
                                  نوشته اصلی توسط amir ghasemiyan

                                  سلام دوست عزيز
                                  متاسفانه با تغيير سرور اين مشكل به وجود آمده و تعدادي از فايل هاي ضميمه به مشكل برخوردن. من به دوستمون پيام ميدم. هر وقت آن شدن در صورتي كه هنوز فايلشون رو داشته باشن براتون آپ ميكنن.
                                  با تشكر از توجه شما
                                  ممنون دوست عزیز

                                    کامنت

                                    • ali65e

                                      • 2013/12/14
                                      • 120
                                      • 5.00
                                      #10
                                      ممنون دوست عزیز

                                        کامنت

                                        قبلی template بعدی
                                        چند لحظه..