البحث في الموقع
Showing results for tags 'مشكله عند فتح ملف الاكسل'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعزاء الكرام عندي مشكله في فتح ملف الاكسل وهي ببساطه عند فتح ملف الاكسل عن طريق فور وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب اتمني ان يكون هناك حل علما ان المشكله غالبا في هذا الكود Sub Date_Time() With Me 1 DoEvents n = Now .L_Time.Caption = Format(n, "[$-F400]h:mm:ss AM/PM") .L_Year.Caption = Format(n, "yyyy") .L_Day.Caption = Format(n, "dd") .L_DayD.Caption = Format(n, "dddd") .L_Month.Caption = Format(n, "mmmm") T = T + 1 For R = 1 To 10000000: Next R GoTo 1 End With End Sub Private Sub TB_H_Click() With Me If .TB_H.Value = True Then .TB_H.Caption = "ميلادي " VBA.Calendar = vbCalGreg Date_Time Else .TB_H.Caption = "هجري " VBA.Calendar = vbCalHijri Date_Time End If: End With End Sub لان عند الغاء هذا الكود يعمل الملف طبيعي دون مشاكل اتمني يكون هناك حل لهذا الكود بحيث يتناسب مع الملف المرفق ولكم جزيل الشكر والاحترام منع الكتابه.rar منع الكتابه.rar
-
السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعزاء الكرام عندي مشكله في فتح ملف الاكسل وهي ببساطه عند فتح ملف الاكسل عن طريق يوزرفورم وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب اتمني ان يكون هناك حل علما ان المشكله غالبا في هذا الكود Sub Date_Time() With Me 1 DoEvents n = Now .L_Time.Caption = Format(n, "[$-F400]h:mm:ss AM/PM") .L_Year.Caption = Format(n, "yyyy") .L_Day.Caption = Format(n, "dd") .L_DayD.Caption = Format(n, "dddd") .L_Month.Caption = Format(n, "mmmm") T = T + 1 For R = 1 To 10000000: Next R GoTo 1 End With End Sub Private Sub TB_H_Click() With Me If .TB_H.Value = True Then .TB_H.Caption = "ميلادي " VBA.Calendar = vbCalGreg Date_Time Else .TB_H.Caption = "هجري " VBA.Calendar = vbCalHijri Date_Time End If: End With End Sub لان عند الغاء هذا الكود يعمل الملف طبيعي دون مشاكل اتمني يكون هناك حل لهذا الكود بحيث يتناسب مع الملف المرفق ولكم جزيل الشكر والاحترام منع الكتابه.rar
