هاني بدر قام بنشر نوفمبر 20, 2011 قام بنشر نوفمبر 20, 2011 السلام عليكم ورحمة الله وبركاته الاساتذة الكرام ارجو المساعدة في هذا الملف حيث ان معادلة Vlookup لم تعد تعمل بعد ان عدلت ادراج البيانات باضافة الامر . Value لكل القيم المرحلة وهذا التعديل كان مهما جدا لبناء المعادلات بناء على ارقام وليس نصوص لذا ارجو استبدال معادلة Vlookup بمعادلة اخرى يمكنها قراة البيانات بمجرد تغيير الكود رابط الموضوع http://www.officena.net/ib/index.php?showtopic=39343 بارك الله قيكم جميعا
يحيى حسين قام بنشر نوفمبر 21, 2011 قام بنشر نوفمبر 21, 2011 السلام عليكم يا ريت لو ترفق الملف نفسه بعد تلف عمل الدالة
يوسف عطا قام بنشر نوفمبر 21, 2011 قام بنشر نوفمبر 21, 2011 الدالة تستخدم عدة معايير للبحث رقم العمود فى جدول البيانات ورقم الصف وقيمة الخلية الدليل وربما يكون مفيداً أن تزيد من مجال جدول البيانات وأن تضيف الأعمدة الجديدة التى تريد إدراجها بعد آخر عمود فى مجال جدول البيانات ولو ترفق الملف قد يكون الحل بطريق أخرى
هاني بدر قام بنشر نوفمبر 21, 2011 الكاتب قام بنشر نوفمبر 21, 2011 السلام عليكم ورحمة الله وبركاته اشكركم جميعا على التفاعل ولكن لايمكنني رفع الملف وذلك لكبر حجمه بعد التعديل وادخال معادلات شرطية بشكل ضخم جعلت من حجم الملف يفوق ال 100 ميجا لذا السؤال ساحاول توصيل الفكرة بارسال كودالترجيل وكذلك كود تغيير التكست بوكس الذي يفترض ان تقرا بيانات الشيت بناء على تغيير القيم فيه Private Sub ADD_BTN_Click() Dim CONFIRM If TextBox1 = "" Or ComboBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Then MsgBox "íÌÈ ÊÚÈÆÉ ßÇÝÉ ÇáíÞÆá", vbExclamation, "íÞÆá ÛíÑ ããÊáÆÉ" Else CONFIRM = MsgBox(":áÞÏ ØáÈÊ ÊÓÌíá ÇáÈíÇäÇÊ ÇáÊÇáíÉ" & vbNewLine & "" & vbNewLine & "Name: " & TextBox1 _ & vbNewLine & "" & vbNewLine & "Room No: " & ComboBox2 & vbNewLine & "" & vbNewLine & "Room Type: " & TextBox3 & vbNewLine & "" & vbNewLine & "Arrival: " & TextBox4 & vbNewLine & "" & vbNewLine & "Departure: " & TextBox5 & vbNewLine & "" _ & vbNewLine & "Ýåá ÊÆÏ ÇáåÓÊãÑÇÑ¿", vbYesNo + vbQuestion, "ÊãßíÏ ÇáåÏÎÇá") If CONFIRM = vbYes Then With Columns(1).Rows(65536).End(xlUp) .Offset(1, 0) = TextBox6.Value .Offset(1, 1) = TextBox1.Value .Offset(1, 3) = TextBox3.Value .Offset(1, 4) = ComboBox2.Value .Offset(1, 5) = TextBox4.Value .Offset(1, 6) = TextBox5.Value .Offset(1, 7) = ComboBox3.Value .Offset(1, 9) = TextBox7.Value .Offset(1, 10) = TextBox8.Value .Offset(1, 11) = TextBox9.Value .Offset(1, 12) = TextBox10.Value .Offset(1, 13) = TextBox11.Value .Offset(1, 14) = TextBox12.Value .Offset(1, 15) = TextBox13.Value .Offset(1, 16) = TextBox14.Value End With Sort Update Me.Hide MsgBox "ÊãÊ åÖÇÝÉ ÌãíÚ ÇáÈíÇäÇÊ ÈäÌÇí", vbInformation, "ÊãÊ ÇáåÖÇÝÉ" End If End If End Sub هذا هو كود الترحيل والحروف الغير مقرؤة لانها بالعربي ولن تؤثر في صلب الموضوع =========================================================================== Private Sub ComboBox5_Change() On Error Resume Next Dim RNG As Range Set RNG = Range("Data_Hany") If ComboBox1 <> "Select Name" And Application.WorksheetFunction.CountIf(RNG, ComboBox1) = 0 Then MsgBox "!åÐå ÇáÞÇÆãÉ áåÎÊíÇÑ ÇáåÓã ÝÞØ .. ááÊÚÏíá íãßäß åÓÊÎÏÇã ãÑÈÚ ÇáäÕ ÇáÎÇÕ ÈÇáåÓã", vbExclamation, "ÚÝÜÆÇÐ" ComboBox1 = "Select Name" ComboBox1.DropDown Exit Sub End If TextBox6 = ComboBox5 TextBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0) ComboBox2 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 5, 0) TextBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 4, 0) TextBox4 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 6, 0) TextBox4 = Format(TextBox4, "mm-dd-yy;@") TextBox5 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 7, 0) TextBox5 = Format(TextBox5, "mm-dd-yy;@") ComboBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 8, 0) TextBox7 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 10, 0) TextBox8 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 11, 0) TextBox9 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 12, 0) TextBox10 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 13, 0) TextBox11 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 14, 0) TextBox12 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 15, 0) TextBox13 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 16, 0) TextBox14 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 17, 0) ComboBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0) End Sub وهذا كود تغيرر التكست بوكس والذي من المفترض قراءة باقي البيانات داخل الفورم بناء على التغيير فيه ارجو ان اكون قد اوصلت فكرتي واذا كان بالامكان الاستعاضة عن المعادلات الشرطية باكواد vba فسيكون هذا بالفعل انجاز اشكر لكم مشاركتكم ووفقكم الله جميعاً
هاني بدر قام بنشر نوفمبر 21, 2011 الكاتب قام بنشر نوفمبر 21, 2011 السلام عليكم ورحمة الله وبركاته قمت بحذف المعادلات وتم رفع الملف باسوورد الدخول هو 01020103 برنامج حجوزات الغرف.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.