Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Makro5()
- '
- ' Makro5 Makro
- '
- ' Klawisz skrótu: Ctrl+q
- '
- Sheets.Add After:=ActiveSheet
- Range("A1").Select
- ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,30)"
- Range("A1").Select
- Selection.AutoFill Destination:=Range("A1:A15"), Type:=xlFillDefault
- Range("A1:A15").Select
- Selection.Copy
- Range("A1").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Range("C1").Select
- Application.CutCopyMode = False
- ActiveCell.FormulaR1C1 = "1"
- Range("C2").Select
- ActiveCell.FormulaR1C1 = "2"
- Range("C3").Select
- ActiveCell.FormulaR1C1 = "3"
- Range("C1:C3").Select
- Selection.AutoFill Destination:=Range("C1:C30"), Type:=xlFillDefault
- Range("C1:C30").Select
- Range("D1").Select
- ActiveCell.FormulaR1C1 = "=FREQUENCY(RC[-3]:R[14]C[-3],RC[-1]:R[29]C[-1])"
- Range("D1:D30").Select
- Selection.FormulaArray = "=FREQUENCY(RC[-3]:R[14]C[-3],RC[-1]:R[29]C[-1])"
- Range("C1:D30").Select
- ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
- ActiveChart.SetSourceData Source:=Range("C1:D30")
- ActiveChart.FullSeriesCollection(1).Delete
- Range("F1").Select
- ActiveCell.FormulaR1C1 = "=MAX(RC[-2]:R[29]C[-2])"
- Range("H1").Select
- ActiveCell.FormulaR1C1 = "=IF(RC[-4]=R1C6,RC[-5],0)"
- Range("H1").Select
- Selection.AutoFill Destination:=Range("H1:H30"), Type:=xlFillDefault
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement