ایجاد شیت با استفاده از ورود اطلاعات توسط کاربر

[art1364]

با سلام
اکسلی می خوام که این کارا را انجام بده
این اطلاعات را در صفحه اولش از کاربر بگیره
1- چند تا شیت می خوای؟
2- برای شیت هات چند تا ردیف رنگی کنم؟
3- برای شیت اولت چند تا ستون رنگی کنم؟
.
.
.
13- برای شیت دهم چند تا ستون رنگی کنم؟
14- حداقل داده هات و حداکثر داده ها چقدر است؟
15- ستون اول هر شیت فرمول Randbetween( حداقل داده، حداکثر داده) باشد؟
16- ستون های بعدی فرمول RANDBETWEEN((IF($A1="min data";$A1;$A1-1));(IF($A1="Max data";$A1;$A1+1)))
خروجی: 10 شیت ایجاد می کنه که هر شیت ردیف های مساوی ولی ستون های متفاوتی را رنگی کرده است.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

ظاهرا یک پروژه آماده میخواهید؟
شما کار رو شروع کنید هر جا مشکل داشتید دوستان شما را راهنمایی میکنند

[art1364]

سلام دوست عزیز
شروعش را بلد نیستم این پروژه اینجوری شروع میشه هنوز خیلی عملیات دیگه داره که اونا ساده هستند فقط اینکه چه جوری میشه با ورود اطلاعات توسط کاربر شیت ایجاد کرد و در هر شیت ستون و سطر را با توجه به اطلاعاتی که کاربر تعیین کرده رنگی کند مشکل منه.

[Ali Parsaei]

سلام،
من فرض را بر اين گرفتم که شما با کدنويسي آشنايي داريد و فقط دنبال ايده جهت چگونگي انجام کار هستيد، با اين فرض من فقط يک فايل ضميمه مي کنم و مي توانيد شروع کار را با الگو برداري از آن انجام دهيد.
کد زير را در فايل جهت ايجاد شيت نوشته ام:

Private Sub CommandButton1_Click()
Dim I As Integer
I = 1
Do While I < Sheet1.Range("D4").Value + 1
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = I
I = I + 1
Loop
Application.DisplayAlerts = False
Sheet1.Delete
End Sub 

خلاصه فايل اين است که ابتدا فايل در شيتي به نام sheet1 باز مي شود، در خانه d4 بايد تعداد شيت مورد نظر خود را وارد کنيد و سپس با کليک دگمه "ايجاد شيت" به تعدادي که نوشته ايد شيت ايجاد مي گردد و به ترتيب از شماره 1 به بالا نام گذاري مي گردد. فقط نکته اين است که شيت ابتدايي (sheet1) نيز بعد از اجراي دستور پاک مي شود.
اميدوارم بتوانيد اين فايل را دستمايه اي براي شروع کارتان قرار دهيد:

[art1364]

سپاسگذارم