ব্যবহারকারী সংজ্ঞায়িত ফাংশন সহ একটি ভিবিএ অ্যারেতে অনন্য মান গণনা করা


0

আমার একটি ভিবিএ ফাংশন রয়েছে যা ব্যবহারকারীর সরবরাহিত অবস্থার উপর ভিত্তি করে কয়েকটি ব্যবহারকারীর সরবরাহিত রেঞ্জগুলির মধ্য দিয়ে যায় এবং একটি অ্যারেতে আইটেম যুক্ত করে। এটির নকশা করা ব্যবহারের ক্ষেত্রে এটি অবশ্যই নকলগুলি যুক্ত করবে। শেষে, আমি যে অ্যারে তৈরি করেছি তার মধ্যে কেবলমাত্র অনন্য আইটেমের সংখ্যাতে আমি আগ্রহী।

আমি এই ফাংশনটি কল করার চেষ্টা করছি:

Function GetUniqueCount(aFirstArray As Variant)

Dim arr As New Collection, a
Dim i As Long

On Error Resume Next

For Each a In aFirstArray
    arr.Add a, Str(a)
Next

GetUniqueCount = arr.Count

End Function

তাই ভালো:

Function Stuff(parameters)

Dim myArray() as Variant

...do things to populate myArray, finally

Stuff = GetUniqueCount(myArray)

GetUniqueCount ফাংশনটি একটি অনুরূপ প্রশ্নের জন্য এখানে গৃহীত উত্তরের একটি খুব হালকা পরিবর্তিত টুইট is

যখন আমি এটি করি, স্টাফ সর্বদা 1 ফিরতে শেষ হয় এমনকি যখন এটি স্পষ্ট মনে হয় না। আমি স্টাফটিকে এ পর্যন্ত পরীক্ষা করেছি এবং এটি প্রত্যাশিত উপাদানগুলির সংখ্যা সঠিকভাবে উত্পাদন করছে, আমি যখন চেষ্টা করি এবং অনন্য যে উপাদানগুলির সংখ্যা গণনা করি তখনই আমি কিছু ভুল করছি doing যে কোনও সহায়তা প্রশংসিত হবে, যেহেতু আমি এখনও ভিবিএ অ্যারেগুলিকে হ্যাং করছি।

উত্তর:


1

আমি ইউডিএফ () .............. এ কয়েকটি ছোট পরিবর্তন করেছি made

Function GetUniqueCount(aFirstArray()) As Long
    Dim arr As Collection
    Set arr = New Collection

    On Error Resume Next
        For Each a In aFirstArray
            arr.Add a, CStr(a)
        Next
    On Error GoTo 0
    GetUniqueCount = arr.Count
End Function

Sub MAIN()
    Dim inpt()
    inpt = Array("alpha", "alpha", "beta", "beta", "gamma")
    MsgBox GetUniqueCount(inpt)
End Sub

এখানে চিত্র বর্ণনা লিখুন


ধন্যবাদ. আমি আমার নকশাটিকে কিছুটা সহজ সরল করে তুললাম এবং আপনি এখানে যা দিয়েছিলেন তা অন্তর্ভুক্ত করে সঠিক উত্তরটির দিকে নিয়ে গেছে।
জো
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.