درخواست آموزش برای شماره گذاری چند هزار سطر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • farshadbandari
    • 2016/11/24
    • 4

    درخواست آموزش برای شماره گذاری چند هزار سطر

    سلام و خسته نباشید
    دوستان من یه فایل اکسل دارم که حدود 4 هزار سطر داره، حالا کنار این سطرها یه ستون جدید ایجاد کردم و میخوام تو اون ستون شماره سطرها رو به ترتیب از 1 تا 4000 وارد کنم، اگه بخوام از روش درگ کردن استفاده کنم خیلی طول میکشه چون باید تا چهار هزارمین سطر درگ کنم تا شماره سطر ها نوشته بشه، یه فرمول یا تابعی هست که یهو این 4 هزار سطر رو به یکباره از شماره 1 تا 4000 شماره گذاری کنه؟
    پیشاپیش ممنون
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    نیازی به درگ کردن نیست و با دابل کلیک روی fill handler می تونید به نتیجه برسید!
    همجنین از fill series هم می تونید استفاده کنید!
    فرمول هم باید درگ کنید!!!
    [B][SIZE=1]بخش امضاء :
    [/SIZE][/B][LEFT]
    [CODE]
    Sub Macro()
    ActiveCell = "IY" & Right(Application.Name, 5)
    With ActiveCell.Characters(Start:=2, Length:=1).Font
    .Name = "Webdings"
    .Color = 255
    End With
    End Sub
    [/CODE]
    [/LEFT]

    کامنت

    • farshadbandari
      • 2016/11/24
      • 4

      #3
      نوشته اصلی توسط rahi_feri
      سلام
      نیازی به درگ کردن نیست و با دابل کلیک روی fill handler می تونید به نتیجه برسید!
      همجنین از fill series هم می تونید استفاده کنید!
      فرمول هم باید درگ کنید!!!
      ممنون از راهنماییتون
      من زیاد با اکسل آشنا نیستم
      لطف میکند بگید چجوری با file handler و fill series انجام بدم

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        تماشا کنید....!
        لینک
        [B][SIZE=1]بخش امضاء :
        [/SIZE][/B][LEFT]
        [CODE]
        Sub Macro()
        ActiveCell = "IY" & Right(Application.Name, 5)
        With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Webdings"
        .Color = 255
        End With
        End Sub
        [/CODE]
        [/LEFT]

        کامنت

        • farshadbandari
          • 2016/11/24
          • 4

          #5
          نوشته اصلی توسط rahi_feri
          تماشا کنید....!
          لینک
          ممنون مشکل تا حدودی حل شد
          فقط یه مشکلی هست من رنگ های سطر هام متفاوته، مثلا یکی قرمز یکی سبز، وقتی این روش رو میرم اون ستون همه رنگ هاش یکی میشه، میخوام هر سطر رنگ مخصوص به خودش رو داشته باشه، از گزینه fill without formating هم که استفاده میکنم فقط همون عدد رو تو کل سلول ها کپی میکنه، راهی نیست رنگ سلول ها تغییر نکنه؟
          عکس رو ببینید متوجه منظورم میشید

          Click image for larger version

Name:	,cxmhxc.JPG
Views:	1
Size:	127.7 کیلو بایت
ID:	131869

          کامنت

          • rahi_feri

            • 2014/08/08
            • 524
            • 94.67

            #6
            اگر تعداد بارهایی که اینکار رو می خواهید بکنید کمه که با ترفند زیر حله!
            سعی کنید ستونی که متنه رو کپی کنید و تاریخ و عدد نباشه اگرم بود بعدا general کنید ستونو!
            تماشا کنید....!
            لینک 2

            اگه خیلی زیاد استفاده می کنید و فرمت فایل ها یکیه از ماکرو استفاده بشه بهتره!! که باید نمونه فایل بفرستید!
            [B][SIZE=1]بخش امضاء :
            [/SIZE][/B][LEFT]
            [CODE]
            Sub Macro()
            ActiveCell = "IY" & Right(Application.Name, 5)
            With ActiveCell.Characters(Start:=2, Length:=1).Font
            .Name = "Webdings"
            .Color = 255
            End With
            End Sub
            [/CODE]
            [/LEFT]

            کامنت

            • rasools13

              • 2017/01/20
              • 360
              • 80.00

              #7
              نوشته اصلی توسط farshadbandari
              ممنون مشکل تا حدودی حل شد
              فقط یه مشکلی هست من رنگ های سطر هام متفاوته، مثلا یکی قرمز یکی سبز، وقتی این روش رو میرم اون ستون همه رنگ هاش یکی میشه، میخوام هر سطر رنگ مخصوص به خودش رو داشته باشه، از گزینه fill without formating هم که استفاده میکنم فقط همون عدد رو تو کل سلول ها کپی میکنه، راهی نیست رنگ سلول ها تغییر نکنه؟
              عکس رو ببینید متوجه منظورم میشید

              [ATTACH=CONFIG]14370[/ATTACH]
              سلام
              بعد از وارد کردن شماره های سطر ها با هر یک از روشهای پیشنهادی دوستان
              یکی ستون هایی کناری را به طور کامل انتخاب(بر روی نام ستون کلیک کنید) سپس با استفاده از ابزار format painter تنظیمات ان را کپی کرده و بر روی ستون شماره های سطر اعمال کنید
              [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
              [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
              [/CENTER]

              کامنت

              • msp65

                • 2015/07/20
                • 41

                #8
                سلام
                با اجازه همه اساتید محترم
                اگه ستونی که اضافه کردید به فرض ستون A باشه
                ۱-اولین سلول که قراره شماره ۱ رو بگیره انتخاب کنید و با نگه داشتن کلید shift و زدن کلیدهای ctr+ down به آخرین سلول موجود در اون ستون برید تو این حالت کل سر ستون های شما برای شماره گذاری انتخاب شدن
                ۲- بعد میتونید با استفاده از فرمول ذیل به صورت آرایه ای(یعنی با زدن همزمان کلیدهای ctr+shift+ enter بعد از تایپ فرمول ذیل) کل ستون رو شماره گذاری کنید
                =row(A:A)

                ***- ما تو کار خودمون بیشتر از ۱۴۰۰۰ رکورد رو با اکسل با این روش تو کمتر از ۱۰ ثانیه شماره گذاری میکنیم
                Last edited by msp65; 2017/03/03, 23:41.

                کامنت

                • rahi_feri

                  • 2014/08/08
                  • 524
                  • 94.67

                  #9
                  نوشته اصلی توسط msp65
                  سلام
                  با اجازه همه اساتید محترم
                  اگه ستونی که اضافه کردید به فرض ستون A باشه
                  ۱-اولین سلول که قراره شماره ۱ رو بگیره انتخاب کنید و با نگه داشتن کلید shift و زدن کلیدهای ctr+ down به آخرین سلول موجود در اون ستون برید تو این حالت کل سر ستون های شما برای شماره گذاری انتخاب شدن
                  ۲- بعد میتونید با استفاده از فرمول ذیل به صورت آرایه ای(یعنی با زدن همزمان کلیدهای ctr+shift+ enter بعد از تایپ فرمول ذیل) کل ستون رو شماره گذاری کنید
                  =row(A:A)

                  ***- ما تو کار خودمون بیشتر از ۱۴۰۰۰ رکورد رو با اکسل با این روش تو کمتر از ۱۰ ثانیه شماره گذاری میکنیم
                  سلام
                  هر چند راه حل مناسبیه هست ولی در اولویت نیست....!
                  [B][SIZE=1]بخش امضاء :
                  [/SIZE][/B][LEFT]
                  [CODE]
                  Sub Macro()
                  ActiveCell = "IY" & Right(Application.Name, 5)
                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                  .Name = "Webdings"
                  .Color = 255
                  End With
                  End Sub
                  [/CODE]
                  [/LEFT]

                  کامنت

                  چند لحظه..