تم تعديل الكود
وبهذا سوف يتم فتح ملف الفلاش حين يتحقق الشرط دون التنقل بين الصفحات
واتمنى ان يفى هذا الغرض
Private Sub Worksheet_Calculate()
If Range("E4") = 1 Then
X = ThisWorkbook.Path & "\flash player.exe"
y = ThisWorkbook.Path & "\flash.swf"
Shell X & " " & y, vbNormalFocus
End If
End Sub
flash.rar
اخواني الاعزاء
اريد عمل تكويد بواسطة البار كود وعندي برنامج لعمل البار كود لكن يحتاج لعمل البار كود ان ادخل كود واحد كل مرة وسوف يحتاج وقت كتير وانا اريد تكويد حوالي 5000 كود
واريد المساعدة في عمل من فضلكم
السلام عليكم ورحمه الله وبركاته
الاخ العزيز
ارسل الفايل الذي تريد ان تستخدمه وان شاء الله سأحاول ان اساعدك لاني اتذكر ان مثل هذه المشكلة قابلتني من فترة في داتا بيز لشئون عاملين تقرير الموظفين الخارجين علي المعاش في تاريخ معين واعتقد انها نفس المشكلة
والله المستعان
نينو
سبحان الله الحمد لله الله اكبر
سبحان الله الحمد لله الله اكبر
سبحان الله الحمد لله الله اكبر
اخي العزيز
ارسل الفايل الذي تستخدمه وانا سوف اجد لك الحل ان شاء الله واكتب المطلوب لاني فاكر وجهتني مشكلة مثل هذه المشكلة اني دات بيز لشئون عاملين وكان المطلوب تقرير بالموظفين الخارجين علي المعاش في تاريخ معين واعتقد انه نفس المشكلة
والله المستعان نينو
سبحان الله الحمد لله الله اكبر
سبحان الله الحمد لله الله اكبر
سبحان الله الحمد لله الله اكبر