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

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

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

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

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

المثال: hashtags_01.accdb

في اكسس عند استخدام المعيار LIKE بعض الرموز لها معاني خاصة (ليست مجرد أحرف عادية) أحد هذه الرموز هو # معنى الرمز # في معيار LIKE (بدون أقواس) # لا يعني "حرف شباك" بل معناه: أي رقم من 0 إلى 9 (wildcard للأرقام) مثال: Like "12#4" سيجلب قيم مثل 1234 1254 1294 لكن لن يجلب النصوص التي فيها الحرف # فعليا الحل إذا أردنا البحث عن الرمز نفسه # نكتبه داخل أقواس مربعة [ ] حتي نقول لـ اكسس خذ هذا الرمز كحرف نصي عادي وليس كـ wildcard مثال: Like "*[#]*" هذا سيجلب أي نص يحتوي فعليا على الرمز # مثل 5365# abc#123 #start خلاصة القول الفصل # وحده = يعني "أي رقم" [ # ] = يعني الحرف # بالضبط كقيمة نصية

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

و عليكم السلام ورحمة الله و بركاته استخدم الكود التالي 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

وهذا حل ثالث اقصر Function JosephusOneLine(n As Integer) As Integer JosephusOneLine = 2 * (n - 2 ^ Int(Log(n) / Log(2))) + 1 End Function

حلول ذكية منقولة الحل الأول: Function Survivor(pCount As Integer) As Variant Dim Res As String Survivor = "#NUM!" If pCount < 1 Or pCount > 511 Then Exit Function Res = WorksheetFunction.Dec2Bin(pCount) Res = Mid(Res, 2) & Left(Res, 1) Survivor = WorksheetFunction.Bin2Dec(Res) End Function الحل الثاني: Function Survivor(pCount As Integer) As Integer Dim Prisoners As String Dim k As Integer, v As Integer Prisoners = String(pCount, "1") Do While Replace(Prisoners, "0", "") <> "1" k = InStr(v + 1, Prisoners, "1"): If k = 0 Then k = InStr(1, Prisoners, "1") v = InStr(k + 1, Prisoners, "1"): If v = 0 Then v = InStr(1, Prisoners, "1") Prisoners = Left(Prisoners, v - 1) & "0" & Mid(Prisoners, v + 1) Loop Survivor = InStr(1, Prisoners, "1") End Function آمل من المشرفين الكرام إقفال هذا الموضوع فقد وئد في يومه الأول. شكرا للجميع.

مرفق شيت به 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