جستجو

ترفندهای کامپیوتری

حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پی‌سی‌ترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارت‌های مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال‌های پی‌سی‌ترفند در تلگرام و سروش:
telegram.me/pctarfand_ir
sapp.ir/pctarfand_ir

خلاصه آمار

تبليغات

۲

ایجاد ردیف‌های خالی بر اساس عدد موجود در سلول در اکسل - ماکرو

اکسل ماکرونویسی

ایجاد ردیف‌های خالی بر اساس عدد موجود در سلول در اکسل - ماکرو

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

ماکرو نویسی در اکسل: 

۱) کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید.

در پنجره باز شده کدهای زیر را کپی کنید.

Sub Insert()
'pctarfand.ir & tarfandha.blog.ir'
    Dim xRg As Range
    Dim xAddress As String
    Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRg(1).End(xlDown).Row
    xFstRow = xRg.Row
    xCol = xRg.Column
    xCount = xRg.Count
    Set xRg = xRg(1)
    For I = xLastRow To xFstRow Step -1
        xNum = Cells(I, xCol)
        If IsNumeric(xNum) And xNum > 0 Then
            Rows(I + 1).Resize(xNum).Insert
            xCount = xCount + xNum
        End If
    Next
    xRg.Resize(xCount, 1).Select
    Application.ScreenUpdating = True
End Sub

۲) روی دکمه  کلیک کنید یا کلید F5 را فشار دهید. با انجام اینکار پنجره زیر ظاهر می‌شود. سپس لیست اعداد مدنظرتان را انتخاب کنید تا بر اساس آن‌ها ردیف‌های خالی ایجاد شود.

۳) در پایان روی ok کلیک کنید تا ردیف‌های خالی ایجاد شود.

منبع: extendoffice.com

عضویت در خبرنامه:

برای مطلع شدن از جدیدترین مطالب سایت، کانال‌های پی‌سی‌ترفند در تلگرام و سروش را با آی‌دی pctarfand_ir@ دنبال کنید:

          

سوالات خود در زمینه ورد و اکسل و ... را می‌توانید از طریق ایمیل و پیام‌رسان سروش با ما مطرح کنید.

آدرس ایمیل: tarfandha.blog@gmail.com

آی‌دی سروش: pctarfand_info@

گروه سروش:

نظرات (۲)

  1. لیفتراک دست دوم

    باسلام و خدا قوت به شما مدیریت محترم سایت و همکاران عزیزتان
    از بابت اینکه مقالات آموزشی خیلی خوب و با کیفیت تولید می کنید از شما سپاسگزاریم.
    برایتان موفقیت روز افزون از پروردگار یکتا آرزومندم!

ارسال نظر

قبل از ارسال نظر به نکات زیر توجه کنید:

۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.

۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.

۳- تنها به سوالاتی پاسخ داده می‌شود که از نحوه حل آن‌ها اطلاع داشته باشم.

۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده می‌شود و به آن‌ها پاسخی داده نمی‌شود.

الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،

ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی