এক্সেল দিয়ে ডিজিটাল ডায়েরি তৈরী করুন

এক্সেলে নিজেই তৈরি করুন ডিজিটাল ডায়েরি সফটওয়্যার – Create your own digital diary software in Excel

এক্সেলে নিজেই তৈরি করুন ডিজিটাল ডায়েরি সফটওয়্যার। এই বিস্তারিত টিউটোরিয়ালে আপনি শিখবেন কিভাবে এক্সেল ব্যবহার করে প্রোগ্রামিং স্কিল ব্যবহার করে আপনার নিজের ডিজিটাল ডায়েরি সফটওয়্যার তৈরি করতে।

Sub ClearForm()

For j = 1 To 3
UserForm1.Controls(“TextBox” & j).Value = “”
Next j

End Sub

Sub CloseForm()
Unload Me
End Sub

'For more : https://karimexcelvba.blogspot.com/
Private WithEvents Calendar1 As cCalendar
Dim i As Byte, sor, sor2, sor3 As String

Private Sub Calendar1_Click()
On Error Resume Next
Dim ara As Range
Set ara = Sheets(“data”).Range(“A2:A” & Range(“A” & Rows.Count).End(xlUp).Row).Find(CDate(Calendar1.Value), , xlValues, xlWhole)

If Not ara Is Nothing Then
Sheets(“data”).Cells(ara.Row, 1).Select
TextBox5.Text = Sheets(“data”).Cells(ara.Row, 2).Value
For i = 6 To 19
Controls(“TextBox” & i).Text = Sheets(“data”).Cells(ara.Row, i – 3).Value
Next
Else
MsgBox “The selected date not available.”, vbCritical, “Create by Karim Urmi ”
End If
End Sub

Private Sub CommandButton1_Click()
Dim ara As Range, y As Byte
Set ara = Sheets(“data”).Range(“A1:A” & Range(“A” & Rows.Count).End(xlUp).Row).Find(CDate(Calendar1.Value), , xlValues, xlWhole)
If Not ara Is Nothing Then
Sheets(“data”).Cells(ara.Row, 2).Value = TextBox5.Text
For i = 6 To 18
Sheets(“data”).Cells(ara.Row, i – 3).Value = Controls(“TextBox” & i).Text
Next
End If
sor2 = MsgBox(“The data were saved”, vbInformation, “Create by Karim Urmi”)

For y = 2 To 16
Sheets(“data”).Columns(y).EntireColumn.WrapText = True
Next
End Sub
Private Sub CommandButton10_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox12.Value = “”
gir
End Sub
Private Sub CommandButton11_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox13.Value = “”
gir
End Sub

Private Sub CommandButton12_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox14.Value = “”
gir
End Sub

Private Sub CommandButton13_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox15.Value = “”
gir
End Sub

Private Sub CommandButton14_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox16.Value = “”
gir
End Sub

Private Sub CommandButton15_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub

TextBox17.Value = “”
gir
End Sub

Private Sub CommandButton16_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox18.Value = “”
gir
End Sub

Private Sub CommandButton17_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox5.Value = “”
gir
End Sub

Private Sub CommandButton18_Click()
sor3 = MsgBox(“Do you want to save the workbook?”, vbYesNo, “Create by Karim Urmi”)
If sor3 = vbNo Then
ActiveWorkbook.Close SaveChanges:=False
Else
ActiveWorkbook.Save
Application.Quit
End If

End Sub

Private Sub CommandButton19_Click()
Application.Goto Worksheets(“Usr”).Range(“A1”)
End Sub

Private Sub CommandButton3_Click()
Dim ara As Range
Set ara = Sheets(“data”).Range(“A1:A” & Range(“A” & Rows.Count).End(xlUp).Row).Find(CDate(Calendar1.Value), , xlValues, xlWhole)
If Not ara Is Nothing Then
Sheets(“data”).Cells(ara.Row, 2).Value = TextBox5.Text
For i = 6 To 18
Sheets(“data”).Cells(ara.Row, i – 3).Value = Controls(“TextBox” & i).Text
Next
End If
sor2 = MsgBox(“The data were changed”, vbInformation, “Create by Karim Urmi”)
End Sub

Private Sub CommandButton4_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox6.Value = “”
gir
End Sub

Private Sub Image1_Click()
TextBox6.Value = “”
CommandButton1.SetFocus
End Sub

Private Sub CommandButton5_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox7.Value = “”
gir
End Sub

Private Sub CommandButton6_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox8.Value = “”
gir
End Sub

Private Sub CommandButton7_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox9.Value = “”
gir
End Sub

Private Sub CommandButton8_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox10.Value = “”
gir
End Sub

Private Sub CommandButton9_Click()
sor = MsgBox(“Do you want to delete data?”, vbYesNo, “Create by Karim Urmi”)
If sor = vbNo Then Exit Sub
TextBox11.Value = “”
gir
End Sub

Private Sub Kapat_Click()
Unload UserForm2
End Sub

Private Sub gir()
Dim ara As Range
Set ara = Sheets(“data”).Range(“A1:A” & Range(“A” & Rows.Count).End(xlUp).Row).Find(CDate(Calendar1.Value), , xlValues, xlWhole)
If Not ara Is Nothing Then
Sheets(“data”).Cells(ara.Row, 2).Value = TextBox5.Text
For i = 6 To 18
Sheets(“data”).Cells(ara.Row, i – 3).Value = Controls(“TextBox” & i).Text
Next
End If
End Sub

Private Sub UserForm_Initialize()
RemoveCloseButton Me

Set Calendar1 = New cCalendar
Calendar1.Add_Calendar_into_Frame Me.Frame1
TextBox6.EnterKeyBehavior = True
For i = 5 To 18
Controls(“TextBox” & i).EnterKeyBehavior = True
Controls(“TextBox” & i).ScrollBars = fmScrollBarsBoth
Next
Calendar1_Click

End Sub