Scribd
Upload
8 views18 pages

Excel VBA Macros for Data Management

The document contains multiple VBA macros for Excel that perform various tasks such as formatting cells, translating text, data entry, calculations, and conditional formatting. It includes functions to insert data into specific cells based on user input and to manipulate cell values based on conditions. Additionally, it features functions for translating city names and months from French to English and vice versa.

Uploaded by

amraouislimane1996
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
8 views18 pages

Excel VBA Macros for Data Management

The document contains multiple VBA macros for Excel that perform various tasks such as formatting cells, translating text, data entry, calculations, and conditional formatting. It includes functions to insert data into specific cells based on user input and to manipulate cell values based on conditions. Additionally, it features functions for translating city names and months from French to English and vice versa.

Uploaded by

amraouislimane1996
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Sub Macro6()

'

' Macro6 Macro

'

'

With [Link]

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent2

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Range("E7").Select

End Sub

Sub translate_FR()

Range("B1").Value = "ville "

Range("B2").Value = "Azilal "

Range("B3").Value = " Afourar "

Range("B4").Value = "Béniméllal "

Range("B5").Value = "Khouribga "

Range("B6").Value = "Rabat "

Range("c1").Value = "janvier "

Range("d1").Value = "fevrier "

Range("e1").Value = "mars "

Range("f1").Value = "avril "

Range("g1").Value = "mai "


End Sub

Les variables:
Sub calculation()
Range("d5"). Value = 5 * 10
End Sub
Sub dataentry()
Dim name As String
Dim nationalID As String
Dim clinic As String
Dim visitdate As Date

name = Worksheets("form2").Range("c3").Value
nationalID = Worksheets("form2").Range("c5").Value
clinic = Worksheets("form2").Range("f3").Value
visitdate = Worksheets("form2").Range("f5").Value

Worksheets("form1").Range("A2").Value = name
Worksheets("form1").Range("B2").Value = nationalID
Worksheets("form1").Range("C2").Value = clinic
Worksheets("form1").Range("D2").Value = visitdate

End Sub
Dim name As String
Dim nationalID As String
Dim clinic As String
Dim visitdate As Date
name = Worksheets("form2").Range("c3").Value
nationalID =

Worksheets("form2").Range("c5").Value
clinic = Worksheets("form2").Range("f3").Value
visitdate = Worksheets("form2").Range("f5").Value

Worksheets("form1").Range("A2").Value = name
Worksheets("form1").Range("B2").Value = nationalID
Worksheets("form1").Range("C2").Value = clinic
Worksheets("form1").Range("D2").Value = visitdate
Sub dataentry()
name = Worksheets("form2").Range("c3").Value
nationalID = Worksheets("form2").Range("c5").Value
clinic = Worksheets("form2").Range("f3").Value
visitdate = Worksheets("form2").Range("f5").Value

Worksheets("form1").Range("A2").Value = name
Worksheets("form1").Range("B2").Value = nationalID
Worksheets("form1").Range("C2").Value = clinic
Worksheets("form1").Range("D2").Value = visitdate

End Sub

Sub transfor()
Range("d4").Value = "ÚãÑÇæí"
Range("B5").Value = 693937051
Range("B6").Value = "0693937051"
Range("B7").Value = "0693937051"
Range("B8").Value = "0693937051"
Range("B9").Value = "0693937051"
Range("B10").Value = "0693937051"
Range("B11").Value = "0693937051"
Range("B12").Value = "0693937051"
Range("B13").Value = "0693937051"
Range("B14").Value = "0693937051"
Range("B15").Value = "0693937051"
Range("B16").Value = "0693937051"
Range("B17").Value = "0693937051"
Range("B18").Value = "0693937051"
Range("B19").Value = "0693937051"
Range("B20").Value = "0693937051"

End Sub
Sub colour()
Range("d4").Value = " noir"
End Sub
Sub dataentry()
Worksheets("feuil6").Range("2:2").Insert
name = Worksheets("form2").Range("c3").Value
nationalID = Worksheets("form2").Range("c5").Value
clinic = Worksheets("form2").Range("f3").Value
visitdate = Worksheets("form2").Range("f5").Value

Worksheets("feuil6").Range("A2").Value = name
Worksheets("feuil6").Range("B2").Value = nationalID
Worksheets("feuil6").Range("C2").Value = clinic
Worksheets("feuil6").Range("D2").Value = visitdate
Worksheets("form2").Range("c3").ClearContents

End Sub

Sub translate()

Worksheets("form1").Range("2:3").Insert
Name = Worksheets("form2").Range("C3").Value
visitinternational = Worksheets("form2").Range("C5").Value
clinic = Worksheets("form2").Range("F3").Value
visitdate = Worksheets("form2").Range("F5").Value

Worksheets("form1").Range("A2").Value = Name
Worksheets("form1").Range("B2").Value =
visitinternational
Worksheets("form1").Range("C2").Value = clinic
Worksheets("form1").Range("D2").Value = visitdate

Worksheets("form2").Range("c3").ClearContents
Worksheets("form2").Range("C5").ClearContents
Worksheets("form2").Range("F3").ClearContents
Worksheets("form2").Range("F5").ClearContents

End Sub
Sub calculation()

Worksheets("feuil4").Range("c20").Value = 2 * 1000
Worksheets("feuil4").Range("c2").Value = 2 * 15
Worksheets("feuil4").Range("c3").Value = 2 * 14
Worksheets("feuil4").Range("c4").Value = 2 * 19
Worksheets("feuil4").Range("c5").Value = 2 * 16
Worksheets("feuil4").Range("c6").Value = 2 * 20
Worksheets("feuil4").Range("c7").Value = 2 * 60

Worksheets("feuil4").Range("2:2").Delete

End Sub
Sub colour()

If Worksheets("feuil2").Range("B2").Value >= 9.5 Then


Worksheets("feuil2").Range("B2").[Link] = vbGreen
ElseIf Worksheets("feuil2").Range("B2").Value >= 4.5 Then
Worksheets("feuil2").Range("B2").[Link] = vbnoir
Else
Worksheets("feuil2").Range("B2").[Link] = vbRed
End If
If Worksheets("feuil2").Range("B3").Value >= 10 Then
Worksheets("feuil2").Range("B3").[Link] = Green
End If

End Sub
Sub insert()

If Worksheets("feuil2").Range("B2").Value >= 9.5 Then


Worksheets("feuil2").Range("B2").[Link] = vbGreen
ElseIf Worksheets("feuil2").Range("B2").Value >= 4.5 Then
Worksheets("feuil2").Range("B2").[Link] = vbnoir
Else
Worksheets("feuil2").Range("B2").[Link] = vbRed
End If
If Worksheets("feuil2").Range("B3").Value >= 10 Then
Worksheets("feuil2").Range("B3").[Link] = vbGreen
End If

End Sub
If Worksheets("feuil1").Range("E4") = ÓáíãÇä And
Worksheets("feuil1").Range("D4") = ÚãÑÇæí Then
Worksheets("feuil1").Range("c4").Value = " IC141411"
End If
End Sub
Sub translation()
If Worksheets("feuil1").Range("E4") = slimane And
Worksheets("feuil1").Range("D4") = amraoui Then
Range("c4").Value = "IC141411"
End If
End Sub
Sub numbrs()
Dim thenum As Long
Dim Ahadnumber As Integer
Dim Asharatnum As Integer
Dim Ahadtext As String
Dim Asharattext As String
Dim SPNum As String

thenum = Range("b5").Value
Ahadnumber = CInt(Right(thenum, 1))
Asharatnumber = CInt(Left(thenum, 1))
Select Case Ahadnumber
Case 0
Ahadtext = "ÕÝÑ"
Case 1
Ahadtext = "æÇÍÏ"
Case 2
Ahadtext = "ÇËäÇä"
Case 3
Ahadtext = "ËáÇËÉ"
Case 4
Ahadtext = "ÇÑÈÚÉ"
Case 5
Ahadtext = "ÎãÓÉ"
Case 6
Ahadtext = "ÓÊÉ"
Case 7
Ahadtext = "ÓÈÚÉ"
Case 8
Ahadtext = "ËãÇäíÉ"
Case 9
Ahadtext = "ÊÓÚÉ"

End Select

Select Case Asharatnumber


Case 1
Asharattext = "ÚÔÑ"
Case 2
Asharattext = "ÚÔÑæä"
Case 3
Asharattext = "臂辊"
Case 4
Asharattext = "ÇÑÈÚæä"
Case 5
Asharattext = "ÎãÓæä"

Case 6
Asharattext = "ÓÊæä"
Case 7
Asharattext = "ÓÈÚæä"
Case 8
Asharattext = "ËãÇäæä"

End Select
Select Case thenum
Case 10
SPNum = "ÚÔÑ"
Case 11
SPNum = "ÇÍÏì ÚÔÑ "
Case 12
SPNum = "ÇËäÇÉ ÚÔÑ "
Case 13
SPNum = "ËáÇáËÉ ÚÔÑ"
Case 14
SPNum = "ÇÑÈÚÉ ÚÔÑ"
Case 15
SPNum = "ÎãÓÉ ÚÔÑ"
Case 16
SPNum = "ÓÊÉ ÚÔÑ"
End Select
If thenum < 10 Then
Range("d5").Value = Ahadtext
ElseIf thenum >= 10 And thenum >= 12 Then
Range("d5").Value = SPNum
ElseIf thenum >= 13 And thenum < 20 Then
Range("d5").Value = Ahadtext & "" & Asharattext
ElseIf Ahadnumber = 0 Then
ElseIf thenum > 20 Then
Range("d5").Value = Asharattext
Range("d5").Value = Ahadtext & "æ" & Asharattext
End If

End Sub
Sub day()
If Range("c2").Value = 1 Then
Range("d2").Value = "lundi"
ElseIf Range("c2").Value = 2 Then
Range("d2").Value = "mardi"
ElseIf Range("c2").Value = 3 Then
Range("d2").Value = "mercredi"
ElseIf Range("c2").Value = 4 Then
Range("d2").Value = "jeudi"
ElseIf Range("c2").Value = 5 Then
Range("d2").Value = "vendredi"
ElseIf Range("c2").Value = 6 Then
Range("d2").Value = "semedi"
ElseIf Range("c2").Value = 7 Then
Range("d2").Value = "dimanche"
Else: Range("d2").[Link] = vbGreen
End If

Range("d2").Delete
End Sub
Select case
Case
Case
End selects
Sub day()
Select Case Range("c2").Value
Case 1
Range("d2").Value = "lundi"
Case 2
Range("d2").Value = "mardi"
Case 3
Range("d2").Value = "mercredi"
Case 4
Range("d2").Value = "jeudi"
Case 5
Range("d2"). Value = "vendredi"
Case 6
Range("d2"). Value = "Samedi"
End Select

End Sub
Sub day ()
Select Case Range("A5"). Value
Case 1 To 5
Range("B3"). Value = "Workday"
Case 6 To 7
Range("B3"). Value = " weekend"
End Select
End Sub
Sub day ()
Select Case Range("A5"). Value
Case Is < 3
Range("B3"). Value = "Workday"
Case Else
Range("B3"). Value = " weekend"
End Select
End Sub
Sub evaluation ()
Select Case Range("B3").Value
Case Is > 10
Range("d6"). Value = "bien"
Case Is = 10

Range("d6"). Value = "passable"


End Select
End Sub

You might also like