DataNumen CRM - bezplatný systém na správu vzťahov so zákazníkmi v Exceli

Spokojný zákazník je veľmi ťažké dosiahnuť a udržať si ho. Ak sa snažíte udržiavať databázu svojich klientov, pomocou tohto nástroja môžete ľahko pridať nové informácie o klientovi, upraviť alebo odstrániť existujúce informácie o klientovi a rýchlo ich načítať.

stiahnuť

Ak chcete start softvér používať čo najskôr, potom môžete:

Stiahnite si softvér teraz

V opačnom prípade si môžete prečítať obsah uvedený nižšie.

Poďme pripraviť GUI

Vytvorte 3 hárky a pomenujte ich ako „Vstup“, „Klient“ a „Následné kroky“. Na hárku „Vstup“ vytvorte polia, hlavičky a tlačidlá.

Nech je to funkčné

Skopírujte makro do nového zošita s povoleným makrom a pridajte ho do nového modulu. Pripojte makro „Add_Client“ k tlačidlu „Add“. Makro „Upldate_Client“ by malo byť pripojené k tlačidlu „Aktualizovať“ a makro „Follow_Up“ k tlačidlu „Odoslať“

Sub Add_client()
    Dim lr As Long
    Dim r As Long
    lr = client.Range("A" & Rows.Count).End(xlUp).Row + 1
    client.Range("A" & lr).Value = entry.Range("B6").Value
    client.Range("B" & lr).Value = entry.Range("B9").Value
    client.Range("C" & lr).Value = entry.Range("B12").Value
    client.Range("D" & lr).Value = entry.Range("B15").Value
    client.Range("E" & lr).Value = entry.Range("B18").Value
    Call Module1.Clear_Add_Client
End Sub

Sub Clear_Add_Client()
    Range("B6:F6,B9:F9,B12:F12,B15:F15,B18:F18").Select
    Range("B18").Activate
    Selection.ClearContents
    Range("B6:F6").Select
End Sub

Sub p_client_dropdown()
    On Error Resume Next
    Sheets("Temp").Delete
    Sheets.Add.Name = "Temp"
    On Error GoTo 0
    client.Select
    client.Columns("A:A").Select
    Selection.Copy
    Sheets("Temp").Select
    Sheets("Temp").Paste
    Application.CutCopyMode = False
    Sheets("Temp").Range("$A$1:$A$10000").RemoveDuplicates Columns:=1, Header:=xlYes
    Dim lr As Long
    Dim r As Long
    lr = Sheets("Temp").Range("A" & Rows.Count).End(xlUp).Row
    Dim prodlist As String
    For r = 2 To lr
        If prodlist = "" Then
            prodlist = Sheets("Temp").Range("A" & r).Value
        Else
            prodlist = prodlist & "," & Sheets("Temp").Range("A" & r).Value
        End If
        Next r
        With entry.Range("H6").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=prodlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        With entry.Range("N6").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=prodlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
End Sub
    
Sub Update_Client()
    Dim lr As Long
    lr = client.Range("A" & Rows.Count).End(xlUp).Row
    For r = 2 To lr
        If client.Range("A" & r).Value = entry.Range("H6").Value Then
            client.Range("B" & r).Value = entry.Range("H9").Value
            client.Range("C" & r).Value = entry.Range("H12").Value
            client.Range("D" & r).Value = entry.Range("H15").Value
            client.Range("E" & r).Value = entry.Range("H18").Value
            Exit For
        End If
        Next r
End Sub

Sub Follow_up()
    Dim lr As Long
    lr = fup.Range("A" & Rows.Count).End(xlUp).Row + 1
    fup.Range("A" & lr).Value = entry.Range("N6").Value
    fup.Range("B" & lr).Value = entry.Range("N9").Value
    fup.Range("C" & lr).Value = entry.Range("N12").Value
End Sub

Skopírujte toto makro do modulu pracovného hárka listu „Záznam“

Súkromný vedľajší pracovný list_Change (ByVal Tarzískať ako rozsah) Ak Target.Address = "$ H $ 6", potom Range ("H9"). Hodnota = Application.WorksheetFunction.VLookup (Target.Value, client.Range ("A1: E1000"), 2, False) rozsah ("H12"). Hodnota = Application.WorksheetFunction.VLookup (Target.Value, client.Range ("A1: E1000"), 3, False) rozsah ("H15"). Hodnota = Application.WorksheetFunction.VLookup (Target.Value, client.Range ("A1: E1000"), 4, False) rozsah ("H18"). Hodnota = Application.WorksheetFunction.VLookup (Target.Value, client.Range ("A1: E1000"), 5, False) End If End Sub

Ako to funguje?

Makro „Add_Client“ identifikuje posledný riadok v hárku „Klient“ a pripojí údaje klientov z hárku „Záznam“. Pomocou makra „Update_Client“ môžete aktualizovať podrobnosti svojho klienta. Makro Follow_up vám pomôže sledovať vaše stretnutia s klientom. Ak však an Excel korupcia dôjde, rozbaľovacie ponuky nemusia fungovať. V takom prípade stačí odstrániť poškodený rozsah a znova pridať overenie údajov.

Úvod autora:

Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane slovo korupcia a výhľadové softvérové ​​produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S.