أبوبلقيس

بارك الله فيك هل يمكن أن يتم على نفس الملف عملية عكسية أي أكتب المجموع فيتم التوزيع على الفئات التقدية إن أمكن ذلك شكرا

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

جزاك الله خيرا أخي المحترم عبد الله شكرا

بارك الله فيك هل ممكن ارسال الملف- بالاوفيس 2003 - شكرا

السلام عليكم للأسف اللغة التي أعمل عليها غير اللغة لمحبي الاوتوبلاي نضع هذا الكود تحت زر : d = {} for i =1,99 do x = i*i if x < 99 and x > 50 then Dialog.Message("Notice",x); Table.Insert(d, 1, x); end end for t = 50 , Math.Min(d[1],d[2]) do for u = 1,d[1]+d[2]+Math.Min(d[1],d[2])-1 do v= d[1]+d[2] + t if v > d[1]+d[2]+50 and u*u*2 ==v then Dialog.Message("Notice",v-(d[1]+d[2])); end end end لتظهر معك النتائج كالتالي :

سامي في المنزل رقم 55 أحمد و محمد أحدهما يسكن في المنزل 64 و الثاني في المنزل رقم 81 بالتوفيق

السلام عليكم ورحمة الله أضن أن السؤال مفتوح لا يقتصر على إحابة محددة فمثلا في لغة برمجية غير الايكسل و لتكن الاوتوبلاي نضع الكود التالي حيث حددنا البحث في مجال عددي أقل من 100000 -على سبيل المثال - e = "" x = 1; while (x < 100000) do x = x + 1; if Math.Mod(x, 2)==1 and Math.Mod(x, 3)==1 and Math.Mod(x, 4)==1 and Math.Mod(x, 5)==1 and Math.Mod(x, 6)==1 and Math.Mod(x, 7)==0 then e =e ..x.."-" end end result = Dialog.Message("Notice", e); سينتج في الرسالة الأعداد المحققة للشرط : 301-721-1141-1561-1981-2401-2821-3241-3661-4081-4501-4921-5341-5761-6181-6601-7021-7441-7861-8281-8701-9121-9541-9961-10381-10801-11221-11641-12061-12481-12901-13321-13741-14161-14581-15001-15421-15841-16261-16681-17101-17521-17941-18361-18781-19201-19621-20041-20461-20881-21301-21721-22141-22561-22981-23401-23821-24241-24661-25081-25501-25921-26341-26761-27181-27601-28021-28441-28861-29281-29701-30121-30541-30961-31381-31801-32221-32641-33061-33481-33901-34321-34741-35161-35581-36001-36421-36841-37261-37681-38101-38521-38941-39361-39781-40201-40621-41041-41461-41881-42301-42721-43141-43561-43981-44401-44821-45241-45661-46081-46501-46921-47341-47761-48181-48601-49021-49441-49861-50281-50701-51121-51541-51961-52381-52801-53221-53641-54061-54481-54901-55321-55741-56161-56581-57001-57421-57841-58261-58681-59101-59521-59941-60361-60781-61201-61621-62041-62461-62881-63301-63721-64141-64561-64981-65401-65821-66241-66661-67081-67501-67921-68341-68761-69181-69601-70021-70441-70861-71281-71701-72121-72541-72961-73381-73801-74221-74641-75061-75481-75901-76321-76741-77161-77581-78001-78421-78841-79261-79681-80101-80521-80941-81361-81781-82201-82621-83041-83461-83881-84301-84721-85141-85561-85981-86401-86821-87241-87661-88081-88501-88921-89341-89761-90181-90601-91021-91441-91861-92281-92701-93121-93541-93961-94381-94801-95221-95641-96061-96481-96901-97321-97741-98161-98581-99001-99421-99841-

جزاك الله خيرا أستاذي الكريم موفق

أخي السائل افتح مشروعا جديد ضمنه أزرار أكتب في هذه الازرار عناوين ملفاتك وكل زر بالضغط عليه مرتين توجه للحدث on click أكتب الكود التالي مع تغيير تسمية الملف بعدها احفظ المشروع فولدر حتى تتمكن من الحفظ اذا تم على الملف أما اذا كانت ملفات الايكسل متضمنة وحدات ماكرو فهنا يمكنك تخفيض مستوى الامان برمجيا من داخل الاوتوبلاي File.Open("AutoPlay\\Docs\\اسم الملف.xlsx", "", SW_MAXIMIZE); لاحظ المجلد Docs هو احدى مجلدات البرنامج ضع فيه ملفاتك ومن ثمة يتم استدعائها وفق الكود أعلاه اذ لم تفهمني سأرفع لك شرح مرئي وثق أن ما تبحث عنه في غاية البساطة والله الموفق

السلام عليكم استغلال البليجين المتعلق بالايكسل سيستورد آخر ما سجل في الخلية مثلا الخلية مزروع بها معادلة و لتكن مثلا تاريخ اليوم سيتم استيراد آخر تاريخ أغلق عليه الايكسل ليتم استدعائه في الـ grid لذلك قد نكون بحاجة إلى Excel Automation ليتم التحديث في استدعاء قيمة معينة مرتبط تحديثها بفتح الايكسل شاهدت هذا البليجين و طرحت تساؤل حول المقاربة المذكورة على نفس الموقع --- رجوعا لتساؤل الأخ الكريم وبعد الاطلاع على المثال نعم أخي مادام فقط استدعاء للمحتوى تستطيع استدعاء ملف الايكسل بسهولة ليفتح خارج حيز العمل مثل ما شاهدته في الملف المرفق فقط افتح الاوتوبلاي و ضع الازرار تكون بمثابة فهرس للملفات ومن خلالها ستجد كود لفتح ملف مباشرة . اذ لم تستطع القيام بذلك سنساعدك إن شاء الله المهم ثبت الاوتوبلاي وبعدها نتكلم أخي محمد لا تحصر فتح الايكسل بطريقتين فقط من وجهة نظرك و تجربتك المحترمة فكل يوم يظهر الجديد و لكل رأيه ولاحظ أن ما يريده صاحب الموضوع هوأبسط مما قد نتحدث عنه فهو يريد فتح الملفات فقط بعيدا عن الدمح في الواجهة بالتوفيق للجميع

السلام عليكم ورحمة الله إضافة لكل ما ذكره الزملاء أدمج عملك أخي العزيز في الاوتوبلاي حيث ستستعمل أزرار لتستدعي الملف داخل عنصر الويب المتوفر في الاوتوبلاي ستواجهك مشكلة عند العرض و هي ظهور رسالة حيث سيأخذ الملف صفة التحميل أو الفتح خارج مجال التجميعية أي خارجها تم وضع في الموقع ذاته قيم للتعامل مع الريجستري للتغلب على هذه المشكلة باستعمالها ستحقق سلاسة في العرض لجميع اصدارات الاوفيس في عنصر الويب التابع للأوتوبلاي إن شاء الله موفق وبعد اذن الادارة سأضع رابط خارجي أين تمت مناقشة معالجة المشكلة http://www.abc4web.net/vb/showthread.php?t=28779

السلام عليكم ملف ممتاز و مفيد مبنى و محتوى رغبت تنفيذه في لغة أخرى لكن محتاج لشرح نظري دقيق يشرح عملية التطبيق نقطة نقطة إن أمكن وإن تعذر فلكم كل الأعذار و شكرا جزيلا على الانجاز ومزيدا من التألق إن شاء الله

بارك الله فيك استفدت كثيرا من ملفك أخي شكرا

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

بارك الله فيكم استفدت شكرا

قد يفيدك أكثر الاساتذة في القسم المخصص لذلك يمكن كتابة 1 في خلية ثم الخلية الثانية = الخلية الأولى ثم الخلية الثالثة = الخلية الاولى نقوم بتحديدها و من علامة + لتتم عملية سحب للأسفل عند الافلات قد يتحقق ما تريده موفق

السلام عليكم أخي أعمل على لغة غير اللغة و نحسبها هكذا يمكنك المقارنة مع لغتك البرمجية المستعملة p=""; for count = 1, 10 do p = p.. count .. "\r\n".. count .. "\r\n".. count .. "\r\n" end Dialog.Message("Notice", p); ومن خلال الكود ستظهر الأرقام من 1 إلى 10 مكررة ثلاث مرات تحت بعضها بعدما تعدلها حسب برنامجك موفق ريثما يفيدك أصحاب الاختصاص

جزاكم الله خيرا

و هذا توضيح سريع للمقصود على الرابط http://im35.gulfup.com/iVgNv.swf

مشكور أخي حمادة عمر على المرور الطيب وجب التذكير عند الخروج من التجميعية " إغلاقها " أن نعيد أو نحذف قيمة الريجستري التي زرعناها و يتم التراجع في حدث مناسب كأن يكون ON SHUTDOWN أو في حدث الصفحة في ON CLOSE نزرع الكود : Registry.DeleteKey(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}"); بالتوفيق

الكود التالي لتشغيل ملفات الاوفيس مباشرة في عنصر الويب دون مراعاة الاصدار Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.8","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.RTF.8","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.12","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.DocumentMacroEnabled.12","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.8","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetBinaryMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.8","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.ShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.8","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.12","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.12","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.12","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.8","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.8","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.8","hex(0)",REG_BINARY); بالتوفيق والسلام عليكم

السلام عليكم لديك أخي ملف ايكسل , باوربونت ,وورد تريد دمجه مباشرة في داخل الاوتوبلاي دون مشاكل أي يظهر داخل الاسطوانة مباشرة استغل فتح او استدعاء ملف الايكسل في عنصر ويب= موجود في البرنامج== بالطريقة العادية قبل ذلك ازرع في on startup لتوفر سلاسة في الدمج داخل الاوتوبلاي Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.8","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.RTF.8","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.12","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.DocumentMacroEnabled.12","BrowserFlags","2147483684",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.8","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetBinaryMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.8","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.ShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.8","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.12","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.12","hex(0)",REG_BINARY); Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.12","hex(0)",REG_BINARY);

جميل موفق قلت برنامج حاضن افهم ان الايكسل سيكون محمي كمحتوى منفرد ام سيدمج على كل موفق

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

جزاك الله خيرا أخي حمادة عمر بارك الله فيكما