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

موضوع: شماره گذاری ردیف با کمک ماکرو

  1. #1


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    شماره گذاری ردیف با کمک ماکرو

    با سلام
    من یه فایل دارم که میخواهم عمل شماره گذاری ستون ردیف به وسیله ماکرو انجام بشه
    یعنی زمانی که من ماکرو را فعال کردم به صورت اتوماتیک شماره گذاری کنه
    نکته: لازم به ذکر است که در این فایل من تعداد ردیف ها متغیر است
    من خودم یه ماکرو درست کردم ولی زمانی که تعداد ردیف ها تغیر میکنه مشکل آشکار میشه
    لطفاَ کمکم کنید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip 1.zip اطلاعات (12.5 کیلو بایت, 11 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    کد زیر رو تست کنید.
    کد:
    Sub counterrows() Dim ws As Worksheet Dim i, lastline As Integer Set ws = ActiveSheet lastline = ws.Cells(ws.Rows.Count, "b").End(xlUp).Row For i = 1 To lastline If Cells(i, 2).Value <> "" Then ws.Cells(i, 1).Value = Application.Max(Range("A:A")) + 1 End If Next i End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar 1.rar اطلاعات (16.2 کیلو بایت, 31 نمایش)
    ویرایش توسط amir_ts : 2016/06/06 در ساعت 23:08
    ای برادر تو همه اندیشه ای

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    میتوانید از دستورات زیر نیز استفاده نمایید.

    کد:
    Sub Macro1()
    '
    Dim iRow As Long
     iRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).Row
       Range("A2").Select
        ActiveCell.FormulaR1C1 = "1"
        Selection.AutoFill Destination:=Range("A2:A" & iRow), Type:=xlFillSeries
        
    End Sub

    پایدار باشید میر


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

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

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

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

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

کلمات کلیدی این موضوع

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

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

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