Met behulp van VBA code 8 tekens vanaf de linkerkant van een tekenreeks verwijderen. Tekenreeksen staan in kolom A.
Je moet wel opletten want een cijfer als 02 kapt Excel af en toont dat als 2. Hierdoor wordt de tekenreeks “AFT5985602” weergegeven als 2. Er zijn in dat geval 9 cijfers weggelaten. Daarom moet je de 2 aan het einde van de code niet veranderen
Option Explicit
Sub Verwijder_8_Tekens()
Range("A2", Range("A" & Rows.Count).End(xlUp)).TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(8, 1))
End Sub
Gegevens in één cel splitsen en weergeven per cel. In Kolom A en B staan gegevens. Er staan telkens twee namen in één cel bijvoorbeeld in A2 . In B2 staan twee steden. Zie afbeelding.
1. Kopieer de onderstaande code middels Ctrl + C 2. Druk op de toetscombinatie ALT + F11 om de Visual Basic Editor te openen 3. Druk op de toetscombinatie ALT + N om het menu Invoegen te openen 4. Druk op M om een standaard module in te voegen 5. Daar waar de cursor knippert voeg je de code in middels Ctrl + V 6. Druk op de toetscombinatie ALT + Q om de Editor af te sluiten en terug te keren naar Excel 7. Druk op de toetscombinatie ALT + F8 om de Macro Dialoog te tonen. Dubbelklik op de macro naam om te starten.
Sub Splitsen()
Dim a As Variant, b As Variant, c As Variant
Dim i As Long
a = Range("A2", Range("B" & Rows.Count).End(xlUp)).Value
ReDim b(1 To UBound(a) * 2, 1 To 2)
For i = 1 To UBound(a)
c = Split(a(i, 1), Chr(10))
b(i * 2 - 1, 1) = c(0)
b(i * 2, 1) = c(1)
c = Split(a(i, 2), Chr(10))
b(i * 2 - 1, 2) = c(0)
b(i * 2, 2) = c(1)
Next
Range("D2:E2").Resize(UBound(b)).Value = b
End Sub
We hebben een tabel zoals in de afbeelding hieronder. Het doel is om dezelfde producten op te tellen en te vermenigvuldigen. Bijvoorbeeld: het aantal fusten “Rhönbräu Klosterbier” maal het aantal items (in dit geval liters, omdat de eenheid voor fusten liters is). In totaal hebben we 48 fusten “Rhönbräu Klosterbier”. Een deel van de fusten bevat 15 liter en een ander deel 12 liter. Dit komt samen uit op een totaal van 648 liter “Rhönbräu Klosterbier”.
Formule in G2 is: =SUMPRODUCT(--(A$2:A$11=F2);B$2:B$11;D$2:D$11) Doorvoeren naar beneden.
On Sheet1 the names of sellers are in Column C and in Column D are amounts. In Column C, the name of the same employee can appear multiple times.
On Sheet2, we want to show the seller with the highest total amount and then the second seller, etc. A kind of Top 10 so to speak. In addition, there is a criterion, we only count the amounts for which column E says “Sold”.
Sheet1
Sheet2
A1 Since you want to see a Top-N, enter the number here, for example 8. Then you get to see the Top-8.
You have to enter the formulas with Ctrl+Shift+Enter (not just Enter)
In $A$3:$A$93 namen waaronder veel dubbele namen, We willen in C3 een lijst met unieke namen en die lijst sorteren van A naar Z. Niet al te moeilijk. We hebben slechts één formule nodig.
In [C3] =IFERROR(INDEX($A$3:$A$93; MATCH(SMALL(IF(COUNTIF($C$2:C2; $A$3:$A$93)=0; COUNTIF($A$3:$A$93; "<"&$A$3:$A$93); ""); 1); COUNTIF($A$3:$A$93; "<"&$A$3:$A$93); 0));"")
Invoeren met Ctrl+Shift+Enter (NIET alleen Enter)
En doorvoeren naar beneden.
Bijvoorbeeld in A1:
=ExtendedEuclideanWithSteps(1190;672;33;11;TRUE)
Function ExtendedEuclideanWithSteps(a As Long, b As Long, ByRef x As Long, ByRef y As Long, Optional showSteps As Boolean = False) As Long
' Extended Euclidean Algorithm with step-by-step explanation
Dim temp As Long
Dim x1 As Long, x2 As Long, y1 As Long, y2 As Long
Dim q As Long, r As Long
Dim stepCount As Integer
Dim result As String
Dim originalA As Long, originalB As Long
' Store original values
originalA = a
originalB = b
' Ensure positive numbers
a = Abs(a)
b = Abs(b)
' Handle zero cases
If a = 0 And b = 0 Then
x = 0: y = 0
ExtendedEuclideanWithSteps = 0
Exit Function
End If
If a = 0 Then
x = 0: y = Sgn(b)
ExtendedEuclideanWithSteps = b
Exit Function
End If
If b = 0 Then
x = Sgn(a): y = 0
ExtendedEuclideanWithSteps = a
Exit Function
End If
' Initialize coefficients and step counter
x1 = 1: x2 = 0
y1 = 0: y2 = 1
stepCount = 0
If showSteps Then
result = "Extended Euclidean Algorithm Steps:" & vbCrLf & vbCrLf
result = result & "Find GCD(" & originalA & ", " & originalB & ") and coefficients x, y" & vbCrLf
result = result & "such that: " & originalA & "x + " & originalB & "y = GCD" & vbCrLf & vbCrLf
result = result & "Step " & stepCount & ":" & vbCrLf
result = result & "a = " & a & ", b = " & b & vbCrLf
result = result & "x1 = " & x1 & ", x2 = " & x2 & vbCrLf
result = result & "y1 = " & y1 & ", y2 = " & y2 & vbCrLf & vbCrLf
End If
' Extended Euclidean Algorithm
Do While b <> 0
stepCount = stepCount + 1
q = a \ b
r = a Mod b
If showSteps Then
result = result & "Step " & stepCount & ":" & vbCrLf
result = result & a & " = " & b & " * " & q & " + " & r & vbCrLf
End If
' Update coefficients
temp = x2
x2 = x1 - q * x2
x1 = temp
temp = y2
y2 = y1 - q * y2
y1 = temp
If showSteps Then
result = result & "New coefficients: x1 = " & x1 & ", x2 = " & x2 & vbCrLf
result = result & " y1 = " & y1 & ", y2 = " & y2 & vbCrLf & vbCrLf
End If
' Update a and b
a = b
b = r
Loop
' Set results
x = x1
y = y1
ExtendedEuclideanWithSteps = a
If showSteps Then
result = result & "Final Result:" & vbCrLf
result = result & "GCD(" & originalA & ", " & originalB & ") = " & a & vbCrLf
result = result & "Coefficients: x = " & x & ", y = " & y & vbCrLf
result = result & "Verification: " & originalA & "*" & x & " + " & originalB & "*" & y & " = "
result = result & (originalA * x + originalB * y) & " = " & a
MsgBox result
End If
End Function
Je hebt een Excel tabel en wil die omzetten naar een HTML tabel. Selecteer een cel in de tabel. In de afbeelding is dat cel C6. Vervolgens onderstaande code in een module zetten. En dan de Sub: Test_Tabel_Naar_HTML uitvoeren. Als de Excel tabel is overgezet wordt het resultaat naar het bestand C:\temp\textfile.html weg geschreven. Dubbelklikken op dat bestand en je ziet het resultaat in de browser. Zoiets.
Als eerste:
Kopieer de onderstaande code middels Ctrl + C
Druk op de toetscombinatie ALT + F11 om de Visual Basic Editor te openen
Druk op de toetscombinatie ALT + N om het menu Invoegen te openen
Druk op M om een standaard module in te voegen
Daar waar de cursor knippert voeg je de code in middels Ctrl + V
Druk op de toetscombinatie ALT + Q om de Editor af te sluiten en terug te keren naar Excel
En dan de Sub: Test_Tabel_Naar_HTML uitvoeren.
Option Explicit
'VBA - Excel tabel naar HTML
'Eenvoudige code om een Excel tabel naar een HTML tabel te converteren.
'Om tabelrijen te markeren ga je er met de muis overheen.
Sub Test_Tabel_Naar_HTML()
'Selecteer één cel in je tabel zodat Excel weet
'Welke data naar de HTML tabel moet worden omgezet
'Tevens wordt het eindresultaat geprint naar:
'Direct; Venster / Immediate; Window
Debug.Print Tabel_Naar_HTML(ActiveCell.CurrentRegion)
End Sub
Function Tabel_Naar_HTML(ByVal rng As Excel.Range)
Dim strHTML_Code As String
'Begin van de HTML code die altijd hetzelfde is
strHTML_Code = "<!DOCTYPE html><html><head><style>table{border-collapse:collapse;width:100%}td,th{padding:8px;text-align:left;border-bottom:1px solid #DDD}tr:hover{background-color:#D6EEEE}</style></head><body><h2>Hoverable Table</h2><p>Move the mouse over the table rows to see the effect.</p><table>"
'Door de rijen navigeren.
Dim rngRowLoop As Excel.Range
For Each rngRowLoop In rng.Rows
strHTML_Code = strHTML_Code & "<tr>"
Dim rngCellLoop As Excel.Range
For Each rngCellLoop In rngRowLoop.Cells
strHTML_Code = strHTML_Code & "<td style='border: 1px solid lightgrey;'>" & rngCellLoop.Value2 & "</td>"
Next rngCellLoop
strHTML_Code = strHTML_Code & "</tr>"
Next
'HTML afsluiten met "</table></body></html>"
strHTML_Code = strHTML_Code & "</table></body></html>"
Tabel_Naar_HTML = strHTML_Code
'Naar bestand schrijven.
Call Schrijf_Naar_Bestand(strHTML_Code)
End Function
Function Schrijf_Naar_Bestand(strTableData As String) As Boolean
'Bestand textfile.html wordt automatisch aangemaakt
Const LogFileName As String = "C:\temp\textfile.html"
Dim FileNum As Integer
'Volgende bestandsnummer
FileNum = FreeFile
'Maakt bestand aan indien niet aanwezig
Open LogFileName For Append As #FileNum
'Schrijft informatie weg aan het einde van het bestand
Print #FileNum, strTableData
'Sluit het bestand
Close #FileNum
'Gelukt
Schrijf_Naar_Bestand = True
End Function
De methode is als volgt: Voer in A5 kolom het volgende in:
={“USA”;”FRANCE”} [ Dat wil zeggen, Selecteer A5 én sleep naar A6 zodat A5 de actieve cel blijft, voer de formule in met de toetscombinatie Ctrl+Shift+Enter Selecteer deze twee cellen opnieuw, ga naar het naamvak in de formulebalk en typ COUNTRIES, gevolgd door Enter.
Voer in een B5 het volgende in:
={“New York”;”Pittsburgh”;”Los Angeles”;”Boston”} [ Dat wil zeggen, Selecteer B5 én sleep naar B8 zodat B5 de actieve cel blijft, voer de formule in met de toetscombinatie Ctrl+Shift+Enter Selecteer deze vier cellen opnieuw, ga naar het naamvak in de formulebalk en typ USA, gevolgd door Enter.
={“Parijs”;”Nice”;”Toulon”} [ Dat wil zeggen, Selecteer C5 én sleep naar C7 zodat C5 de actieve cel blijft, voer de formule in met de toetscombinatie Ctrl+Shift+Enter Selecteer deze drie cellen opnieuw, ga naar het naamvak in de formulebalk en typ FRANCE, gevolgd door Enter.
Om te zien hoe dit werkt, activeer je A1 in het werkblad (in hetzelfde werkboek). Je gaat naar/kiest voor: Data | Data Validation | Data Validation. Kies bij ‘Allow’ voor ‘List’ en voer bij ‘Source’ de formule in: =COUNTRIES klik op OK. Ga naar cell C1. Je gaat naar/kiest voor: Data | Data Validation | Data Validation. Kies bij ‘Allow’ voor ‘List’ en voer bij ‘Source’ de formule in: =INDIRECT(A1) klik op OK.
Het kan zijn dat je een foutmelding krijgt:
Klik gewoon op Yes, Die foutmelding ontstaat omdat er in cell A1 nog geen keuze is gemaakt. Klik op het pijltje rechts van de cell en kies voor USA. Nu komen de namen van de steden in C1. Klik maar op de pijl naast C1 en dan zie je dat.
Er zijn twee vergelijkingen op te lossen. We noemen dat een verzameling van twee of meer vergelijkingen die dezelfde variabelen gebruiken (x en y). De oplossing van die twee vergelijkingen is de combinatie van x en y die aan de 2 vergelijkingen tegelijk moeten voldoen.
De 2 vergelijkingen:
2x + 3y = 21 5x + 2y = 3
Vul de waarden van de coëfficienten in: In [B8] 2 In [C8] 3 In [B9] 5 In [C9] 2
Selecteer het bereik B11:C12
En vul formule in: =MINVERSE(B8:C9). Doe dat met Ctrl+Shift+Enter
Selecteer het bereik F11:F12
En vul de formule in: =MMULT(B11:C12;E8:E9). Doe dat met Ctrl+Shift+Enter
