ثابت کردن چند ردیف بالای اکسل

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali719

    • 2013/12/05
    • 207

    ثابت کردن چند ردیف بالای اکسل

    سلام من یک فایل دارم شامل چندین شیت میباشد که هر شیت چندین صفحه دارد می خوام چند ردیف اول در بالای تمام صفحات در شیت مورد نظر در پرینت ظاهر شود برای همین خاطر در قسمت page layout تنظیمات را انجام میدهم ولی باز میبینم اون چند ردیف در بالای صفحات ظاهر نمی شود علت چیست
  • majid_mx4

    • 2012/06/25
    • 699

    #2
    با سلام

    دوست عزیز لطفا در همان قسمت page layout از گروه Page setup گزینه Print Titles را انتخاب کنید و ردیف های موردنظر خود را در مقابل Rows to Repeat at Top انتخاب کنید .


    موفق باشید میر
    Last edited by majid_mx4; 2017/01/13, 12:36.

    کامنت

    • ali719

      • 2013/12/05
      • 207

      #3
      سلام منظور من هم همینه اینکار رو می کنم جواب نمیده ولی اگه اون شیت رو جدا کرده و جداگانه باز کنم می بینم درست شده برام سوال شده چرا در آن ورک بوک از بین 100 شیت مثلا 20 شیت اینجوریه تنها راهش اینه که اونها را جدا کنم و جدا پرینت بگیرم

      کامنت

      • 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]

        کامنت

        • majid_mx4

          • 2012/06/25
          • 699

          #5
          با سلام

          لطفافایل ضمیمه را بررسی نمایید.

          توضیح : تکرار ردیفهای مورد نظر در هنگام پرینت در تمامی صفحات

          برای دیدن دستورات میتوانید از کلیدهای Alt + f11 استفاده نمایید. عدد های 1 و 3 همان ردیف 1 تا 3 است که به دلخواه قابل تغییر است .

          کد:
          Sub TitelRow()
           For Each ws In ThisWorkbook.Worksheets
           If ws.Visible = True Then
          Sheets(ws.Name).PageSetup.PrintTitleRows = "$1:$3"
           End If
           Next ws
          End Sub
          پایدار باشید میر
          فایل های پیوست شده

          کامنت

          چند لحظه..