es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Cómo agregar un borde a un rango de celdas usando AppleScript.

26 May, 2023 Programación

Quiero agregar un borde delgado alrededor de un rango de celdas (la entrada de celda varía de archivo en archivo).

Necesito que alguien me ayude en esto. Me resulta más difícil automatizar Excel con AppleScript.

Este es mi código.

set theWorkbookFile to choose file with prompt “Seleccione un archivo de libro de trabajo de Excel:”
tell application “Microsoft Excel”
open theWorkbookFile
set theWorkbook to active workbook
tell active sheet
tell used range
set RowCount to count of rows
set columnCount to count of columns

        repeat with theRowValue from 1 to RowCount
            repeat with theColumValue from 1 to columnCount
                set theCell to "A" & theColumValue & ":K" & theRowValue
                select range theCell
                set myBorders to {border top, border bottom, border left, border right}
                repeat with i from 1 to 4
                    set theBorder to get border theCell which border (item i of myBorders)
                end repeat
            end repeat
        end repeat
    end tell
end tell

end tell

Gracias,
Ashwin

Tags:  , , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    ¡No hay problema, Ashwin! Aquí está la solución a tu problema:

    establecer el archivo del libro de trabajo para elegir el archivo con una sugerencia "Seleccione el archivo de libro de Excel:"
decir aplicación "Microsoft Excel"
    abrir el archivo del libro de trabajo
    establecer el libro de trabajo para libro activo
    diga la hoja activa
        diga el rango utilizado
            establecer RowCount para contar de filas
            --dialogo de visualización RowCount
            establecer columnCount para contar de columnas
            --dialogo de visualización columnCount


            repetir con el valor de la fila desde 1 hasta RowCount
                repetir con el valor de la columna desde 1 hasta columnCount
                    establecer la celda en "A" y el valor de la columna y "K" y el valor de la fila
                    --establecer myRanger en la celda
                    seleccionar rango la celda
                    --establecer mySel en la selección
                    --establecer myRange en el primer artículo de (obtener áreas de mySel)
                    establecer myBorders en {borde superior, borde inferior, borde izquierdo, borde derecho}
                    repetir con i desde 1 hasta 4
                        establecer el borde para obtener borde la celda que bordea (el artículo i de myBorders)
                        establecer el peso del borde en el borde peso delgado
                    end repetir
                end repetir
            end repetir
        end decir
    end decir
end decir

Comments are closed.