khorasan66
2015/12/07, 14:13
با سلام
در یک ستون مثلا 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
در یک ستون مثلا 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