dissabte, 22 de juliol del 2023

Obtenir el nom del full en una cel·la Excel (Office 365)

Amb Office365, la fórmula més fàcil seria:


=TEXTODESPUES(CELDA("nombrearchivo";A1);"]")


Si descomposem la fórmula ens dona:


=TEXTODESPUES(   PARÀMETRE-1  ;"]")

Per un paràmetre ens dona les dades després del caràcter entre cometes.


El Paràmetre 1:

=CELDA("nombrearchivo";A1)

Ens dona la ruta del fitxer consultant des d'A1.

És important determinar la cel·la, ja que si copies la fórmula de forma simultània en molts fulls, es pot embolicar si no indiques la cel·la.

El problema seria que et donaria el mateix resultat per totes les fulles del llibre, és a dir, un desastre.








divendres, 21 de juliol del 2023

Un pueblo traicionado de Paul Preston

Unes quantes perles de UN PUEBLO TRAICIONADO de Paul Preston:

El rígido control de los medios de comunicación y del sistema educativo había creado lo que se denominó «el franquismo sociológico». Con el apoyo sustancial de los bancos, la formación de Fraga, Alianza Popular, se había fundado ya en la segunda mitad de septiembre de 1976. Parte de su financiación provenía ilegalmente de la Unión Social Cristiana de Franz Josef Strauss. Hans Hoffmann, un destacado miembro de la comunidad nazi exiliada en España y factótum de Girón en Málaga, creó la Fundación Hanns Seidel en dicha ciudad, a través de la cual se canalizaba dinero hacia Alianza Popular.

 

La UCD era, por tanto, el instrumento ideal para garantizar que, en la transición de un régimen dictatorial a un régimen democrático, el verdadero poder del Gobierno quedara en manos, si no de las mismas personas que antes, al menos de individuos suficientemente conservadores como para garantizar la estructura existente de poder económico y social.

 

El aparato de propaganda de la UCD trabajó con denuedo para atraer a las mujeres, aprovechando el aspecto de galán de cine de Suárez y creando una imagen de hombre de familia devoto y católico practicante.

 

A cambio del restablecimiento de la Generalitat, mediante una adaptación del Estatuto de 1932, Tarradellas prometió la lealtad de Cataluña a la monarquía, la aceptación de la unidad de España y el respeto a las fuerzas armadas.

 

La trayectoria de éxito de Suárez tocó a su fin en el transcurso de 1978. El aumento de la delincuencia callejera a consecuencia del paro desbocado fue explotado por la prensa para fomentar el pánico de la clase media ante el colapso de la ley y el orden. La ultraderecha afirmó que los delincuentes eran izquierdistas que habían salido de la cárcel gracias a la amnistía. La izquierda argumentó que la policía estaba tratando de erosionar la democracia permitiendo que los delitos se descontrolaran. Desde luego, existía un contraste notable entre la brutal eficacia de la policía bajo el franquismo y su aparente impotencia en el régimen democrático.

 

La convicción general en Euskadi de que Martín Villa aprobaba la brutalidad de la policía y la Guardia Civil impulsó el apoyo a ETA. El 11 de enero de 1978, un policía y dos etarras murieron en un tiroteo en Pamplona. Cuando los periodistas le pidieron su opinión, Martín Villa hizo este desafortunado comentario: «Van dos a uno. A nuestro favor».

 

Su impotencia ante los actos de brutalidad confirmó la idea muy extendida en el País Vasco de que las fuerzas del orden españolas eran un ejército extranjero de ocupación ante el cual las acciones de ETA constituían una legítima defensa. El Gobierno parecía paralizado ante los asesinatos casi semanales de policías o guardias civiles por parte del grupo. Los actos de terrorismo indiscriminado comenzaron a restar apoyo popular a ETA, aunque no lo suficiente como para ayudar a Suárez. La ola de asesinatos llevó al Gobierno a efectuar varias tentativas de negociación de una tregua.

 

Así, el referéndum del texto constitucional se celebró el 6 de diciembre en un clima de tensión. Sin embargo, a pesar de una abstención a escala nacional del 32,3 por ciento, el resultado fue un claro aval popular a la Constitución. La abstención fue un síntoma del creciente desencanto con la política. El Gobierno se mostró preocupado por los resultados en Euskadi, donde la abstención alcanzó el 51,1 por ciento del electorado y el «no» supuso un 23,54 por ciento de los sufragios.

 

Tejero deseaba que una junta al estilo Pinochet aplastara a la izquierda y revocara las autonomías regionales, por lo que rechazó airadamente la idea de un Gobierno de coalición con Felipe González como vicepresidente e incluso un comunista, Jordi Solé Tura, como ministro de Trabajo, lo que sugiere que Tejero no estaba al tanto de las intenciones de Armada.

 

Desde principios de mayo, 48 personas, entre ellas varios niños, habían muerto a causa de una misteriosa enfermedad diagnosticada como «neumonía atípica». Más de ocho mil más estaban hospitalizadas y padecían síntomas terriblemente dolorosos. La causa de la epidemia era el aceite de colza desnaturalizado, que había sido adulterado con aceite industrial y varios productos químicos para que pareciese aceite de oliva y pudiesen venderlo en puestos callejeros.

dimecres, 12 de juliol del 2023

Unir diferents fulls Excel en un únic full (2)

Una mica millorat fent servir constants per no oblidar-nos de dimensionar el número de fulls afectats i el número de línies a tractar. En aquest cas treballem amb 13 pàgines i la pàgina que té més línies té unes 30.



El codi:

Option Explicit
Dim MyNumPage As String
Dim MyRange As String
Dim NumeracioMyNumPage As Byte
Dim NumeracioMyRange  As String
Dim i As Byte
'Aqui declarem com a constant el número pàgines a tractar
'############################

Const TotalPage As Byte = 13
'Aqui declarem com a constant el número de línies a tractar
'############################

Const TotalLines As Byte = 30

Sub CopiarYPegar()
'Començarem a la segona línia: -(30-2) = -28
NumeracioMyRange = -(TotalLines - 2)
i = 1
For i = 1 To TotalPage
    NumeracioMyNumPage = i
        If i < 10 Then
            MyNumPage = "Page00" & NumeracioMyNumPage
        Else
            MyNumPage = "Page0" & NumeracioMyNumPage
        End If
    Parche_01
Next i
End Sub

Sub Parche_01()
    Sheets(MyNumPage).Select
    ActiveSheet.Range("A2:P" & TotalLines).Select
    Selection.Copy
    Sheets("Hoja1").Select
    NumeracioMyRange = NumeracioMyRange + TotalLines
    MyRange = "B" & NumeracioMyRange
    Range(MyRange).Select
    ActiveSheet.Paste
End Sub

#####################
Cal destacar la forma de fer referéncia a un rang fent servir una constant:

    ActiveSheet.Range("A2:P" & TotalLines).Select

diumenge, 9 de juliol del 2023

Educació: educare o educere

 

"The word education partly derives from the Latin educere: to lead out. Too often it leads us in: into old ways of thinking, into dying professions, into the planet-eating system called business as usual. Too seldom does it lead us out of our cognitive and emotional loops, out of conformity with a political and economic system that’s killing us."

https://www.theguardian.com/commentisfree/2023/jul/08/teach-children-survive-ai

How we can teach children so they survive AI – and cope with whatever comes next

George Monbiot     Sat 8 Jul 2023 10.00 BST


"Craft (1984) noted that there are two different Latin roots of the English word "education." They are "educare," which means to train or to mold, and "educere," meaning to lead out. While the two meanings are quite different, they are both represented in the word "education." Thus, there is an etymological basis for many of the vociferous debates about education today. The opposing sides often use the same word to denote two very different concepts. One side uses education to mean the preservation and passing down of knowledge and the shaping of youths in the image of their parents. The other side sees education as preparing a new generation for the changes that are to come--readying them to create solutions to problems yet unknown. One calls for rote memorization and becoming good workers. The other requires questioning, thinking, and creating. To further complicate matters, some groups expect schooling to fulfill both functions, but allow only those activities promoting educare to be used. Balance in educational aims is a valid focus for educators. This author contends that, in order to achieve balance, educators must start by changing the organizational structure or the ways in which decisions are made. Utilizing stakeholder perceptions in determining aims, establishing a shared vision of education, and facilitating a change in educators' roles are initial steps. To accomplish a change in thinking, educators must examine their own personal mastery and mental models of education."

https://eric.ed.gov/?id=EJ724880#:~:text=Craft%20(1984)%20noted%20that%20there,%2C%22%20meaning%20to%20lead%20out.

dilluns, 3 de juliol del 2023

El retaule de Melisendra. Indemnització pagada per Quixot

 Segons l'edició de l'Institut Cervantes de El Quixot, una dotzena d'ous costava 63 maravedis.

Actualment, en 2023, una dotzena d'ous es pot comprar per 2,19 €.

Aplicant aquesta correspondència, que és molt aplicar, el preu a que es vendria la primera part d'aquest clàssic (292 maravedis) serien uns 10,15 €. Per la segona part, el 1615, la taxa va ser la mateixa.

Si, segons la mateixa edició, 1 real eren 34 maravedis, la indemnització que Quixot paga a maese Pedro a l'episodi del retaule de Melisendra, una mica més de 43 reals, serien quasi 51 €.




diumenge, 2 de juliol del 2023

Més lent per cable que per WiFi

 Aplico el test de velocitat i em va més lent per cable que per WiFi.

Descartant que el cable sigui una piltrafilla, una possible causa seria que el meu adaptador de xarxa no estigui capacitat per velocitats superiors a 100 Mbps.

Seguint https://www.redeszone.net/tutoriales/redes-cable/internet-cable-mas-lento-wifi/  intento validar-ho;

  • Configuración (l'engranatge)
  • Red e Internet
  • Cambiar opciones del adaptador
  • Ethernet
    • (Botó dret Propiedades)
    • (Sota de la connexió -en el meu cas REALTEK USB Family Controler-)
  • Configurar...
  • Opciones avanzadas
  • Speed & Duplex
  • (Valor)

El resultat pel meu Lenovo Ideapad 3:


Tot apunta que no passarà mai dels 100 Mbps. 

Si fos un equip de sobretaula, seria una raó de pes per canviar la targeta, però en un portàtil que funciona perfectament i en el 99% dels casos amb WiFi, així es queda.

Adéu cable.


dissabte, 1 de juliol del 2023

Unir diferents fulls Excel en un únic full

 He fet una importació de dades des de PDF i se m'han carregat 13 fulls.

Cada full s'ha creat com a Page001, Page002, Page003.... fins a Page013

Vull carregar unir totes les dades dins Hoja 1


Cada pàgina de dades té menys de 30 línies.

No vull tocar la primera línia de Hoja1 perquè alli vull escriure una capçalera.

No vull tocar la primera columna de Hoja1 perquè allí vull tenir una columna d'ordre (1,2,3,....)

L'opció CONSOLIDAR té certes restriccions, així que ho faré amb VBA:




Option Explicit

Dim MyNumPage As String

Dim MyRange As String

Dim NumeracioMyNumPage As Byte

Dim NumeracioMyRange  As String

Dim i As Byte

Sub CopiarYPegar()

NumeracioMyRange = -28


i = 1

For i = 1 To 13

    NumeracioMyNumPage = i

        If i < 10 Then

            MyNumPage = "Page00" & NumeracioMyNumPage

        Else

            MyNumPage = "Page0" & NumeracioMyNumPage

        End If

    Parche_01

Next i


End Sub


Sub Parche_01()

    Sheets(MyNumPage).Select

    ActiveSheet.Range("A2:P30").Select

    Selection.Copy

    Sheets("Hoja1").Select

    NumeracioMyRange = NumeracioMyRange + 30

    MyRange = "B" & NumeracioMyRange

    Range(MyRange).Select

    ActiveSheet.Paste

End Sub