এক্সেলে নিজেই তৈরি করুন পাজল গেম-Make Your Own Puzzle Game in Excel

'For more : https://karimexcelvba.blogspot.com/


Public iiii

Private Sub CommandButton21_Click()
CommandButton_new_Click
End Sub

Private Sub CommandButton22_Click()
CommandButton_abandon_Click
End Sub

Private Sub CommandButton23_Click()
Unload Me
    ThisWorkbook.Close SaveChanges:=False
End Sub

Private Sub CommandButton24_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink ("https://karimexcelvba.blogspot.com/")
End Sub

Private Sub Label_fermer_Click()
Unload Me
End Sub
Private Sub Label_vba_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink ("https://karimexcelvba.blogspot.com/")
End Sub
Private Sub Userform_Activate()
Call SystemButtonSettings(Me, False)
End Sub
Private Sub UserForm_Initialize()
CommandButton_new.SetFocus
End Sub
Sub iiiiiiiiiiiiiiiiiiiiii(ByVal iiiiiiiiiiii)
If CommandButton16.Visible Then Exit Sub
iiiii = 0
iiiiii = 0
If iiiiiii(iiiiiiiiiiii) Then
Label_droite = "OUI"
iiiii = 100
Else
Label_droite = "NON"
End If
If iiiiiiii(iiiiiiiiiiii) Then
Label_gauche = "OUI"
iiiii = -100
Else
Label_gauche = "NON"
End If
If iiiiiiiii(iiiiiiiiiiii) Then
Label_bas = "OUI"
iiiiii = 100
Else
Label_bas = "NON"
End If
If iiiiiiiiii(iiiiiiiiiiii) Then
Label_haut = "OUI"
iiiiii = -100
Else
Label_haut = "NON"
End If
If iiiii <> 0 Or iiiiii <> 0 Then
If iiii = "" Then
iiii = iiiiiiiiiiii
Else
iiii = iiii & "." & iiiiiiiiiiii
End If
Label_mov = iiii
For i = 1 To 25
iiiiiiiiiiiiiiiii = 0.01
iiiiiiiiiiiiiiiiii = Timer
Do While Timer < iiiiiiiiiiiiiiiiii + iiiiiiiiiiiiiiiii
DoEvents
Loop
Controls("CommandButton" & iiiiiiiiiiii).Left = Controls("CommandButton" & iiiiiiiiiiii).Left + iiiii / 25
Controls("CommandButton" & iiiiiiiiiiii).Top = Controls("CommandButton" & iiiiiiiiiiii).Top + iiiiii / 25
iiiiiiiiiiiiiiii = True
If CommandButton1.Left <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton5.Left <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton9.Left <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton13.Left <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton2.Left <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton6.Left <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton10.Left <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton14.Left <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton3.Left <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton7.Left <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton11.Left <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton15.Left <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton4.Left <> 300 Then iiiiiiiiiiiiiiii = False
If CommandButton8.Left <> 300 Then iiiiiiiiiiiiiiii = False
If CommandButton12.Left <> 300 Then iiiiiiiiiiiiiiii = False
If CommandButton1.Top <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton2.Top <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton3.Top <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton4.Top <> 0 Then iiiiiiiiiiiiiiii = False
If CommandButton5.Top <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton6.Top <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton7.Top <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton8.Top <> 100 Then iiiiiiiiiiiiiiii = False
If CommandButton9.Top <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton10.Top <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton11.Top <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton12.Top <> 200 Then iiiiiiiiiiiiiiii = False
If CommandButton13.Top <> 300 Then iiiiiiiiiiiiiiii = False
If CommandButton14.Top <> 300 Then iiiiiiiiiiiiiiii = False
If CommandButton15.Top <> 300 Then iiiiiiiiiiiiiiii = False
If iiiiiiiiiiiiiiii Then
CommandButton_new.SetFocus
CommandButton16.Visible = True
MsgBox "Congratulations !"
iiii = ""
Label_mov = ""
End If
Next
End If
End Sub
Function iiiiiii(ByVal iiiiiiiiiiiii)
iiiiiii = True
iiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Left
iiiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Top
If iiiiiiiiiiiiii < 300 Then
For iiiiiiiiiiii = 1 To 15
If iiiiiiiiiiii <> iiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Top = iiiiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Left = iiiiiiiiiiiiii + 100 Then
iiiiiii = False
End If
End If
End If
Next
Else
iiiiiii = False
End If
End Function
Function iiiiiiii(ByVal iiiiiiiiiiiii)
iiiiiiii = True
iiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Left
iiiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Top
If iiiiiiiiiiiiii > 0 Then
For iiiiiiiiiiii = 1 To 15
If iiiiiiiiiiii <> iiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Top = iiiiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Left = iiiiiiiiiiiiii - 100 Then
iiiiiiii = False
End If
End If
End If
Next
Else
iiiiiiii = False
End If
End Function
Function iiiiiiiii(ByVal iiiiiiiiiiiii)
iiiiiiiii = True
iiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Left
iiiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Top
If iiiiiiiiiiiiiii < 300 Then
For iiiiiiiiiiii = 1 To 15
If iiiiiiiiiiii <> iiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Left = iiiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Top = iiiiiiiiiiiiiii + 100 Then
iiiiiiiii = False
End If
End If
End If
Next
Else
iiiiiiiii = False
End If
End Function
Function iiiiiiiiii(ByVal iiiiiiiiiiiii)
iiiiiiiiii = True
iiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Left
iiiiiiiiiiiiiii = Controls("CommandButton" & iiiiiiiiiiiii).Top
If iiiiiiiiiiiiiii > 0 Then
For iiiiiiiiiiii = 1 To 15
If iiiiiiiiiiii <> iiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Left = iiiiiiiiiiiiii Then
If Controls("CommandButton" & iiiiiiiiiiii).Top = iiiiiiiiiiiiiii - 100 Then
iiiiiiiiii = False
End If
End If
End If
Next
Else
iiiiiiiiii = False
End If
End Function
Private Sub CommandButton_abandon_Click()
If iiii <> "" Then
iiiiiiiiiii = Split(iiii, ".")
For i = UBound(iiiiiiiiiii) To 0 Step -1
iiiiiiiiiiiiiiiiiii iiiiiiiiiii(i)
Next
CommandButton_new.SetFocus
CommandButton16.Visible = True
iiii = ""
Label_mov = ""
End If
End Sub
Sub iiiiiiiiiiiiiiiiiii(ByVal iiiiiiiiiiii)
iiiii = 0
iiiiii = 0
If iiiiiii(iiiiiiiiiiii) Then
iiiii = 100
End If
If iiiiiiii(iiiiiiiiiiii) Then
iiiii = -100
End If
If iiiiiiiii(iiiiiiiiiiii) Then
iiiiii = 100
End If
If iiiiiiiiii(iiiiiiiiiiii) Then
iiiiii = -100
End If
If iiiii <> 0 Or iiiiii <> 0 Then
For i = 1 To 5
iiiiiiiiiiiiiiiii = 0.01
iiiiiiiiiiiiiiiiii = Timer
Do While Timer < iiiiiiiiiiiiiiiiii + iiiiiiiiiiiiiiiii
DoEvents
Loop
Controls("CommandButton" & iiiiiiiiiiii).Left = Controls("CommandButton" & iiiiiiiiiiii).Left + iiiii / 5
Controls("CommandButton" & iiiiiiiiiiii).Top = Controls("CommandButton" & iiiiiiiiiiii).Top + iiiiii / 5
Next
Else
MsgBox "Erreur ;-("
End If
End Sub
Private Sub CommandButton_new_Click()
CommandButton16.Visible = False
iiii = ""
CommandButton1.Left = 0
CommandButton5.Left = 0
CommandButton9.Left = 0
CommandButton13.Left = 0
CommandButton2.Left = 100
CommandButton6.Left = 100
CommandButton10.Left = 100
CommandButton14.Left = 100
CommandButton3.Left = 200
CommandButton7.Left = 200
CommandButton11.Left = 200
CommandButton15.Left = 200
CommandButton4.Left = 300
CommandButton8.Left = 300
CommandButton12.Left = 300
CommandButton1.Top = 0
CommandButton2.Top = 0
CommandButton3.Top = 0
CommandButton4.Top = 0
CommandButton5.Top = 100
CommandButton6.Top = 100
CommandButton7.Top = 100
CommandButton8.Top = 100
CommandButton9.Top = 200
CommandButton10.Top = 200
CommandButton11.Top = 200
CommandButton12.Top = 200
CommandButton13.Top = 300
CommandButton14.Top = 300
CommandButton15.Top = 300
iiiiiiiiiiiiiiiiiiiii = 0
iiiiiiiiiiiiiiiiiiii = 0
Randomize
Do Until iiiiiiiiiiiiiiiiiiiii > 50
iiiiiiiiiiii = Int(15 * Rnd) + 1
If iiiiiiiiiiii <> iiiiiiiiiiiiiiiiiiii Then
iiiii = 0
iiiiii = 0
If iiiiiii(iiiiiiiiiiii) Then
iiiii = 100
End If
If iiiiiiii(iiiiiiiiiiii) Then
iiiii = -100
End If
If iiiiiiiii(iiiiiiiiiiii) Then
iiiiii = 100
End If
If iiiiiiiiii(iiiiiiiiiiii) Then
iiiiii = -100
End If
If iiiii <> 0 Or iiiiii <> 0 Then
Controls("CommandButton" & iiiiiiiiiiii).Left = Controls("CommandButton" & iiiiiiiiiiii).Left + iiiii
Controls("CommandButton" & iiiiiiiiiiii).Top = Controls("CommandButton" & iiiiiiiiiiii).Top + iiiiii
If iiii = "" Then
iiii = iiiiiiiiiiii
Else
iiii = iiii & "." & iiiiiiiiiiii
End If
Label_mov = iiii
iiiiiiiiiiiiiiiiiiii = iiiiiiiiiiii
iiiiiiiiiiiiiiiiiiiii = iiiiiiiiiiiiiiiiiiiii + 1
End If
End If
Loop
End Sub
Private Sub CommandButton1_Click()
iiiiiiiiiiiiiiiiiiiiii 1
End Sub
Private Sub CommandButton2_Click()
iiiiiiiiiiiiiiiiiiiiii 2
End Sub
Private Sub CommandButton3_Click()
iiiiiiiiiiiiiiiiiiiiii 3
End Sub
Private Sub CommandButton4_Click()
iiiiiiiiiiiiiiiiiiiiii 4
End Sub
Private Sub CommandButton5_Click()
iiiiiiiiiiiiiiiiiiiiii 5
End Sub
Private Sub CommandButton6_Click()
iiiiiiiiiiiiiiiiiiiiii 6
End Sub
Private Sub CommandButton7_Click()
iiiiiiiiiiiiiiiiiiiiii 7
End Sub
Private Sub CommandButton8_Click()
iiiiiiiiiiiiiiiiiiiiii 8
End Sub
Private Sub CommandButton9_Click()
iiiiiiiiiiiiiiiiiiiiii 9
End Sub
Private Sub CommandButton10_Click()
iiiiiiiiiiiiiiiiiiiiii 10
End Sub
Private Sub CommandButton11_Click()
iiiiiiiiiiiiiiiiiiiiii 11
End Sub
Private Sub CommandButton12_Click()
iiiiiiiiiiiiiiiiiiiiii 12
End Sub
Private Sub CommandButton13_Click()
iiiiiiiiiiiiiiiiiiiiii 13
End Sub
Private Sub CommandButton14_Click()
iiiiiiiiiiiiiiiiiiiiii 14
End Sub
Private Sub CommandButton15_Click()
iiiiiiiiiiiiiiiiiiiiii 15
End Sub