usama5 بتاريخ: 3 أغسطس 2010 تقديم بلاغ بتاريخ: 3 أغسطس 2010 بسم الله كيفيه عمل ماكرو يتم فيه فتح ملف اكسيل اخر وانت بداخل ملف اكسيل وشكرا...
usama5 بتاريخ: 5 أغسطس 2010 كاتب الموضوع تقديم بلاغ بتاريخ: 5 أغسطس 2010 السلام عليكم هل من مستجيب لسؤالي
alaaaboulela بتاريخ: 5 أغسطس 2010 تقديم بلاغ بتاريخ: 5 أغسطس 2010 بدون ماكرو تسطيع ان تفعل وبباسطه عن طريق تخصيص خلية في ورقة العملworksheet او اندكس index في الملف file عن طريق كتابة اسم الملف المراد فتحه في الخلية او في الدليل ثم الضغط على ctrl+k معاً سيتم عمل ارتباط تشعبي hyper link مع الملف في اي مكان وبأي بارتيشن في جهازك فتح صفحه في نفس الملف فتح ملف في مكان اخر أو في نفس المجلد " اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء " http://fmalaa.wordpress.com/ إسلبني كل شئ وأعطني الحكمه فبها أستطيع أن أرد كل شئ قد ضاع مني skype alaaaboulela@yahoo.com اصنع الخير في اهله وغير اهله فان لم يكونوا اهله فانت اهله
alaaaboulela بتاريخ: 5 أغسطس 2010 تقديم بلاغ بتاريخ: 5 أغسطس 2010 كود ماكرو فتح ملف جديد اخر من صفحة اكسيل Sub CreateNewWorksheet() 02 03 Dim oSheet As Worksheet, vRet As Variant 04 05 On Error GoTo errHandler 06 07 'creating a new excel worksheet called RawData 08 Set oSheet = Worksheets.Add 09 With oSheet 10 .Name = "RawData" 11 .Cells(1.1).Select 12 .Activate 13 End With 14 Exit Sub 15 16errHandler: 17 18 'if error due to duplicate worksheet detected 19 If Err.Number = 1004 Then 20 'display an options to user 21 vRet = MsgBox("Worksheet called 'RawData' is already exist, " & _ 22 "click yes to continue creating new Worksheet and delete the old one, " & _ 23 "or click no to go to the old worksheet.", _ 24 vbOKCancel, "Duplicate Worksheet") 25 26 If vRet = vbOK Then 27 'delete the old worksheet 28 Application.DisplayAlerts = False 29 Worksheets("RawData").Delete 30 Application.DisplayAlerts = True 31 32 'rename and activate the new worksheet 33 With oSheet 34 .Name = "RawData" 35 .Cells(1.1).Select 36 .Activate 37 End With 38 Else 39 'cancel the operation, delete the new worksheet 40 Application.DisplayAlerts = False 41 oSheet.Delete 42 Application.DisplayAlerts = True 43 'activate the old worksheet 44 Worksheets("RawData").Activate 45 End If 46 47 End If 48 49End Sub او نسخ الكود التالي لفتح ملف موجود من صفحة الإكسيل مع تغيير او كتابة اسم الملف في الأماكن المشار اليها باللون البرتقالي Sub OpenExcelFile() Dim vFile As Variant 'Showing Excel Open Dialog Form vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _ "*.xl*", 1, "Select Excel File", "Open", False) 'If Cancel then exit If TypeName(vFile) = "Boolean" Then Exit Sub End If 'Open selected file Workbooks.Open vFileEnd Sub " اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء " http://fmalaa.wordpress.com/ إسلبني كل شئ وأعطني الحكمه فبها أستطيع أن أرد كل شئ قد ضاع مني skype alaaaboulela@yahoo.com اصنع الخير في اهله وغير اهله فان لم يكونوا اهله فانت اهله
usama5 بتاريخ: 7 أغسطس 2010 كاتب الموضوع تقديم بلاغ بتاريخ: 7 أغسطس 2010 شكر اخي العزيز .... ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام
alaaaboulela بتاريخ: 8 أغسطس 2010 تقديم بلاغ بتاريخ: 8 أغسطس 2010 شكر اخي العزيز .... ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام السلام عليكم في الحقيقة وللأمانة العلمية انا الكود ده لاطشه من موقع في بي إكسيل او دوال الفيجوال بيزك في الإكسيل ولم اقم بتجربته لو عايز الصفحة وفيها شرح الكود انا تحت امرك http://zaranet.yoo7.com/montada-f22/topic-t401.htm http://translate.google.com.sa/translate?hl=ar&langpair=en%7Car&u=http://excelvbamacro.com/how-to-open-excel-file-using-macro/ http://excelvbamacro.com/how-to-open-excel-file-using-macro/ " اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء " http://fmalaa.wordpress.com/ إسلبني كل شئ وأعطني الحكمه فبها أستطيع أن أرد كل شئ قد ضاع مني skype alaaaboulela@yahoo.com اصنع الخير في اهله وغير اهله فان لم يكونوا اهله فانت اهله
alaaaboulela بتاريخ: 8 أغسطس 2010 تقديم بلاغ بتاريخ: 8 أغسطس 2010 شكر اخي العزيز .... ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام السلام عليكم في الحقيقة وللأمانة العلمية انا الكود ده لاطشه من موقع في بي إكسيل او دوال الفيجوال بيزك في الإكسيل ولم اقم بتجربته لو عايز الصفحة وفيها شرح الكود انا تحت امرك http://zaranet.yoo7.com/montada-f22/topic-t401.htm http://translate.google.com.sa/translate?hl=ar&langpair=en%7Car&u=http://excelvbamacro.com/how-to-open-excel-file-using-macro/ http://excelvbamacro.com/how-to-open-excel-file-using-macro/ " اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء " http://fmalaa.wordpress.com/ إسلبني كل شئ وأعطني الحكمه فبها أستطيع أن أرد كل شئ قد ضاع مني skype alaaaboulela@yahoo.com اصنع الخير في اهله وغير اهله فان لم يكونوا اهله فانت اهله
Recommended Posts
انشئ حساب جديد أو قم بتسجيل دخولك لتتمكن من إضافة تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل؟ سجل دخولك من هنا.
سجل دخولك الان