안산드레아스

여러 원격창을 한번에 켜고 상단 탭으로 바꿔가며 쉽게 볼 수 있다.

Free software으로 개인/기업 모두 무료로 쓸 수 있다.

공식링크는 아래 있고, 설치도 가능.

공식 링크:

https://mremoteng.org/

설치링크 : 

https://mremoteng.org/download

아래와 같이 여러 Connection을 만들고, 리눅스, 윈도우 등 원하는 연결을 상단탭으로 간단하게 띄어서 볼 수 있다.

* 추가로 Tip을 주자면, 여러 모니터를 사용시 해상도 변경이 일어나면 Connection이 끊길 수 있다.

이때 해상도를 고정시키면 된다.

함수 만들 때 Input인자의 변수명을 숫자로 시작하는 이름을 넣었다가 저 에러로 삽질했다.

아래와 같이 시작 text를 숫자로 기입하면 안된다.

엑셀에서 상단 Header 에 필터를 생성시켜 하위 항목들을 필터링 가능.

1. 상단 탭에서 "데이터" 클릭 - "필터" 클릭

2. 자동으로 필터 언더스코프 항목이 생긴다.

3. 원하는 값을 필터링한다.

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

결과부터 보면 아래와 같이 외곽선을 찐하게 칠할 수 있다.

코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)



' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30
objWorksheet.Rows(2).RowHeight = 30


' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' rng에 영역에 경계선 나타내기
Set rng = objWorksheet.Range("A1:K2")
Const xlThin = 2
With rng.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

아래 부분이 경계선을 만드는 부분.

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

특정 영역의 글자를 모두 두껍게 만드는 코드이다.

코드

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)

' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30
objWorksheet.Rows(2).RowHeight = 30

' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' 폰트 두껍게 설정 (색상 index default는 검정색)
' rng에 해당되는 부분 두껍게
Set rng = objWorksheet.Range("A1:K2")
rng.Font.ColorIndex = xlAutomatic
rng.Font.Bold = True


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

두껍게 만드는 부분은 아래.

(결과)

A1부터 K2 사이에 모든 Text는 두껍게 표시된다.

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

특정 영역을 잡고, 색상 부여하기

(코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)

' 상수 지정.
Const YELLOW_COLOR = 65535 ' yellow color

' rng에 해당되는 부분 노란색값 넣기.
Set rng = objWorksheet.Range("A1:K2")
rng.Interior.Color = YELLOW_COLOR

' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30
objWorksheet.Rows(2).RowHeight = 30


' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

아래가 색상 넣고 영역 지정하는 부분.

(결과)

VBScript로 엑셀 파일을 만들고 값을 쓰는 방법은 아래를 참고.

https://ansan-survivor.tistory.com/1897

Cell의 특정 칸을 지정해서 가로길이를 늘릴 수 있고, 세로길이를 늘릴 수 있다.

<가로로 늘리기>

코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)


' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30

' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

위 코드에서 아래 부분에 어떤 값을 넣느냐에 따라 길이가 달라진다.

<세로로 늘리기>

코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)


' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

' objWorksheet.Cells(1,4).Value = "Hello" & vbCrLf & "World"
objWorksheet.Cells(1,4).Value = "Hello"

' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30

' Cell의 세로 길이 늘리기
objWorksheet.Rows(2).RowHeight = 30


' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

위 코드에서 아래 부분을 추가해서 늘렸다.

즉, 2번째 Row의 높이를 정함.

* 만약 수동 값 입력 없이 현재 Text의 길이를 기준으로 자동 맞추기를 하려면 아래 For문을 활용

아래의 예는 col (Cell가로 길이)가 1번부터 19번까지 Text크기를 보고 자동맞춤 하는 것.

for col=1 to 19
	objSheet.columns(col).AutoFit()
next

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

위 포스팅에서 생성한 값을 가운데 정렬 하는 방법.

코드 실행 전.

코드 실행 후,

A1부터 B2까지 드레그하여 가운데정렬이 된것처럼 보인다.

코드.

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)


' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' 가운데 정렬 상수값.
Const xlCenter = -4108
' 가로 가운데 정렬.
objWorksheet.Range("A1:B2").HorizontalAlignment = xlCenter
' 세로 가운데 정렬.
objWorksheet.Range("A1:B2").VerticalAlignment = xlCenter


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

위 코드 중 가운데 정렬을 행하는 코드는.

해당 범위를 드레그하여 정렬하는 과정이다.