-
Posts
4462 -
تاريخ الانضمام
-
Days Won
195
أ / محمد صالح last won the day on مارس 21
أ / محمد صالح had the most liked content!
السمعه بالموقع
4301 Excellentعن العضو أ / محمد صالح

- تاريخ الميلاد 01/01/1977
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
معلم أول (أ) لغة عربية
-
البلد
مصر - البحيرة - إيتاي البارود
-
الإهتمامات
برمجة الاكسيس والفيجوال بيزيك والاكسيل والمواقع
وسائل التواصل
-
MSN
ostaz_mas@hotmail.com
-
Website URL
https://www.mr-mas.com
-
Yahoo
ostaz_mas
-
Skype
ostaz_mas
اخر الزوار
20334 زياره للملف الشخصي
-
جمع أرقآم الوحدات بالقدم والبوصة في خلية واحدة
أ / محمد صالح replied to م. عمر's topic in منتدى الاكسيل Excel
بارك الله لك فكرة الأعمدة الإضافية جميلة كنوع من تفصيل البيانات ما يهمني هو أن معادلاتي التي قدمتها بفضل الله تنفذ المطلوب وليس بها خطأ كل عام وأنتم بخير وصحة وسعادة 🌹 -
جميعا بفضل الله بالنسبة لطلب حضرتك تم تنفيذه بالطرق المتاحة لي ربما يساعدك أحد الزملاء بما هو مطلوب حرفيا منك كل عام وأنتم بخير
-
جمع أرقآم الوحدات بالقدم والبوصة في خلية واحدة
أ / محمد صالح replied to م. عمر's topic in منتدى الاكسيل Excel
أخي الكريم كنت قد طلبت أنت حاصل جمع القيم الموجودة في العمود E وهذا العمود يحتوي على قيمتين للقدم والبوصة بينهما - ثم طلبت أن يكون الرقم بالبوصة في حالة عدم وجود - الأعمدة التي اضفتها أنا ليست مطلوبة من حضرتك وإنما هي وسائل تساعد في الوصول للمطلوب الاساسي وهو جمع القيم الموجودة في العمود E ولا أدري عن أي خطأ تتحدث؟؟؟ بفضل الله أنا لا اعرض حلا إلا بعد مراجعته ربما يكون الخطأ في عرضك للمطلوب وفقنا الله جميعا لما يحبه ويرضاه وجنبنا الله الخطأ -
عليكم السلام ورحمة الله وبركاته يمكنك تحقيق ذلك بسهولة من خلال تنسيق الشكل (Shape) في Excel بحيث تكون الصورة على الجانب الأيسر والنص على الجانب الأيمن داخل نفس الشكل. إليك الطريقة: الخطوات: إدراج الشكل: قم بإدراج شكل من خلال علامة التبويب "Insert" ثم اختر "Shapes". أو Word Art إضافة النص انقر على الشكل لكتابة النص داخله. لتحريك النص إلى الجانب الأيمن، استخدم أزرار المحاذاة لليمين أو اليسار. إضافة الصورة داخل الشكل: انقر بزر الماوس الأيمن على الشكل واختر "Format Shape". اختر "Fill" ثم "Picture or texture fill". اضغط على "Insert " أسفل كلمة Picture لإدراج الصورة التي تريدها. lمن جهاز الكمبيوتر أو يمكنك استعمال ايقونة Icon ضبط الصورة داخل الشكل: ضمن إعدادات "Format Shape"، اختر خيار "picture " إذا كنت تريد التحكم في موضع الصورة. ضمن جزء Crop قم بتعديل إعدادات " Offset Y Or X" (إزاحة) للصورة بحيث تظهر على الجانب الأيسر من الشكل. يمكنك تعديل العرض Width والارتفاع Height لضبط حجم الصورة بجانب النص نصيحة إضافية: إذا كنت تريد نتيجة أكثر دقة أو تحتاج إلى المزيد من التحكم، يمكنك استخدام برنامج تصميم مثل PowerPoint أو Word لإنشاء الشكل وتنسيقه، ثم إدراجه كصورة في Excel. بالتوفيق زر يحتوي على نص وصورة أو ايقونة.xlsb
-
جمع أرقآم الوحدات بالقدم والبوصة في خلية واحدة
أ / محمد صالح replied to م. عمر's topic in منتدى الاكسيل Excel
جميعا يارب العالمين 🌹 -
جمع أرقآم الوحدات بالقدم والبوصة في خلية واحدة
أ / محمد صالح replied to م. عمر's topic in منتدى الاكسيل Excel
جميعا بإذن الله تعالى إذا ركزت قليلا وتوصلت لمعنى المعادلة كنت ستعرف كيف تعدلها لما تريد لأنها فقط تبديل بين قيمة e2 و صفر في شروط IF لاحظ هذا التعديل ربما يفيدك Architect Units.xlsx -
جمع أرقآم الوحدات بالقدم والبوصة في خلية واحدة
أ / محمد صالح replied to م. عمر's topic in منتدى الاكسيل Excel
ربما يفيدك هذا Architect Units.xlsx -
هل يوجد في ويندوز طابعة pdf ؟ هل جربت طباعة الملف على طابعة pdf يدوي؟ إذا كانت الإجابة نعم فالكود يقوم بهذا وإلا فأنصحك بترقية جهازك ونسخة الأوفيس لتستمتع بكل الميزات الحديثة بالتوفيق
-
عذرا اخي الكريم لم أنتبه لأنك تستعمل نسخة أوفيس 2007 وبالفعل هذه الميزة غير موجودة فيه يمكنك استعمال كود الطباعة العادي في حالة وجود طابعة pdf في ويندوز يمكنك تجربة هذا الكود Sub ExportWorksheetToPDF_2007() Dim ws As Worksheet Dim pdfFilePath As String Dim wbPath As String Dim objPrinter As Object ' تحديد ورقة العمل الحالية Set ws = ActiveSheet ' الحصول على مسار المصنف الحالي wbPath = ThisWorkbook.Path ' التحقق مما إذا كان المصنف قد تم حفظه If wbPath = "" Then MsgBox "يرجى حفظ المصنف أولاً لتحديد المسار.", vbExclamation Exit Sub End If ' تحديد مسار واسم ملف PDF pdfFilePath = wbPath & "\" & ws.Name & ".pdf" On Error Resume Next ' تحديد طابعة الـ PDF الافتراضية Set objPrinter = CreateObject("Scripting.FileSystemObject") If objPrinter Is Nothing Then MsgBox "لا يمكن تصدير PDF. يرجى التأكد من تثبيت إضافة التصدير.", vbCritical Exit Sub End If ' تصدير الورقة باستخدام طابعة PDF خارجية ws.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF", _ PrintToFile:=True, PrToFileName:=pdfFilePath MsgBox "تم تصدير ورقة العمل إلى ملف PDF بنجاح: " & pdfFilePath, vbInformation End Sub بالتوفيق
-
للأسف لا يوجد معادلة للقيام بهذا الأمر إلا في الإصدارات الحديثة وربما تكون طويلة ومعقدة ولكن يمكنك استعمال هذا الاجراء Sub RepeatValuesInColumn() Dim ws As Worksheet Dim sourceRow As Long Dim targetRow As Long Dim repeatCount As Long Dim lastRow As Long ' تحديد ورقة العمل Set ws = ActiveSheet ' الحصول على آخر صف يحتوي على بيانات في العمود G lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row ' تحديد صف البدء للعمود J targetRow = 7 ' ابدأ من الصف J7 ' التكرار لكل صف في العمود G وH For sourceRow = 7 To lastRow If ws.Cells(sourceRow, "G").Value <> "" And IsNumeric(ws.Cells(sourceRow, "H").Value) Then repeatCount = ws.Cells(sourceRow, "H").Value If repeatCount > 0 Then Dim i As Long For i = 1 To repeatCount ws.Cells(targetRow, "J").Value = ws.Cells(sourceRow, "G").Value targetRow = targetRow + 1 Next i End If End If Next sourceRow MsgBox "تم التكرار بنجاح!", vbInformation End Sub بالتوفيق
-
يمكنك استعمال هذا الكود activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\mas.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True بالتوفيق
-
عليكم السلام ورحمة الله وبركاته بهذه الصورة المشكلة في صلاحيات المستخدم في هذا الجهاز؛ حيث أنه لا يملك حق الوصول للملف على الشبكة. يمكنك مراجعة الأمان الخاص بالملف وطريقة مشاركته والمستخدمين المصرح لهم بتعديل الملف بالتوفيق
- 1 reply
-
- 1
-