بله این مشکل حل شد
ولی دوتا سوال دیگه را کسی جواب بده
یک مسئله دیگه اینکه برا یجملات چند شرطی تا یک تعداد معینی میتوان از IFهای تودرتو استفاده کرد که اگر بیشتر شود پیغام خطا میدهد .
این مشکل را چطور میشه حل کرد؟؟؟؟
بله این مشکل حل شد
ولی دوتا سوال دیگه را کسی جواب بده
یک مسئله دیگه اینکه برا یجملات چند شرطی تا یک تعداد معینی میتوان از IFهای تودرتو استفاده کرد که اگر بیشتر شود پیغام خطا میدهد .
این مشکل را چطور میشه حل کرد؟؟؟؟
سلام
يه نمونه از اوني كه ميگي بذار
از اون فرمهاي آماده
همونطور هم كه من گفتم اول كار براي اينكار روشهاي متعددي هست كه توي همون دو تا پست دو تا روش اشاره شده
شما نمونه رو بذار تا من چك كنم
سلام دوست عزيز
اين كدي كه اين زير قرار دادم به رنج B4:K38 را انتخاب كرده و بر اساس ستون E مرتب ميكنه
Sub Macro1()
Range("B4:K38").SelectEnd Sub
ActiveWorkbook.Worksheets("Sort E").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sort E").Sort.SortFields.Add Key:=Range("E4:E38") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sort E").Sort
.SetRange Range("B4:K38")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
براي استفاده از اين كد در جاي ديگه بايد جايگزينيهاي مناسب انجام بگيره
همچينين اگه ميخواي با تغيير اطلاعات Worksheet اتوماتيك كد اجرا بشه بايد اين كد رو در رويداد زير نوشته بشه
يعني قسمتهاي مشكي رنگ كد بالا جاي چند نقطه ها رو بگيره
اگه نه ميتوني همون كد رو به عنوان يه ماژول استفاده كرده و براش يك كليد تركيبي (Shortcut Key) تعريف كرده تا با زدن اون كد اجرا بشه
Private Sub Worksheet_Change(ByVal Target As Range)
....
....
....
....
....
End Subدر كل بايد بگم كار كردن با كدهاي VBA نياز به كمي دونستن برنامه نويسي داره
موفق باشي
سلام
شما چطور اينا رو نزولي مرتب ميكني كه مشكل برات پيش مياد
چون اينكار نيازي به ساختن لينك نداره
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
سلام
متاسفانه نمی دونم چطوری نمونه را برات بزارم ولی آدرس و می نویسن بی زحمت چکش کنید
روی علامتآفیس 2007 در گوشه سمت چپ اکسل کلیک کنید گزینه new را انتخاب و سپس از قسمت templastes
گزینه دوم installedtemplastes را انتخاب در کادر باز شده نمونه های مختلفی وجود دارد منظور من نمونه TimeCard است
(اگه میشه نحوه گذاشتن فایل رو هم بگید )
سلام
جالب بود برام كه اين نكات ريز رو تا حالا با دقت توي اكسل مرور نكرده بودم
سوال شما باعث شد برم و جستجو كنم و بيابم
اگه بخواي اين كارو بكني كافيه از قسمت Advanced كادر تنظيمات اكسل (Excel Option) بگردي دنبال گزينه Show a zero in cells that have zero value و تيكش رو بذار
مقاله كامل در اين آدرس در دسترس هست
موفق باشيکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
براي گذاشتن فايل هم بايد فايل موردنظر را يه جا آپلود كني و آدرسش رو بذاري اينجا
البته براي فايلهاي در دسترس هم همونطور كه گفتي كافيه
سلام رفتم و ok شد
خیلی وقت دنبال این بودم چون خیلی با اکسل کار می کنم و سلولهاو صفحات متعددی گاهاً در 40 یا 50 شیت دارای فرمول وابسته به هم می نوشتم و این صفر ها مخصوصاً در پرینت واقعاً آزار دهنده بود
تشکر
من برای جمع ستون A باB مجبورم که تک تک بصورت A1+B1=C1 و.... عمل کنم
چطوری میتونم ستون c رو مجموع A و B کنم یعنی به این صورت که خود بخود A2+B2=C2 , A1+B1=C1 ,..... الی اخر با یک عمل جمع بشه (یعنی در ستون c ردیف ها مجموع ردیف های کناری باشه)
من یه نیگا کردم این سوالو تو پستا ندیدم اگه تکراریه ببخشید
Last edited by sinasignal; 31-05-2008 at 12:37.
سلام
فقط کافیه فرمولی که در c1 نوشتی رو در هر سلول دیگری که بخوای copy, pest کنی تا دو سلول قبل خود را با هم جمع کنه
سلام دوست عزيز
شما بعد از اينكه فرمول مورد نظر در خانه C1 نوشتي كافيه اون مربع كوچيك و مشكي كه پايين و سمت راست يا چپ خانه C1 وجود داره رو بگيري و بكشي به سمت پايين تا بصورت اتوماتيك خانه هاي ديگه متناسب با اون فرمولي كه نوشتي پر بشن
اصطلاحا به اين خاصيت در اكسل AutoFill گفته ميشود
هم اکنون 4 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 4 مهمان)