Entrar

XL2000: Como obter números de linha ou fatores

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

246802
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Um número primo é qualquer número inteiro que pode ser dividido uniformemente por si só e um. Um fator de um número é um número inteiro que pode ser dividido uniformemente nesse número. Este artigo contém Microsoft Visual Basic para aplicativos macros do Excel que você pode usar para determinar todos os números primos dentro de um intervalo ou para derivar todos os fatores de um número.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. Para criar as macros, execute essas etapas:

  1. Salvar e fechar qualquer abrir pastas de trabalho e, em seguida, crie uma nova pasta de trabalho.
  2. Inicie o Editor do Visual Basic (pressione ALT+F11) e no menu Inserir , clique em módulo .
  3. Digite o seguinte código no módulo:
       Sub GetFactors()      Dim Count As Integer      Dim NumToFactor As Single 'Integer limits to < 32768      Dim Factor As Single      Dim y As Single      Dim IntCheck As Single         Count = 0      Do         NumToFactor = _            Application.InputBox(Prompt:="Type integer", Type:=1)         'Force entry of integers greater than 0.         IntCheck = NumToFactor - Int(NumToFactor)         If NumToFactor = 0 Then            Exit Sub            'Cancel is 0 -- allow Cancel.         ElseIf NumToFactor < 1 Then            MsgBox "Please enter an integer greater than zero."         ElseIf IntCheck > 0 Then            MsgBox "Please enter an integer -- no decimals."         End If         'Loop until entry of integer greater than 0.      Loop While NumToFactor <= 0 Or IntCheck > 0      For y = 1 To NumToFactor         'Put message in status bar indicating the integer being checked.         Application.StatusBar = "Checking " & y         Factor = NumToFactor Mod y         'Determine if the result of division with Mod is without _             remainder and therefore a "factor".         If Factor = 0 Then            'Enter the factor into a column starting with the active cell.            ActiveCell.Offset(Count, 0).Value = y            'Increase the amount to offset for next value.            Count = Count + 1         End If      Next      'Restore Status Bar.      Application.StatusBar = "Ready"   End Sub      Sub GetPrime()      Dim Count As Integer      Dim BegNum As Single  'Integer limits to < 32768      Dim EndNum As Single      Dim Prime As Single      Dim flag As Integer      Dim IntCheck As Single      Count = 0         Do         BegNum = _            Application.InputBox(Prompt:="Type beginning number.", Type:=1)         'Force entry of integers greater than 0.         IntCheck = BegNum - Int(BegNum)         If BegNum = 0 Then            Exit Sub            'Cancel is 0 -- allow Cancel.         ElseIf BegNum < 1 Then            MsgBox "Please enter an integer greater than zero."         ElseIf IntCheck > 0 Then            MsgBox "Please enter an integer -- no decimals."         End If         'Loop until entry of integer greater than 0.      Loop While BegNum <= 0 Or IntCheck > 0         Do         EndNum = _            Application.InputBox(Prompt:="Type ending number.", Type:=1)         'Force entry of integers greater than 0.         IntCheck = EndNum - Int(EndNum)         If EndNum = 0 Then            Exit Sub            'Cancel is 0 -- allow Cancel.         ElseIf EndNum < BegNum Then            MsgBox "Please enter an integer larger than " & BegNum         ElseIf EndNum < 1 Then            MsgBox "Please enter an integer greater than zero."         ElseIf IntCheck > 0 Then            MsgBox "Please enter an integer -- no decimals."         End If         'Loop until entry of integer greater than 0.      Loop While EndNum < BegNum Or EndNum <= 0 Or IntCheck > 0         For y = BegNum To EndNum         flag = 0         z = 1         Do Until flag = 1 Or z = y + 1            'Put message into Status Bar indicating the integer and _                divisor in each loop.            Application.StatusBar = y & " / " & z            Prime = y Mod z            If Prime = 0 And z <> y And z <> 1 Then               flag = 1            End If            z = z + 1         Loop            If flag = 0 Then            'Enter the factor into a column starting with the active cell.            ActiveCell.Offset(Count, 0).Value = y            'Increase the amount to offset for next value.            Count = Count + 1         End If      Next y      'Restore Status Bar.      Application.StatusBar = "Ready"   End Sub					
  4. No menu arquivo , clique em Fechar e voltar para Microsoft Excel . Alterne para a planilha em que você deseja executar a macro e clique uma célula na qual você deseja criar a coluna de números primos ou fatores.
  5. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
  6. Clique em GetFactors e clique em Executar para obter os fatores.

    - ou -

    Clique em GetPrime e clique em Executar para obter a lista dos números primos.
Observação : Embora essas macros podem encontrar números primos para um intervalo grande de fatores para números grandes e números, executar esse código pode levar muito tempo. Por esse motivo, a barra de status mostra o andamento enquanto a macro é executada.
Referências
Para obter mais informações sobre como obter ajuda com o Visual Basic para aplicativos, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
226118OFF2000: Programação recursos para o Visual Basic for Applications
Para obter mais informações sobre como executar código de exemplo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
212536OFF2000: Como executar o código de exemplo de artigos da Knowledge Base
VBA XL2000

Warning: This article has been translated automatically

Propriedades

ID do Artigo: 246802 - Última Revisão: 10/22/2013 03:01:11 - Revisão: 4.2

  • Microsoft Excel 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbdtacode kbhowto KB246802 KbMtpt
Comentários