اذهب الي المحتوي
أوفيسنا

تعديل كود ليعمل بتوقيت معين


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم

الاخوه الافاضل هل ممكن المساعدة في هذا الكود

اريد تعديل هذا الكود بحيث يقف لمدة 10 ثواني ثم يبدء العمل 

                                                                                                                                   Sheets("بنك").Select

                                                                                                                   ( يقف هنا - ثم يبداء العمل )

                                                                          Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

 

تم تعديل بواسطه yasse.w.2010
رابط هذا التعليق
شارك

شكرا استاذ سليم

بس حاولت اعمل الكود ومعرفتش

ارجو منك مساعدتي في عمل المعادلة بحيث تعمل اوتماتيك 

                                                                                                                                    Sheets("بنك").Select

                                                                                                                   ( يقف هنا - ثم يبداء العمل ) معادلة الوقت هنا 

                                                       

                   Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

 

رابط هذا التعليق
شارك

  • أفضل إجابة

Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

الكود يعمل معك وانت لا تلاجظ ذلك لأنك  دائماً تعمل  Selection  لنفس الخلية التي هي اول خلية فارغة بالعامود F

جرب هذا الكود المرفق بالملف

Option Explicit
Dim ws As Worksheet
Dim RG As Range
Dim Time_Run As Date
Dim my_st$
Dim i%
'++++++++++++++++++++++++
Sub Cyclic_macro()
Static x
 x = i
 Set ws = Sheets("Sheet1")
 my_st$ = "Salim"
Set RG = ws.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1)
  RG = my_st & i + 1
  i = i + 1
Time_Run = Now + TimeValue("00:00:03")
Application.OnTime Time_Run, "Cyclic_macro"
End Sub
'++++++++++++++++++++++++++++
Sub Stop_Me()
On Error Resume Next
i = 0
Application.OnTime Time_Run, "Cyclic_macro", , False
End Sub
'+++++++++++++++++++++++++++++
Sub Clear_data()
Set ws = Sheets("Sheet1")
i = 0
ws.Range("A2", Range("A1").End(4)).ClearContents
End Sub

Cyclic_macro.xlsm

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information