قنديل الصياد قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 انشاء ملف Word بنفس القيم الموجودة فى ملف الاكسيل Sub proWord() Dim varDoc As Object Set varDoc = CreateObject("Word.Application") varDoc.Visible = True Sheets("ورقة1").Range("A1:B15").Copy varDoc.documents.Add varDoc.Selection.Paste varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "منتديات اوفيسنا.doc" varDoc.documents.Close varDoc.Quit Application.CutCopyMode = False End Sub جمع اكثر من خلية فى خلية Sub جمع() Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9")) End Sub جمع عمود فى خلية Sub جمع_عمود() Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4")) End Sub تحديد مجموعة خلايا Sub شكلبيضوي8_نقر() Range("A1:G5").Select End Sub مرفق ملف به كل الاكواد 123.rar 2 رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 استاذى الحبيب // قنديل الصياد تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تقبل تحياتى رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 جزاك الله خيرا اخي الحبيب / قنديل الصياد رابط هذا التعليق شارك More sharing options...
حسام مصطفي قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تجميعيه رائعه بارك الله فيك وفى جميع اعمالك لك ارق التحيات رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 استاذى الحبيب // قنديل الصياد تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تقبل تحياتى رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 جزاك الله خيرا اخي الحبيب / قنديل الصياد رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تجميعيه رائعه بارك الله فيك وفى جميع اعمالك تجميعيه رائعه بارك الله فيك وفى جميع اعمالك لك ارق التحيات رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب قنديل الصياد جزاك الله خيرا اكواد رائعة وفيها فائدة كبيرة تقبل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 شكرا وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 تسلم إيديك يا أستاذ قنديل هاتفضل رائع فى جميع أعمالك رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب قنديل الصياد جزاك الله خيرا اكواد رائعة وفيها فائدة كبيرة تقبل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 شكرا وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 تسلم إيديك يا أستاذ قنديل هاتفضل رائع فى جميع أعمالك رابط هذا التعليق شارك More sharing options...
؛ أحمد النجار ؛ قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 أكواد رائعة كروعة جميع اعملك جزاك الله خيرا تقبل تحيتي رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 كود لاخفاء اشرطة الادوات مع اظهار اسمائها فى الخلية A Sub HideAllToolbars() Dim TB As CommandBar Dim TBNum As Integer Dim mySheet As Worksheet Set mySheet = Sheets("ورقة1") Application.ScreenUpdating = False mySheet.Cells.Clear TBNum = 0 For Each TB In CommandBars If TB.Type = msoBarTypeNormal Then If TB.Visible Then TBNum = TBNum + 1 TB.Visible = False mySheet.Cells(TBNum, 1) = TB.Name End If End If Next TB Application.ScreenUpdating = True End Sub كود لاظهار اشرطة الادوات Sub RestoreToolbars() Dim mySheet As Worksheet Set mySheet = Sheets("ورقة1") Application.ScreenUpdating = False On Error Resume Next For Each cell In mySheet.Range("A:A").SpecialCells(xlCellTypeConstants) CommandBars(cell.Value).Visible = True Next cell Application.ScreenUpdating = True End Sub مرفق ملف به الاكواد قنديل.rar رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 كود لعمل انقسام لورقة اكسيل Sub SplitWindow() Dim freezeMode As Boolean, win As Window If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub Set win = ActiveWindow freezeMode = win.FreezePanes win.FreezePanes = False If win.Split Then win.Split = False: Exit Sub win.SplitRow = ActiveCell.Row - win.ScrollRow win.SplitColumn = ActiveCell.Column - win.ScrollColumn win.FreezePanes = freezeMode End Sub مرفق ملف به الكود قنديل_1.rar رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 اخفاء واظهار خطوط الشبكة ورؤس الصفوف والاعمدة Sub ToggleHeadingsGrids() Dim gridMode&, headingsMode& On Error Resume Next headingsMode = ActiveWindow.DisplayHeadings gridMode = ActiveWindow.DisplayGridlines If headingsMode And Not gridMode Then headingsMode = False ElseIf Not headingsMode And Not gridMode Then gridMode = True ElseIf Not headingsMode And gridMode Then headingsMode = True Else gridMode = False End If ActiveWindow.DisplayHeadings = headingsMode ActiveWindow.DisplayGridlines = gridMode End Sub مرفق ملف به التطبيق على الكود قنديل_1.rar 1 رابط هذا التعليق شارك More sharing options...
أسامة عطاالله قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 السلام عليكم شكرا لمجهودك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يناير 3, 2014 مشاركة قام بنشر يناير 3, 2014 سلمت يمينك أخي قنديل الصياد تقبل تحياتي رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 السلام عليكم شكرا لمجهودك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2014 الكاتب مشاركة قام بنشر يناير 3, 2014 سلمت يمينك أخي قنديل الصياد تقبل تحياتي رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر يناير 4, 2014 مشاركة قام بنشر يناير 4, 2014 الأستاذ الفاضل / قنديل الصياد السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذه الأكواد الجميلة. جعل الله جميع أعمالك في ميزان حسناتك. رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 4, 2014 مشاركة قام بنشر يناير 4, 2014 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 4, 2014 الكاتب مشاركة قام بنشر يناير 4, 2014 الأستاذ الفاضل / قنديل الصياد السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذه الأكواد الجميلة. جعل الله جميع أعمالك في ميزان حسناتك. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان