ایجاد نامهای متوالی و منحصر به فرد

Question

استیون در حال آزمایش نرم افزاری است و باید تعداد زیادی نام «جعلی» را وارد برنامه کند. او دوست دارد این اسامی مانند Nameaaa، Nameaab، Nameaac و ... از طریق Namezzz الگوبرداری شوند. این نیاز به ایجاد 17576 نام (26 x 26 x 26) دارد. او فکر می کند که آیا راه آسانی برای تولید همه این نام ها در اکسل وجود دارد یا خیر.

این نوع کارهای تکراری فقط برای یک ماکرو فریاد می زند. (آنها برای انجام کارهای کسل کننده، کسل کننده و تکراری که نمی خواهید به صورت دستی انجام دهید عالی هستند.) فهرست 1 یک ماکرو ساده را نشان می دهد که می تواند کار غرغر لازم را انجام دهد.

فهرست 1. ماکرو CreateNames.

Sub CreateNames()
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer

    i = 1
    For x = 97 To 122
        For y = 97 To 122
          For z = 97 To 122
              Cells(i, 1) = "Name" & Chr(x) _
                & Chr(y) & Chr(z)
              i = i + 1
            Next
        Next
    Next
End Sub

ماکرو از سه متغیر (x، y، و z) استفاده می کند تا به عنوان «شمارنده» عمل کند که کنترل می کند کدام حرف از الفبا به «نام» در یک سلول اضافه شود. توجه داشته باشید که حلقه های For ... Next از 97 تا 122 متغیر است که کدهای ASCII برای حروف کوچک a تا z هستند.

اگر به دلایلی نمی خواهید از ماکرو استفاده کنید، فرمول زیر را در سلول A1 یک کاربرگ خالی تایپ کنید:

="Name" & CHAR((ROW()-1)/676+97)&CHAR(MOD(
(ROW()-1)/26,26)+97)&CHAR(MOD(ROW()-1,26)+97)

این یک فرمول واحد است و منجر به نمایش "Nameaaa" می شود. فرمول را از طریق ردیف 17576 کپی کنید و نام های جعلی خود را خواهید داشت.