مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

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

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

حذف اطلاعات یک محدوده مشخص در تعدادی از شیت ها

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • het_pet

    • 2016/06/12
    • 7
    • 20.00
    #1

    [حل شده] حذف اطلاعات یک محدوده مشخص در تعدادی از شیت ها

    سلام

    یه فایل دارم با حدود 40 شیت
    میخوام یه محدوده مشخص مثلا c5:j10,m5:r10 تو شیت های دهم تا بیستم پاک بشن
    اگه بشه براش شرط گذاشت که وقتی عدد 10 تو خونه a1 از شیت اول نوشته شد این اتفاق بیفته، خیلی بهتر میشه
    شدنیه؟
    برچسب ها: هیچ‌کدام
    • BKN

      • 2020/07/12
      • 7
      #2
      سلام دوست عزیز
      شما میخواید حتما پاک بشه یا عدم نمایش محتوی رنج مد نظرتون کفایت میکنه؟

        کامنت

        • saed.rasa

          • 2014/11/02
          • 1054
          #3
          سلام
          شیت دهم را انتخاب کنید بعد Shift را پایین نگه داشته شیت بیستم را انتخاب کنید الان شیت های مورد نظر در حالت انتخاب قرار دارند
          در یکی از شیت های مثلا شیت دهم، محدوده مورد نظر را( پیوسته را با Shift و ناپیوسته را با Contrl ) انتخاب کنید و Delete را بزنید

          اما برای شرطی: به نظر میاد فقط با Vb امکان پذیر است که من بلد نیستم
          [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
          اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
          [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
          [/FONT][/CENTER]
          [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
          فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
          [/FONT][/CENTER]

            کامنت

            • het_pet

              • 2016/06/12
              • 7
              • 20.00
              #4
              این خونه ها حاوی اطلاعات هستن و میخوام پاک بشن واس ورود اطلاعات جدید


              بیشتر vb مد نظرم هست

                کامنت

                • iranweld

                  • 2015/03/29
                  • 3341
                  #5
                  نوشته اصلی توسط het_pet
                  این خونه ها حاوی اطلاعات هستن و میخوام پاک بشن واس ورود اطلاعات جدید


                  بیشتر vb مد نظرم هست
                  با سلام

                  از کد ذیل استفاده کنید

                  نام شیت های مورد نظر را در کد اصلاح کنید

                  کد PHP:
                  Sub Macro1()

                                        Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
                    
                      Range                  ("c5:j10,m5:r10").ClearContents
                      
                  End Sub 

                    کامنت

                    • het_pet

                      • 2016/06/12
                      • 7
                      • 20.00
                      #6
                      نوشته اصلی توسط iranweld
                      با سلام

                      از کد ذیل استفاده کنید

                      نام شیت های مورد نظر را در کد اصلاح کنید

                      کد PHP:
                      Sub Macro1()

                                                Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
                        
                          Range                      ("c5:j10,m5:r10").ClearContents
                          
                      End Sub 
                      سلام
                      من کد رو به این شکل ؛ برابر نیازم تغییر دادم
                      کد PHP:
                      Sub Clearsheets()

                                                Sheets(Array("1", "2", "3")).Select
                        
                          Range                      ("C5:J104,M5:M104").ClearContents
                          
                      End Sub 
                      فقط شیت اول اطلاعاتش پاک میشن و بقیه شیت ها با اینکه انتخاب میشن، ولی اطلاعات دست نخورده میمونه

                        کامنت

                        • iranweld

                          • 2015/03/29
                          • 3341
                          #7
                          نوشته اصلی توسط het_pet
                          سلام
                          من کد رو به این شکل ؛ برابر نیازم تغییر دادم
                          کد PHP:
                          Sub Clearsheets()

                                                        Sheets(Array("1", "2", "3")).Select
                            
                              Range                          ("C5:J104,M5:M104").ClearContents
                              
                          End Sub 
                          فقط شیت اول اطلاعاتش پاک میشن و بقیه شیت ها با اینکه انتخاب میشن، ولی اطلاعات دست نخورده میمونه
                          این کد را تست کنید

                          کد PHP:
                          Sub Macro1()

                                                        Sheets(Array("1", "2", "3")).Select
                              Sheets                          ("1").Activate
                              Range                          ("C5:J22").Select
                              Application                          .CutCopyMode = False
                              Selection                          .ClearContents
                             
                          End Sub 

                            کامنت

                            • het_pet

                              • 2016/06/12
                              • 7
                              • 20.00
                              #8
                              نوشته اصلی توسط iranweld
                              این کد را تست کنید

                              کد PHP:
                              Sub Macro1()

                                                                Sheets(Array("1", "2", "3")).Select
                                  Sheets                              ("1").Activate
                                  Range                              ("C5:J22").Select
                                  Application                              .CutCopyMode = False
                                  Selection                              .ClearContents
                                 
                              End Sub 
                              سلام
                              خیلی خوب بود
                              جواب داد
                              تشکر
                              اگه بشه براش شرط گذاشت که وقتی عدد 10 تو خونه a1 از شیت اول نوشته شد این اتفاق بیفته، خیلی بهتر میشه
                              شدنیه؟
                              این امکانش هست که بشه؟

                                کامنت

                                • mokaram
                                  مدير تالار اکسل و بانک اطلاعاتی

                                  • 2011/02/06
                                  • 1805
                                  • 74.00
                                  #9
                                  شما کافیه کدها را بین این کدها قرار بدی
                                  If Sheet1.Range("a1").Value = 10 Then
                                  End If
                                  [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
                                  [/CENTER]

                                    کامنت

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