نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

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

  1. #1


    آخرین بازدید
    2020/10/04
    تاریخ عضویت
    September 2015
    محل سکونت
    ارومیه
    نوشته ها
    67
    امتیاز
    13
    سپاس
    94
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    درخواست برنامه

    سلام. دوستان در ستون a کلی متن و عدد دارم (که تکراری هم داخلش هست)، میخوام با vba به صورت تصادفی از این ها 5 تا رو منحصر به فرد ( بدون تکراری) در ستون b وارد کنه. ممنون میشم کمکم کنین.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2019/06/25
    تاریخ عضویت
    May 2014
    محل سکونت
    خوزستان
    نوشته ها
    48
    امتیاز
    113
    سپاس
    0
    سپاس شده
    99 در 36 پست
    تعیین سطح نشده است

    سلام آیا متن و عددهایی که در ستون ا قرار دارند / روی هم و بدون فاصله هستند یا با فاصله خاصی از هم جدا هستند

    حالت 1 : ahmad -11622- reza- 2102- ahmad-11371-excel-11540-reza-9090-milad-11622
    حالت 2 : ahmad11622reza2102ahmad11371excel11540reza9090mila d11622

    هر كسي مي‌تواند كدي بنويسد كه يك كامپيوتر آن‌را درك كند. يك برنامه نويس خوب كدي را مي‌نويسد كه براي ساير همكارانش قابل درك باشد. (Martin Fowler) تماس: 2102-344-0933 { احمد خنیفر }


  4. #3


    آخرین بازدید
    2020/10/04
    تاریخ عضویت
    September 2015
    محل سکونت
    ارومیه
    نوشته ها
    67
    امتیاز
    13
    سپاس
    94
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    سلام. خروجی یک برنامه تخصصی هست و فاصله مابین سلول ها الگوی خاصی ندارد. مثل عکس این یک نمونه فایل هست.
    تصاویر کوچک فایل پیوست تصاویر کوچک فایل پیوست Screenshot (314).png  

  5. #4


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    سلام دوست عزیز
    خدمت شما

    کد:
    Sub EI_UniuqeRandom()
        Columns("A:A").Copy Range("C1")
        Columns("C:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        ActiveSheet.Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
        RandNumbers = UniuqeRandom(5, Columns("C:C").CurrentRegion.Count)
        For i = 1 To 5
            Cells(i, 2) = Cells(RandNumbers(i - 1), 3)
        Next i
        Columns("C:C").Clear
    End Sub
    
    
    Function UniuqeRandom(Counter As Integer, RangeCount As Integer)
    Dim RandArr() As Variant
    ReDim RandArr(0)
    i = 0
    While i < Counter
        randomnumber = Int((RangeCount - 1) * Rnd)
        If Not (UBound(Filter(RandArr, randomnumber)) > -1) Then
            ReDim Preserve RandArr(i)
            RandArr(i) = randomnumber
            i = i + 1
        End If
    Wend
    UniuqeRandom = RandArr
    End Function


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 0
    آخرين نوشته: 2017/05/06, 11:59
  2. مشکل مطالب چپ به راست و کپی در شیت راست به چپ
    توسط alibobo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/24, 16:40
  3. پرسش درخواست راهنمایی در رابطه با جست وجوی پیشرفته توسط تابع Vlookup
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/23, 17:13
  4. مشکل در زمان تغییر از حالت چپ به راست به حالت راست به چپ
    توسط qwstand در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2014/07/15, 11:01
  5. طراحی ستون*هاي با بست چپ و راست تك
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/18, 12:22

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است