با درود فراوان
خیلی خوبه و لطف برفمائید نحوه استفاده ای که کرده اید هم در اینجا توضیح دهید تا دوستانی با این موضوع روبرو می شوند نیز استفاده ببرند
با درود فراوان
خیلی خوبه و لطف برفمائید نحوه استفاده ای که کرده اید هم در اینجا توضیح دهید تا دوستانی با این موضوع روبرو می شوند نیز استفاده ببرند
چشم قربان
شرمنده :blush: ، خیلی مسخره حل میشه اصلاً به پای راه حل های استاد shamsololama عزیز نمیرسه
البته تقصیر این نرم افزاره که فقط به این جواب نمره میده خیلی بیسواده
ابتدا توی سطر اول یعنی خانه های D4 تا H4 اعدادی بزرگتر از 23 و کمتر از 100 وارد میکنیم مثلاً 30 ، 40 ، 50 ، 60 ، 70 بعد با استفاده از Auto Fill ( همون مربع سیاه کوچیک که وقتی یک خانه رو انتخاب میکنیم گوشه پایینش ظاهر میشه !:P ) یکی یکی درگ میکنیم ( 5 بار ) البته با این روش تمام اعداد هر ستون برابر میشه مثلاً ستون اول فقط 30 است دومی 40 و ...
(( که اگه بخواهیم اعداد مثل هم نشه کلیک راست را گرفته و درگ میکنیم بعد گزینه Fill series را انتخاب میکنیم که به اعداد یکی یکی اضافه میشه ))
و در آخر هم همین کار را برای 4 خانه که خودمان به دلخواه انتخاب کردیم انجام میدهیم ولی اینبار با عددی کمتر از 23
خیلی بد و ابتدایی گفتم شرمنده ولی
امیدوارم تونسته باشم منظور رو برسونم
با ارادت از استاد عزیزم
با درود فراوان
بله این راه حل که شما فرمودید در واقع همان پر کردن دستی است و در واقع برنامه خاصی لازم ندارد
و اگر این راه حل مورد قبول نرم افزاری است که از شما سئوال کرده پس اگر از همان اول در یک صفحه دیگر شماره ها را می نوشتی و همه را کپی کرده و در این جدول پیست می کردی فکر می کنم مورد قبول نرم افزار واقع میشد می تونی یه امتحان کنی
با سلام
آره با کپی هم جواب میده
اول من نمره هارو یکی یکی وارد میکردم بخاطر همین بود که جواب نمیداد
به هر حال از کمک های مفیدتون ممنونم
با سلام خدمت همه دوستان
من فرمولی نوشتم که میتونین اون رو درگ کنین و جواب به سئوال از حالت دستی درمیاد. چون در فرمول ارجاع به سلول جاری هم درنظرگرفته شده بایستی خطای Circular refrences رو بطریق زیر خنثی کنیم:
در 2007: مسير زير را دنبال كنيد و تيك Enable Eterative Calculation را فعال كنيد.
Office Button\Excel Option\Formula
در 2003: مسير زير را دنبال كنيد و تيك Interation را فعال كنيد.
Tools\Option\Calculation
num_ نام محدوده موردنظر شماست. پس از انتخاب محدوده و درج كد زير كليدهاي تركيبي Ctrl+Enter را فشار دهيد.
[align=left][/align]کد:=IF(COUNTIF(num_,"<30")<4,RANDBETWEEN(0,30),RANDBETWEEN(30,100))
تركيب توابع Round, Rand نتيجه تابع Randbetween را در 2003 برميگرداند. لذا با جايگزين كردن كد زير نتيجه اي مشابه را در 2003 خواهيم داشت.
[align=left][/align]کد:=IF(COUNTIF(num_2003,"<30")<4,ROUND(RAND()*30,0),100-ROUND(RAND()*30,0))
تنها نقصي كه دراين كد وجود داره اين هست كه 24عدد ديگه در رنج 70و100 توليد ميشن كه در اينجا ملاك مسئله نيست.
سلام به اساتید محترم
من چند سوال در مورد یکی از لیستهای اکسل دارم که توسط یکی از دوستان برنامه نویس پویا شده...
لیست اکسل این هست:
http://www.4shared.com/file/aobmMime/Excel_List_v14_CP.html
سوالها با توجه به این لیستی هست که اتچ کردم
سوال اول:
چطور باید پیغام خوش امد گویی در هنگام باز کردن لیست رو ساخت؟
2:
همونطور که میبنید لیست دارای چک باکس (فاکتور فروش ) هست
ساده ترین روش برای ساخت چک باکس چی هست؟
3:
همونطور که در لیست میبینید وقتی عنوانی (فیلمی ) انتخاب میشه فقط اون عنوان در شیت اخر قرار میگیره که این کار برای اینه که مواردی که انتخاب شده با فرمت پی دی اف ذخیره بشن
حالا سوال من اینه که چطور باید قالب پی دی اف در لیست اکسل قرار داد تا بتوان عناوینی که انتخاب شده ند رو با فرمت پی دی اف ذخیره کرد؟
در واقع اون سلول ذخیره سازی با فرمت پی دی اف و سلول پاک کردن انتخابها چطور ساخته شده اند؟
سوال چهارم اینکه :
ایا روشی هست که کسی نتونه به هیچ طریقی اطلاعات داخل اکسل را کپی کنه؟ یعنی اطلاعات و نوشته های داخل لیست فقط قابل دیدن باشند و نتوان برروی ان برای کپی کردن کلیک کرد؟
ممنون میشم اگر اساتید جواب و اموزش این سوالات شاید پیش پا افتاده رو بدهند
با سپاس
سلام
در مورد سوال اول:
یک userform باید ایجاد کنید.در محیط VBA به اینصورت که:
کلید alt+f11 رو بزنید
در صفحه باز شده از منوی insert کزینه userform رو بزنید. از طریق toolbox مواردی رو که مورد نظر شماست مثل lable یا command buttomn رو بذازید.برای نوشتن کدها هم به فایل نمونه زیر مراجعه کنید.کد خاصی نیست.اما بهتره که اینو ببینید
باز هم در خدمتم
جهت راحتی دانلود، فقط شیت کورد نیاز رو گذاشتم. به کدها دقت کنید.[hr]
متوجه سوال 2 نشدم. توضیح بیشتر بدید لطفا.
سوال 3 هم کدvb هست. که البته من کدش رو نمیدونم!!
در مورد سوال 4، امکان کپی نشدن فرمولها از طریق پروتکت کردن شیت وجود داره.اما در مورد اطلاعات داخل شیت باز هم نیاز به کد هست که دوستان حتما در اختیار می ذارن[hr]
اینم کد مربوط به سوال آخر
کافیه کد مربوطه رو در module کپی کنید
مشاهده می کنید که کپی و کات هر دو غیر فعال هستند
با سپاس از شما دوست گرامی
دوست خوب میشه در مورد وارد کردن کدها بیشتر توضیح بدین
من یوزر فرم رو میسازم و وقتی همون موقع ران میکنم اجرا میشه اما وقتی فایلو سیو میکنم و دوباره میخوام فایل اکسلم رو ران کنم اصلا این userform رو که درست کردم نمی بینم
همین مشکل رو درمورد سوال چهارم دارم
اول اینکه من کدوم کد رو باید توی ماژول کپی کنم (کد نه توی فایل اتچ بود و نه توی پست قبلیتون) دوم اینکه همینطوری کپی پیس کنم
مثلا وقتی من یکی از اون موارد رو تو اون مربع قرار میدم و روش کلیک میکنم این میاد
Private Sub Frame1_Click()
End Sub
حالا باید کد رو توی سطر خالی بذارم یا؟
با درود فراوان
با تشکر از khakzad برای جواب خوب و نمونه فایل ها
دوست عزیز نمونه فایلی که برای سئوال ضمیمه کرده بودی متاسفانه نتوانستم دانلود کنم و برای من فیلتره و دسترسی ندارم که البته Khakzad بیشتر آنها را پاسخ داده اند .
در مورد اینکه یوزر فرم را طراحی می کنی و یا کد نویسی و بعد از سیو از هیچکدان خبری نیست به این دلیل است که شما در اکسل 2007 کار میکنید و در اکسل 2007 وقتی فایلی حاوی فرم و یا ماکرو باشد با پسوند خاصی که ماکرو را نگهداری می کند سیو شود یعنی (XLSM) که M آخر نشان دهنده این است که فایل دارای ماکرو است.
من با اکسل 2010 این مشکل رو دارم:-/نوشته اصلی توسط shamsololama
در حال حاضر 2 کاربر در حال مشاهده این موضوع است. (0 کاربران و 2 مهمان ها)
علاقه مندی ها (Bookmarks)