نجوم المشاركات

استخدم هذا المعيار : Like "*" & "[#]" & "*" لأن # من احرف البدل لذا يجب احاطته بقوسين مربعين لتمييزه

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع الأساتذة .. جرب SELECT * FROM جدول1 WHERE InStr([INFO COD], "#") > 0;

استخدم دالة IsNumeric إذا كانت النتيجة 0 أو false فهي القيمة المطلوبة

العفو حبيبنا واستاذنا الكريم للمزيد حول المعلومة : هذا مرجع لحروف البدل في اكسس

أهلا أستاذنا @ابوخليل فكرة بسيطة جميلة ذكية وتؤدي المطلوب بامتياز جزاك الله كل خير استاذنا وجعلها في ميزان حساناتك -آمين-

و عليكم السلام ورحمة الله و بركاته استخدم الكود التالي Sub CreateSheetsFromList() Dim ws As Worksheet Dim cell As Range Dim newSheet As Worksheet Dim shName As String ' الورقة اللي فيها الأسماء Set ws = ThisWorkbook.Sheets("Sheet3") ' غير اسم الورقة حسب ملفك ' المرور على العمود A For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) If Trim(cell.Value) <> "" Then shName = Trim(cell.Value) On Error Resume Next ' التأكد إنه مفيش ورقة بنفس الاسم Set newSheet = ThisWorkbook.Sheets(shName) On Error GoTo 0 If newSheet Is Nothing Then ' إنشاء ورقة جديدة بالاسم ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = shName End If Set newSheet = Nothing End If Next cell MsgBox "تم إنشاء الأوراق بنجاح", vbInformation End Sub New.xlsm

عليكم السلام الطرق لتحقيق طلبك كثيرة منها استعلام تحديث استنادا لمعرف السجل ومنها العمل على مجموعة السجلات وادراج القيمة في الحقل الهدف وحيث ان النموذج منضم الى الجدول ؛ يوجد طريقة بسيطة كنت استخدمها في وقت ما وهي تؤدي الغرض كالتالي : اعمل حقلا مخفيا في النموذج وليكن اسمه s2 منضما الى حقل code_r وخلف الزر اكتب : s2=s

صراحتا ما فهمت ايه هو ال KPI اصلا 😁

هل هذا ما تريد ؟ اليك المرفق CHART.rar

المثال: hashtags_01.accdb

مرفق شيت به 1000 اختصار لبرنامج الاكسيل لتسهيل العمل منظم حسب الاصدارات للاستاذ/ محمود سيد جزاه الله خيرا 1000 اختصار للاكسيل محمود سيد.xlsx

اخي العزيز للحصول على إجابة يجب أن يكون السؤال أكثر وضوحاً وان يحتوي المثال على بيانات تكفي لتوضيح النتيجة المطلوبة انت هنا تطلب حساب السعر المتحرك ولم توضح ما المقصود بالسعر المتحرك (ليس الجميع محاسبين) والمصطلحات المحاسبية تختلف بين دولة وأخرى كما ان البيانات المرفقة جميع الاسعار فيها قيمتها صفر لذا وإذا أردت الحصول على مساعدة فمن الافضل توضيح طلبك من خلال بيانات أكثر دقة وإظهار النتيجة كصورة أو بالشرح كأن تقول اريد أن يظهر السعر المتحرك للصنف 1 هذا الرقم وللصنف 2 هذا الرقم بهذا يكون السؤال واضح وعندها قد ستجد من يجيب على طلبك إن شاء الله تحياتي

وفيك بارك الله تم التعديل Private Sub ComboBox1_Change() On Error Resume Next Application.EnableEvents = False Sheets("Sheet2").Range("L8").value = ComboBox1.value TextBox12.value = Sheets("Sheet2").Range("L10").value Application.EnableEvents = True On Error GoTo 0 End Sub Private Sub TextBox12_Change() Static lastValue As Variant On Error Resume Next Application.EnableEvents = False If IsNumeric(Me.TextBox12.value) Then Dim value As Integer value = CInt(Me.TextBox12.value) Dim minValue As Integer, maxValue As Integer, newValue As Integer If value >= 8 Then minValue = 0 maxValue = 40 Else minValue = 0 maxValue = 30 End If Randomize Do newValue = Int((maxValue - minValue + 1) * Rnd()) + minValue Loop While newValue = lastValue Me.TextBox3.value = newValue lastValue = newValue ThisWorkbook.Sheets("Sheet2").Range("L13").value = newValue End If Application.EnableEvents = True On Error GoTo 0 End Sub if أوفيسنا 3.xlsb