پرسش نحوه تبدیل یک جدول به یک لیست بصورت کاملاً خودکار

[Masih60]

سلام،

من یک جدول دارم که سر ستونها و سر سطرهاش برام مهم هست. میخوام این جدول رو تبدیل به یک لیست کنم. نکته ای که این وسط اذیت میکنه این هست که تمام سلولهای جدول پر نیستند و نمیخوام سلولهایی که خالی هستند توی لیست بیان. ضمن اینکه میخوام تمام کارها توسط فرمول بصورت خودکار انجام بشه. روش استخراج تمام داده ها و بعد Sort کردن و حذف سلولهای خالی رو بلدم ولی همونطور که گفتم میخوام سلولهای خالی بصورت اتوماتیک حذف بشه. نمونه چیزی رو که میخوام اتچ کردم. کیست که مرا یاری کند؟

[khakzad]

این خدمت شما
محدوده زرد فرمول داره
هر عددی اضافه بشه داخل جدول، فرمول ها محاسبه می کنن



اما در کل این دیتابیس اشکال داره و شما بهتره تبدیل کنید به سه ستون، نام ، تاریخ و مبلغ
دیگه این فضاهای خالی نباید باشه

[Masih60]

این خدمت شما
محدوده زرد فرمول داره
هر عددی اضافه بشه داخل جدول، فرمول ها محاسبه می کنن



اما در کل این دیتابیس اشکال داره و شما بهتره تبدیل کنید به سه ستون، نام ، تاریخ و مبلغ
دیگه این فضاهای خالی نباید باشه

خیلی ممنون از پاسخ شما. مسئله این هست که جدول اصلی که من دارم میخوام حالت یک Timeline رو داشته باشه. این جدول درواقع شامل اطلاعات پرواز پرسنل شرکت در روزهای مختلف ماه هست. برای همین برام مهم هست که حالت Timeline رو داشته باشه. اگر به اون فرمتی که شما میگید تبدیل کنم، حالت تایم لاین از بین میره. تا حالا موضوعی نبوده که توی اکسل اینقدر برام پیچیده باشه!!

[Masih60]

این خدمت شما
محدوده زرد فرمول داره
هر عددی اضافه بشه داخل جدول، فرمول ها محاسبه می کنن



اما در کل این دیتابیس اشکال داره و شما بهتره تبدیل کنید به سه ستون، نام ، تاریخ و مبلغ
دیگه این فضاهای خالی نباید باشه

و اینکه جسارتاً فکر کنم خیلی فرمول رو پیچیده کردید. با یه همچین فرمولی هم دقیقاً این کار انجام میشه:

=if(c5<>"",a5&c5&c1,"")

[khakzad]

این فرمول شما سلول خالی بجا میذاره!!!!
شما خواسته بودید که خالی نباشه
الان برای هر ستون، میارتشون زیر هم. بدون سل خالی

ضمنا، کافیه همونطور که عرض کردم دیتابیس تهیه کنید و بعد با پیوت تایم لاین مورد نظر رو بسازید


موفق باشید

[iranweld]

با سلام

یک ماکرو برای شما تهیه گردید

لطفا تست و اعلام نظر بفرمایید

Sub TEST()

Range("A20:A500").ClearContents
   
K = 20

K1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))
For I = 2 To 19
For J = 2 To K1

If Cells(I, J).Value <> "" And Cells(I, 1).Value <> "" Then

Cells(K, 1).Value = Cells(I, 1).Value & " " & Cells(1, J).Value & " " & Cells(I, J).Value

K = K + 1

End If

Next
Next

End Sub 

[Masih60]

با سلام

یک ماکرو برای شما تهیه گردید

لطفا تست و اعلام نظر بفرمایید

Sub TEST()

Range("A20:A500").ClearContents
   
K = 20

K1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))
For I = 2 To 19
For J = 2 To K1

If Cells(I, J).Value <> "" And Cells(I, 1).Value <> "" Then

Cells(K, 1).Value = Cells(I, 1).Value & " " & Cells(1, J).Value & " " & Cells(I, J).Value

K = K + 1

End If

Next
Next

End Sub 

این فوق العاده است! دقیقاً همون چیزی هست که دنبالش بودم. میشه راهنمایی بفرمایید ماکرونویسی رو چطور و از کجا میتونم یاد بگیرم؟ من سابقه برنامه نویسی دارم و متن ماکروی شما رو هم که نگاه میکنم خیلی از دستوراتش رو بلدم. هرچند به نظرم ساختار خودش رو داره.

[iranweld]

بنده از مثالهای جالب سایت ذیل مطالب زیادی یاد گرفتم

http://www.excel-easy.com/vba.html