البحث في الموقع
Showing results for tags 'رجاء المساعدة'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله وبركاته اخواني الكرام ارغب في المساعدة لعمل هايبر لينك لاعداد كثيرة ..اعلم الطريقة المعتادة ولكن ارغب في طريقة اخري سهلة التعلم والتطبيق علي اكواد كثيرة تصل للالف مرفق لحضراتكم ملف به المطلوب بشكل اكثر توضيحا فهل هناك طريقة وجزاكم الله كل خير 555555.rar
-
اخوانى الكرام هذا كود للعلامة خبور خير اود ان افهمه كى اعدل علية واطبقه على مشروعى وشكرا '--------------------------------- (Call kh_Update_Par(i, Lr) DoEvents '------------------------------ ============================================================== Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub ========================================================================== Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Sub
