راهنمایی در خصوص دستور for

[khorasan66]

با سلام
در یک ستون مثلا I ساعت های مختلفی ثبت شده اند
می خواهم یک محدوده معین از ساعت ها تبدیل به یک ساعت مشخص شوند که فرمول زیر را ناقص نوشته ام لطفا تکمیل نمائید

Dim Q1, Q2, Q3
Q1 = InputBox(" اولين ساعت محدوده اصلاحيه را وارد نمائيد", " انتخاب ساعت جهت اصلاح", "6:00")
Q2 = InputBox(" آخرين ساعت محدوده اصلاحيه را وارد نمائيد", " انتخاب ساعت جهت اصلاح", "6:59")
Q3 = InputBox(" تمامي ساعت ها تبديل شود به ", " انتخاب ساعت جهت اصلاح", "7:00")

Dim c
For Each c In Sheet1.Range("I:I")
If c >= Q1 And c <= Q2 Then
؟؟؟؟؟؟؟؟Sheet1.Range(؟؟؟؟؟؟؟؟؟؟� �؟؟؟؟؟؟؟؟؟؟؟؟) = Q3
End If
Next

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

فرمول را بدین صورت مد نظر دارید؟

For Each c In Sheet1.Range("I:I")

If c >= Q1 And c <= Q2 Then

Sheet1.Range("i" & c.Row).Value = Q3

End If

Next 

[khorasan66]

ضمن تشکر فرمول for تکمیل شد و با تغییراتی که دادم جواب داد فقط یک راهنمایی بفرمائید در مورد ماژول زیر :
چرا نمی توانم از مقادیر Q1 Q2 Q3 به صورت مستقیم استفاده کنم و باید مقادیر آنها را ابتدا در محلی ذخیره نموده تا در ادامه بتوانم از آنها استفاده نمایم


Sub vorood_01()
On Error Resume Next
Dim A!
A = InputBox("جهت اصلاح ساعت ورود مي بايست کلمه عبور را وارد نمائيد", "کنترل مديريت")
B = Sheet1.Range("T28").Value
If A <> B Then
Exit Sub
Else
Call UNPRO
Dim Q1, Q2, Q3, C
Q1 = InputBox(" اولين ساعت محدوده اصلاحيه را وارد نمائيد", " انتخاب ساعت جهت اصلاح", "6:00")
Sheet4.Range("Y2") = Q1
Q2 = InputBox(" آخرين ساعت محدوده اصلاحيه را وارد نمائيد", " انتخاب ساعت جهت اصلاح", "7:00")
Sheet4.Range("Y3") = Q2
Q3 = InputBox(" تمامي ساعت ها تبديل شود به ", " انتخاب ساعت جهت اصلاح", "7:00")
Sheet4.Range("Y4") = Q3
For Each C In Sheet4.Range("I1:I1000")
If C >= Sheet4.Range("Y2") And C < Sheet4.Range("Y3").Value Then
Sheet4.Range("i" & C.Row).Value = Sheet4.Range("Y4")
End If
Next
End If
Call PRO
MsgBox ("تمامي ورود هاي نوبت اول اصلاح گرديد")
End Sub

[iranweld]

در صورت امکان نمونه فایل را ضمیمه کنید

یا سه متغییر Q را بدین صورت تعریف کنید

Dim Q1, Q2, Q3 As Date 

[khorasan66]

نمونه فایل را پیوست میباشد
ماکروی اول با ذخیره مقادیر مشکلی ندارد
ماکروی دوم به صورت مسقیم مقادیر را میگیرد ولی شرط انجام نمی شود