تولید داده های آزمایش تصادفی در اکسل

Question

هنگامی که کاربرگ هایی را ایجاد می کنید که توسط افراد دیگر استفاده می شود، باید آن کاربرگ ها را آزمایش کنید تا مطمئن شوید که مطابق انتظار شما کار می کنند. این امر به ویژه در مورد کاربرگ هایی که حاوی فرمول های پیچیده هستند یا برای مقاصد حیاتی استفاده خواهند شد، صادق است. مفهوم آزمایش کاربرگ به این معنی است که شما باید نوعی داده تولید کنید تا از آن در آزمایش کاربرگ استفاده کنید.

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

ابتدا، اگر نیاز به تولید مقادیر عددی تصادفی دارید، می توانید از توابع کاربرگ RAND یا RANDBETWEEN استفاده کنید. تفاوت در این است که RAND یک مقدار بین 0 و 1 ایجاد می کند و RANDBETWEEN مقادیر صحیح بین هر کرانی که شما تعیین می کنید تولید می کند.

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

اگر ترجیح می دهید، می توانید از ماکروها برای تولید داده های آزمایشی استفاده کنید. ماکرو زیر یک محدوده انتخاب شده از سلول ها را با یک مقدار عددی تصادفی، بین هر مرزی (حداقل و حداکثر) که تعیین می کنید، پر می کند.

Sub RandNums()
    Dim MyRange As Range
    Dim lMin As Long, lMax As Long
    Dim dRand As Double

     If selection is not Excel Range
    If TypeName(Selection) <> "Range" Then Exit Sub

    Set MyRange = Selection

     Get Min and Max value
    lMin = CLng(InputBox("Minimum?"))
    lMax = CLng(InputBox("Maximum?"))

    Randomize
    Application.ScreenUpdating = False

    For Each c In MyRange.Cells
         Calculate random value, where
         Value >= Min And Value 

برای استفاده از ماکرو، کافی است محدوده ای از سلول ها را که می خواهید حاوی مقادیر عددی تصادفی باشد انتخاب کنید و سپس ماکرو را اجرا کنید. اگر باید از مقادیر صحیح در سلول‌ها استفاده کنید، می‌توانید خط ذکر شده در ماکرو را «لغو نظر» کنید.

اگر می‌خواهید محدوده‌ای از سلول‌ها را با تاریخ‌های تصادفی پر کنید، یک تغییر جزئی در ماکرو RandNums به شکل زیر انجام می‌شود.

Sub RandDates()
    Dim MyRange As Range
    Dim dtMin As Date, dtMax As Date
    Dim dtRand As Date

     If selection is not Excel Range
    If TypeName(Selection) <> "Range" Then Exit Sub

    Set MyRange = Selection

     Get Min and Max value
     From: 1/1/1990 (put your start Date)
    dtMin = #1/1/1990#
     To: Today
    dtMax = Date

    Randomize
    Application.ScreenUpdating = False

    For Each c In MyRange.Cells
         Calculate random value, where
         Value >= Min And Value 

باز هم، فقط یک محدوده را انتخاب کنید و سپس ماکرو را اجرا کنید. می توانید مقادیر اولیه تنظیم شده روی متغیرهای dtMin و dtMax را تغییر دهید تا مرزهای تاریخ مورد نظر را مشخص کنید. همچنین می‌توانید در صورت تمایل، قالب‌بندی اعمال شده روی سلول‌ها را پس از ذخیره تاریخ تصادفی در سلول‌ها تغییر دهید.