سوالات گوناگون و متنوع از اکسل

**sparrow** · 2010/08/11, 12:01

RE: سوالات گوناگون و متنوع از اکسل

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

**shamsololama** · 2010/08/12, 07:55

RE: سوالات گوناگون و متنوع از اکسل

با درود فراوان

آره راه ساده تری هم هست
اما باید خانه هایی که باید بین 0 تا30 باشه و خانه هایی که از 30 تا 100 باشه را از قبل مشخص کنید
یعنی چهار تا خانه ای که می خواهی بین 0 تا 30 باشه را با تابع زیر پر کنید
=Randbetween(0,29)
و بقیه خانه که می خواهید بین 30 تا 100 باشه را با تابع زیر پر کنید
=Randbetween(30,100)
با این تابع می تونید به جواب دلخواه برسی ولی با روش قبل نیاز به خانه هایی که از 30 کمتر است نیست و بصورت رندم پر می شود

**sparrow** · 2010/08/12, 10:23

RE: سوالات گوناگون و متنوع از اکسل

با سلام و تشکر فراوان از توجه شما
فکر کنم در Excel 2003 تابع Randbetween وجود نداره
آیا میشه با تابع Rand سوالو حل کرد ؟ ( چون تابع Rand فقط اعدادی بین 0 و عدد مورد نظر رو میده )

**shamsololama** · 2010/08/12, 10:29

RE: سوالات گوناگون و متنوع از اکسل

با درود فراوان
چرا وجود داره من خودم با 2003 کار میکنم این تابه هم داخل 2003 نوشتم

**sparrow** · 2010/08/12, 12:28

RE: سوالات گوناگون و متنوع از اکسل

با سلام مجدد
بالاخره موفق شدم
با َAuto Fill یا Fill Series هم جواب میده
از راهنمایی های مفید شما هم خیلی خیلی تشکر میکنم

**shamsololama** · 2010/08/12, 13:03

RE: سوالات گوناگون و متنوع از اکسل

با درود فراوان

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

**sparrow** · 2010/08/12, 13:50

RE: سوالات گوناگون و متنوع از اکسل

چشم قربان
شرمنده :blush: ، خیلی مسخره حل میشه اصلاً به پای راه حل های استاد shamsololama عزیز نمیرسه
البته تقصیر این نرم افزاره که فقط به این جواب نمره میده خیلی بیسواده

ابتدا توی سطر اول یعنی خانه های D4 تا H4 اعدادی بزرگتر از 23 و کمتر از 100 وارد میکنیم مثلاً 30 ، 40 ، 50 ، 60 ، 70 بعد با استفاده از Auto Fill ( همون مربع سیاه کوچیک که وقتی یک خانه رو انتخاب میکنیم گوشه پایینش ظاهر میشه !:P ) یکی یکی درگ میکنیم ( 5 بار ) البته با این روش تمام اعداد هر ستون برابر میشه مثلاً ستون اول فقط 30 است دومی 40 و ...
(( که اگه بخواهیم اعداد مثل هم نشه کلیک راست را گرفته و درگ میکنیم بعد گزینه Fill series را انتخاب میکنیم که به اعداد یکی یکی اضافه میشه ))
و در آخر هم همین کار را برای 4 خانه که خودمان به دلخواه انتخاب کردیم انجام میدهیم ولی اینبار با عددی کمتر از 23

خیلی بد و ابتدایی گفتم شرمنده ولی
امیدوارم تونسته باشم منظور رو برسونم
با ارادت از استاد عزیزم

**shamsololama** · 2010/08/12, 15:57

RE: سوالات گوناگون و متنوع از اکسل

با درود فراوان
بله این راه حل که شما فرمودید در واقع همان پر کردن دستی است و در واقع برنامه خاصی لازم ندارد
و اگر این راه حل مورد قبول نرم افزاری است که از شما سئوال کرده پس اگر از همان اول در یک صفحه دیگر شماره ها را می نوشتی و همه را کپی کرده و در این جدول پیست می کردی فکر می کنم مورد قبول نرم افزار واقع میشد می تونی یه امتحان کنی

**sparrow** · 2010/08/14, 09:53

RE: سوالات گوناگون و متنوع از اکسل

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

**amator** · 2010/08/14, 11:03

RE: سوالات گوناگون و متنوع از اکسل

با سلام خدمت همه دوستان
من فرمولی نوشتم که میتونین اون رو درگ کنین و جواب به سئوال از حالت دستی درمیاد. چون در فرمول ارجاع به سلول جاری هم درنظرگرفته شده بایستی خطای Circular refrences رو بطریق زیر خنثی کنیم:
در 2007: مسير زير را دنبال كنيد و تيك Enable Eterative Calculation را فعال كنيد.
Office Button\Excel Option\Formula
در 2003: مسير زير را دنبال كنيد و تيك Interation را فعال كنيد.
Tools\Option\Calculation
num_ نام محدوده موردنظر شماست. پس از انتخاب محدوده و درج كد زير كليدهاي تركيبي Ctrl+Enter را فشار دهيد.
[align=left]

کد:

=IF(COUNTIF(num_,"<30")<4,RANDBETWEEN(0,30),RANDBETWEEN(30,100))

[/align]
تركيب توابع Round, Rand نتيجه تابع Randbetween را در 2003 برميگرداند. لذا با جايگزين كردن كد زير نتيجه اي مشابه را در 2003 خواهيم داشت.
[align=left]

کد:

=IF(COUNTIF(num_2003,"<30")<4,ROUND(RAND()*30,0),100-ROUND(RAND()*30,0))

[/align]
تنها نقصي كه دراين كد وجود داره اين هست كه 24عدد ديگه در رنج 70و100 توليد ميشن كه در اينجا ملاك مسئله نيست.

**【★ tv_kade ★】** · 2010/09/04, 00:28

RE: سوالات گوناگون و متنوع از اکسل

سلام به اساتید محترم

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

لیست اکسل این هست:

http://www.4shared.com/file/aobmMime/Excel_List_v14_CP.html
سوالها با توجه به این لیستی هست که اتچ کردم

سوال اول:

چطور باید پیغام خوش امد گویی در هنگام باز کردن لیست رو ساخت؟

2:
همونطور که میبنید لیست دارای چک باکس (فاکتور فروش ) هست
ساده ترین روش برای ساخت چک باکس چی هست؟

3:
همونطور که در لیست میبینید وقتی عنوانی (فیلمی ) انتخاب میشه فقط اون عنوان در شیت اخر قرار میگیره که این کار برای اینه که مواردی که انتخاب شده با فرمت پی دی اف ذخیره بشن
حالا سوال من اینه که چطور باید قالب پی دی اف در لیست اکسل قرار داد تا بتوان عناوینی که انتخاب شده ند رو با فرمت پی دی اف ذخیره کرد؟
در واقع اون سلول ذخیره سازی با فرمت پی دی اف و سلول پاک کردن انتخابها چطور ساخته شده اند؟

سوال چهارم اینکه :
ایا روشی هست که کسی نتونه به هیچ طریقی اطلاعات داخل اکسل را کپی کنه؟ یعنی اطلاعات و نوشته های داخل لیست فقط قابل دیدن باشند و نتوان برروی ان برای کپی کردن کلیک کرد؟

ممنون میشم اگر اساتید جواب و اموزش این سوالات شاید پیش پا افتاده رو بدهند

با سپاس

**khakzad** · 2010/09/04, 01:47

RE: سوالات گوناگون و متنوع از اکسل

سلام
در مورد سوال اول:
یک userform باید ایجاد کنید.در محیط VBA به اینصورت که:
کلید alt+f11 رو بزنید
در صفحه باز شده از منوی insert کزینه userform رو بزنید. از طریق toolbox مواردی رو که مورد نظر شماست مثل lable یا command buttomn رو بذازید.برای نوشتن کدها هم به فایل نمونه زیر مراجعه کنید.کد خاصی نیست.اما بهتره که اینو ببینید
باز هم در خدمتم
جهت راحتی دانلود، فقط شیت کورد نیاز رو گذاشتم. به کدها دقت کنید.[hr]
متوجه سوال 2 نشدم. توضیح بیشتر بدید لطفا.
سوال 3 هم کدvb هست. که البته من کدش رو نمیدونم!!
در مورد سوال 4، امکان کپی نشدن فرمولها از طریق پروتکت کردن شیت وجود داره.اما در مورد اطلاعات داخل شیت باز هم نیاز به کد هست که دوستان حتما در اختیار می ذارن

[hr]
اینم کد مربوط به سوال آخر
کافیه کد مربوطه رو در module کپی کنید
مشاهده می کنید که کپی و کات هر دو غیر فعال هستند

فایل های پیوست شده

**【★ tv_kade ★】** · 2010/09/05, 02:12

RE: سوالات گوناگون و متنوع از اکسل

با سپاس از شما دوست گرامی

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

همین مشکل رو درمورد سوال چهارم دارم
اول اینکه من کدوم کد رو باید توی ماژول کپی کنم (کد نه توی فایل اتچ بود و نه توی پست قبلیتون) دوم اینکه همینطوری کپی پیس کنم
مثلا وقتی من یکی از اون موارد رو تو اون مربع قرار میدم و روش کلیک میکنم این میاد

Private Sub Frame1_Click()

End Sub

حالا باید کد رو توی سطر خالی بذارم یا؟

**shamsololama** · 2010/09/05, 08:24

RE: سوالات گوناگون و متنوع از اکسل

با درود فراوان

با تشکر از khakzad برای جواب خوب و نمونه فایل ها

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

در مورد اینکه یوزر فرم را طراحی می کنی و یا کد نویسی و بعد از سیو از هیچکدان خبری نیست به این دلیل است که شما در اکسل 2007 کار میکنید و در اکسل 2007 وقتی فایلی حاوی فرم و یا ماکرو باشد با پسوند خاصی که ماکرو را نگهداری می کند سیو شود یعنی (XLSM) که M آخر نشان دهنده این است که فایل دارای ماکرو است.

**【★ tv_kade ★】** · 2010/09/05, 09:33

RE: سوالات گوناگون و متنوع از اکسل

نوشته اصلی توسط shamsololama

در مورد اینکه یوزر فرم را طراحی می کنی و یا کد نویسی و بعد از سیو از هیچکدان خبری نیست به این دلیل است که شما در اکسل 2007 کار میکنید و در اکسل 2007 وقتی فایلی حاوی فرم و یا ماکرو باشد با پسوند خاصی که ماکرو را نگهداری می کند سیو شود یعنی (XLSM) که M آخر نشان دهنده این است که فایل دارای ماکرو است.

من با اکسل 2010 این مشکل رو دارم:-/