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!!
Boa tarde!!
O nome do controle = valor da célula.
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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...
Boa tarde!!
Quando estiver editando sua ribbon deve especificar via código que tal controle deve receber o valor de sua célula!
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
eee complicou... ainda estou aprendendo esse negocio... como especifico isso no código? que propriedade utilizo?
Alguém Please????
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?
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
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
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á
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.
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Bom dia Edcronos!!
Estou enviando em anexo uma imagem da planilha com os controles marcados de vermelho. creio que assim facilitará.
Grato!!
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
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
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...
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
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
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...