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

[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 خالي است؟