الذيب 2015 قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 السلام عليكم ورحمة الله وبركاته حبيت اشارك أخواني بهذا المرفق المرفق يحتوي على ملفين 1 - exe 2- sif files طبعا هذ ا الكود من عمل الاستاذ الكبير يحيى حسين باختصاااااااار المطلووووب كالاتي في ملف الاكسل عند تجميع الاسماء أو الارقام بالخلايا من العمود (A : I) أنا أريد مايظهر بالعمودM يتم تحويله الى امتداد الملف رقم 2 وهو (sif files) وهذ النمط يحتاجه البنوك في تحويل الرواتب للعملاء فياليت لو تكون العملية كلها بزر واحد وشكرا book1.zip
الذيب 2015 قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 اذا ممكن أنه يأخذ الناتج ويقدر يفتح ملف جديد بصيغة sif وبعدها لصق بزر واحد
الـعيدروس قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 السلام عليكم والله ماني عارف ماهو السيف هذا ولاكن جرب هذا الكود Sub Excel4Us() Dim LR As Long, c As Range LR = Range("A" & Rows.Count).End(xlUp).Row For Each c In Range("m1:m" & LR) c.Value = c.Offset(, -12) & " , " & c.Offset(, -11) & " , " & c.Offset(, -10) & " , " & c.Offset(, -9) & " , " & c.Offset(, -8) & " , " & c.Offset(, -7) & " , " & c.Offset(, -6) & " , " & c.Offset(, -5) & " , " & c.Offset(, -4) Next c On Error Resume Next Q = ThisWorkbook.Path & "\SAVE_File_Sif.sif" Open Q For Output As #1 For R_A = 1 To 500 For C_A = 13 To 13 Dim T_A As Variant T_A = Cells(R_A, C_A).Value If IsNumeric(T_A) Then T_A = Val(T_A) If C_A <> 13 Then Write #1, T_A; Else Write #1, T_A End If MsgBox "تم حفظ الملف في هذا المسار" & Chr(13) & Q: GoTo 1 Next C_A Next R_A Close #1 1 End Sub
الذيب 2015 قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 اولا ملف sif هذا نوع من الملفات يستخدموه في نظام حماية الاجور بالامارات وهو يشبه notepad ماشاء الله عليك استااااااااااااذ ماكنت متوقع أنه في طريقة ماشاء الله تبارك الله بس ملاحظة لا يعمل لصق ما هوموجود في العمود m بداخل الملف تحياتي لك
الـعيدروس قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 انا سويته على اساس خلايا عمود M ماهيا النتائج ارجو التوضيح
الذيب 2015 قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 مش عارف باللضبط لكن أنا جربته فتح ملف جديد ولكن فاضي هذا مالاحظته والله أعلم
الـعيدروس قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 (معدل) اخي الفاضل ارجو ارفاق برنامج SIF كي انصبه عندي واجرب عليه لانه هذا النوع من الملفات يظهر عندي انه غير معرف نوع الملف أو أرشدني إلى رابط من عمنا جوجل تم تعديل ديسمبر 13, 2011 بواسطه alidroos
الذيب 2015 قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 http://www.fileinfo.com/extension/sif كلمت عمنا جوجل ووافق يعطينا حلوة عمنا
محمد يحياوي قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 الاخ الفاضل ذيب اليمن الملف الذي ذكرت يتعلق بملف الاجوبة للتثبيت الصامت لنسخة الوندوز xp و الحقيقة لا اعلم ما علاقة الاكسل بهذه الملفات لكن عموما هذا كود يحول البيانات في ورقة واحدة فقط الى ملف sif جرب و اخبرنا بالنتيجة حيث Administrator هو اسم المستخدم Sub yah() ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\Book1.sif", FileFormat _ :=xlText, CreateBackup:=False End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.