ایجاد ردیف وMergeباسلول ردیف قبل

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • habib100

    • 2017/12/18
    • 112
    • 39.00

    [حل شده] ایجاد ردیف وMergeباسلول ردیف قبل

    با سلام و خسته نباشید
    فایل اکسلی دارم که می خواهم در ابتدا یک ردیف زیر هر ردیف اجاد شود و سپس با سلول بالا یی آن داده Merge شود.
    فایل نمونه را هم قرار داده ام.
    ممنون
    فایل های پیوست شده
  • M_ExceL

    • 2018/04/23
    • 677

    #2
    نوشته اصلی توسط habib100
    با سلام و خسته نباشید
    فایل اکسلی دارم که می خواهم در ابتدا یک ردیف زیر هر ردیف اجاد شود و سپس با سلول بالا یی آن داده Merge شود.
    فایل نمونه را هم قرار داده ام.
    ممنون
    سلام،
    کد:
    Sub M_ExceL()
    
    Dim End_Row, Row_Counter As Long
        
    Dim CelValue As Variant
    
            End_Row = (Cells(Rows.Count, 1).End(3).Row * 2)
            
            Row_Counter = 2
            
            Do
            
                CelValue = Cells(Row_Counter, 1).Value
                
                Cells((Row_Counter + 1), 1).EntireRow.Insert
                
                Range(Cells(Row_Counter, 1), Cells((Row_Counter + 1), 1)).Merge
                
                Range(Cells(Row_Counter, 2), Cells((Row_Counter + 1), 2)).Merge
                
                Row_Counter = Row_Counter + 2
            
            Loop While Row_Counter <> End_Row
    
    End Sub
    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
    [/CENTER]

    کامنت

    • saed.rasa

      • 2014/11/02
      • 1054

      #3
      سلام
      تست کنید لطفا!
      فایل های پیوست شده
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

      کامنت

      • habib100

        • 2017/12/18
        • 112
        • 39.00

        #4
        متشکرم.

        - - - Updated - - -

        خیلی متشکرم.

        کامنت

        چند لحظه..