É possível sim.
Se tiveres o Office 2007 basta seleccionares as células onde estão os nomes, clicas com o lado direito do rato, vais a ordenar e escolhes “ordenar de a-z”.
Tirei este tópico das catacumbas para ver se me podiam ajudar numa coisa. Cá vai:
Fiz uma folhita básica em Excel para adicionar resultados de um dado campeonato e obter automaticamente a classificação ordenada, com principais factores de desempate e isso. Como podem ver:
Acontece que queria que essa classificação tivesse os logos (emblemas) dos respectivos clubes, mas esses durante a ordenação não ‘mexem’… os clubes trocam de posto mas os logos estão apenas associados à célula onde se encontram e aí ficam. Alguém me pode ajudar? Dá para fazer os logos trocar de posição com o nome do clube? Tenho que definir a imagem como objecto?
Vá lá, ajudem lá o pobre (e ignorante neste campo)… :mrgreen:
Posso estar enganado mas imagens numa folha excel nunca estao associadas ás celulas. A unica forma que me lembro é associar as fotos estilo comentarios na celula (onde ai sim pode contar imagens).
Pelo que pecebi queres que imagens troquem da mesma forma que os nomes.
Para fazer o que pretendes terias que asssociar de alguma maneira a imagem às mesmas formulas
que usas para alterar a classificação.
Caso contrário não mexem.
Não sei se isso é possível.
You can't insert a picture into a cell. But you can use
an Image control to serve the same purpose. From the
Visual Basic toolbar click the Control Toolbox icon. From
the control toolbox, select the image control and place it
on your sheet. Hold down the Alt key while moving and
resizing the image control to snap it to the cell
borders. Right-click the image, select Format Control,
click the Properties tab and then select Move and Size
with cells so if you resize a column or row, the image
will also resize. Click OK. Again, right-click the image
control then select Properties this time. In the
properties windows, select Picture. Click the ellipsis
button to open a standard file open dialog and locate your
image. Also from the Properites window, you can set the
PictureAlignment and PictureSizeMode to change how the
image is set up in the image control. If you use
PictureSizeMode of 3, the image will fit within the cell
as best as possible maintaining dimensions.
Com VB tools dá para colocar uma imagem (inclusive dimensionando) num “range” entre a celula do canto superior esquero e a do célula do canto inferior direito. Vou-vos dar um exemplo de código associado a um botão que permite abrir uma janela, escolher uma imagem, e coloca-la no sitio certo… é um exemplo de uma pequena aplicação que fiz para excel:
Private Sub CommandButton2_Click()
Dim myPicture As Picture
Dim Pic As String
Dim myshape As Shape
Dim ws As Worksheet
Sheets("sheetname").Activate
Sheets("sheetname").Unprotect ("password")
' Delete existing Pictures
Set ws = ThisWorkbook.Worksheets("sheetname")
For Each myshape In ws.Shapes
Debug.Print myshape.Type
If myshape.Type = msoPicture Then
myshape.Delete
End If
Next myshape
’ InsertPicture
’ Error trapping in case user cancels the Dialog box
On Error GoTo Errortrap
Pic = Application.GetOpenFilename(“Image Files (.jpeg;.jpg;.emf;.wmf;.gif;.png), *.bmp”, , Title:=“Select Image File”, MultiSelect:=False)
Application.ScreenUpdating = False
Sheets(“sheetname”).Pictures.Insert(Pic).Select
’ move picture on sheet
Set myPicture = Selection
With Sheets(“sheetname”)
With myPicture
.Top = Range(“B7:O36”).Top
.Left = Range(“B7:O36”).Left
.Width = Range(“B7:O36”).Width
.Height = Range(“B7:O36”).Height
End With
End With
Errortrap:
On Error GoTo 0
Application.ScreenUpdating = True
Sheets(“sheetname”).Protect (“password”)
End Sub
Exponho aqui uma dúvida que coloquei a outra pessoa no original inglês. Se me puderem ajudar podem responder em qualquer língua facilmente entendível! :mrgreen: Aqui vai:
I’m stuck here with something.
Imagine that you had just two coefficients, say for the objective function, that were
0.1234567
and the other so small that Excel interprets it as scientific notation (even when it does not appear as such). It is 0.000000123 but Excel treats it as
1.23E-7
I want to get to text in two different cells that would be
0.1234567X1
and
0.0000001X2
to be able to join these with plus signs to write my objective function, each coefficient with 7 decimal cases. But I have problems with the scientific notation - if there weren’t I could write LEFT(cell, 9), and it would pick numbers in the format 0.XXXXXXX, but for those in scientific notation it picks (for the second example)
1.2300000
which messes it up (in fact it multiplies the coefficient by one million).
I’ve played around with Custom formats (the Help function was not very helpful) and could not solve the problem. Do you see a solution? Thanks!
Bem, encontrei uma solução provisória mas que dá trabalho e provavelmente é arcaica, para além de sujeita a erros e com necessidade de verificações:
Copio os dados originais para o Notepad e gravo.
No Excel 2007 faço
Data / From Text / Open File [a que gravei] / Delimited / Tab / Text / Finish
E fico então com os dados como números com 7 casas decimais (como nos dados originais) mas com o formato de texto, e depois já posso juntar ao que quero. Mas deve haver uma forma mais simples de obter este formato sem sair do Excel.