POS SYSTEM för affärer, matvaror och SERVICE CENTERS från EXCEL med hjälp av streckkoder (4 / 7 steg)
Steg 4: Skapa en bill ark:
Linje: =IF(C5="","",B4+1)
Kod: Skapa en lista rutan länk med setup sida kod och namn. När du ansluter en streckkodsläsare med streckkod klistermärke detaljer kommer automatiskt plocka.
Beskrivning/kontroller: = I4
Antal: denna kolumn måste du ange manuellt enligt kund köp Ant.
Pris: =IF(E4="","",VLOOKUP(C4,al,5,0)*E4)
** makro för spara bill
Skapa en knapp som heter spara bill och kopiera denna kod: du kan hämta den här filen form min fil.
Sub Dayendsales()
'
"Dayendsales makro
''
Sheets("Tsales"). Välj
Columns("G:G"). Välj
Selection.Insert SKIFT: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove
Range("E2:E255"). Välj
Selection.Copy
Range("G2"). Välj
Selection.PasteSpecial klistra in: = xlPasteValues, Operation: = xlNone, SkipBlanks _
: = Falskt, transponera: = False
Sheets("Sales"). Välj
Range("B3:D1572"). Välj
Application.CutCopyMode = False
Selection.ClearContents
Range("D3"). Välj
End Sub
Sub DayendPurchases()
'
"DayendPurchases makro
'
Sheets("Tpurchase"). Välj
Columns("F:F"). Välj
Selection.Insert SKIFT: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove
Range("D2:D643"). Välj
Selection.Copy
Range("F2"). Välj
Selection.PasteSpecial klistra in: = xlPasteValues, Operation: = xlNone, SkipBlanks _
: = Falskt, transponera: = False
Application.CutCopyMode = False
Sheets("Purchase"). Välj
Range("C3:D625"). Välj
Selection.ClearContents
Range("E3"). Välj
End Sub
Sub SaveBill()
'
"SaveBill makro
'
Application.Run "" shoppa försäljning control.xls'!copy "
Application.Run '"butik försäljning control.xls'! SaleReplace"
End Sub
Sub DayEnd()
'
"DayEnd makro
End Sub