متن / کاراکترها را با دوبار کلیک ماوس در اکسل وارد کنید

در مثال کلان زیر ، X در هر سلول که بر روی آن دوبار کلیک می کنید وارد می شود. این می تواند برای پر کردن فرم ها یا "ckecking-off" لیستی از کارهایی که باید در اکسل انجام دهید بسیار مفید باشد. بسیار آسانتر از تایپ کردن همان چیزها بارها و بارها در اکسل است. همچنین رشته ای از متن یا اعداد وجود دارد که باید بارها و بارها آنها را وارد کنید ، می توانید از این ماکرو برای وارد کردن آن متن یا شماره از طریق دوبار کلیک ماوس استفاده کنید.

برای تغییر ماکرو برای نمایش دادن متن یا عددی که می خواهید به سادگی "X" را در خط زیر کد به هر آنچه که می خواهید تغییر دهید. rCell.Value = "X". همچنین ، این ماکرو فقط روی طیفی از پیش تعریف شده سلول کار خواهد کرد. این بدان معناست که می توانید آن را تنظیم کنید به طوری که اگر در سلول های خاص دو بار کلیک کنید ، متن وارد می شود ، اما اگر در جای دیگر دو بار کلیک کنید ، هیچ متنی وارد سلول نمی شود. برای تغییر سلولهایی که این ماکرو در آن کار خواهد کرد ، دامنه A1 را تغییر دهید: در کد زیر به هر سلول که می خواهید؛

Set rInt = Intersect(Target, Range("A1:C25"))

توجه: اگر روی سلول دوتایی کلیک کنید که از قبل چیزی در آن باشد ، این ماکرو محتویات سلول را با آنچه در کلان مشخص شده است جایگزین می کنید.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rInt As Range
    Dim rCell As Range
    Set rInt = Intersect(Target, Range("A1:C25"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            rCell.Value = "X"
        Next
    End If
    Set rInt = Nothing
    Set rCell = Nothing
    Cancel = True
End Sub