ياسر خليل أبو البراء

أخي الكريم المشاركات متاحة للجميع يقرأها ... حاول تكون عملي وابدأ في طرح طلباتك .. طلب واحد في كل مرة في انتظار عرض موضوعك بشكل أفضل كي يساهم الأعضاء في حل مشكلتك تقبل تحياتي

إذاً ابدأ في طرح طلباتك واحداً تلو الآخر .. حتى يتم التركيز من قبل الأعضاء في شيء واحد.. تقبل تحياتي

جرب الكود بهذا الشكل Sub PrintIt() Application.ScreenUpdating = False With Sheets("Sheet1") .Visible = True .Activate .PrintOut .Visible = False End With Application.ScreenUpdating = True End Sub

أخي الكريم أبو أحمد أهلاً بك في المنتدى ونورت بين إخوانك يرجى مراجعة رابط التوجيهات لمعرفة كيفية التعامل بشكل أفضل مع المنتدى (خصوصاً التوجيه الثالث عشر) من هنا

أخي الكريم يمكنك النقر على كلمة Debug ونسخ السطر الذي يظهر باللون الأصفر جربت الملف ويعمل بشكل جيد .. اذكر نسخة الأوفيس التي تعمل عليها؟

أخي الحبيب يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("Z1") = ActiveCell.Address ThisWorkbook.Save End Sub Private Sub Workbook_Open() Dim S As String S = Range("Z1").Value Application.Goto Range(S), True End Sub Test.rar

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

أخي الكريم قلم الإكسيل بالنسبة للمعادلات قد تكون المشكلة لديك في الفاصلة والفاصلة المنقوطة ..جرب الفاصلة المنقوطة فقد تعمل المعادلة لديك ..حيث أن تلك النقطة مرتبطة بإعدادات الويندوز وليس لها علاقة بالإكسيل

أخي الكريم يمكنك طرح موضوع جديد وارفق ملفك بالموضوع لتجد المساعدة من إخوانك بالمنتدى تقبل تحياتي

أخي الحبيب عبد العزيز المقصود التعامل مع العمود F وليس الخلية F6 بذاتها .. من ثم عند تحديد النطاق فإننا نتعامل مع أول صف في المعادلة .. ونثبت العمود فتكون المعادلة بتثبيت العمود F اما رقم الصف فيكون متغير لأننا نريد أن نختبر الشرط في كل صف في نفس العمود أرجو أن أكون قد وفقت في توصيل المعلومة

أخي الكريم رمهان دالتك تعمل بشكل جيد إذا كان النص كلمة واحدة ..بينما تعطي خطأ إذا كانت هناك أكثر من كلمة .. جرب بنفسك أخي الحبيب وائل مشكور على المشاركة الفعالة في الموضوع ..بارك الله فيك

ببساطة حدد النطاق A1:H8 ثم اذهب للتبويب Home ثم Conditional Formatting ثم اختر New Rule ثم من النافذة اختر آخر خيار المسمى Use a formula to determine which cells to format ثم ضع المعادلة التالية في المستطيل بالأسفل =$F1=0

الأخت الفاضلة يرجى إرفاق الملف الذي يحتوي على الكود ..

جربت الملف مرة أخرى وكتبت كلمة الصحة وأعطتني النتيجة "ا ث ن و ة" لا أدري ما المشكلة لديك .. يمكنك أن تذهب للتبويب Formulas ثم Calculation Options واختر الأمر Automatic

أخي الكريم أنس إذا كنت قد فهمت ما تقصده ..لما لا تجرب أن تغير خصائص الفورم بمعنى اجعل الخاصية ShowModal تساوي False

بارك الله فيك أخي الحبيب عبد الباري على هذا العمل الرائع والمتميز تقبل تحياتي

أخي الكريم ممكن توضح طلبك بشكل أكثر تفصيلاً

أخي الكريم توكل إليك الدالة التالية التي تؤدي الغرض الذي تطلبه Function SUMCFCells(Rng As Range, C As Range) Dim I As Single, J As Long, K As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 K = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1) Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1)) If Evaluate(Str1) = True Then J = J + CFCELL.Value K = K + 1 Next CFCELL Else SUMCFCells = "Color Not Found" Exit Function End If SUMCFCells = J End Function وإن كنت أحبذ الحل الأول وهو استخدام الدالة SUMIF أو الدالة SUMIFS Conditinal Formatting Sum Colored Cells.rar

أعتذر عن الخطأ إليك السطر الصحيح SH.PrintOut

ما هي رسالة الخطأ التي تظهر لك؟ يمكنك النقر على كلمة Debug ثم سيظهر لك سطر باللون الأصفر .. يرجى نسخ السطر وكتابة رسالة الخطأ

أخي الحبيب جرب أن تغير السطر التالي SH.PrintPreview غير كلمة PrintPreview إلى Print تقبل تحياتي

أخي الحبيب الزباري جزيت خير الجزاء ولا حرمنا الله من جديدك المفيد تقبل وافر تقديري واحترامي

أخي الحبيب الغالي سليم ليس المقصود عكس الحروف كما تفضلت إنما المقصود من الموضوع استبدال مجموعة الحروف الموجود بحروف مقابلة لكل حرف راجع الموضوع وراجع الملف المرفق الذي تفضل به أخونا بن علية حاجي والملف الذي تقدمت به وشوف النتائج تقبل تحياتي

أخي الكريم قلم الإكسيل إليك الدالة المعرفة التالية تغنيك عن استخدام الجدول الموجود Function dhTranslate(ByVal strIn As String, Optional ByVal strMapIn As String, Optional ByVal strMapOut As String, Optional fCaseSensitive As Boolean = True) As String Dim intI As Integer Dim intPos As Integer Dim strChar As String * 1 Dim strOut As String Dim intMode As Integer strMapIn = Join(Array("أ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي")) strMapOut = Join(Array("أ", "ب", "ج", "د", "ه", "و", "ز", "ح", "ط", "ي", "ك", "ل", "م", "ن", "س", "ع", "ف", "ص", "ق", "ر", "ش", "ت", "ث", "خ", "ذ", "ض", "ظ", "غ")) If Len(strMapIn) > 0 Then If fCaseSensitive Then intMode = vbBinaryCompare Else intMode = vbTextCompare End If If Len(strMapOut) > 0 Then strMapOut = Left$(strMapOut & String(Len(strMapIn), _ Right$(strMapOut, 1)), Len(strMapIn)) End If For intI = 1 To Len(strIn) strChar = Mid$(strIn, intI, 1) intPos = InStr(1, strMapIn, strChar, intMode) If intPos > 0 Then strOut = strOut & Mid$(strMapOut, intPos, 1) & " " Else strOut = strOut & strChar & " " End If Next intI End If dhTranslate = strOut End Function الحروف المعكوسة.rar

جرب المعادلة بهذا الشكل =LEFT(A2,FIND("*",A2)-1)*MID(A2,FIND("*",A2)+1,LEN(A2))