أبو عبد النور

بارك الله فيكم جميعا على الردود المفيدة والطيبة.

بارك الله فيكم جميعا على الردود المفيدة. 1) هل يمكن الحصول على النص مباشرة بدون ان يظهر الرقم ؟ 2) هل يمكن ان تكون المعادلة عامة بحيث تعالج اي رقم ترتيبي ولا تتوقف عند العدد العشرين فقط ؟ تفقيط ارقام ترتيبية.xlsm

السلام عليكم، لدي عمود يقوم بترتيب مثلا الطلاب في صف ما، من 1 الى 20. فكيف يمكنني تحويل الترتيب بالارقام الى نص ؟ 1 -> الاول 2 -> الثاني 3 -> الثالث 4 -> الرابع وهكذا. بارك الله فيكم.

اهلا رعد، هل تقصد اعدادات اللغة في الويندوز ؟

بارك الله فيك اخي حسونة بالنسبة لحل مشلكة النص العربي في محرر اكواد VBA، تم حله يتغيير الخط الى خط عربي : بقيت مشكلة ظهور اسماء الاوراق بالعربية فانها ما زالت تظهر بحروف غريبة.

السلام عليكم، عند تحميل اي ملف اكسل يكون فيه نصوص عربية في كود الـ VBA لا يستطيع اكسل 2019 لدي ان يتعرف على الحرف العربي. فكيف يمكنني ان اجعل الاكسل يتعرف على النص العربي في الكود ؟ بارك الله فيكم.

السلام عليكم، الرقم السري به خطأ :

السلام عليكم، استعمل التعديل التالي : Private Sub CmbNum_Change() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Me.CmbNum.ListCount - 1 If CInt(Me.CmbNum.Value) = Rs(0).Value Then Me.TextBox2.Value = Rs(1).Value '.Fields(1) Me.TextBox3.Value = Rs.Fields(2) Me.TextBox4.Value = Rs.Fields(3) Me.TextBox5.Value = Rs.Fields(4) End If Rs.MoveNext Next Else MsgBox "áíÓ åäÇß ÊÓÌíáÇÊ", vbCritical + vbOKOnly Exit Sub End If Me.CmdTarheel.Enabled = True End Sub جلب وتسجيل بيانات من مصنف مغلق_ن002.rar

هل تقصد انه يتم تنفيذ المعادلة بدون الادخال في العمود A ؟ لان الصفر يعتبر عدد زوجيا.

كيف لم يعمل ؟ هل من اخطاء ؟ وفي اي سطر ؟ يجب التوضيح.

السلام عليكم، ضع هنا ما توصلت اليه في آخر ملف ليستفيد الجميع.

السلام عليكم، جرب التعديل التالي. 2017_v003.1.rar

السلام عليكم، محاولة : ترتيب_احرف_انس80.rar

حاول تغيير التنسيق : .Range("C17") = Format(CDate(TextBox9), "dd/mm/yyyy") .Range("H17") = Format(CDate(TextBox12), "dd/mm/yyyy")

السلام عليكم، جرب التالي : Private Sub CommandButton1_Click() ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:=">=" & Format(Me.TextBox1, "mm/dd/yyyy"), _ Operator:=xlAnd, Criteria2:="<=" & Format(Me.TextBox2, "mm/dd/yyyy") ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _ Me.ComboBox1.Value ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:=Me.ComboBox2.Value TextBox3.Value = [J1].Value End Sub

هل اطلعت على المرفقات والتعديلات الاخيرة ؟

السلام عليكم، جرب التعديل التالي. 2017_v002.1.rar

بارك الله فيكما.

السلام عليكم، تفضل المرفق معدل جلب البيانات_ن05.rar

السلام عليكم، جرب هذه المحاولة. 2017_v001.rar

لا ادري ما اصل المشكلة. حاول تجريب هذا الكود المعدل : Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Target.Value <> "" Then Target.NumberFormat = "0.00" x = Target.Value y = Application.WorksheetFunction.Ceiling(x, 0.05) Target = y Else Target.NumberFormat = "General" End If Application.EnableEvents = True End Sub

عدل السطر : Target.NumberFormat = "@" الى الآتي : Target.NumberFormat = "General"

جرب الكود التالي : Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub If Target.Value <> "" Then Target.NumberFormat = "0.00" x = Target.Value y = Application.WorksheetFunction.Ceiling(x, 0.05) Target = y Else Target.NumberFormat = "@" End If End Sub

لان تنسيق العمود عبارة عن 0.00

السلام عليكم، في المرفق الاخير لا توجد بيانات للتجريب عليها ؟