فایل نمونه
اگر اجرا نشد از ارور عکس بگیرید ببینم چیه؟
اگر اجرا نشد از ارور عکس بگیرید ببینم چیه؟
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
Private Sub CommandButton1_Click()
Sheet1.Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 0)).Select
ActiveCell.Value = MBCalendar2.SelectedDate
End Sub
کامنت