خالی نبودن سلول درفرم و خالی کردن فرم

**aof** · 2017/11/12

1- من ماکرویی دارم که مربوط به ارسال اطلاعات یک فرم است چطور بنویسم که اگر سلولهای مثلا x و y خالی نبود برو کد را انجام بده و اگر خالی هست پیغام بده انها را پرکن
2- این کد مربوط به فرستادن اطلاعات از یک شیت به یک شیت دیگر است که با زدن دکمه ای این کار را انجام میدهم . میخواهم اخر کدم ، کدی بنویسم که اطلاعات داخل سلولهای فرم که پر شده خالی بشه تا اماده برای دور بعد شود

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

سیستم تبلیغات اکسل ایران

**Ali Parsaei** · 2017/11/12

لطفا" سوالات کدنويسي را در قسمت ويژوال بيسيک مطرح نماييد
براي قسمت اول با فرض اينکه X و Y سلول هاي A1 و B1 باشند بايد بنويسيد:

کد PHP:

If Range("A1").Value = "" Or Range("B1").Value = "" Then MsgBox "لطفا سلولهاي A1 و B1 را پر کنيد" Else ....... End If

به جاي نقطه چين کد اصلي را بنويسيد.
در مورد سوال دوم هم بعد از بسته شدن فرمها اطلاعات آنها پاک مي شود مگر اينکه مقدار دهي اوليه براي اجزا داخل آن قايل شده باشيد که موقع بارگيري فرم اعمال شوند
در هر صورت براي خالي کردن اجزاي داخل فرم بايد بر حسب اينکه چه چيزي داخل فرم است مقدار آنها را مساوي تهي قرار دهيد
فرضا" اگر TEXTBOX1 داخل فرم است بايد بنويسيد: ""=TEXTBOX1.TEXT

**aof** · 2017/11/13

ممنون از شما
تونستم انجام بدم اما یه قسمت را نتونستم
وقتی دکمه ای که برای زدن و انتقال اطلاعات سلولها به شیت بعدی را می زنم اخر کد می نویسم که مثلا
range("c2")=''"
و در اخر کد زیررا می نویسم که برود شیت بعد تا اطلاعاتی که در شیت قبل نوشتم وبعد خالیش کردم ببینم در شیت بعدی امده یانه :
Application.ScreenUpdating = True
اما می رود شیت بعد و اطلاعات هم منتقل میشود اما شیت قبلی سلولهایش خالی نمی شود . چه کار باید بکنم که اخر کدی که نوشتم هم سلولها خالی شود هم برود شیت بعدی که اطلاعات به ان منتقل شود

**Ali Parsaei** · 2017/11/14

دقيق متوجه نمي شوم منظورتان چيست، داخل فرم مي خواهيد مقادير پاک شود يا داخل شيت؟
بايد کل کد را بنويسيد تا بتوان راهنماييتان کرد

ضمنا" Application.ScreenUpdating = True مربوط به جابجايي بين شيت ها نيست بلکه فقط صفحه نمايش را به روز مي کند و حتما" قبلش بايد کد:

Application.ScreenUpdating = False به کار رفته باشد و اين دو کد فقط جهت سرعت بخشيدن به عمليات اجراي کدها يا زيبايي کار (عدم نمايش تغييرات در حين انجام کدها) به کار مي رود
چون بين شيتها جابجا مي شويد بايد ديد کدتان را چطور نوشته ايد ، بعضي اوقات بايد حتما" نام شيت را هم در کد بنويسيد مثلا":

کد PHP:

SHEET1.RANGE("C2").VALUE=""