حذف سلول

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Elhamstructure

    • 2014/07/06
    • 7

    حذف سلول

    سلام
    من میخوام سلول های اکسلم به صورت 3 در میان حذف بشن میشه کسی راهنماییم کنه؟
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • 2011/02/06
    • 1805
    • 74.00

    #2
    برای این کار ستون A را شماره گذاری کنید و کد زیر را به یک باتون نسبت بدید ( البته این راهی بود که به ذهن من رسید )
    کد PHP:
    Dim c As Range
    For Each c In Sheet1.Range("a1:a100")
        If 
    c.Value Mod 3 0 Then
            c
    .Rows.Delete shift:=xlUp
        End 
    If
    Next c 
    [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
    [/CENTER]

    کامنت

    • Elhamstructure

      • 2014/07/06
      • 7

      #3
      نوشته اصلی توسط M_R_M
      برای این کار ستون A را شماره گذاری کنید و کد زیر را به یک باتون نسبت بدید ( البته این راهی بود که به ذهن من رسید )
      کد PHP:
      Dim c As Range
      For Each c In Sheet1.Range("a1:a100")
          If 
      c.Value Mod 3 0 Then
              c
      .Rows.Delete shift:=xlUp
          End 
      If
      Next c 
      میشه بیشتر توضیح بدید؟این دستور رو کجا باید به اکسل بدم من بلد نیستم

      کامنت

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

        • 2011/02/06
        • 1805
        • 74.00

        #4
        چون نمیتونم فایل آپلود کنم مجبور شدم کدها را بدون فایل ضمیمه بنویسم
        شما تو شیت تون یه شیپ از قسمت insert بکشید بعد رو شیپ راست کلیک کنید و بعد assign macro را بزنید ,و تو پنجره باز شده new را بزنید تو صفحه جدید کدهایی را که تو انجمن گذاشته بودم را کپی پیست کنید حالا اگه رو شیپ کلیک کنید کدها اجرا میشن
        فقط موقع سیو با فرمت xlsm ذخیره کنید
        [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
        [/CENTER]

        کامنت

        • Elhamstructure

          • 2014/07/06
          • 7

          #5
          نوشته اصلی توسط M_R_M
          چون نمیتونم فایل آپلود کنم مجبور شدم کدها را بدون فایل ضمیمه بنویسم
          شما تو شیت تون یه شیپ از قسمت insert بکشید بعد رو شیپ راست کلیک کنید و بعد assign macro را بزنید ,و تو پنجره باز شده new را بزنید تو صفحه جدید کدهایی را که تو انجمن گذاشته بودم را کپی پیست کنید حالا اگه رو شیپ کلیک کنید کدها اجرا میشن
          فقط موقع سیو با فرمت xlsm ذخیره کنید
          بعد از اینکه کپی پیست کردم باید چیکار کنم؟من برمیگردم تو صفحه اکسلم رو شیپ کیلیک میکنم اتفاقی نمیافته

          کامنت

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

            • 2013/01/17
            • 1198
            • 84.00

            #6
            با درود

            فایل پیوست و توضیحات داخل اون خدمت شما چون اولین در خواسستون بوذد با توجه به مدت حضورتون که چک شد .
            فایل های پیوست شده
            در پناه خداوندگار ایران زمین باشید و پیروز

            کامنت

            • Elhamstructure

              • 2014/07/06
              • 7

              #7
              از کمکتون بی نهایت سپاسگذارم
              داده هام شماره ردیف دارن سر ستون هم دارند فقط چرا نمیتونم کدی که دادین رو ببینم؟
              برای انکه ممکنه بخوام تعدادشو عوض کنم مثلا 4 تا یکی حذف کنه

              کامنت

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

                • 2013/01/17
                • 1198
                • 84.00

                #8
                با درود
                این فایل واسه اونایی که تازه میخوان با ویبی شروع کنن
                حتما بخونن
                بچه ها قبلا هم گذاشتم این فایلو - خواهشا ارجاع بدین دیگه سوالای اینجوری رو به همین فایل ارجاع بدین
                فایل های پیوست شده
                در پناه خداوندگار ایران زمین باشید و پیروز

                کامنت

                • Elhamstructure

                  • 2014/07/06
                  • 7

                  #9
                  سوالمو تو اکسل نوشتم
                  فایل های پیوست شده

                  کامنت

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

                    • 2013/11/18
                    • 1522
                    • 71.67

                    #10
                    سلام،
                    دوستان کدي که زحمت کشيده ايد رديف هاي مضرب 3 را حذف مي کند در صورتي که اين دوستمون نمي خواهد سه رديف بماند يک رديف حذف شود، بلکه مي خواهد سه رديف حذف شود و يک رديف بماند.
                    دوست عزيز با توجه به اينکه vba بلد نيستيد من يک راه معمولي پيشنهاد مي کنم، يک ستون به اول داده ها اضافه کنيد، سرستون جديد و سرستون رديفهايتان را يک عبارتي بنويسيد (مثلا" a و b) بعد کل سرتونها را انتخاب و از قسمت data فيلتر را به آنها اعمال کنيد. بعد در خانه a2 عدد 1 را بنويسيد، سپس خانه a2 و سه خانه زيرش ( a2 تا a5 ) را انتخاب کرده و کپي کنيد و بعد خانه هاي a6 تا انتهاي محدوده اطلاعاتتان را انتخاب کرده و چهار خانه اي که کپي کرده ايد را آنجا paste کنيد.
                    (توجه مهم: محدوده اي که براي paste انتخاب مي کنيد بايد مضرب چهار باشد، اگر از خانه a6 تا پايان محدوده اطلاعاتتان مضرب چهار نيست چند خانه کمتر يا بيشتر انتخاب کنيد. وقتي موس را داريد پايين مي کشيد کنار آن در يک پنجره کوچک نشان داده مي شود که چند خانه را داريد انتخاب مي کنيد).
                    خوب حالا ستون a راسورت کنيد، همه خانه هاي مورد نظر شما در بالا قرار خواهند گرفت. حالا از جايي که در ستون a ديگر 1 نوشته نشده سطرها را انتخاب و حذف کنيد! و سپس ستون a را حذف کنيد تا مثل اول شود.
                    [SIGPIC][/SIGPIC]

                    کامنت

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

                      • 2013/01/17
                      • 1198
                      • 84.00

                      #11
                      یا درود
                      میبخشید دیر جواب دادم نتم قطع شد - دوستان مدیر ازم ایراد نگیرین بابت این فایل از دستم در رفت شرمنده
                      تو فایل اکسلتونو ببینین
                      فایل های پیوست شده
                      در پناه خداوندگار ایران زمین باشید و پیروز

                      کامنت

                      • Elhamstructure

                        • 2014/07/06
                        • 7

                        #12
                        ممنونم از کمکتون
                        کمک بزرگی به من کردین

                        کامنت

                        چند لحظه..