흑두건엔터테인먼트

이미지삽입하기 VBA (크롭기능 추가)

Tue, 02 Feb 2010 22:49:38 +0900

Public Sub putimg()
Dim imgName As Variant ' 읽어올 파일명을 담을 변수는 반드시 Variant로 선언

imgName = Application.GetOpenFilename( _
filefilter:="모든그림,*.gif;*.jpg;*.jepg;*.jpeg;*.bmp;*.tif;*.wmf;*.png, " & _
"JEPG 파일,*.jpg;*.jepg;*.jpeg, " & _
"Gif 파일,*.gif,모든파일,*.*", Title:="삽입할 그림파일 선택") ' 읽을 텍스트 파일 선택 창

If imgName = False Then Exit Sub ' 파일을 선택하지 않은 경우 종료함

If imgName <> "" Then

ActiveSheet.Pictures.Insert(imgName).Select

Call 크기조정
End If
End Sub

Sub 크기조정()
Dim x As Integer, y As Integer

'그림의 크기를 조절하기위해 현재 셀의 너비와 높이를 기억시킴
x = ActiveCell.Width
y = ActiveCell.Height

' 삽입한 그림의 위치와 너비를 조정함.
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Width = x
.Height = y
End With

' 삽입한 그림의 크기가 셀 크기에 따라 조정되도록 지정
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
.ShapeRange.PictureFormat.CropLeft = 2.84
.ShapeRange.PictureFormat.CropRight = 2.84
.ShapeRange.PictureFormat.CropTop = 2.83
.ShapeRange.PictureFormat.CropBottom = 2.83
End With

End Sub

Visual Studio 2008 설치시 DefFactory.dat 에러시 대처 방법

Mon, 21 Dec 2009 15:24:09 +0900

C:\Document and Setting\Rok(시스템마다 다름, 보통 사용자 이름)\Local Settings\Temp\
안에 들어가면 비주얼스튜디오2008이 설치를 위해 만든 임시 폴더가 있다
에러화면에서 경로를 보여주는 데 거길 잘 따라 들어가면 된다

메모장을 열고,
deffactory.dat 파일을 메모장에서 연다
그리고 기존 내용을 모두 지우고
아래 내용을 복사해서 붙여넣는다.
그리고 저장한다
마지막으로 비쥬얼스튜디오2008 에러화면에서 나온 창에서 "다시시도"를 누른다
끝

[Version]
Signature="$Windows NT$"
Provider="Microsoft Visual Studio Team System 2008 Team Suite - KOR"
Version=900.100.00
NullString=Null String
Lang=2052

[Scenario List]
vsscenario.dll

[Scenario Factory Information]
Default Scenario=DECDD26F-5491-11d2-BEE7-00C04F797FB8

인터넷익스플로러8를 제거하고 ie6으로 복귀하는 방법

Tue, 24 Nov 2009 15:17:55 +0900

1. 프로그램 추가/제거에서 ie8 제거

2. cmd를 열고 %windir%\ie8\spuninst\spuninst.exe 입력

** Internet Explorer 8을 제거한 후, 다시 부팅할 때마다
응용 프로그램 이벤트 로그 오류가 나올때 해결방법 :

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\GPExtensions에서

{7B849a69-220F-451E-B3FE-2CB811AF94AE} {CF7639F3-ABA2-41DB-97F2-81E2C5DBFC5D} 키 삭제

윈도 xp에서 USB 자동실행 방지하기

Sat, 21 Nov 2009 12:14:20 +0900

1. gpedit.msc 으로 그룹 정책 실행

2. [컴퓨터 구성] - [관리 템플릿] - [시스템]을 선택

3. [자동 실행 사용 안 함]을 더블클릭하거나 오른쪽 버튼 누른 후 [속성] 선택

4. 자동 실행 사용 안 함 등록 정보에서 [사용] 선택하고 [모든 드라이브] 선택 (기본은 CD-ROM)

5. [자동 실행 사용 안함] 이 [실행] 중인지 확인

출처 : http://xcoolcat7.tistory.com/471

엑셀 VBA에서 셀 선택하는 방법

Thu, 19 Nov 2009 15:52:53 +0900

Visual Basic의 Flexibility 때문에 같은 작업을 여러가지의 다른 방법으로 수행할 수 있기 때문에, 이 예제는 가장 잘된 예라 할 수 없으며 단지 기술된 방법을 수행할 수 있는 한 예에 불과합니다.

여기서 예제 Visual Basic 방법(Method)으로 다음의 Table을 사용하였습니다.

< Method Table >

Method	Arguments
Activate	none
Cells	rowIndex, columnIndex
Application.Goto	reference, scroll
Offset	rowOffset, columnOffset
Range	cell1
Range	cell1, cell2
Resize	rowSize, columnSize
Select	none
Sheets	index (or sheetName
Workbooks	index (or bookName)
End	direction
CurrentRegion	none

< Property Table >

Property	Use
ActiveSheet	활성시트를 지정함
ActiveWorkbook	활성 워크북을 지정함
Columns.Count	지정된 아이템에서 열의 수를 구함
Rows.Count	지정된 아이템에서 행의 수를 구함
Selection	현재 선택된 범위를 지정함

1. 활성 Worksheet에서 셀을 선택하는 방법

활성Sheet의 D5를 선택하려면 다음의 예와 같이 쓸수 있음.

ActiveSheet.Cells(5, 4).Select

또는

ActiveSheet.Range("D5").Select

2: 같은 Workbook의 다른 Worksheet에서 셀을 선택하는 방법

동일 workbook의 다른 Sheet에서 Sheet2의 F2 Cell을 선택하려면 다음과 같이 한다.

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Cells(6, 5))

또는

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

또는, Sheet2를 활성화하여 1의 예제 처럼 셀을 선택할 수도 있다.

Sheets("Sheet2").Activate

ActiveSheet.Cells(6, 5).Select

3: 다른 Workbook의 Worksheet에서 셀을 선택하는 방법

다른 Workbook에서 BOOK.xls의 Sheet1의 F7 셀을 선택하려면 다음과 같이 할 수 있다.

Application.Goto _

(Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6))

또는

Application.Goto _

(Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7"))

또는 해당 Workbook(BOOK.xls)의 Worksheet(sheet1)을 활성화하여 2의 예제처럼 선택할 수 있다.

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate

ActiveSheet.Cells(7, 6).Select

4: 활성 Worksheet에서 셀범위를 선택하는 방법

활성 Sheet에서 C2:D10 범위를 선택하려면 다음과 같이 할 수 있다.

ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select

ActiveSheet.Range("C2:D10").Select

ActiveSheet.Range("C2", "D10").Select

5: 같은 Workbook내의 다른 Worksheet의 셀을 선택하는 방법

동일 Workbook내에서 다른 Worksheet의 범위 D3:E11를 선택하려면 다으과 같이 할 수 있다.

Application.Goto _

(ActiveWorkbook.Sheets("Sheet3").Range("D3:E11"))

Application.Goto _

(ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11"))

또는,해당 Worksheet를 활성화한 후 4의 예와 같이 할 수 있다.

Sheets("Sheet3").Activate

ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select

6: 다른 Workbook의 Worksheet의 셀법위를 선택하는 방법

다른 Workbook(BOOK2.xls)의 Worksheet(sheet1)의 범위 E4:F12를 선택하려면 다음과 같이 할 수 있다.

Application.Goto _

(Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12"))

Application.Goto _

(Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12"))

또는 해당 WorkSheet를 활성화한 후 4의 예와 같이 할 수도 있다.

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate

ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select

7: 활성 Worksheet의 이름으로 범위를 선택하는 방법

활성 Sheet에 "Test" 라고 이름이 붙여진 범위를 선택하려면 다음과 같이 할 수 있다.

Range("Test").Select

Application.Goto ("Test")

8: 같은 Workbook내의 다른 Worksheet에서 이름으로 범위를택하는방법

동일 Workbook 내의 다른 Sheet에서 "Test"라고 이름된 범위를 선택하려면 다음과 같이 할 수 있다.

Application.Goto (Sheets("Sheet1").Range("Test"))

또는 해당 Worksheet를 활성화 한 후 7의 예와 같이 할 수도 있다.

Sheets("Sheet1").Activate

Range("Test").Select

9: 다른 Workbook내의 Worksheet에서 이름으로 범위를 선택하는 방법

다른 Workbook(BOOK2.xls)의 Worksheet(sheet2)의 이름이 "Test"인 범위를 선택하려면 다음과 같이 할 수 있다.

Application.Goto _

(Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test"))

또는 해당 Workbook의 해당 Worksheet를 활성화 한 후 7의 예제와 같이 할 수도 있다.

Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate

Range("Test").Select

10: 활성셀에 대한 상대적으로 떨어진 위치의 셀을 선택하는 방법

아래의 예는 활성셀의 아래로 5칸 왼쪽으로 4칸을 이동하여 셀을 선택한다.

ActiveCell.Offset(5, -4).Select

아래의 예는 활성셀의 위로 두탄 오른쪽으로 3칸 이동하여 셀을 선택한다.

ActiveCell.Offset(-2, 3).Select

NOTE: Worksheet의 범위를 벗어난 셀을 선택하려고 하면 Error가 발생한다.

A ~ D열에 있는 셀에서 앞의 코드를 실행하면 왼쪽으로 4칸을 이동할 수 없기 때문에 Error가 발생한다.

11: 활성이 아닌 셀의 상대적으로 떨어진 위치에 있는 셀을 선택하는 방법

아래는 활성 Sheet의 C7에서 아래로 5칸(Row), 오른쪽으로 4칸(Column) 이동하여 셀을 선택하는 예:

ActiveSheet.Cells(7, 3).Offset(5, 4).Select

ActiveSheet.Range("C7").Offset(5, 4).Select

12: 지정된 범위로 부터 Offset된 위치의 셀범위를 선택하는 방법

"Test"라고 이름된 범위와 동일한 Size의 범위를 아래로 4칸(Rows), 오른쪽으로 3칸(Column) 이동하여 선택하는 예:

ActiveSheet.Range("Test").Offset(4, 3).Select

만약 해당이름의 범위가 다른 Worksheet에 있으면 우선 그 Sheet를 활성화하고 범위를 이동하여 선택한다.

Sheets("Sheet3").Activate

ActiveSheet.Range("Test").Offset(4, 3).Select

13: 지정된 범위를 선택하고 Resizing하여 선택하는 방법

다음 예는 "Database"란 이름의 범위를 선택하여 5칸(Rows)을 아래로 확장하는 예이다.

Range("Database").Select

Selection.Resize(Selection.Rows.Count + 5, _

Selection.Columns.Count).Select

14: 지정된 범위를 선택하고 Offset하고 Resizing하여 선택하는 방법
"Database"란 이름의 범위를 선택하고, 4칸(Row) 아래로, 3열 오른쪽으로 이동하여 2행과 1열을 더한 범위를 선택하는 예:

Range("Database").Select

Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _

Selection.Columns.Count + 1).Select

15: 두개 이상의 지정된 범위를 합하여(Union) 선택하는 방법

다음은 "Test"와 "Sample"이란 범위를 함께 병합하여 선택하는 예 :

Application.Union(Range("Test"), Range("Sample")).Select

주의 : Union()은 동일 Sheet의 범위에서만 적용이 된다.

다음의 예는 Error가 발생되지 않는다.

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))

그러나, 다음의 예는 "Union method of application class failed"라는 Error를 발생한다.

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))

16: 두개 이상의 지정된 범위의 Intersection(교집합)을 선택하는 방법

다음은 "Test", "Sample"이라는 두 범위가 교차되는 범위를 선택하는 예:

Application.Intersect(Range("Test"), Range("Sample")).Select

주의 : Intersection()은 모든 범위가 동일한 Worksheet에 있어야 작동된다.

<< 예제 17 ~ 21은 아래의 데이터를 참조한다. 각 예제는 샘플데이터를 참조하여 나타낸다. >>

	A	B	C
1	Name	Sales	Quantity
2	Ann	$10	5
3	Brown		10
4	Charly	$10	5
5
6	Total	$20	20

17: 한 열의 이웃하는 연속된 데이터 중에서 마지막 데이터셀을 선택하는 방법

다음은 연속된 한 열의 마지막 셀을 선택한다.

ActiveSheet.Range("A1").End(xlDown).Select

==> 샘플 테이블을 이용하면 A4를 선택하게 된다.

18: 한 열의 연속된 데이터 중에서 마지막 비어 있는 셀을 선택하는 방법

아래의 예는 연속된 데이터의 마지막 비어있는 셀을 선택한다.

ActiveSheet.Range("A1").End(xlDown).Offset(1,0).Select

==> 샘플 테이블을 이용하면 A5를 선택하게 된다.

19: 한 열에서 이웃하는 연속된 데이터 범위를 선택하는 방법

한 열에서 연속된 셀의 범위를 선택하려면

ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

또는

ActiveSheet.Range("a1:"&ActiveSheet.Range("a1"). _

End(xlDown).Address).Select

==> 샘플 테이블을 이용하여 이 코드를 실행하년 A1에서 A4가지 선택된다.

20: 한 열에서 이웃하지않는 모든 데이터 범위를 선택하는 방법

비연속적인 범위를 선택하려면 다음의 예를 이용한다.

ActiveSheet.Range("a1",ActiveSheet.Range("a16384").End(xlUp)).Select

또는

ActiveSheet.Range("a1:" & ActiveSheet.Range("a16384"). _

End(xlUp).Address).Select

==> 위의 샘플테이블을 이용하여 이 코드를 실행하면 A1부터 A6까지 선택된다.

21: 셀의 사방범위를 선택하는 방법

한 셀 주위의 사방의 범위를 선택하려면 CurrentRegion 방법을 사용한다. CurrentRegion방법에 의해 선택되는 범위는 빈 행(Row)과 빈 열(Column)에 의해 둘러 사이는 범위이다.

다음은 CurrentRegion 방법을 사용한 예이다.

ActiveSheet.Range("a1").CurrentRegion.Select

이 코드는 A1에서 C4의 범위를 선택한다. 아래의 다른 예들도 같은 범위를 선택한다.

ActiveSheet.Range("a1", _

ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select

또는

ActiveSheet.Range("a1:" & _

ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select

예로 샘플 테이블에서 A1 ~ C6 셀을 선택하려 할 때 이 예에서 CurrentRegion 방법으로는 5번째의 열이 비어 있기 때문에 목적을 달성할 수 없다.

다음의 예는 목적하는 범위를 선택할 수 있다.

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column

lastRow = ActiveSheet.Cells(16384, lastCol).End(xlUp).Row

ActiveSheet.Range("a1", _

ActiveSheet.Cells(lastRow, lastCol)).Select

또는

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column

lastRow = ActiveSheet.Cells(16384, lastCol).End(xlUp).Row

ActiveSheet.Range("a1:" & _

ActiveSheet.Cells(lastRow, lastCol).Address).Select

22. 길이가 다른 이웃하지 않는 열의 범위를 선택하는 방법
< Sample Table >

	A	B	C	D
1	1	1	1	1
2	2	2	2	2
3	3	3	3	3
4		4	4	4
5		5	5
6			6

StartRange = "A1"

EndRange = "C1"

Set a = Range(StartRange, Range(StartRange).End(xlDown))

Set b = Range(EndRange, Range(EndRange).End(xlDown))

Union(a,b).Select

이 코드를 sample table로 실행하면 cells A1:A3 and C1:C6 이 선택된다.

>>>>> 이 예제에서 특기사항<<<<<<<<

특정 Sheet의 이름이 사용되지 않으면 ActiveSheet property는 일반적으로 빼도 된다.

예로 다음의 코드 대신에

ActiveSheet.Range("D5").Select

아래의 코드를 사용할 수 있다.

Range("D5").Select

ActiveWorkbook property 역시 뺄수 있다.

특정 Workbook의 이름이 주어지지 않는 한 활성 Workbook이 적용된다.

Application.Goto method를 사용할 때, 특정범위가 다른 쉬트(비활성임)에 있을 때

Range Method에 두개의 Cells Method를 이용하고자 하면 매번 Sheet Object를 사용해야만 한다.

아래는 Cells Method를 사용한 예이다.

Application.Goto Sheets("Sheet1").Range( _

Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _

Sheets("Sheet1").Cells(4, 5)))

따옴표를 사용한 이름(예로 "Test"란 이름의 범위)에 문자로된(text string)

변수(variable)를 사용할 수 있다. 예를 들면

ActiveWorkbook.Sheets("Sheet1").Activate

대신에

ActiveWorkbook.Sheets(myVar).Activate

을 사용할 수 있다.

여기서 myVar는 "Sheet1"이 된다.

출처 : http://myhome.shinbiro.com/~leedew/xlbasic/range.htm#4

가로로 된 셀의 내용 합치기 VBA

Thu, 19 Nov 2009 16:11:31 +0900

Public Sub 가로내용합치기()

Dim MerCnt, i, j As Integer
Dim dwStr, dwStrfin As String

dwend = Range("A65500").End(xlUp).Row '마지막 데이터 번호 파악 (변경 필요)

For j = 1 To dwend                              '시작 셀 숫자 (변경 필요)
    Cells(j, 2).Select                             '시작 셀 숫자 (변경 필요)
    a = ActiveCell.Row
    b = ActiveCell.Column
    c = Cells(a, 256).End(xlToLeft).Column

    MerCnt = Application.WorksheetFunction. _
    CountA(Range(Cells(a, b + 1), Cells(a, c)))   'counta함수사용으로 쉼표갯수 결정(no변경)

    dwStr = ""
    dwStrfin = ""

    For i = 1 To MerCnt

        If MerCnt > i Then

            dwStr = dwStrfin & ActiveCell.Offset(0, i).Value '합쳐질 내용(no변경)
            dwStrfin = dwStr & ","
        Else
            dwStr = dwStrfin & ActiveCell.Offset(0, i).Value
            dwStrfin = dwStr
        End If
    Next i

    ActiveCell = dwStrfin

Next j

End Sub

Boot.ini 3GB 옵션 사용시 에러!

Wed, 21 Oct 2009 10:48:01 +0900

컴퓨터 메모리가 3GB 이상일 때,
제어판에 나타나는 메모리 용량은 실제와 다르게 나타난다.
4GB 메모리의 경우 윈도우 XP 32bit 제어판에서는 3.25GB로 표시된다.
이는 32bit 운영체제의 메모리 운영 한계 때문이라 한다.

이를 극복할 수 있는 방법으로
windows XP의 경우에는 boot.ini 파일을 열어
맨 마지막 줄에 /3GB 를 추가하여 주면 된다 하여 이를 실행하였는데,
다음과 같이 DVD재생 프로그램과 관련하여 문제가 발생되었다.

1. Inter Video WinDVD8 에서는 동영상이 갈라지거나, 울렁거리는 현상발생 함.
2. Corel WinDVD9에서는 온스크린 메뉴에서 떨림 현상이 발생하였으며,
화면 중간 중간 분홍색 화면 현상이 나타났음
3. PowerDVD는 DVD 재생이 아예 불가했음.

한참을 헤메다 원인이 3GB 였음을 알고,
Boot.ini 에서 삭제하였으며,
이내 정상 작동하였음.

인터넷 익스플로러 창크기 고정하기

Wed, 06 May 2009 21:26:52 +0900

요즘 와이드 모니터를 꾀나 많이 사용하다 보니..

화면을 최대화하기 보다는 적당한 크기로 지정해서 쓰는 경우가 많습니다.

하지만 종종... 웹서핑을 하다가.. 새로 열리는 창크기가 지정된 링크를 한번 열게고 난 후..

다음에 익스플로러를 새로 열면... 크기가 .. 작아지거나 커져서 가끔.. 짜증이...

아.. 와이드가 아니라도.... 마찬가지 겠지만요..

그럴경우 사용하는 방법입니다..

일단 사전 작업은.. Internet Explorer을 열고...

(혹시 모르니.. 처음 실행한 창 말고.. "Shift + 아무링크"를 누르면 새창이 뜹니다. 요걸로 합시다.)

적당히 마우스로 사용하고 싶은 크기로 조정후..

"Ctrl + 창닫기 버튼"으로 창을 닫습니다.

다시 인터넷 익스플로러를 실행해 보면.. 방금 닫았던 창 크기로 뜰겁니다..

이제 준비 완료 입니다...

이제 이 설정된 크기를 고정합니다..

(실행권한을 설정하는 거라.. 조금 번거롭습니다만..)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1. "시작" 버튼을 누른후

2. "실행(R)"을 클릭.

3. 아래의 키 값을 찾아감.

"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"

** 참고 : 일일이 찾아 들어가기 귀찮다면...

열린 "레지스트리 편집기"의 메뉴에서 "편집 - 찾기"에서 "AddToFavoritesExpanded"를

복사하시고 찾으면 됩니다.

(해당 위치에 있는 키값 중에 하나 입니다. 값을 건드리진 마세요;; 고칠건 다른거니..)

4. 해당 키 값을 찾았으면 왼쪽 폴더 트리 부분에 "Main"(참.고.의 내용을 따랐으면 왼쪽에 트리중에

main이라고 아이콘이 폴더가 열린 모양인게 있을 겁니다.)을 "마우스 오른쪽 클릭 - 사용권한(P)"

을 선택합니다.

**여기부터가 중요합니다~**

5. "Main의 사용권한"이란 창이 뜹니다.

다른건 다 제껴 두고~

오른쪽 아래에 있는 "고급(V)"버튼을 누릅니다.

6. "Main의 고급 보안 설정"창이 또 하나 뜰겁니다.

7. "사용 권한 항목" 부분 중에서.. "SYSTEM"과 "지금쓰고 있는 윈도우로그인 ID" 두가지 항목의

값을 다음과 같이 고칩니다.

8. 일단 "SYSTEM"을 더블 클릭 힙니다. (또 창이 뜹니다.)

체크박스가 세로로 주욱~ 있을 겁니다..

그 중에서 "값 설정"항목의 거부에 체크 하고 확인을 누릅니다.

** 9번은 하셔도 되고 안하셔도 됩니다.

** 자신의 ID까지 권한을 없애면, 자기가 마우스로 직접 끌어서 크기를 조절 후에 ..창을 닫아도

** 다음에 열때는 지정된 크기 그대로 뜨게 됩니다...

9. 8번에서 했던 걸 똑같이 "지금 쓰고 있는 윈도우 로그인 ID"항목에도 적용합니다.

** 참고 : ID만이 아니라 "ID (컴퓨터 이름\ID)" 이런 형식으로 되어 있을 겁니다. **

10. "왁인"을 눌러서 ~ 열렸던 창들을 다~ 닫습니다.

*****************************************************************************

창크기를 다시 바꾸고 싶으면..

사용권한을 변경할때, 7번에서 "사용 권한 항목"에 보시면 "종류"가 "거부"로 되있는 2개 항목이

추가 되어있을 겁니다.

이 두가지 항목을 삭제하시고.. 창크기를 다시 변경한다음..

1번부터 다시 하면 됩니다..

*****************************************************************************

참고로.. 창크기를 수치로 조절 하는 것도 가능합니다.

창이 뜨는 좌표도 조절 가능하구요..

"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" 안에 존재 하는 키중에

맨 아랫쪽에 있는 "Window_Placement"라는 값을 더블 클릭 하면 아래와 같은 창이 뜹니다.

번호: 16진수(Hex Code) 입니다.

** 값 변경 방법은 윈도우 계산기를 공학용으로 설정하셔서.. 원하는 값을 Hex 값으로 변환해서..

값을 바꾸시면 됩니다.

** 각각 값은 "00 00" 두자리 값이 두개가 한셋트입니다.

** 하지만 윈도우는 리틀 엔디언.. 이라.. 하여튼 그래서.. 값이 거꾸로 입니다.

** 접어 두고...;;

** 9999는 Hex로 변환하면 270F가 되지만 "0F 27" 이렇게 된다 이말 입니다.

** 3번의 값(창의 가로 크기)인 "AA 04"는 04AA(16진수) -> 1194(10진수)가 되는 겁니다..

이해 하셨으면 이제 값을 바꿉시다...

각 번호는...

1. 창이 뜨는 위치 가로축.

2. 창이 뜨는 위치 세로축.

-> 1번고 2번을 각각 0으로 설정 한 후..

사용자의 값 변환 권한 (위의 9번 내용)을 없애면.. 매번 제일 처음 뜨는 익스플로러 창의

위치는 (0,0)좌표.. 즉 화면 제일 좌측 맨위가 됩니다. (열린 창에서 뜨는 새창은... 조금 오른쪽

위치에 뜨게 됩니다.)

-> 사용자의 값 변환 권한이 있을 경우에는.. 이 값을 바꿔도 한번 밖에 효력이 없습니다..

새로 익스플로러를 실행해도 마지막 창을 닫은 위치에서.. 뜨게 됩니다..

3. 창 크기 가로.

4. 창 크기 세로.

-> 위 1,2 번과 마찬가지입니다.

사용자의 값 변환 권한이 있느냐 없느냐에 따라.....

출처 : Tong - mitaerang님의 pc & etc통

VBA에서 특수문자 넣는 법

Tue, 31 Mar 2009 12:37:05 +0900

비베 계열의 언어에서, Chr() 함수에, 특수문자의 10진수 아스키 코드 번호를 넣으면, 그 특수문자가 표현됩니다.

예를 들어, Chr(13) 이렇게 하면, 엔터(Enter)키가 표현됩니다. 엔터키의 아스키 코드가 13이기 때문입니다. 그래서 다음줄로 줄바꿈이 됩니다.

그리고 Chr(9) 이렇게 하면 "탭(Tab)"문자가 찍힙니다.

파일명: 0.vbs

MsgBox "첫 번째 줄" & Chr(13) & "두 번째 줄"

MsgBox "앞쪽 문장" & Chr(9) & Chr(9) & "뒤쪽 문장"

위의 코드를 0.vbs 라는 이름의 파일로 저장하고 클릭하면, 메시지 박스 2개가 나옵니다.

직접 입력하기 힘든 문자를, 위의 방법으로 간접적으로 표현합니다.

아래의 그림에 특수문자 코드 번호가 있습니다:

특수문자 코드표 (10진수 아스키 코드)

ASCII코드 보는 방법 : http://kr.blog.yahoo.com/dw2613/1080.html?=1&pm=l&tc=4&tt=1238470525

http://mwultong.blogspot.com/2006/12/vba-vbs-visual-basic-special-char.html

윈도에서 ASCII코드 보는 법

Tue, 31 Mar 2009 11:54:18 +0900

윈도2000/XP에는 QBASIC 이라는 도스용 베이직 프로그램이 있습니다. 이 안에 아스키 코드 테이블이 있는데, 윈도 환경에서는 보이지 않는 그래픽 문자도 여기서 볼 수 있습니다.

우선, 명령 프롬프트에서 chcp 437 이라고 쳐서 영문 모드로 바꾸어 줍니다. 그런 후, qbasic 이라고 입력하여 실행합니다.

큐베이직의 화면이 나올 것입니다.

< Press Enter to see the Survival Guide > 라는 곳에서 엔터키를 칩니다.

Contents 라는 곳에 커서를 놓고 엔터키를 칩니다

Quick Reference 라는 상자 속의 ASCII Character Codes 에서 엔터키를 칩니다.

다음의 화면이 나오는데, 이것이 그 유명한 아스키 코드입니다:

그림 속의 아스키 번호는 모두 십진수입니다. 176(십진수)번부터가 그래픽 문자입니다. 윈도우 환경에서는 그래픽 문자가 쓰이지도 않고, 잘 보이지도 않습니다. 명령 프롬프트 (CLI), 즉 도스창 환경에서도 영문 모드일 때만 보입니다. 왜냐하면 그래픽 문자를 2개씩 짜맞추서 한글 1자를 표현하기 때문입니다.

다시 한글 모드로 돌아오는 명령은 chcp 949 입니다