Functii utilizabile in toate worksheet-urile
Sursa: Social.MSDN.Microsoft.com
- Editarea ei într-un modul al fişierului Personal.xlsb, dar ar trebui apelată funcţia astfel: =PERSONAL.XLSB!prenume_simplu(A1) sau din Insert Function -> User Defined
- Salvarea functiilor intr-un fisier tip XLAM, apoi apelarea sa din Add-In şi funcţia va putea fi apelată astfel: =prenume_simplu(A1) sau din Insert Function -> User Defined
Caractere ASCII pentru diacritice
Sursa: Tomoniu.ro
|
1 2 3 |
- ă = MsgBox Chr(227) | - Ă = MsgBox Chr(195) - ş = MsgBox Chr(186) | - Ş = MsgBox Chr(170) - ţ = MsgBox Chr(254) | - Ţ = MsgBox Chr(222) |
Functie simpla cu Select Case
Varianta 1
|
1 2 3 4 5 6 7 8 |
Public Function Luci(varAltern As String) Select Case UCase(varAltern) Case "BLACKBOARD" Luci = "Inrolare pe vechea platforma" Case "MOODLE" Luci = "Inrolare pe platforma noua" End Select End Function |
Varianta 2
|
1 2 3 4 5 6 7 8 |
Public Function COMUT(varAltern As String) Select Case varAltern Case "ID", "id" COMUT = "Stud ID" Case "IF", "if" COMUT = "Stud IF" End Select End Function |
Medie cu două zecimale (MsAccess)
– posibil să funcţioneze şi în Excel
|
1 2 3 4 5 |
Function media2zec(ByVal med As Double) As Double Dim medsir As String medsir = Format(med, "##.###") media2zec = CDbl(Mid(medsir, 1, 5)) End Function |
Medie cu litere (MsAccess)
– posibil să funcţioneze şi în Excel
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Function MediaLitere(ByVal med As Double) As String Dim MyNota(11) As String, i As Integer, j As Integer MyNota(0) = "zero" MyNota(1) = "unu" MyNota(2) = "doi" MyNota(3) = "trei" MyNota(4) = "patru" MyNota(5) = "cinci" MyNota(6) = "ºase" MyNota(7) = "ºapte" MyNota(8) = "opt" MyNota(9) = "nouã" MyNota(10) = "zece" Dim medsir As String medsir = Format(med, "00.00") i = FormatNumber(Mid(medsir, 1, 2)) j = FormatNumber(Mid(medsir, 4, 2)) If j = 0 Then MediaLitere = MyNota(i) Else MediaLitere = MyNota(i) & " si " & Format(j) & " %" End If End Function |
Funcţie BackUp
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Function fc_Backup() As Boolean 'poate fi atasat unui buton sau intr-un Load_form event Dim Source As String Dim Target As String Dim retval As Integer Source = CurrentDb.Name Target = "E:\Backups\NumeFisier" Target = Target & Format(Date, "mm-dd") & " " Target = Target & Format(Time, "hh-mm") & ".accdb" ' create the backup retval = 0 Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") retval = objFSO.CopyFile(Source, Target, True) Set objFSO = Nothing End Function |
Inserare valori din textbox in tabela via VBA
|
1 2 3 |
Dim SQL As String SQL = "Insert into tblMinutes(CompName, MinuteDate, MinuteText, NextVisit) values ( '" & Me.CompName & "', '" & Me.MinuteDate & "', '" & Me.MinuteText & "', '" & Me.NextVisit & "')" CurrentDb.Execute SQL |