پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

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

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

    اجراي تابع 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.  

  3. #2


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

    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 تکست باکس یک بنویسی یا با شماره های ایندکس به خواسته ی خود برسی

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

    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 de******ion of event or procedure having the same name
    فكر ميكنم ميگه اين event صحيح نيست يا با همين اسم موجود هست ؟!

  5. #4


    آخرین بازدید
    9 ساعت پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,152
    امتیاز
    11611
    سپاس
    4,480
    سپاس شده
    10,993 در 2,951 پست

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

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

  6. #5


    آخرین بازدید
    22 _ 08 _ 2012
    تاریخ عضویت
    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 دادن رنج به

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

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