نوشته اصلی توسط
iranweld
این ماکرو را برای ستون b تست بفرمایید
کد PHP:
TextBox2.Value = Format(TextBox2.Value, "HH:MM")
TextBox3.Value = Format(TextBox3.Value, "HH:MM")
For i = 1 To 3
If Sheets(i).Cells(1, 1) = TextBox1 Then
Sheets(i).Activate
End If
Next i
Range("b5").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)
ActiveCell.Value = TextBox2.Value
ActiveCell.Offset(0, 1).Value = TextBox3.Value
End Sub
مرسی از لطف شما برای این ستون کاملا اکی بود و من این رو به این شکل اصلاح کردم تا برای ستون ب هم به من جواب بده
کد PHP:
Private Sub CommandButton1_Click()Dim x As Integer
TextBox2.Value = Format(TextBox2.Value, "HH:MM")TextBox3.Value = Format(TextBox3.Value, "HH:MM")
For i = 1 To 3If Sheets(i).Cells(1, 1) = TextBox1 ThenSheets(i).ActivateEnd IfNext iIf WorksheetFunction.CountA(Range("b5:b20")) < 16 ThenRange("b5").SelectDoActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)
ActiveCell.Value = TextBox2.ValueActiveCell.Offset(0, 1).Value = TextBox3.ValueElseIf WorksheetFunction.CountA(Range("b5:b20")) = 16 ThenRange("f5").SelectDoActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)
ActiveCell.Value = TextBox2.ValueActiveCell.Offset(0, 1).Value = TextBox3.ValueEnd If
End Sub
اما الان ی مشکلی هست ببینید 15 روز از ماه در ستون b و 14 یا 15 یا 16 روز بسته به ماه در ستون f قرار میگیره حالا چطور میشه ی شرطتوقف براش قائل شد. یعنی اگر ماه اسفند بود و 29 روز تا ردیف 19 بیشتر پر نشه اگر فروردین بود تا ردیف 21 و ...
علاقه مندی ها (Bookmarks)