آهان بله ... تازه متوجه شدم !!نوشته اصلی توسط rahi_feri
بسیار سپاسگزارم ...
فقط من کلی دیگه داده اینشکلی دارم ... ! میشه راهنماییم کنید بقیه رو هم بتونم انجام بدم ؟
بازم سپاس ..
آهان بله ... تازه متوجه شدم !!
بسیار سپاسگزارم ...
فقط من کلی دیگه داده اینشکلی دارم ... ! میشه راهنماییم کنید بقیه رو هم بتونم انجام بدم ؟
بازم سپاس ..
اگر ساختارشون همینجوریه! از همین کد می تونید استفاده کنید تا هر چند سطر ! (نه ستون / اگه تعداد ستون ها زیاد باشه نیاز به ویرایش کد هست)
تا جای امکان سعی کنید داده ها رو به همین صورت ستونی وارد کنید چون انجام محاسباتش به مراتب راحت تره!
بخش امضاء :
کد:Sub Macro() ActiveCell = "IY" & Right(Application.Name, 5) With ActiveCell.Characters(Start:=2, Length:=1).Font .Name = "Webdings" .Color = 255 End With End Sub
تعداد سطر های داده های من همین تعداد هستند ولی تعداد ستون ها بیشترن!
وقتی هم که اجرا میکنم اینشکلی میشن :
سلام
لطفا فایل رو بفرستید!
بخش امضاء :
کد:Sub Macro() ActiveCell = "IY" & Right(Application.Name, 5) With ActiveCell.Characters(Start:=2, Length:=1).Font .Name = "Webdings" .Color = 255 End With End Sub
واقعا ممنونم از پیگیری هاتون ...
این فایل یکم کلی تره، البته بازم داده هست که به ستون های پایینی اضافه بشه ولی هنوز به دستم نرسیده ...
حدود 15 تا دیگه از این فایل ها دارم که باید اصلاح بشن ...
سلام
چند تا نکته که به مشکل برنخورید!
اول از همه کاریرگی (شیت) که داده ها توشه اسمش sheet1 باشه مثله دو تا فایلی که تا الان بوده (اگرم خواستید تغییر بدید داخل کد تمام sheet1 ها رو به اسم شیتی که داده ها اونجاست تغییر بدید) .....
دوم وقتی می خواهید ماکرو رو اجرا کنید حتما در صفحه ای باشید که می خواهید داده ها زیر هم بیاد (همون شیت خالی یا مورد نظرتون) در خود شیت داده ها اجرا نکنید (چون دیگه نمی تونید undo کنید)....
الان این کد با هر چند تا ستون و سطر اجرا میشه فقط باید بدونید شاید یه کوچولو طول بکشه! (بستگی به سیتمتون داره) برای همین موقع running در اکسل کاری نکنید (یعنی فکر نکنید هنگ کرده دکمه ای پیزی بزنید)
در مورد نحوه اجرا ماکرو هم فکر نمی کنم مشکل داشته باشید اگر هم نیاز شد یه نمونه ویدئو قبلا برا کار دیگه ای گذاشتم ببینیدش :
پست شماره 8 این لینک:
[حل شده] قرار دادن داده ها در یک ستون
فقط فایل رو بدون ماکرو یعنی xlsx ذخیره کنید و برای انجام کار می تونید یا کد رو در فایل دیگه کپی کنید یا شیت داده ها رو ....
به صورت رندم چک کنید داده ها رو برای اطمینان!
ویرایش توسط rahi_feri : 2016/12/01 در ساعت 01:55
بخش امضاء :
کد:Sub Macro() ActiveCell = "IY" & Right(Application.Name, 5) With ActiveCell.Characters(Start:=2, Length:=1).Font .Name = "Webdings" .Color = 255 End With End Sub
خیلی خیلی لطف کردید .... خیلی ممنون ...
خدا خیرتون بده ....
من نمیدونستم ماکرو همچین قابلیتهایی داره ...!
سوال دیگه ای هم دارم .. ولی با اجازه برای نظم انجمن تو قسمت دیگه ای میپرسم....
بازم ممنون ..
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
مجوز های ارسال و ویرایش
علاقه مندی ها (Bookmarks)