Trucos Excel

[Shetland]

Acá pondremos algunos truquitos -peques- de Excel.

ATAJOS DE TECLADO
1.
Cuando usamos Libros con más de una hoja y no queramos usar el mouse para ir de una hoja a otra, basta con oprimir la combinación de teclas Ctrl + Repág ó Ctrl + Avpág

2.
Para ver el Formato de Celdas, sin tener que dar Clic Derecho, lo podemos hacer oprimiendo la combinación de teclas Ctrl + 1 (el número 1 del teclado alfanumérico).

3.
Para copiar el contenido de la celda que está justamente arriba de la actual, oprimimos Ctrl + J

[Macuy]

Acá pondremos algunos truquitos -peques- de Excel.

ATAJOS DE TECLADO
1.
Cuando usamos Libros con más de una hoja y no queramos usar el mouse para ir de una hoja a otra, basta con oprimir la combinación de teclas Ctrl + Repág ó Ctrl + Avpág




jajaja... hace buen tiempo que habia querido recordar este atajo... jajaja yo sabia que ya lo habia usado, pero lo olvide... jajaja Gracias

[Michel Cartaya]

3.
Para copiar el contenido de la celda que está justamente arriba de la actual, oprimimos Ctrl + J

Éste no me lo sabía. Gracias!

Para intercambiar entre ver "formulación" y "contenido" de las celdas, oprimir Alt + ~

[Shetland]

Qué bueno que estos datos sean útiles....

---
Más Atajos.:

4.
Lo usual para colocar Negrita, Cursiva y Subrayado es mediante de las combinaciones Ctrl + N, Ctrl +K, Ctrl + S, respectivamente; pero también se puede con Ctrl + 2, Ctrl + 3, Ctrl + 4 respectivamente (Siempre con los números del teclado alfanumérico).

5.
Insertar (Filas o Columnas) Basta con la combinación Ctrl + +
Si se trata de Eliminar (Filas o Columnas) se combina Ctrl + -

[Macuy]

Qué bueno que estos datos sean útiles....


5.
Insertar (Filas o Columnas) Basta con la combinación Ctrl + +
Si se trata de Eliminar (Filas o Columnas) se combina Ctrl + -


Este esta muy bueno....

Repetir del contenido de la celda inmediatamente a la izquierda: Ctrl + D, en la celda que se encuentre seleccionada se copiara el contenido de la celda inmediatamente a la izquierda.

[Macuy]

Ocultar / Mostrar filas:
Ctrl + 9 ----> Ocultar
Ctrl + Shift + 8 ----> Mostrar



Ocultar / Mostrar columnas:
Ctrl + 0 (cero) ----> Ocultar
Ctrl + Shift + 9 ----> Mostrar

Xaludos

[Michel Cartaya]

Para dar Zoom, Ctrl+ruedita del mouse

Para escribir números fraccionarios, escribe "0 "+"fracción". Por ejemplo, para escribir 1/2 (un medio), escribe: 0 1/2. En la celda se visualiza 1/2 e internamente el valor de la celda es 0.5

Cuando graficas datos de otros libros excel, para que se actualicen correctamente los datos debes respetar las direcciones relativas a estos. De esta forma podrás posteriormente reutilizar el patrón de los gráficos si cambias los datos. Así, si quieres hacer un copy-paste del patrón gráfico con toda su base de datos, deberás copiar toda la carpeta sin alterar ningún nombre de fichero (el único nombre de fichero que puedes cambiar es el del libro donde están las graficaciones). Nota que si copias un gráfico del libro donde finalmente graficaste y lo pegas en uno de los libros de donde sacaste datos, la dirección de las series se actualiza hacia el vínculo local, lo que te facilitará que puedas reutilizar ese patrón gráfico para ese o cualquier otro libro al que le quieras vincular.

[Shetland]

A veces, queremos dejar todas las Celdas del mismo tamaño, pero es muy tedioso tomar una por una, lo más fácil es dar clic en el vértice donde se unen Columnas con Filas e ir y ajustar (con el mouse) el tamaño deseado de la primera Columna o de la primera fila, o de ambas....
De esta manera todas las celdas de la hoja de cálculo tendrán el mismo tamaño.

¿Se entiende?.

[Michel Cartaya]

A veces, queremos dejar todas las Celdas del mismo tamaño, pero es muy tedioso tomar una por una, lo más fácil es dar clic en el vértice donde se unen Columnas con Filas e ir y ajustar (con el mouse) el tamaño deseado de la primera Columna o de la primera fila, o de ambas....
De esta manera todas las celdas de la hoja de cálculo tendrán el mismo tamaño.

¿Se entiende?.

Perfectamente. Se puede ajustar o con el mouse o dando click derecho sobre la fila/columna cabecera y declarando numéricamente el AltoDeFila/AnchoDeColumna. El inconveniente es que TODAS las celdas de la página tomarán esa dimensión.

Una duda que siempre he tenido es la relación exacta entre el alto de fila y el ancho de columna. Yo calculo que aproximadamente la relación es 1:5 (ancho de columna : alto de fila); o sea, si quieres hacer cuadrículas cuadraditas, tiene que tener ancho de columna 3 por alto de fila 15. ¿Alguien sabe la proporción exacta?

[Shetland]

Una duda que siempre he tenido es la relación exacta entre el alto de fila y el ancho de columna. Yo calculo que aproximadamente la relación es 1:5 (ancho de columna : alto de fila); o sea, si quieres hacer cuadrículas cuadraditas, tiene que tener ancho de columna 3 por alto de fila 15. ¿Alguien sabe la proporción exacta?
Uff...
Veamos.

Una Fila en su estado normal tiene 17 Pixeles de alto.
Una Columna en su estado normal tiene 80 pixeles de ancho.

Ahora, bien lo de los pixeles, pero...

Una fila mide 12,75 ¿? de alto.
Una Columna mide 10,71 ¿? de ancho. :confused:

[Shetland]

Una fila mide 12,75 ¿? de alto.
Una Columna mide 10,71 ¿? de ancho. :confused:
Bueno, encontré (Que no lo sabía) que las unidades de medida en excel son Punto, Caracteres y Pixeles.

Una tabla de conversión a una medida más conocida (cm.) sería así.:

Puntos |Píxeles |Centímetros
18| 24 |0,63
36| 48 |1,27
72| 96 |2,54
108|144 |3,81
144| 192 |5,08

La medida de cada Columna (ancho) está representada en Caracteres y Pixeles.

*Reduciendo la Columna hasta 1 caracter se muestra que equivale a 12 pixeles.

La medida de cada Fila (alto) está respresentada en Puntos y Pixeles.

*Una Fila se ajusta a la altura de un caracter y equivale a 17 pixeles.
----
----

Pero con estos datos no sé cómo explicar lo que pregunta Michel... :confused:

[ElMundo22]

Para hacer un salto de línea cuando se escribe dentro de una celda: Alt+Enter.

[Michel Cartaya]

Teniendo listas numericas en Word, no tabuladas, para llevarlas tabuladas a formato Excel:

1- Dentro de word las convierto a un formato <a;b;c;...>. Esto se facilita extraordinariamente con el comando Reemplazar (Ctrl+B) (Reemplazo sistemáticamente los caracteres que originalmente separan los números hasta que me queden en el formato deseado <a;b;c;...>)

2 - Copio las listas en su nuevo formato y las pego en un bloc de notas vacío

3 - Le cambio la extensión al block de notas por una extensión .CSV (Esto lo hago usando el cmd)

4 - Abro el nuevo fichero .CSV desde Excel. Los valores numéricos aparecerán cada uno en una celda independiente

Así es como yo lo hago, pero tal vez alguien conozca un método más directo de hacerlo. Si es así, por favor... Gracias!

[Shetland]

*-Para ir al inicio de la hoja de cálculo activa, oprimes Ctrl + Inicio.

*-Para seleccionar una sección de celdas, puedes usar F8 y con el mouse clikear la celda de inicio y la celda final ya queda seleccionada (sombreada) esta área.

*- Si quieres ir a una celda específica dentro de una hoja de cálculo grande, lo que puedes hacer es, orpimir Ctrl + I yen la ventaja emergente escribir el nombre de la celda (o del área).

[Arielo]

Cómo incrustar una animación flash en un Excel:


1- Abrir barra de herramientas de Visual Basic
2- Clic sobre el cuadro de controles (el ícono del martillo y la llave)
3- Clic sobre "más controles" (ícono de martillo, llave inglesa y tres puntos)
4- Elegir objeto "Shockwave Flash Object"
5- Hacer clic sobre algún lugar de la planilla
6- Clic derecho sobre el objeto creado (un cuadrado con diagonales) y elegir "Propiedades..."
7- En la propiedad "Movie", colocar la url (o ubicación en nuestro disco rígido) de la película que queremos insertar.
8- Cambiar la propiedad "EmbedMovie" a True
9- Grabamos todo
10- Salimos de Excel
11- y listo!... cada vez que carguemos la planilla, se ejecutará el flash que acabamos de insertar...




.

[Shetland]

Colocar Fecha en una Celda.:
Ctrl + Shift + ;
Fórmula » =Hoy()

Colocar Hora en una celda.:
Ctrl + Shift + :

Colocar Fecha y Hora en una celda.:
Fórmula » =Ahora()

[Aqua]

Alguno de ustedes sabe como transformar la hoja de excel en un calendario actualizado. O alguno de ustedes sabe si Excel ofrece dentro de la variedad de funciones la visualizacion de calendario para control de tareas. Algo similar al OUTLOOK.

Creo que alguna vez merodeando y curioseando en excel vi esa funcion de CALENDARIOS y ahora que necesito enviar un cronograma de acciones deseaba utilizar esta funcion pero nada que la encuentro. ¿Sera que estaba soñando y en realidad esto no existe?:confused:

Agradezco de antemano la ayuda que puedan brindar.:-D

[Arielo]

Hola, Aqua...

En el sitio de Microsoft hay un ejemplo (http://support.microsoft.com/kb/150774/es) de cómo hacer un creador de calendarios con Excel.

- En una nueva planilla, insertar un módulo de Visual Basic.
- Copiar el código de más abajo
- Ir a "Herramientas --> Macros" y ejecutar la macro "CalendarMaker"



Sub CalendarMaker()

' Unprotect sheet if had previous calendar to prevent error.
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
' Prevent screen flashing while drawing calendar.
Application.ScreenUpdating = False
' Set up error trapping.
On Error GoTo MyErrorTrap
' Clear area a1:g14 including any previous calendar.
Range("a1:g14").Clear
' Use InputBox to get desired month and year and set variable
' MyInput.
MyInput = InputBox("Type in Month and year for Calendar ")
' Allow user to end macro with Cancel in InputBox.
If MyInput = "" Then Exit Sub
' Get the date value of the beginning of inputted month.
StartDay = DateValue(MyInput)
' Check if valid date but not the first of the month
' -- if so, reset StartDay to first day of month.
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
' Prepare cell for Month and Year as fully spelled out.
Range("a1").NumberFormat = "mmmm yyyy"
' Center the Month and Year label across a1:g1 with appropriate
' size, height and bolding.
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
' Prepare a2:g2 for day of week labels with centering, size,
' height and bolding.
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
' Put days of week in a2:g2.
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
' Prepare a3:g7 for dates with left/top alignment, size, height
' and bolding.
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
' Put inputted month and year fully spelling out into "a1".
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
' Set variable and get which day of the week the month starts.
DayofWeek = WeekDay(StartDay)
' Set variables to identify the year and month as separate
' variables.
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
' Set variable and calculate the first day of the next month.
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
' Place a "1" in cell position of the first day of the chosen
' month based on DayofWeek.
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
' Loop through range a3:g8 incrementing each cell after the "1"
' cell.
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
' Do if "1" is in first column.
If cell.Column = 1 And cell.Row = 3 Then
' Do if current cell is not in 1st column.
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
' Stop when the last day of the month has been
' entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of
' days shown.
Exit For
End If
End If
' Do only if current cell is not in Row 3 and is in Column 1.
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
' Stop when the last day of the month has been entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of days
' shown.
Exit For
End If
End If
Next

' Create Entry cells, format them centered, wrap text, and border
' around days.
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
' Unlock these cells to be able to enter text later after
' sheet is protected.
.Locked = False
End With
' Put border around the block of dates.
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With

With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
' Turn off gridlines.
ActiveWindow.DisplayGridlines = False
' Protect sheet to prevent overwriting the dates.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True

' Resize window to show all of calendar (may have to be adjusted
' for video configuration).
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1

' Allow screen to redraw with calendar showing.
Application.ScreenUpdating = True
' Prevent going to error trap unless error found by exiting Sub
' here.
Exit Sub
' Error causes msgbox to indicate the problem, provides new input box,
' and resumes at the line that caused the error.
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub


Espero que sea lo que buscabas...

[Michel Cartaya]

Hola, Aqua...

En el sitio de Microsoft hay un ejemplo (http://support.microsoft.com/kb/150774/es) de cómo hacer un creador de calendarios con Excel.

- En una nueva planilla, insertar un módulo de Visual Basic.
- Copiar el código de más abajo
- Ir a "Herramientas --> Macros" y ejecutar la macro "CalendarMaker"



Sub CalendarMaker()

' Unprotect sheet if had previous calendar to prevent error.
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
' Prevent screen flashing while drawing calendar.
Application.ScreenUpdating = False
' Set up error trapping.
On Error GoTo MyErrorTrap
' Clear area a1:g14 including any previous calendar.
Range("a1:g14").Clear
' Use InputBox to get desired month and year and set variable
' MyInput.
MyInput = InputBox("Type in Month and year for Calendar ")
' Allow user to end macro with Cancel in InputBox.
If MyInput = "" Then Exit Sub
' Get the date value of the beginning of inputted month.
StartDay = DateValue(MyInput)
' Check if valid date but not the first of the month
' -- if so, reset StartDay to first day of month.
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
' Prepare cell for Month and Year as fully spelled out.
Range("a1").NumberFormat = "mmmm yyyy"
' Center the Month and Year label across a1:g1 with appropriate
' size, height and bolding.
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
' Prepare a2:g2 for day of week labels with centering, size,
' height and bolding.
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
' Put days of week in a2:g2.
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
' Prepare a3:g7 for dates with left/top alignment, size, height
' and bolding.
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
' Put inputted month and year fully spelling out into "a1".
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
' Set variable and get which day of the week the month starts.
DayofWeek = WeekDay(StartDay)
' Set variables to identify the year and month as separate
' variables.
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
' Set variable and calculate the first day of the next month.
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
' Place a "1" in cell position of the first day of the chosen
' month based on DayofWeek.
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
' Loop through range a3:g8 incrementing each cell after the "1"
' cell.
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
' Do if "1" is in first column.
If cell.Column = 1 And cell.Row = 3 Then
' Do if current cell is not in 1st column.
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
' Stop when the last day of the month has been
' entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of
' days shown.
Exit For
End If
End If
' Do only if current cell is not in Row 3 and is in Column 1.
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
' Stop when the last day of the month has been entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of days
' shown.
Exit For
End If
End If
Next

' Create Entry cells, format them centered, wrap text, and border
' around days.
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
' Unlock these cells to be able to enter text later after
' sheet is protected.
.Locked = False
End With
' Put border around the block of dates.
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With

With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
' Turn off gridlines.
ActiveWindow.DisplayGridlines = False
' Protect sheet to prevent overwriting the dates.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True

' Resize window to show all of calendar (may have to be adjusted
' for video configuration).
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1

' Allow screen to redraw with calendar showing.
Application.ScreenUpdating = True
' Prevent going to error trap unless error found by exiting Sub
' here.
Exit Sub
' Error causes msgbox to indicate the problem, provides new input box,
' and resumes at the line that caused the error.
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub
Espero que sea lo que buscabas...

Excelente código Arielo! :thumb:

[Aqua]

Epale Arielo,
gracias por el dato, solo que soy un neofito en detalles de visual basic u otras cosas distintas a una hoja de calculo basica.

Si no es mucho pedir me puedes decir si eso de Visual Basic esta en todos los Excel (Versiones), si es asi como lo encuentro?, en la barra de herramientas? y una vez que lo encuentre, Como introduzco el programa.

Gracias.8-)

[Arielo]

Sí, está en todas las versiones de Excel.

Para acceder, hay que ir al menú "Herramientas", luego opción "Macro", y luego "Editor de Visual Basic". El atajo de teclado es Alt+F11

Una vez dentro del Editor, para agregar un nuevo módulo, hay que ir al menú "Insertar", y seleccionar la opción "Módulo"

Aparecerá un gran espacio en blanco, como si fuera una hoja nueva de Word.
Allí, pegas el código que se indica en mi post anterior.





.

[Aqua]

Sí, está en todas las versiones de Excel.

Para acceder, hay que ir al menú "Herramientas", luego opción "Macro", y luego "Editor de Visual Basic". El atajo de teclado es Alt+F11

Una vez dentro del Editor, para agregar un nuevo módulo, hay que ir al menú "Insertar", y seleccionar la opción "Módulo"

Aparecerá un gran espacio en blanco, como si fuera una hoja nueva de Word.
Allí, pegas el código que se indica en mi post anterior.


.


Hermano sigo muriendo en el primer paso. Resulta que la version que tengo de office no aparece el boton de HERRAMIENTAS y en el botos donde encuentro la opcion de MACROS no ofrece opciones de ubicar al Editor de Visual.:confused:

jajajaja,

[Tarzán]

Hermano sigo muriendo en el primer paso. Resulta que la version que tengo de office no aparece el boton de HERRAMIENTAS y en el botos donde encuentro la opcion de MACROS no ofrece opciones de ubicar al Editor de Visual.:confused:

jajajaja,
qué versión de office tiene? ///

[Leonardo730830]

Hermano sigo muriendo en el primer paso. Resulta que la version que tengo de office no aparece el boton de HERRAMIENTAS y en el botos donde encuentro la opcion de MACROS no ofrece opciones de ubicar al Editor de Visual.:confused:

jajajaja,


Clic secundario del roedor al nombre de la hoja, se desplega un menú contextual y seleccionas "ver código"

[azapata]

jajaja... hace buen tiempo que habia querido recordar este atajo... jajaja yo sabia que ya lo habia usado, pero lo olvide... jajaja Gracias


este para mi es muy útil:

- Cuando tenemos varios libros abiertos y no queremos usar el vicharraco para ir de un libo a otro, podemos usar este atajo:

Ctrl + Tab

Alez

[Arielo]

La planilla del juego del Mundial

Subo aquí parte de la planilla que hice para hacer el seguimiento del juego de pronósticos del Mundial (http://foros.monografias.com/showthread.php?t=56376).

En este caso, el de la confección de la tabla de posiciones para subir al foro.

Imagen:

http://img202.imageshack.us/img202/2991/g3608.png



Pueden ver que hay un botón titulado "Genera Table", y más abajo un recuadro titulado "Texto para la generación del table".

Bien. Esto hace referencia a la propiedad de nuestros foros de poder generar tablas al estilo de una planilla de cálculo.
Lo que hace ese botón es, simplemente, generar el código necesario para que, al pegarlo en un nuevo post en estos foros, se genere la tabla de posiciones del juego. Este código es lo que podemos ver en azul en el gráfico.

El código VB del botón para que haga esto es el siguiente:



Texto="(table)Pos.|Jugador|País|Pts.|PP|PA|REA|PE|GA|GE" + Chr(13)

For Reng = 4 To 10
Texto = Texto + Hoja1.Cells(Reng, 2).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 3).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 4).Text + "|"
Texto = Texto + "(b)(color=red)" + Hoja1.Cells(Reng, 5).Text + "(/color)(/b)|"
Texto = Texto + Hoja1.Cells(Reng, 6).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 7).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 8).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 9).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 10).Text + "|"
Texto = Texto + Hoja1.Cells(Reng, 11).Text + "|"
Texto = Texto + Chr(13)
Next Reng

Texto = Texto + "(/table)"

Hoja1.Cells(24, 2) = Texto

NOTA: En el texto, tuve que reemplazar los corchetes por paréntesis, en los lugares donde éstos están en negrita y subrayados, para que no me formateara el texto. Para que el código funcione, hay que reemplazar esos paréntesis por corchetes.

Con este ejemplo, el código que en la imagen vemos en azul, al ser copiado y pegado en este mismo post, genera la siguiente tabla:

Pos.|Jugador|País|Pts.|PP|PA|REA|PE|GA|GE
1º|Shetland|COL|68|38|16|4|18|0|0|
2º|Ekto|MEX|66|35|17|3|15|0|0|
3º|RogerSsv|SAL|66|38|17|3|18|0|0|
4º|Arielo|ARG|56|38|15|3|20|0|4|
5º|Marea|CHI|52|38|14|2|22|0|0|
6º|Fher-811|MEX|50|32|15|1|16|0|0|
7º|Claren|COL|32|24|9|1|14|0|0|

Espero que les haya resultado interesante, al menos...

[saymy01]

Hola Soy nueva y la verdad es que necesitaria una ayudita de su parte.
1) quisiera saber si en excel 2003, ay forma de sacar los ceros de apelante, ejemplo: tengo una columna que dice articulos y en cada celda tengo numeros como 0004529 y asi sucesibamente y quisiera sacar los ceros y que me quede el numero.
Nose si se entendio????
2) se puede en excel 2003 celeccionar una columna entera sin tener que usar el mouse, con alguna convinacion de teclas?

Les agradesco por su ayuda:p

[Arielo]

Hola Soy nueva y la verdad es que necesitaria una ayudita de su parte.
Hola, Saymy01, bienvenida...



1) quisiera saber si en excel 2003, ay forma de sacar los ceros de apelante, ejemplo: tengo una columna que dice articulos y en cada celda tengo numeros como 0004529 y asi sucesibamente y quisiera sacar los ceros y que me quede el numero.
Nose si se entendio????
2) se puede en excel 2003 celeccionar una columna entera sin tener que usar el mouse, con alguna convinacion de teclas?

Les agradesco por su ayuda:p
1) Suponiendo que en la celda A1 esté el valor "0004529", colocar en (por ejemplo) B1 la fórmula =Valor(A1)
2) Ctrl+Barra_espaciadora en cualquier celda de la columna a seleccionar.


Saludos!

[Shetland]

Hola Soy nueva y la verdad es que necesitaria una ayudita de su parte.
1) quisiera saber si en excel 2003, ay forma de sacar los ceros de apelante, ejemplo: tengo una columna que dice articulos y en cada celda tengo numeros como 0004529 y asi sucesibamente y quisiera sacar los ceros y que me quede el numero.
Nose si se entendio????

Hola, una manera para colocar los ceros a la izquierda es colocar un Apóstrofe '... Así: '0045

[Juridico]

este para mi es muy útil:

- Cuando tenemos varios libros abiertos y no queremos usar el vicharraco para ir de un libo a otro, podemos usar este atajo:

Ctrl + Tab

Alez

En mi Excel para ir a otro libro sin usar el "bicharraco" utilizo:
Alt + Tabulador