حذف سلول

[Elhamstructure]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

برای این کار ستون A را شماره گذاری کنید و کد زیر را به یک باتون نسبت بدید ( البته این راهی بود که به ذهن من رسید )

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 

[Elhamstructure]

برای این کار ستون A را شماره گذاری کنید و کد زیر را به یک باتون نسبت بدید ( البته این راهی بود که به ذهن من رسید )

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]

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

[Elhamstructure]

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

بعد از اینکه کپی پیست کردم باید چیکار کنم؟من برمیگردم تو صفحه اکسلم رو شیپ کیلیک میکنم اتفاقی نمیافته

[امين اسماعيلي]

با درود

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

[Elhamstructure]

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

[امين اسماعيلي]

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

[Elhamstructure]

سوالمو تو اکسل نوشتم

[Ali Parsaei]

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