có lẽ, nhưng nó là viết tắt của IF = True. Khi cả hai EOF (End Of File) và BOF (Bắt đầu của file) là giá trị Boolean, họ chỉ có thể giữ Đúng hay Sai. Lưu ý: Kiểm tra để đảm bảo rằng hồ sơ được lựa chọn phải luôn luôn được mã hóa để có ít nhất một hồ sơ để xử lý trong vòng lặp. | Combined Procedures Using Calendar Control for Office Applications By Suat Ozgur This sample code shows a custom calendar that would make it easy for a user to select a date from it. Scenario When using Excel or Word it is handy to have a calendar you can use to place a date in the worksheet or document you are working in. Example file and To use this control in applications transfer the clsCalendar frmCalendar and basCalendar objects from the sample documents into the worksheet or document in which it will be used. Place the following code in the basCalendar module. This is a Standard module that has been renamed basCalendar using the name box in the properties window bottom left of the Visual Basic Editor VBE . This can be imported and exported for use in other projects. Option Explicitfl fl Public Sub ShowForm fl With frmCalendarfl .Showfl End Withfl End Subfl Insert the following code in the UserForm module of UserForm frmCalendar. Option Explicitfl forces variable declarationfl Private cvarValue As Datefl Private cVarCDay As Byte Private cVarCMonth As Byte Private cVarCYear As Integer Private cVarDayBackColor As Private cVarDayForeColor As Private cVarSelBackColor As Private cVarSelForeColor As Private cVarSelBackToday As Private cVarSelForeToday As Private cVarDisForeColor As Private cVarBackColor As Private cVarForeColor As Cmb Dayfl Monthfl Yearfl Long Day backcolorfl Long Day forecolorfl Long Selected backcolorfl Long Selected forecolorfl Long Today backcolorfl Long Today forecolorfl Long Disabled forecolorfl Long Calendar backcolorfl Long Calendar forecolorfl Office VBA Macros You Can Use Today page 391 Combined Procedures An object array is needed to handle everyfl day cOntrols eventsfl Dim dayArray As clsCalendarfl fl Private Sub SetDefaults fl Day cellsfl Create Controls class object to create new controls on the flyfl Dim objControl As New clsCalendarfl Dim objDays As clsCalendarfl Dim lbl As Counter variablesfl Dim i
