PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : تفکیک اطلاعات


ablse
2015/09/25, 12:45
من یک فایل از سایت خوب سما برداشتم اما برای استفاده نیاز به تغییراتی دارد . من ضمن تشکر از شما و این دوست عزیزمان میخواستم بدانم چگونه میتوانم همینطور که بدین مدل ثبت میشود اطلاعات مربوط به هر شخص را در شیتی بنام آن شخص بایگانی کرد
Ali Parsaei
2015/09/25, 17:57
سلام،
بايد يک خط به اول کد اضافه کنيد:


Sheets(TextBox1.Text).Select

البته به شرطي که صفحه به نام شخص حتما" از قبل ايجاد شده باشد، وگرنه چند خط کد ديگر هم براي ايجاد شيت براي شخص جديد بايد نوشت.
ablse
2015/09/25, 21:15
ممنون از اینکه پاسخ من رو دادید. اگر توجه کنید من تام شیت هارو بنام اشخاص نوشتم اما من این کد رو نمیدونم کجا باید وارد کنم یا بهتر بگم اول کدوم خط تا یه خلقه برای ثبت در شیت مورد نظر اتجام بده . ممنون میشمئ دوباره راهنمایی کنید
ablase
2015/09/26, 13:06
من یک تغییری در کد دادم که اسم شبیه به هم قبول کند اما نتوانستم دستور شما را اجرا کنم . در ضمن مشتری ها بیشتر از ده عدد نیستند . فایل اصلاحی هم دوباره میفرستم لطفا در صورت امکان راهنمایی بفرمایید
Ali Parsaei
2015/09/27, 08:11
آيا شما بلد هستيد کدها را در VBA مشاهده کنيد؟
در اين صورت بايد در کد نوشته شده براي دگمه "ثبت" در "يوزرفرم يک" بعد از خط اول که نوشته:


Private Sub CommandButton1_Click()

کدي که گفتم را اضافه کنيد.
اگر نمي دانيد چگونه کدها را ببينيد بگوييد بيشتر راهنمايي کنم.
ablase
2015/09/27, 13:38
بی نهایت سپاسگزارم بابت راهنمایی خوبتون . موفق و پیروز باشید
ablase
2015/09/29, 16:35
استاد یک سوال دیگر امکان این هست دستوری اضافه کنیم که در صورتی که نوشته تکست باکس 1 با شیت ها مساوی نبود اخطار بدهد . یعنی اگر نامی بود به غیر از نامهای موجود در شیتها یا مشتریان در تکست باکس 1