Form Follows Energy

건물 에너지, IT와 여러 가지 글들

[excel]이름 정의 및 수식에 이름 사용(Define and use names in formulas)

May 24th, 2018

[참고]
https://support.office.com/ko-kr/article/이름-정의-및-수식에-이름-사용-4d0f13ac-53b7-422e-afd2-abd7ff379c64#bmlearn_more_about_using_names
Define and use names in formulas

[vba]DXF파일에 문자열 쓰기

December 5th, 2017

DXF 파일에 내가 원하는 문자열을 쓰기

Sub WriteDXFText(FileNumber As Integer, myText As String, Layer As String, x As Double, y As Double, z As Double, TextHeight As Double, Color As Integer, Optional Style As String = "Standard")
    '
    'How to use this subprocedure:
    'WriteDXFText(FileNumber , "my  story goes here.", "0", 10, 15, 0, 3, 1)
    
    '"Text" entity
    Print #FileNumber, Format(0, "@@@")
    Print #FileNumber, "TEXT"
    '
    Print #FileNumber, Format(1, "@@@")
    Print #FileNumber, myText
    '
    'Style Name
    Print #FileNumber, Format(7, "@@@")
    Print #FileNumber, Style
    '
    'Layer Name
    Print #FileNumber, Format(8, "@@@")
    Print #FileNumber, Layer
    '
    '
    'x coordinate of start point
    Print #FileNumber, Format(10, "@@@")
    Print #FileNumber, x
    '
    'y coordinate of start point
    Print #FileNumber, Format(20, "@@@")
    Print #FileNumber, y
    '
    'z coordinate of start point
    Print #FileNumber, Format(30, "@@@")
    Print #FileNumber, z
    '
    'Text Height
    Print #FileNumber, Format(40, "@@@")
    Print #FileNumber, TextHeight
    '
    'Text Color
    Print #FileNumber, Format(62, "@@@")
    Print #FileNumber, Color
    '
End Sub

Sub WriteDXFText(FileNumber As Integer, myText As String, Layer As String, x As Double, y As Double, z As Double, TextHeight As Double, Color As Integer, Optional Style As String = "Standard")

'How to use this subprocedure:

'WriteDXFText(FileNumber , "my story goes here.", "0", 10, 15, 0, 3, 1)

'"Text" entity

Print #FileNumber, Format(0, "@@@")

Print #FileNumber, "TEXT"

Print #FileNumber, Format(1, "@@@")

Print #FileNumber, myText

'Style Name

Print #FileNumber, Format(7, "@@@")

Print #FileNumber, Style

'Layer Name

Print #FileNumber, Format(8, "@@@")

Print #FileNumber, Layer

'x coordinate of start point

Print #FileNumber, Format(10, "@@@")

Print #FileNumber, x

'y coordinate of start point

Print #FileNumber, Format(20, "@@@")

Print #FileNumber, y

'z coordinate of start point

Print #FileNumber, Format(30, "@@@")

Print #FileNumber, z

'Text Height

Print #FileNumber, Format(40, "@@@")

Print #FileNumber, TextHeight

'Text Color

Print #FileNumber, Format(62, "@@@")

Print #FileNumber, Color

End Sub

[vba]Format Function

November 12th, 2017

[문제]
변수를 사용자가 원하는 형식으로 문자열로 출력하기

[설명]
User-Defined String Formats (Format Function) You can use any of the following characters to create a format expression for strings:

Excerpted and translated from Format Function (Visual Basic for Applications)

Character	Description
@	문자 표시자. 문자를 표시하거나, 아니면 공백을 표시한다. 문자열 중에서 골뱅이 ( @ )가 나타나는 위치에 문자가 있으면, 그 문자를 표시한다. 그렇지 않으면 그 자리에 공백을 표시한다. 문자표시자를 우측부터 좌측으로 채워진다. 다만, 느낌표( ! )가 있으면, 좌측부터 우측으로 채운다.
&;	문자 표시자. 문자를 표시하거나, 아니면 아무것도 표시하지 않는다. 문자열 중에서 앰퍼샌드ampersand ( &; )가 나타나는 위치에 문자가 있으면, 그 문자를 표시한다. 그렇지 않으면, 아무 것도 표시하지 않는다. 문자표시자를 우측부터 좌측으로 채워진다. 다만, 느낌표( ! )가 있으면, 좌측부터 우측으로 채운다.
<	소문자로 표시. 모든 문자를 소문자로 표시한다.
>	대문자로 표시. 모든 문자를 대문자로 표시한다.
!	문자표시자의 좌측부터 문자를 채움. 기본은 문자표시자의 우측부터 채운다.

[예제]
세 칸 안에 숫자를 출력한다. 해당 자리에 숫자가 없으면 빈칸으로 처리한다. 오른쪽 정렬로 표시한다.

Print #FileNumber, Format(0, "@@@")
Print #FileNumber, "LINE"
Print #FileNumber, Format(99, "@@@")
Print #FileNumber, Format(999, "@@@")
Print #FileNumber, Format(5459.4, "##,##0.00")
Print #FileNumber, Format(334.9, "###0.00")
Print #FileNumber, Format(5, "0.00%")
Print #FileNumber, Format("HELLO", "<")
Print #FileNumber, Format("This is it", ">")

Print #FileNumber, Format(0, "@@@")

Print #FileNumber, "LINE"

Print #FileNumber, Format(99, "@@@")

Print #FileNumber, Format(999, "@@@")

Print #FileNumber, Format(5459.4, "##,##0.00")

Print #FileNumber, Format(334.9, "###0.00")

Print #FileNumber, Format(5, "0.00%")

Print #FileNumber, Format("HELLO", "<")

Print #FileNumber, Format("This is it", ">")

위 예제의 출력 결과는 다음과 같다.

  0
LINE
 99
999
5,459.40
334.90
500.00%
hello
THIS IS IT

LINE

999

5,459.40

334.90

500.00%

hello

THIS IS IT

[FYI]
String.Format Method

[vba]DXF 파일에 Line 그리기

November 12th, 2017

DXF를 이용하면 고품질의 CAD 파일을 출력할 수 있다.

아래의 코드는 여기에 있는 DXF파일을 출력하는 코드이다.

Sub WriteDXFFileTest()
    Dim fileNum As Integer
    Dim fileName As String
    '
    fileNum = FreeFile
    fileName = "C:\DXFTest.dxf"
    '
    Open fileName For Output As #fileNum
    '
    Print #fileNum, Format(999, "@@@")
    Print #fileNum, "Created by SolarView"
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "SECTION"
    '
    Print #fileNum, Format(2, "@@@")
    Print #fileNum, "ENTITIES"
    '
    Call WriteDXFLine(fileNum, 0, 4, 12.5, 13.5, 0, 100.7, 101.7, 0)
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "ENDSEC"
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "EOF"
    '
    Close #fileNum
    '
End Sub

Sub WriteDXFFileTest()

Dim fileNum As Integer

Dim fileName As String

fileNum = FreeFile

fileName = "C:\DXFTest.dxf"

Open fileName For Output As #fileNum

Print #fileNum, Format(999, "@@@")

Print #fileNum, "Created by SolarView"

Print #fileNum, Format(0, "@@@")

Print #fileNum, "SECTION"

Print #fileNum, Format(2, "@@@")

Print #fileNum, "ENTITIES"

Call WriteDXFLine(fileNum, 0, 4, 12.5, 13.5, 0, 100.7, 101.7, 0)

Print #fileNum, Format(0, "@@@")

Print #fileNum, "ENDSEC"

Print #fileNum, Format(0, "@@@")

Print #fileNum, "EOF"

Close #fileNum

End Sub

LINE명령어를 처리하는 함수는 다음과 같이 작성할 수 있다.

Sub WriteDXFLine(FileNumber As Integer, Layer As String, Color As Integer, _
                 X1 As Double, Y1 As Double, Z1 As Double, _
                 X2 As Double, Y2 As Double, Z2 As Double)
    '
    '"Line" entity
    Print #FileNumber, Format(0, "@@@")
    Print #FileNumber, "LINE"
    '
    'Layer Name
    Print #FileNumber, Format(8, "@@@")
    Print #FileNumber, Layer
    '
    'Line Color
    Print #FileNumber, Format(62, "@@@")
    Print #FileNumber, Color
    '
    'x coordinate of start point
    Print #FileNumber, Format(10, "@@@")
    Print #FileNumber, X1
    '
    'y coordinate of start point
    Print #FileNumber, Format(20, "@@@")
    Print #FileNumber, Y1
    '
    'z coordinate of start point
    Print #FileNumber, Format(30, "@@@")
    Print #FileNumber, Z1
    '
    'x coordinate of end point
    Print #FileNumber, Format(11, "@@@")
    Print #FileNumber, X2
    '
    'y coordinate of end point
    Print #FileNumber, Format(21, "@@@")
    Print #FileNumber, Y2
    '
    'z coordinate of end point
    Print #FileNumber, Format(31, "@@@")
    Print #FileNumber, Z2
    '
End Sub

Sub WriteDXFLine(FileNumber As Integer, Layer As String, Color As Integer, _

X1 As Double, Y1 As Double, Z1 As Double, _

X2 As Double, Y2 As Double, Z2 As Double)

'"Line" entity

Print #FileNumber, Format(0, "@@@")

Print #FileNumber, "LINE"

'Layer Name

Print #FileNumber, Format(8, "@@@")

Print #FileNumber, Layer

'Line Color

Print #FileNumber, Format(62, "@@@")

Print #FileNumber, Color

'x coordinate of start point

Print #FileNumber, Format(10, "@@@")

Print #FileNumber, X1

'y coordinate of start point

Print #FileNumber, Format(20, "@@@")

Print #FileNumber, Y1

'z coordinate of start point

Print #FileNumber, Format(30, "@@@")

Print #FileNumber, Z1

'x coordinate of end point

Print #FileNumber, Format(11, "@@@")

Print #FileNumber, X2

'y coordinate of end point

Print #FileNumber, Format(21, "@@@")

Print #FileNumber, Y2

'z coordinate of end point

Print #FileNumber, Format(31, "@@@")

Print #FileNumber, Z2

End Sub

[VBA]파일 쓰기

October 12th, 2017

[문제]
-엑셀에서 계산 결과를 텍스트 파일로 저장하고 싶다.

[해법1] Write 함수를 사용 (큰따옴표로 묶인 문자열)

자료의 문자열을 큰따옴표가 있는 텍스트 파일로 쓴다.

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\test.txt"
fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.  
textData ="Hello World!"
Open fileName For Output As #fileNo
Write #fileNo, textData
Close #fileNo

Dim fileName As String, textData As String, textRow As String, fileNo As Integer

fileName = "C:\test.txt"

fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.

textData ="Hello World!"

Open fileName For Output As #fileNo

Write #fileNo, textData

Close #fileNo

이 프로그램의 실행결과는 다음과 같다.

"Hello, World!"

1	"Hello, World!"

문자열을 큰따옴표로 묶인다는 점을 잊지 말자.

[해법2] Print 함수를 사용 (큰따옴표가 없는 문자열)

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\test.txt"
fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.    
textData ="Hello World!"
Open fileName For Output As #fileNo
Print #fileNo, textData
Close #fileNo

Dim fileName As String, textData As String, textRow As String, fileNo As Integer

fileName = "C:\test.txt"

fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.

textData ="Hello World!"

Open fileName For Output As #fileNo

Print #fileNo, textData

Close #fileNo

이 프로그램의 실행결과는 다음과 같다.

Hello, World!

1	Hello, World!

아마도 Print함수를 쓸 경우가 많을 것이다.

[참고]
Excerpted from http://analystcave.com/vba-write-file-vba/

[vb]Tuple

March 11th, 2017

비주얼 베이직에서 투플

[dxf]AutoCAD DXF Reference

February 22nd, 2017

Product	Version	Size	Format
AutoCAD® 2014	v.u.28.1.01	1,114 KB	PDF
AutoCAD® 2013	v.u.27.1.01	1,114 KB	PDF
AutoCAD® 2012	v.u.26.1.01	1,112 KB	PDF
AutoCAD® 2011	v.u.25.1.01	844 KB	PDF
AutoCAD® 2010	v.u.24.1.01	842 KB	PDF
AutoCAD® 2009	v.u.23.1.01	1.72 MB	PDF
AutoCAD® 2008	v.u.22.1.01	1.80 MB	PDF
AutoCAD® 2007	v.u.21.1.01	1.07 MB	PDF
AutoCAD® 2006	v.u.20.1.01	1.73 MB	PDF
AutoCAD® 2005	v.u19.1.01	1.65 MB	PDF
AutoCAD® 2004	v.u18.1.01	1502 KB	PDF
AutoCAD® 2002	v.u16.1.01	1627 KB	PDF
AutoCAD® 2002	v.u16.1.01	494 KB	ZIP
AutoCAD® 2000	v.u15.0.02	n/a	HTML
		205 KB	EXE
		204 KB	ZIP
AutoCAD® Release 14	v.u14.1.04	n/a	HTML
		159 KB	EXE
		161 KB	ZIP
AutoCAD® Release 13	v.u13.1.01	97 KB	EXE
AutoCAD® Release 12		n/a	HTML
AutoCAD® Release 11		n/a	HTML
AutoCAD® Release 10		n/a	HTML

이상의 내용은 아래 사이트에 한꺼번에 정리되어 있다.
Excerpted from AutoCAD DXF Reference

[vba]파워포인트에서 자동으로 실행되는 프로시저들

January 9th, 2017

Excerpted from : AutoEvents Add-in for PowerPoint 2000 and later

Sub Auto_Open() – Gets executed immediately after the presentation is opened.
Sub Auto_Close() – Gets executed prior to the presentation is closed.
Sub Auto_Print() – Gets executed prior to the presentation being printed.
Sub Auto_ShowBegin() – Gets executed when the show begins.
Sub Auto_ShowEnd() – Gets executed when the show ends.
Sub Auto_NextSlide(Index as Long) – Gets executed before the slideshow moves onto the next slide.

[VBA]사용자정의함수에 대한 설명 보기

September 27th, 2016

http://stackoverflow.com/questions/14731675/is-there-a-way-to-make-udf-that-gives-a-description-like-the-native-excel-functi

Ctrl-Shift-A

[vb.net]Programming on Mac -1

February 17th, 2016

[Problem]
– 기존의 모든 vb파일에서 한글부분을 알아볼 수 없다.
– 소위 ‘한글이 깨졌다’

[Cause]
– 기존의 vb파일들이 모두 한글윈도에서 작성된 것이라 모두 cp949로 인코딩(encoding)되어있다.

[Solution]
– 맥 안에 있는 iconv 명령어를 이용하여 인코딩을 변환하여야 한다.

convert.sh을 다음과 같이 작성한다.

#!/bin/bash

# Recursive file convertion cp949 --> utf-8
# Place this file in the root of your site, add execute permission and run
# Converts *.vb files.
# To add file type by extension, e.g. *.cgi, add '-o -name "*.cgi"' to the find command

find ./ -name "*.vb"  -type f |
while read file
do
  echo " $file"
  mv $file $file.icv
  iconv -f cp949 -t UTF-8 $file.icv > $file
  rm -f $file.icv
done

#!/bin/bash

# Recursive file convertion cp949 --> utf-8

# Place this file in the root of your site, add execute permission and run

# Converts *.vb files.

# To add file type by extension, e.g. *.cgi, add '-o -name "*.cgi"' to the find command

find ./ -name "*.vb" -type f |

while read file

echo " $file"

mv $file $file.icv

iconv -f cp949 -t UTF-8 $file.icv > $file

rm -f $file.icv

done

[Reference]
https://gist.github.com/akost/2304819
Bash Programming
한글 배시 프로그래밍