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

موضوع: اجراي تابع max در vba

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    اجراي تابع max در vba

    سلام
    من دو تا سوال دارم از اساتيد محترم در صورت امكان پاسخ بدن

    1- چرا كد زير عمل نميكند و شكل صحيحي آن بايد چگونه باشد

    Private Sub TextBox1_inter()
    TextBox3.SetFocus
    End Sub

    2- همچنين چرا كدزير در vba عمل نميكند و شكل صحيح آن چگونه است
    Private Sub CommandButton1_Click()
    textbox1.value = "=max(sheets("1").range(cells(1,1),cells(10,1) ))"
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: اجراي تابع max در vba

    سلام دوست عزیز برای ماکسیمم میتونی از کد زیر استفاده کنی
    کد PHP:
    Dim maxnumber As IntegerrngMax As Range
         
        Set rngMax 
    Worksheets("Sheet1").Range("A1:A20")
        
    maxnumber Application.WorksheetFunction.Max(rngMax)
        
    MsgBox maxnumber 
    و برای فکوس کردن هم کد TextBox3.SetFocus را باید در رویداد Exit تکست باکس یک بنویسی یا با شماره های ایندکس به خواسته ی خود برسی

  3. سپاس ها (1)


  4. #3


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    RE: اجراي تابع max در vba

    نقل قول نوشته اصلی توسط MEYTI
    سلام دوست عزیز برای ماکسیمم میتونی از کد زیر استفاده کنی
    کد PHP:
    Dim maxnumber As IntegerrngMax As Range
         
        Set rngMax 
    Worksheets("Sheet1").Range("A1:A20")
        
    maxnumber Application.WorksheetFunction.Max(rngMax)
        
    MsgBox maxnumber 
    و برای فکوس کردن هم کد TextBox3.SetFocus را باید در رویداد Exit تکست باکس یک بنویسی یا با شماره های ایندکس به خواسته ی خود برسی
    با تشكر
    1- ولي رنج مورد نياز من ثابت نيست و ميخواهم حدود آنرا با حلقه تكرار عوض كنم از اين رو احتياج به كدي دارم كه بتواند مقادير متتغير (i) را بگيرد مثلاَ در همون مثالي كه در پست قبل نوشتم

    for i = 1 to 10
    textbox1.value = "=max(sheets("1").range(cells(1,1),cells(10,i) ))"
    next i

    2- در مورد فوكوس هم اگه منظورتون اينجوريه
    Private Sub textbox1_Exit(Cancel As Integer)
    TextBox3.SetFocus
    End Sub

    اين پيام خطا را ميده
    compile error
    procedure declaration dos not match description of event or procedure having the same name
    فكر ميكنم ميگه اين event صحيح نيست يا با همين اسم موجود هست ؟!

  5. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: اجراي تابع max در vba

    سلام
    کدی که آقا مهدی زحمت کشیدن درسته فقط محدوده ای که تعریف کردن در work sheet تعریف کنید و با offset گسترش بدید

  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    2012/08/22
    تاریخ عضویت
    June 2011
    نوشته ها
    33
    امتیاز
    8
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: اجراي تابع max در vba

    دوست گرامی در مورد سوال اول اگه که می خواهید بعد از اینتر کردن در تکست باکس یک وارد تکست باکس 3 شوید کافیست tab index تکست باکس 3 را یکی بیشتر از تکست باکس یک قرار دهید و دیگر نیازی به کد نویسی نیست و در مورد سوال دوم فکر کنم که کد زیر مشکل شما را حل کند

    Private Sub CommandButton1_Click()
    For Each c In Sheet1.Range("a1:a65536")
    If c <> "" Then
    q = q + 1
    End If
    Next c
    TextBox1.Text = Application.WorksheetFunction.Max(Sheet1.Range("a1 ", "a" & q))
    TextBox1.SetFocus
    End Sub


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

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

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

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

match در vba exceliran.com

worksheetfunction.match دادن رنج به

دستور max در vba

تابع ماکزیمم در ویژوال بیسیک

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

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

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