اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
          If Me.ComboBox7.Value = 0 Then
Else
ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value

If Me.ComboBox8.Value = 0 Then
Else
ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value
End If
End If

 

المطلوب تعديل الكود السابق بحيث انه اذا لم ادخل قيمة في الكمبو بوكس 7  لايفعل شئ واذا كان هناك قيمة ينفذ الكود اللي بعد else 

ثم اذا كان لايوجد قيمة في كومبو بوكس 8 لايفعل شئ واذا كان هناك قيمة ينفذ الكود اللي بعد else

 

,ومرفق الملف ايضا للتوضيح اكثر

 

16دورة محاسبية.rar

قام بنشر

السلام عليكم

 

جرب هذا الكود

 

  If not Me.ComboBox7.text =""  Then

ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value
End If

If not  Me.ComboBox8.text= "" Then

ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value

End If

 

تحياتي

  • Like 1
قام بنشر

السلام عليكم

 

جرب هذا الكود

 

  If not Me.ComboBox7.text =""  Then

ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value
End If

If not  Me.ComboBox8.text= "" Then

ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value

End If

 

تحياتي

 

جزاك الله خيرا احمد عبدالناصر علي اهتمامك وعلي الفكرة الجيدة 

لكن للاسف مامشي الحال لاني اريد انه في حالة ان الكمومبو بوكس 7 فارغ يجعل قيمة التكست بوكس 5 و 6 قيمتهم صفر حتي لايؤثر علي المعادلة التي تحسب اجمالى قيمة الفاتورة واذا كان هانك بالكومبو بوكس 7 قيمة بنفذ  االموجود بالكود السابق

 

وكذلك الحال بالنسبة للكومبو بوكس 8  فارغ يجعل قيمة التكست بوكس 7 و8 قيمتهم صفر حتي لايؤثر علي المعادلة التي تحسب اجمالى قيمة الفاتورة واذا كان هانك بالكومبو بوكس 8 قيمة بنفذ  االموجود بالكود السابق

 

وشكرا لتعاونك معى

قام بنشر

جرب هذا على حسب ما فهمت

 

If Not Me.ComboBox7.Value = "" Then

ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value
Else
TextBox5.Text = 0
TextBox6.Text = 0

End If
If Not Me.ComboBox8.Value = "" Then

ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value
ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value
ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value
ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value
Else
TextBox7.Text = 0
TextBox8.Text = 0

End If

 

تحياتي

قام بنشر

اخى العزيز جرب وضع هذا الكود اسفل تعريفك للمغيرات  اى اول امر سينفذة قبل اى كود اخر كما  واخبرنى بالنتيجه 


If ComboBox7.Value = "" Or ComboBox8 = "" Then Exit Sub

قام بنشر
Private Sub CommandButton1_Click()



Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ÝæÇÊíÑ ÇáÈíÚ")

ضع هذا السطر من الكود فى هذا الموضع وان شاء الله يؤدى ما تريد 
if ComboBox7.Value = "" Or ComboBox8 = "" Then Exit Sub

قام بنشر

الاخ / احمد عبدالناصر

طبعا فهمت صح والتعديل اكثر من رائع وجزاك الله الف خير

بس باطلب منك المساعدة في رسالة الخطأ هذ والموجوده في الشيت اللي بالبوست ده http://www.officena.net/ib/index.php?showtopic=45340

 

 

 

الاخ / HIMASS 

شكرا جزيلا علي اهتمامك وفكرتك ايضا جيده وتؤدي نفس النتيجه

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information