Excel vba 2007
Download as PPTX, PDF
0 likes779 views
This document contains VBA code for receiving training data input from users, saving the data to a workbook, and sorting or generating a report on the data. The code defines variables to store course, date, participant, department, company, and cost data input by users. It then copies and pastes values to cells, saves the workbook, and includes code for sorting or reporting on the data.
Excel vba 2007
- 2. Range("I4:N4").SelectSelection.Copy Application.GotoReference:="Fim"Selection.End(xlUp).SelectRange(A9).SelectActiveSheet.Paste Application.CutCopyMode = False Application.GotoReference:="R1C1" Range("I4:N4").SelectSelection.Copy Application.GotoReference:="Fim"Selection.End(xlUp).SelectActiveCell.Offset(1, 0).Range("A1").SelectActiveSheet.Paste Application.CutCopyMode = False Application.GotoReference:="R1C1"
- 3. Sub Recepcao()'Macro Recep巽達o de DadosDimVarCurso As StringDimVarData As DateDimVarParticipante As StringDimVarDepto As StringDimVarEmpresa As StringDimVarCusto As SingleVarCurso = Application.InputBox("Entre o Curso:", , , , , , 2) 'O Valor 2 no InputBox para dados AlfanumericosVarData = Application.InputBox("Entre a Data:", , , , , , 1) 'O Valor 1 no InputBox para dados numericosVarParticipante = Application.InputBox("Entre o Participante:", , , , , , 2)VarDepto = Application.InputBox("Entre o Departamento:", , , , , , 2)VarEmpresa = Application.InputBox("Entre a Empresa:", , , , , , 2)VarCusto = Application.InputBox("Entre o Custo:", , , , , , 1)
- 4. Range("EntraCurso").SelectActiveCell.FormulaR1C1 = VarCurso Range("EntraData").SelectActiveCell.FormulaR1C1 = VarData Range("EntraParticipante").SelectActiveCell.FormulaR1C1 = VarParticipante Range("EntraDepto").SelectActiveCell.FormulaR1C1 = VarDepto Range("EntraEmpresa").SelectActiveCell.FormulaR1C1 = VarEmpresa Range("EntraCusto").SelectActiveCell.FormulaR1C1 = VarCustoEnd Sub
- 5. Sub SalvaCadastro()'' SalvaCadastro Macro' Salva Cadastro'' Atalho do teclado: Ctrl+s'VarSalva = MsgBox("Deseja Salvar?", 1 + 32, "Salvar Dados")IfVarSalva = vbOKThen Application.StatusBar = "Salvando Arquivo - Aguarde!!!"ActiveWorkbook.SaveMsgBox "Arquivo salvo com sucesso", 64, "Salvo"EndIf Application.StatusBar = FalseEnd Sub
- 7. Private Sub BotOK_Click()If OptionButton1.Value = TrueThenSortCursoElseIf OptionButton2.Value = TrueThenSortDataElseIf OptionButton3.Value = TrueThenSortParticipanteElseSortRelatorioEndIfEnd SubPrivate Sub BotCancelar_Click() EndEnd Sub
- 10. Private Sub BtOK_Click()VarCurso = CxCadastro.CampoCursoVarData = CxCadastro.CampoDataVarParticipante = CxCadastro.CampoParticipanteVarDepto = CxCadastro.CampoDeptoVarEmpresa = CxCadastro.CampoEmpresaVarCusto = CxCadastro.CampoCusto Range("EntraCurso").SelectActiveCell.FormulaR1C1 = VarCurso Range("EntraData").SelectActiveCell.FormulaR1C1 = VarData Range("EntraParticipante").SelectActiveCell.FormulaR1C1 = VarParticipante Range("EntraDepto").SelectActiveCell.FormulaR1C1 = VarDepto Range("EntraEmpresa").SelectActiveCell.FormulaR1C1 = VarEmpresa Range("EntraCusto").SelectActiveCell.FormulaR1C1 = VarCusto