ادغام مقادیر چند سلول در یک سلول

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

    • 2016/07/21
    • 73

    [حل شده] ادغام مقادیر چند سلول در یک سلول

    سلام خدمت دوستان عزیز
    لطفا فایل پیوست شده را ببنید
    سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
    ممنون
    فایل های پیوست شده
    [SIZE=4][COLOR=#008000][FONT=tahoma]هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام[/FONT][/COLOR][/SIZE]
  • M_ExceL

    • 2018/04/23
    • 677

    #2
    نوشته اصلی توسط zamen58
    سلام خدمت دوستان عزیز
    لطفا فایل پیوست شده را ببنید
    سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
    ممنون
    سلام
    بصورت زیر :
    کد:
    =a1&c1&g1&h1&j1&m1&n1&o1&q1&s1
    جهت ایجاد فاصله بصورت زیر :
    کد:
    =a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1
    بفرمایید :
    فایل های پیوست شده
    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
    [/CENTER]

    کامنت

    • ZAMEN58

      • 2016/07/21
      • 73

      #3
      نوشته اصلی توسط M_ExceL
      سلام
      بصورت زیر :
      کد:
      =a1&c1&g1&h1&j1&m1&n1&o1&q1&s1
      جهت ایجاد فاصله بصورت زیر :
      کد:
      =a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1
      بفرمایید :
      سلام دوست عزیز خسته نباشید !!!!
      این یه مثال هستش از n مقدار سلولی که توی سطر اول موجوده و باید کنار هم بیاد
      [SIZE=4][COLOR=#008000][FONT=tahoma]هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
      حضرت امیر علیه السلام[/FONT][/COLOR][/SIZE]

      کامنت

      • M_ExceL

        • 2018/04/23
        • 677

        #4
        نوشته اصلی توسط ZAMEN58
        سلام دوست عزیز خسته نباشید !!!!
        این یه مثال هستش از n مقدار سلولی که توی سطر اول موجوده و باید کنار هم بیاد
        سلام
        البته شما ذکر نکردید که می خواید همچین کاری صورت بگیره و عنوانتون هم نوشتید چند سلول!
        بنده طبق فایلی که گذاشتید راهنمایی کردم
        این تابع همون چیزی که می خواید رو انجام میده :
        کد:
        Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
            Dim finalValue As String
        
            Dim cell As Excel.Range
        
            For Each cell In sourceRange.Cells
                finalValue = finalValue + CStr(cell.Value)
            Next cell
        
            ConcatinateAllCellValuesInRange = finalValue
        End Function
        قسمت سبز رنگ رو ببنید داخل فایل در واقع این تابع تمام ردیف مورد نظر رو ادغام میکنه.
        موفق باشید
        فایل های پیوست شده
        [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
        [/CENTER]

        کامنت

        • iranweld

          • 2015/03/29
          • 3341

          #5
          با سلام

          از کدهای ذیل استفاده کنید

          کد PHP:
          Sub test()

          Dim xx

          k1 
          ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column

          For 1 To k1

          If Cells(1I) <> "" Then


          xx 
          xx Cells(1I)

          End If

          Next

          Range
          ("A2") = xx

          End Sub 
          فایل های پیوست شده

          کامنت

          چند لحظه..