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

موضوع: ایجاد ردیف خودکار و تشیخص عدد اخرین ردیف

  1. #1


    آخرین بازدید
    2017/11/14
    تاریخ عضویت
    November 2017
    نوشته ها
    13
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ایجاد ردیف خودکار و تشیخص عدد اخرین ردیف

    من دریک شیت کدی نوشتم که اطلاعات را به یک جدول در یک شیت دیگراضافه می کنه اما این مورد را در ان ماکرو که برای یک کلید هست چطوربنویسم که با هر بار زدن دکمه پیاده شه:
    1- شیتی که جدول در ان است غیرقابل تغییر باشه و کسی نتونه دستکاریش کنه
    2- دوستون ردیف و سن هست . اگرستون سن خالی نبود یک ردیف ایجاد بشه
    3- شماره اخرین ردیف را چطوری میشه بدست اوردودر یک سلول نوشت
    4- با گذاشتن دکمه ای وزدن ان این شیت جدول قابل تغییر بشه وبعد از تغییرات واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودواعدادش مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    دوست عزیز بهتره فایل ضمیمه هم باشه ( لزوما فایل اصلی منظور نیست بهتره نمونه ای از فایلتون را بسازید و پیوست کنید )

    بعد مرحله به مرحله خواستتون را بفرمایید تا گام به گام کار جلو بره.

    ممنون از حسن توجهتون


  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2017/11/14
    تاریخ عضویت
    November 2017
    نوشته ها
    13
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط aof نمایش پست ها
    من دریک شیت کدی نوشتم که اطلاعات را به یک جدول در یک شیت دیگراضافه می کنه اما این مورد را در ان ماکرو که برای یک کلید هست چطوربنویسم که با هر بار زدن دکمه پیاده شه:
    1- شیتی که جدول در ان است غیرقابل تغییر باشه و کسی نتونه دستکاریش کنه
    2- دوستون ردیف و سن هست . اگرستون سن خالی نبود یک ردیف ایجاد بشه
    3- شماره اخرین ردیف را چطوری میشه بدست اوردودر یک سلول نوشت
    4- با گذاشتن دکمه ای وزدن ان این شیت جدول قابل تغییر بشه وبعد از تغییرات واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودواعدادش مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)
    من برای اینکه اطلاعات که از شیت فرم به شیت بانک منتقل بشه متوجه بشه اخرین سطری که چیزی نوشته شده کدام است تا بعد از ان اطلاعات را جایگذاری کنه به این نتیجه رسیدم یک ستون ردیف ایجاد کنم که با هر بار زدن دکمه ثبت یک عدد می گیرد و پایین میاید و دیگر اینکه به کاربر اجازه ندهم ردیف ها را پاک کند بخاطر همین گفتم شیت بانک غیرقابل تغییر یا readonly باشه . اگر این تصور برای این نیتم درسته در فایل پیوستی که گذاشتم مواردی که میخواهمم را می نویستم
    1- شیت بانک غیر قابل تغییر باشه و فقط اطلاعات از شیت فرم به ان اضافه میشه
    2-در شیت بانک اگر ستون 1 خالی نباشه( که اطلاعاتش از باکس شماره 1 شیت فرم به ان ارسال میشه وکدهاشو نوشتم) یه ردیف اضافه بشه
    3- شماره اخرین ردیفی که نوشته شده چطور میشه بدست اورد وسلولی نوشت
    4-با گذاشتن دکمه ای درشیت بانک وزدن ان این شیت قابل تغییر بشه وبعد از تغییرات درشیت واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودوعدد ردیفها مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar 2.rar اطلاعات (18.1 کیلو بایت, 7 نمایش)

  6. #4


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    سلام
    همه اینکارایی که شما میخواید خودش یه پروژست ولی چند راهنمایی میکنم که میتونه کمکتون کنه .
    برای پیدا کردن آخرین ردیف خالی فرم بانکتون از فرمول زیر استفاده کنید ، توجه کنید که محدوده جدولو تو فرمول میتونید به خواست خودتون عوض کنید ، من اینجا گفتم کل جدول شما رو سرچ گنه .
    کد PHP:
    lastrow_2 Sheet2.Range("c:m").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row 
    و فرض کنید ردیف اول بانکتون قراره تاریخ فرم درش ذخیره بشه ، به اینصورت عمل کنید :
    کد PHP:
    Sheet2.Range("d" lastrow_2).Value Sheet1.Range("f2").Value 
    براتون یه نمونه هم میزارم که بهتر متوجه بشید
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm 2.xlsm اطلاعات (26.0 کیلو بایت, 12 نمایش)

  7. سپاس ها (3)


  8. #5


    آخرین بازدید
    2017/11/14
    تاریخ عضویت
    November 2017
    نوشته ها
    13
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    من میتونم بگم که اگر ستون یک خالی نباشه یک کاری انجام دهد.

    از نظر برنامه نویسی میشه گفت در ستون ردیف عدد یک اضافه کن و در مراحل بعد به سلول قبلی یکی اضافه کن و در سلول بعدی ردیف بنویس . این برای ایجاد اعداد ردیف خوبه؟ خود این عمل را چطوری میشه نوشت؟

  9. #6


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    نقل قول نوشته اصلی توسط aof نمایش پست ها
    من میتونم بگم که اگر ستون یک خالی نباشه یک کاری انجام دهد.

    از نظر برنامه نویسی میشه گفت در ستون ردیف عدد یک اضافه کن و در مراحل بعد به سلول قبلی یکی اضافه کن و در سلول بعدی ردیف بنویس . این برای ایجاد اعداد ردیف خوبه؟ خود این عمل را چطوری میشه نوشت؟
    با توجه به ساختار جدول شما ، تو اون دکمه که گذاشتم اینطوری باید بنویسی تا برات ردیف بزنه
    کلا برای وارد کردن اطلاعات از فرم به جدول بانکت همینطور باید عمل کنی

    کد PHP:
    Private Sub CommandButton1_Click()
    On Error Resume Next
    lastrow_2 
    Sheet2.Range("c:m").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row 1

    If (lastrow_2 4Then
    Sheet2
    .Range("c" lastrow_2).Value 1
    Else
    Sheet2.Range("c" lastrow_2).Value Sheet2.Range("c" lastrow_2 1).Value 1
    End 
    If

    End Sub 

  10. سپاس ها (3)



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

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

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

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

https:forum.exceliran.comshowthread.php11950-ایجاد-ردیف-خودکار-و-تشیخص-عدد-اخرین-ردیف

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

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

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