افزودن ردیف به شیت مطابق با فرمتی خاص

[mobinsaffarpour]

دوستان عزیز سلام

من یک فایل txt. دارم که بصورت روزانه از طریق کدنوبسی اطلاعات فایل رو وارد اکسل میکنم. فایل اکسل من دارای یک فرمت خاص ( نوشتاری / برداری ) هست و میبایست با توجه به اینکه

روزانه فایل txt. من آپدیت میشه، ردیف هائی که به فایل اکسل از طریق کد نویسی اضافه میشه، از فرمت ردیف اول برای اونها استفاده بشه . حالا سوال من اینه که از چه طریقی میتونم

کاری کنم که در زمان اضافه شدن ردیف جدید به فایل اکسل فرمت ردیف اول به مابقی ردیفها اضافه بشه . ضمناً نمونه ای از فایل اکسل رو واسه آشنائی بپیوست قرار دادم . باتشکر از همه

[iranweld]

با سلام
بر روی یکی از سلولهای دارای دیتا در اکسل قرار بگیرید و کلید ctrl+t را بزنید تا تبدیل به جدول بشه
امیدوارم منظر شما رو درست فهمیده باشم

[mobinsaffarpour]

دوست عزیز سلام و متشکرم از توجه شما

من باید اینکار رو از طریق vba انجام بدم یعنی میخوام اتوماتیک فرمت ردیف اول به تمامی ردیفهائی که وارد فایل شدند کپی بشه . یعنی اگر 10 تا ردیف بود فقط تا ردیف 10 فرمت

حفظ بشه . ریز بینانه تر هم میشه، تمامی ردیف های که دارای اطلاعات نوشتاری هستند میبایست دارای فرمت ردیف اول شوند . باتشکر

[sabertb]

دوست عزیز سلام و متشکرم از توجه شما

من باید اینکار رو از طریق vba انجام بدم یعنی میخوام اتوماتیک فرمت ردیف اول به تمامی ردیفهائی که وارد فایل شدند کپی بشه . یعنی اگر 10 تا ردیف بود فقط تا ردیف 10 فرمت

حفظ بشه . ریز بینانه تر هم میشه، تمامی ردیف های که دارای اطلاعات نوشتاری هستند میبایست دارای فرمت ردیف اول شوند . باتشکر

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

[mobinsaffarpour]

واقعا مشکرم

کار بسیار عالی هست . اما یک مشکلی داره. زمانیکه اطلاعات یک سلول رو پاک می کنید فرمت خودش رو از دست میده.

[sabertb]

واقعا مشکرم

کار بسیار عالی هست . اما یک مشکلی داره. زمانیکه اطلاعات یک سلول رو پاک می کنید فرمت خودش رو از دست میده.

یعنی وقتی پاک میکنید رنگ سلول و خطکشی هاش هم از بین میره ؟
مگه اینکه کل سطر را حذف کنید . یا Incert بزنید . من امتحان کردم با پاک کردن معمولی فرقی نمیکنه مگه این که منظورتون این باشه که از وسط جدول یه سطر رو می خواید پاک کنید ولی حالت جدول بندی و رنگش بمونه که این مغایر کاندیشن هست . فکر کنم با کلک اونم بشه رفع کرد . میتونید توی اون سلول ها یه نقطه ای چیزی بزارید تا خالی نمونه و کاندیشن اعمال بشه ولی پرینت و چیزی نشون نده .

من فایل شما رو تا آخرین سلول Excel فرمت دهی کردم و کاندیشن دادم حجم فایل خیلی زیاد شده آپلود نمیشه

[mobinsaffarpour]

سلام دوست من

مرسی از توجه و وقتی که گذاشتی . من نمیتونم از نقطه یا هر کاراکتر دیگه ای استفاده کنم . چون این اطلاعات رو میبرم در یک سیستم دیگه بارگذاری میکنم و این کار مطابق با استاندارد های فایلی اون شرکت نیست و اینکه هم فقط باید از کدنویسی استفاده کنم . چون حجم فایل هم نباید سنگین باشه

[Ali Parsaei]

سلام،
با اين ماکرو مي شود به نتيجه رسيد ولي اينکه ماکرو اتوماتيک بعد از آپديت شيت عمل شود را نمي دانم! مگر اينکه در دستور بستن يا باز شدن فايل اجرا گردد!

Sub Macro1()
Dim C As Range
For Each C In Range("A4:A1000")
If C <> "" Then
    Rows("3:3").Select
    Selection.Copy
    Rows(C.Row).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End If
Next
End Sub 

[mobinsaffarpour]

واقعاً متشکرم آقای پارسا عزیز

دقیقاً مطابق با همون چیزی که میخواستم اما یک مورد و یک سوال

1 - اگر بین ردیف ها اطلاعاتی وجود نداشته باشه، فرمت رو اعمال نمیکنه و فکر میکنم دلیلش هم این هست که از ستون a شروع بکار میکنه.

2 - A4:a1000 چیه ؟

باتشکر

[Ali Parsaei]

واقعاً متشکرم آقای پارسا عزیز

دقیقاً مطابق با همون چیزی که میخواستم اما یک مورد و یک سوال

1 - اگر بین ردیف ها اطلاعاتی وجود نداشته باشه، فرمت رو اعمال نمیکنه و فکر میکنم دلیلش هم این هست که از ستون a شروع بکار میکنه.

2 - a4:a1000 چیه ؟

باتشکر

بله، ستون a را از خانه a4 تا a1000 بررسي مي کند، اگر در آنها اطلاعات وجود داشت فرمت سطر مربوطه را برابر سطر سوم قرار مي دهد.
حالا دقيقا" مشکل چيست؟ اون وسط ها ممکن است سطر خالي داشته باشيد؟ يا اينکه سطر حاوي اطلاعات است ولي اطلاعات در خانه هاي ديگر غير ستون a بوده و ستون a خالي است؟

[mobinsaffarpour]

جناب آقای پارسا

باسلام و عرض ادب

خدمت شما عرض کنم که دقیقاً هر دو مورد وجود داره :

1 - امکان اینکه ردیف خالی در بین ردیف های دیگر وجود داشته باشه زیاد هست .

2 - امکان اینکه در سلول های دیگر به غیر از ستون a اطلاعات وجود داشته باشه هم زیاد هست.

[mobinsaffarpour]

جناب آقای پارسا عزیز

میشه لطف کنید و اینکه پست رو تکمیل کنید . /باتشکر و عرض پوزش

[Ali Parsaei]

از اين کد استفاده کنيد:

Dim C As Integer
Dim D As Integer
C = Range("A:K").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Rows("3:3").Select
    Selection.Copy
For D = 4 To C
    Rows(D).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Next D
Application.CutCopyMode = False
Cells(D, 1).Select 

[mobinsaffarpour]

متشکرم آقای پارسا واقعاً جالب و کاربری خیلی لطف کردید . سپاسگذارم

[Ali Parsaei]

گفته بوديد تعداد سطرهايتان بالاي 35000 تا ممکن است باشد!
چنين محاسباتي با اکسل غير معقول است! ضمن اينکه کد فوق نيز به درد آن نمي خورد و تقريبا" وقت تلف کردن مي باشد!
با اين وجود اگر در محدوده خارج ستونهاي A تا K هيچ نوشته يا عبارتي در سلها درج نکرده باشيد از اين کد که فوق العاده سريعتر عمل مي کند مي توانيد استفاده کنيد:
(خط اول کد جهت انتخاب محدوده و کل خطهاي بعدي صرفا" جهت فرمت دهي به محدوده انتخابي است)

Range(Cells(3, 1), Cells(Selection.SpecialCells(xlCellTypeLastCell).Row, 11)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777164
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249977111117893
        .Weight = xlThick
    End With