Notifications
Clear all

Atualizar o valor da celula na Editbox

28 Posts
3 Usuários
0 Reactions
3,655 Visualizações
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Prezados, boa tarde!!

Mais uma vez estou com um probleminha....

Como faço para que o valor contido na celula N3 do exemplo que estou enviando em anexo, apareça no item de menu "total liquido" atualizando automaticamente.
Criei uma rotina para o valor da celula aparecer no menu, porém, se eu trocar o valor da celula n3 a editbox não atualiza.

Grato!!

 
Postado : 13/06/2014 1:43 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O nome do controle = valor da célula.

Att

 
Postado : 13/06/2014 1:47 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Alexandre, mais neste caso, o controle está em uma folha de xml ele fica na barra de menu personalizada do excel. Daí esse método não funcionou...

 
Postado : 13/06/2014 2:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Quando estiver editando sua ribbon deve especificar via código que tal controle deve receber o valor de sua célula!

Att

 
Postado : 13/06/2014 2:23 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

eee complicou... ainda estou aprendendo esse negocio... como especifico isso no código? que propriedade utilizo?

 
Postado : 13/06/2014 2:26 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Alguém Please????

 
Postado : 16/06/2014 5:12 am
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Estive pensando neste problema, já que essa editbox atualiza sempre que a planilha é inicializada, como eu faço para criar uma variavel que grava e simula a inicialização da planilha?

 
Postado : 17/06/2014 6:47 am
(@edcronos)
Posts: 1006
Noble Member
 

não uso esse tipo de instrunção no excel , mas não daria para incorporar evento Change?
assim toda vez que a celula for alterada ela vai atualiza.

Private Sub Worksheet_Change(ByVal Target As Range)
rando = "N3"
If Not Application.Intersect(Target, Range(rando)) Is Nothing Then

"nome da macro que atualiza a editbox"
End If
End Sub

como sua planilha não estava com os controles incorporados e eu não sei usar aquilo então não pude verificar.

Att

 
Postado : 17/06/2014 5:11 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Edcronos, fico grato pela ajuda!!

Bom fiz a rotina que você mostrou, porém aparece a seguinte mensagem:

"Erro de compilação: o argumento não é opcional."

Veja o código abaixo:

Dim rando As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
rando = "N3"
If Not Application.Intersect(Target, Range(rando)) Is Nothing Then
GetEditBoxText
End If
End Sub

Liberei as guias do controle, estou enviando em anexo, creio que assim facilitará

 
Postado : 17/06/2014 7:40 pm
(@edcronos)
Posts: 1006
Noble Member
 

cara tenta colocar os controles e colocar mais alguns dados,

como falei não entendo desses comando diretos na planilha,
só sei usar formulários e muito limitadamente.

já que essa editbox atualiza sempre que a planilha é inicializada

onde está essa editbox
onde fica o menu total liquido
para tentar mudar algo preciso entende oq vc quer da planilha, e como ela já funciona.

pelo que reparei vc copiou as macros de outro lugar

Desculpa, é que não sou um expert no assunto apenas mexo na minha, mas posso tentar ajudar.

Att.

 
Postado : 17/06/2014 8:25 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Bom dia Edcronos!!

Estou enviando em anexo uma imagem da planilha com os controles marcados de vermelho. creio que assim facilitará.

Grato!!

 
Postado : 18/06/2014 5:51 am
(@edcronos)
Posts: 1006
Noble Member
 

Bem, não é tão fácil,
Ribbon Control pelo visto tem maneiras diferentes de textbox e combobox de se atribuir valores.

ainda não desisti,
mas infelizmente vou ter que aprender o passo a passo de como implementar esses controles

 
Postado : 18/06/2014 2:00 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Mas valeu pela intenção... já tentei n's formas, pesquisei até em sites estrangeiros e não encontrei nada a respeito... também não desiste... vou continuar tentando...

 
Postado : 18/06/2014 2:33 pm
(@edcronos)
Posts: 1006
Noble Member
 

mas me diz, que tipo de linguagem é usada aqui

   <tabs>
      <tab id="myTab" label="Menu Personalizado">
        <group id="myGroupDD" label="Has Dropdown">

          <dropDown id="dd1" 
		label="Menu" 
		getItemCount="DDItemCount" 
		getItemLabel="DDListItem" 
		onAction="DDOnAction" 	
		getSelectedItemIndex="DDItemSelectedIndex"/>

	     <editBox id="Tota" 
		label="Total Liquido"
		getText


		enabled="true"
		imageMso="HappyFace" />

        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

talvez aja alguma linha de comando para ser atribuído valores diretamente da planilha, ...

chama a macro que adiciona o valor, mas isso na iniciação
getText="GetEditBoxText"
Sub GetEditBoxText(control As IRibbonControl, ByRef returnedVal)
<<Atribui o valor na editbox, mas pelo visto não pode ser chamada de maneira direta.

então deve ter algum comando para atualizar a editbox em tempo de execução

 
Postado : 18/06/2014 3:25 pm
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Pois eh, andei pesquisando sobre as propriedades da editbox e parece que não tem nenhum comando que se declara no XML para que a editbox atualize em tempo de execução. Creio que isso deverá partir do VB.
O problema é encontrar esse comando...

 
Postado : 18/06/2014 5:11 pm
Página 1 / 2