dimarts, 14 de novembre del 2023

divendres, 13 d’octubre del 2023

Nens i pantalles: s'ha de deixar de fer continguts per als més petits?

https://www.ccma.cat/catradio/catalunya-migdia/nens-i-pantalles-sha-de-deixar-de-fer-continguts-per-als-mes-petits/noticia/3255133/

Tres de cada quatre escoles bressol privades de Catalunya han detectat anomalies en les criatures a l'hora d'aprendre a parlar per la sobreexposició a les pantalles

El 75% de les llars d'infants han detectat que les criatures sobreexposades a les pantalles tenen retards globals en el seu desenvolupament. Aquest és el resultat fruit d'una enquesta que ha fet l'Associació Catalana de Llars d'Infants a 130 escoles bressol privades catalanes.

De l'informe es desprèn que tres de cada quatre escoles bressol han detectat anomalies a l'hora d'aprendre a parlar en les criatures que fan un abús d'aquests dispositius. Per això, l'Associació Catalana de Llars d'Infants fa una crida a protegir els infants de les pantalles. La portaveu de l'entitat, Rut Baqués, és clarament contrària als continguts pensats per a criatures de 0 a 3 anys.

"Estaria bé que les empreses no fessin continguts de pantalles per a nens petits. Un ocellet que ensenya els colors en anglès a través de la pantalla no t'està ensenyant res, t'està fent mal."

Les conseqüències de la sobreexposició: dificultats per menjar i aïllament social

A banda del retard en el llenguatge, les escoles bressol han observat dificultats a l'hora de menjar i problemes a l'hora d'establir vincles amb els mestres i els altres infants. I fins i tot dificultat per agafar el son, un retard en el desenvolupament psicomotriu i més baixa tolerància a la frustració. Segons Baqués, els infants queden absolutament fascinats pel que veuen i això pot provocar una falta d'empatia.

"L'empatia queda afectada greument perquè no estem parlant d'uns minuts de sobreexposició, sinó d'hores."

La portaveu creu que les criatures són molt resilients i apunta a una solució senzilla si s'agafa a temps.

"El que necessiten els infants és estar a terra, rodolar, anar al parc, menjar-se una pedra, anar a la piscina amb la mare i el pare i fer jocs de falda. Amb això ja tens el tractament."

Confusió: l'infant té un trastorn de l'espectre autista?

Segons l'enquesta, tres de cada deu llars asseguren que hi ha famílies amb la sospita que un infant té un possible trastorn de l'espectre autista (TEA) per la sobreexposició a les pantalles.

"Si l'infant s'acostuma a les pantalles deixa de tenir interès per jugar, relacionar-se... i això a vegades porta la família a pensar que es pot tractar d'un TEA, quan, en el moment que es retiren aquests dispositius del seu dia a dia, es recupera i torna a tenir un comportament d'acord amb la seva edat de desenvolupament i a connectar-se de nou amb el món que l'envolta."

L'enquesta de l'Associació Catalana de Llars d'Infants s'ha fet a més d'un centenar d'escoles bressol privades, però l'entitat creu que és extrapolable a les públiques.


dissabte, 30 de setembre del 2023

Omplir cel·les amb el valor de la cel·la superior

 Perfectament explicat dins:

https://excelyvba.com/rellenar-celdas-vacias-con-el-valor-de-la-de-arriba/

Recordatori:

F5 / Especial / Celdas en blanco

Omplim la primera cel·la buida amb el valor de la superior.

CTRL INTRO


dijous, 21 de setembre del 2023

Suma de rangs discontinus en Excel o LibreOffice

 Vull sumar sols els valors dins els quadrats grocs (resultat 200,6)


Al rang superior l'anomeno alfa

Al rang inferior, beta

Solució errònia  =SUMA(alfa:beta) resultat = 220,6  Està incloent els valors amb fons de color blanc.

Solució correcta  =SUMA(alfa;beta) resultat = 200,6  No inclou els valors amb fons de color blanc.

dilluns, 11 de setembre del 2023

Comparar dues columnes en Excel

 En Access és molt més fàcil, però si ho has de fer en Excel, caldrà fer servir una matriu:

Amb aquesta fórmula compararem A1:A21 i B1:B21 


=SI.ERROR(INDICE($A$1:$A$21;K.ESIMO.MAYOR(SI.ERROR(COINCIDIR(B1:B21;$A$1:$A$21;0);"");FILA()));"")


Abans d'aplicar la fórmula cal seleccionar el rang on l'aplicarem. Tot seguit (Molt important) polsem CTRL+MAYS+INTRO:


El resultat:






dissabte, 9 de setembre del 2023

Nul o cadena buida en Access

 És de pre-escolar en Access, però mai m'havia trobat.

Parteixo d'aquesta taula amb 18 registres:


Faig una consulta sobre el camp REBUT amb criteri = "" i espero els 18 registres, però em surten molts menys.

Si hagués fet el mateix amb criteri = EsNulo em sortirien altres, però no els 18.



El problema és que en uns casos és una cadena buida i en altres és un camp Null. Ho puc evidenciar amb una consulta de longitud del camp Rebut:



Els que són null no tenen longitud; els que són buits, tenen longitud 0.

Com ho puc resoldre?

Dos opcions.

a) A la consulta de selecció escric Es nulo o ""

b) Amb una consulta d'actualització converteixo els null en una cadena buida amb la funció Nz. La funció Nz converteix un tipus a un valor. En aquest cas, passem de tipus null al valor ""

Es nulo o cadena vacía en Access.

IsNull or empty string in Access.



dilluns, 7 d’agost del 2023

ΟΙ ΒΑΣΙΛΕΙΣ ΤΗ ΕΓΚΥΚΛΟΠΑΙΔΕΙΑ ΑΥΤΗ ΤΟΙΣ ΒΑΣΙΛΕΙΣΙ

Segons la wikipedia ( i repetit en altres -poques- pàgines) la llegenda al voltant de l'escut dels reis catòlics a la Universitat de Salamanca (façana de ponent) seria:

ΟΙ ΒΑΣΙΛΕΙΣ Τῌ ΕΝΚΥΚΛΟΠΑΙΔΕΙᾼ, ΑΥΤΗ ΤΟῖΣ ΒΑΣΙΛΕΙΣΙ

Fonèticament sona millor, però jo veig una gamma majúscula claríssima a la quarta paraula:

ΟΙ ΒΑΣΙΛΕΙΣ ΤΗ ΕΓΚΥΚΛΟΠΑΙΔΕΙΑ ΑΥΤΗ ΤΟΙΣ ΒΑΣΙΛΕΙΣΙ

Sols he trobat una coincidència a "Memoiren des Grafen Miot de Melito" del 1788. Tinc la oui-ja a la revisió i no li puc preguntar.

Pel que fa a la traducció, em quedaria amb "Dels reis a la formació i de la formació als reis"


Llicència CC 3.0 BY. Autor: Tamorlan



dimarts, 1 d’agost del 2023

La sabiduria de lo incierto de Joan-Carles Melich

 "Sucede cuando nos preguntan, seamos estudiantes o maestros, que lo primero que se experimenta es un sobresalto, una especie de sentirse sorprendido “in fraganti”, como si hubiésemos descuidado algo, o dejado en olvido, por lo menos. Y aun puede ocurrir que tratándose de una pregunta para la cual disponemos de adecuada respuesta, al sobresalto suceda un vacío en la mente. Nada hay más contrario para salir de esta situación que el esforzarse para salir de ella. Por el contrario, hay que sostenerse en ese vacío de la mente con un corazón firme. Y entonces, sólo entonces, es cuando aflora la respuesta: una respuesta todavía más precisa de la que creíamos tener. Entre la pregunta y la respuesta debe existir, de mediar, un vacío, una detención de la mente, una cierta suspensión del tiempo." [Maria Zambrano] 238

Dice Kant en la Fundamentación de la metafísica de las costumbres que lo que distingue a los seres racionales de las cosas es que los primeros tienen "dignidad", mientras que las segundas solo tienen "precio". 241

Lo importante ahora es subrayar que todos los ejemplares del mismo libro son idénticos y, en cambio, cada uno es distinto en función de su lector, porque lo que hace del libro una cosa singular es la «relación» que ha establecido con su lector. 244

Los profesores que educan desde las disciplinas no aman los libros, aman una lógica correctiva que expulsa determinadas obras porque no forman parte del canon de la materia, de la asignatura impartida o de la guía docente. En cambio, los que se atreven a educar desde los libros no tienen miedo a romper con el régimen disciplinario, y situarse en una perspectiva «mestiza». Pero esos profesores son peligrosos porque ponen en cuestión el orden discursivo imperante, y no tienen la protección que ofrece el sistema pedagógico, no tienen la red de seguridad de la lógica disciplinaria. No hay que olvidar este aspecto, a saber, que el régimen disciplinario es siempre, en mayor o menor medida, un régimen protector. 363

El autor es una presencia ausente. Y aunque el autor esté físicamente presente, en una presentación o una conferencia, por ejemplo, en un encuentro o un curso, si se trata de la lectura filosófica o literaria, la del autor no es «la» lectura autorizada, sino una más, de las muchas, de las infinitas lecturas posibles. Toda lectura es lectura de ausencias. El libro, es verdad, es un maestro, pero uno distinto al que estamos acostumbrados; es un «maestro ausente». Si mis dudas acerca del texto que estoy leyendo persisten tampoco puedo preguntar a un experto, porque éstos me responderán con toda seguridad al modo erudito, y no es eso lo que ando buscando. Nada tiene que ver el erudito con el lector. 372

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



divendres, 30 de juny del 2023

dissabte, 24 de juny del 2023

Càlcul lletra DNI / NIE amb funció en Excel

Una solució eficaç dins www.hojasdecalculoexcel.com

http://www.hojasdecalculoexcel.com/2008/04/calcular-la-letra-del-nif-o-del-dni.html

Sols he afegit la declaració "Dim Lista_de_letras as String" ja que tinc activat el Option Explicit.

Dins un mòdul escrius aquest codi:

Function LetradelNIF(NIF As Long)

'Controlamos que no sea un número mayor de 8 cifras

If NIF = 0 Or NIF > 99999999 Then

letradelNif = "NIF incorrecto"

Else

'Tenemos una constante que contiene las posibles letras que puede tener un NIF

Dim Lista_de_letras as String

Lista_de_letras = "TRWAGMYFPDXBNJZSQVHLCKE"

'Cogemos el NIF, lo dividimos entre 23 y nos quedamos con el resto. Luego

'al resto le sumamos 1, y obtenemos de la lista de letras, la que corresponda

'con ese número de NIF

letradelNif = Mid(Lista_de_letras, (NIF Mod 23) + 1, 1)

End If

End Function


Pel NIE sols cal canviar la X inicial per 0, la Y per 1 i la Z per 2.

dissabte, 6 de maig del 2023

CFR CLUB (Projecte COMPETIC 1 Can Noè 2022-2023)

 



ESTÀ A PUNT DE COMENÇAR LA NOVA TEMPORADA !!!
DEIXA EL TEU MISSATGE D'ÀNIM !!!


Si entres com anònim, escriu el teu NOM -no el cognom-.
Si no sé qui ets, no et puc avaluar.
Espero 24 comentaris.



diumenge, 2 d’abril del 2023

Obtenir el valor de la darrera cel·la d'una columna

 



Fem servir la fórmula 
=BUSCAR(MAX(D:D)+1;(D:D))
per trobar la darrera cel·la de la columna D

divendres, 24 de març del 2023

dissabte, 4 de març del 2023

Canviar l'idioma de tots els objectes de Power Point

 Si comences a treballar en Power Point i tens un idioma diferent sobre el que vols aplicar la revisió ortogràfica, quan te n'adones entres en un cert nivell de desesperació, ja què cal canviar objecte per objecte.

En qualsevol cas, la solució és bastant fàcil. Sols cal aplicar una macro.

L'he tret de https://www.javiergutierrezchamorro.com/cambiar-idioma-de-una-presentacion-powerpoint/ i l'he retocat mínimament pel català:


Option Explicit

Sub Catalanitzador()

Dim oSlide As Slide

    Dim oShape As Shape

    Dim sLocale As String

    sLocale = InputBox("Introduce el idioma de destino:" & vbCrLf & "- 1027: Catalufo" & vbCrLf & "", "Idioma", "1027")

    For Each oSlide In ActivePresentation.Slides

        For Each oShape In oSlide.Shapes

            If ((oShape.Type = msoTextBox) Or (oShape.Type = msoPlaceholder)) And oShape.HasTextFrame Then

                oShape.TextFrame.TextRange.LanguageID = sLocale

            End If

        Next

    Next

End Sub

Si vols aplicar castellà, el valor seria 3082.
Si vols aplicar anglès, el valor seria 2057.
Per tota la resta d'idiomes, consulteu la pàgina esmentada.