یوزر فرم با قابلیت متناظر کردن اطلاعات

[Ali Parsaei]

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

من فقط براي شيت يک تاريخها را عوض کردم، فرمت سل هاي ستون C را عوض کرده ام و تاريخها را شش رقمي (مثلا" 930820) وارد کرده ام
بعد يک دگمه براي شروع انجام عمليات روي فرم گذاشته ام
تاريخ را هم در فرم جوري طرح کرده ام که فقط در يک جا (TEXTBOX1) با همان فرمت شش رقمي وارد گردد
اگر موس را روي TEXTBOX1 نگه داريد يک پنجره راهنما باز مي شود و کاربر را راهنمايي مي کند البته مي شود کدي نوشت که اصلا" مگذارد غير عدد چيزي وارد گردد
بعد من فقط براي تکست بکس 4 يعني تلفات مرغ سالن يک کد مخصوصش را نوشته ام، بقيه را بايد با الگو گرفتن از آن خودتان زحمتش را بکشيد (البته اگر کلا" اين نوع طراحي را بپسنديد و به دردتان بخورد)

TextBox4.Text = Sheet1.Range("C:C").Find(TextBox1.Text, , , , , xlNext).Offset(0, 3).Value 

[60vahidsalehi]

من فقط براي شيت يک تاريخها را عوض کردم، فرمت سل هاي ستون C را عوض کرده ام و تاريخها را شش رقمي (مثلا" 930820) وارد کرده ام
بعد يک دگمه براي شروع انجام عمليات روي فرم گذاشته ام
تاريخ را هم در فرم جوري طرح کرده ام که فقط در يک جا (TEXTBOX1) با همان فرمت شش رقمي وارد گردد
اگر موس را روي TEXTBOX1 نگه داريد يک پنجره راهنما باز مي شود و کاربر را راهنمايي مي کند البته مي شود کدي نوشت که اصلا" مگذارد غير عدد چيزي وارد گردد
بعد من فقط براي تکست بکس 4 يعني تلفات مرغ سالن يک کد مخصوصش را نوشته ام، بقيه را بايد با الگو گرفتن از آن خودتان زحمتش را بکشيد (البته اگر کلا" اين نوع طراحي را بپسنديد و به دردتان بخورد)

TextBox4.Text = Sheet1.Range("C:C").Find(TextBox1.Text, , , , , xlNext).Offset(0, 3).Value 

ضمن عرض تشکر
برای ثبت اطلاعات یک دکمه بزارم ؟
برای داخل دکمه چه کدی بزارم ؟
همین کد رو بر عکس کنم؟

[Ali Parsaei]

ضمن عرض تشکر
برای ثبت اطلاعات یک دکمه بزارم ؟
برای داخل دکمه چه کدی بزارم ؟
همین کد رو بر عکس کنم؟

بله براي ثبت هم يک دگمه مي توانيد بگذاريد و دقيقا" همين کدها را برعکس کنيد

[60vahidsalehi]

بله براي ثبت هم يک دگمه مي توانيد بگذاريد و دقيقا" همين کدها را برعکس کنيد

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

[Ali Parsaei]

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

اگر کد را به صورت زير بنويسيد ( يعني يک xlValues هم به آن اضافه کنيد) ديگر احتياجي به تغيير فرمت و دوباره نوشتن تاريخ و ... نداريد فقط بايد تاريخ را به صورت کامل با مميز وارد کنيد (مثلا"93/08/21)

TextBox4.Text = Sheet2.Range("C:C").Find(TextBox1.Text, , xlValues, , , xlNext).Offset(0, 3).Value 

ببخشيد که از اول همين کد را نگفته بودم، آخه گفتم که نسبت به ADD-IN هاي تاريخ شمسي آلرژي دارم! چشمم که بهشون مي خوره تمرکز حواسم را از دست مي دهم!
ولي بدينوسيله اصلاح و تکميل مي نمايم که: دقيقا" با همان فرمت و مقادير و فرمولهايي که وارد نموده ايد و با کد فوق به مقصود خواهيد رسيد فقط بايد ورودي تاريخ توسط کاربر در فرم همراه با مميز باشد.
موفق باشيد.

[60vahidsalehi]

اگر کد را به صورت زير بنويسيد ( يعني يک xlValues هم به آن اضافه کنيد) ديگر احتياجي به تغيير فرمت و دوباره نوشتن تاريخ و ... نداريد فقط بايد تاريخ را به صورت کامل با مميز وارد کنيد (مثلا"93/08/21)

TextBox4.Text = Sheet2.Range("C:C").Find(TextBox1.Text, , xlValues, , , xlNext).Offset(0, 3).Value 

ببخشيد که از اول همين کد را نگفته بودم، آخه گفتم که نسبت به ADD-IN هاي تاريخ شمسي آلرژي دارم! چشمم که بهشون مي خوره تمرکز حواسم را از دست مي دهم!
ولي بدينوسيله اصلاح و تکميل مي نمايم که: دقيقا" با همان فرمت و مقادير و فرمولهايي که وارد نموده ايد و با کد فوق به مقصود خواهيد رسيد فقط بايد ورودي تاريخ توسط کاربر در فرم همراه با مميز باشد.
موفق باشيد.

کوتاهترین تعریف از اخلاق توسط برنارد راسل : اخلاق یعنی مشکل دیگران رو مشکل خود بدونی
و این در مورد شما دوستان صدق میکنه

متشکر و ممنون