SI개발자 지킴이 무릎치기

부동산 실거래가 자료를 기록하기 시작했습니다. 버전이 2007이다 보니 동적 레전드 기능이 안되서 vba로 작성했습니다. 생각나는대로 기능위주로 만들다보니 Module화랑 Interface가 빈약한 점은 추후 개선해보도록 하겠습니다. 파일은 주요 아파트가 기록이 되어있기에 삭제되는대로 첨부하겠습니다.

' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2021-03-25             Initial Release
' **************************************************************************
'Force the explicit declaration of variables
Option Explicit
Sub add_Click()
    Call add    '계열 추가 호출
End Sub
Sub del_Click()
    Call del '계열 삭제 호출
End Sub
Sub copy_Click()
    Call copyRange  '범위 복사 호출
End Sub
Sub copyNm_Click()
    Call copyNm     '이름 복사 호출
End Sub
Sub init_Click()
    Call initialize '초기화 호출
End Sub
Sub sort_Click()
    Call sortRoi    '수익률 정렬
End Sub


'계열 추가
Private Sub add()
    'ActiveChart.PlotArea.Select
    If ActiveChart Is Nothing Then
        MsgBox "차트를 선택해주세요", vbExclamation, "Chart"
        Exit Sub
    Else
    End If
    
    Dim lngSerCnt, lngLastRow As Long
    Dim strDel As String
    Dim strAddSrs As String
    lngSerCnt = ActiveChart.SeriesCollection.Count + 1
    
    strDel = Trim(ActiveSheet.OLEObjects("txtDel").Object.Text)
    'strDel = Replace(strDel, Chr(10), "") 'vbLf
    'strDel = Replace(strDel, Chr(13), "") 'vbCr
    If strDel = "" Then
        MsgBox "추가할 계열명을 입력해주세요", vbExclamation, "Chart"
        Exit Sub
    End If
    
    strAddSrs = Trim(ActiveSheet.OLEObjects("txtAddSrs").Object.Text)
    If strAddSrs = "" Then
        MsgBox "계열범위를 복사해주세요", vbExclamation, "Chart"
        Exit Sub
    End If
    
    'lngLastRow = Cells(1, 1).End(xlDown).Row
    'MsgBox lngLastRow
    
    Application.ScreenUpdating = False
    ActiveChart.SeriesCollection.NewSeries
    'ActiveChart.SeriesCollection(lngSerCnt).Name = "=서울!$D$2"
    ActiveChart.SeriesCollection(lngSerCnt).Name = strDel
    'ActiveChart.SeriesCollection(lngSerCnt).Values = "=서울!$D$3:$D$22"
    ActiveChart.SeriesCollection(lngSerCnt).Values = "=서울!" & strAddSrs & ""
    'Call initialize '초기화 호출
    Application.ScreenUpdating = True
End Sub

'계열 삭제
Private Sub del()
    'Declare the variables
    Dim lngSerCnt As Long
    Dim strDel As String
        
    'ActiveChart.PlotArea.Select
    If ActiveChart Is Nothing Then
        MsgBox "차트를 선택해주세요", vbExclamation, "Chart"
        
        Exit Sub
    Else
    End If

    'MsgBox ActiveSheet.OLEObjects("txtDel").Object.Value, vbExclamation, "Chart"
    strDel = Trim(ActiveSheet.OLEObjects("txtDel").Object.Text)
    strDel = Replace(strDel, Chr(10), "") 'vbLf
    strDel = Replace(strDel, Chr(13), "") 'vbCr
    strDel = Trim(strDel)
    'MsgBox strDel, vbExclamation, "Chart"

    If strDel = "" Then
        MsgBox "삭제할 계열명을 입력해주세요", vbExclamation, "Chart"
        Exit Sub
    End If

    Application.ScreenUpdating = False
    
    With ActiveChart
     DoEvents
        For lngSerCnt = .SeriesCollection.Count To 1 Step -1
            If .SeriesCollection(lngSerCnt).Name = strDel Then .SeriesCollection(lngSerCnt).Delete
        Next lngSerCnt
    End With
    Call initialize '초기화 호출
    Application.ScreenUpdating = True
End Sub

'초기화
Private Sub initialize()
    ActiveSheet.OLEObjects("txtDel").Object.Text = ""
    ActiveSheet.OLEObjects("txtAddSrs").Object.Text = ""
End Sub

'이름 복사
Private Sub copyNm()
    Dim strSelRng As String 'Selection.Address
    
    If ActiveChart Is Nothing Then
        strSelRng = Selection.Text
        If strSelRng = "" Then
            MsgBox "선택하신 계열명이 공백입니다.", vbExclamation, "Chart"
            ActiveSheet.OLEObjects("txtDel").Object.Text = ""
            Exit Sub
        End If
        ActiveSheet.OLEObjects("txtDel").Object.Text = strSelRng
    Else
        
        MsgBox "계열명을 선택해주세요", vbExclamation, "Chart"
        ActiveSheet.OLEObjects("txtDel").Object.Text = ""
        Exit Sub
    End If

End Sub

'범위 복사
Private Sub copyRange()
    'Range("서울").CurrentRegion.Copy
    Dim strSelRng As String 'Selection.Address
    
    If ActiveChart Is Nothing Then
        strSelRng = Selection.Address
        ActiveSheet.OLEObjects("txtAddSrs").Object.Text = strSelRng
    Else
        MsgBox "복사할 범위를 선택해주세요", vbExclamation, "Chart"
        ActiveSheet.OLEObjects("txtAddSrs").Object.Text = ""
        Exit Sub
    End If
End Sub

'수익률 정렬
Private Sub sortRoi()
    Dim strSelCell As String '선택셀
    Dim LastRow As Long
    Dim rngSort As Range '정렬범위
    strSelCell = ActiveCell.Address
   
    Worksheets("ROI").Range("A1").EntireColumn.EntireRow.Clear 'Sheet(ROI) 초기화
    
    'Copy
    Worksheets("서울").Range("A2").EntireRow.Select
    Selection.Copy
    Sheets("ROI").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    
    Worksheets("서울").Activate
    Worksheets("서울").Range(strSelCell).EntireRow.Select
    Selection.Copy
    Sheets("ROI").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    'Delete empty rows
    Columns("B").SpecialCells(4).EntireRow.Delete
    Columns("A:A").EntireColumn.AutoFit
    
    Range(Range("A1", "B1"), Range("A1:B1").End(xlDown)).Select
    Set rngSort = Selection
    
    ActiveWorkbook.Worksheets("ROI").Sort.SortFields.Clear
    'ActiveWorkbook.Worksheets("ROI").Sort.SortFields.add Key:=Range("B2:B11"),
    ActiveWorkbook.Worksheets("ROI").Sort.SortFields.add Key:=Range("B2", Range("B2").End(xlDown)), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ROI").Sort
        '.SetRange Range("A1:B11")
        .SetRange rngSort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    'cell형식: 비율
    Range("B2", Range("B2").End(xlDown)).Select
    Selection.Style = "Percent"
    
    '테두리
    rngSort.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
    '제목 가운데 정렬
    Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    Range("A1").Select

End Sub

메인pc의 속도를 향상시키기 위해 보조pc에 인터넷뱅킹, 결제 보안프로그램 등을 옮겼습니다.

여전히 Microsoft Edge의 첫 실행속도가 느려서 작업관리자를 실행시켜보니 Miscroft Edge(16) 이런식으로 뜨네요. 검색을 통해 윈도우10 최적화(백그라운드앱, 개인설정, 잠금화면 등)를 실행해도 안됐는데, IT STORYs님의 블로그를 보고 해결했네요.

어느정도 빨라졌는지는 계속 지켜봐야겠지만 일단 괄호안의 숫자는 줄어들었습니다. (16)에서 (5)정도로요. 

1. 명령어창에서 gpedit.msc 입력

2. 로컬 컴퓨터 정책-컴퓨터 구성-관리 템플릿-Windows 구성 요소 - Microsoft Edge

(1) Windows 시작시, 시스템이 유효상태일때, Microsoft Edge가 닫힐 때마다 Microsoft Edge를 사전 실행할 수 있습니다: 사용-사전실행금지

(2) Windows 시작 시와  Microsoft Edge가 닫힐 때마다 Microsoft Edge에서 시작 및 새 탭 페이지를 시작하고 로드하도록 허용합니다: 사용-탭 미리 로드 방지

나중에 포맷했을때 참조하기 위해 기록해 놓습니다. 추가 내용은 하단 링크를 통해 조회가능합니다.

※ 관련 링크(제목 클릭)

1. "Windows 10 작업관리자에서 "Microsoft Edge (5)" 백그라운드 프로세스 제거하기" (IT STORYs, 2019)

2. "윈도우10 시작시 엣지 자동실행 끄는 방법" (PG, 2020)

Selena Gomez와 협업한 노래 Ice Cream의 뮤직비디오 잘만들었네요. 즐감하세요.

개인적으로는 아래의 비공식 편집버젼이 더 마음에 듭니다. Minaj말고는 셋이 협업한 것처럼 너무 자연스럽네요.

※ 관련 링크(제목 클릭)

1. "블랙핑크, 5억뷰 MV 통산 10번째…'아이스크림' 추가 [공식]" (한국경제, 2021)

2. "블랙핑크, 신곡 ‘아이스크림’ 공개···“셀레나 고메즈와의 협업 굉장히 만족”" (경향신문, 2020)

3. "Fans Can't Stop Comparing Blackpink & Selena Gomez's "Ice Cream" To "Sweetener""(Bustle, 2020)

기존에 사용하던 pc에 윈도우7, 윈도우8이 설치되어있다보니 포맷하고 윈도우10을 설치할 일이 많아집니다.

여러번 하면서도 매번 오류를 만나면 당황해서 삽질을 하게되는데, 이 오류도 그중 하나이기에 시간 낭비를 하지 않도록 정리해둡니다.

* 오류: 새 파티션을 만들지 못했습니다.

* 원인: 디스크 형식이 맞지 않음.

* 해결: MBR을 GPT로 변경하였습니다.

명령어창에 진입하려면 shift+F10을 누르면 됩니다. 저는 이걸 몰라서, 윈도우 7(cd버전)을 다시 설치했네요 ㅡㅡ;;;

1. Shift + F10

2. >diskpart

3. DISKPART>list disk

4. DISKPART>select disk 0

5. DISKPART> clean

6. DISKPART> convert gpt

7. DISKPART> exit

※ 관련 링크(제목 클릭)
1. "새 파티션을 만들지 못했습니다 오류 해결방법" (새담킴, 2020)

2. "윈도우7 설치 시 선택한 디스크가 GPT 파티션 스타일 입니다. 문제 해결 방법" (후바스탱크, 2015)

3. "컴퓨터 PC 포맷 후 윈도우10 설치하는 방법 (자세한 과정)" (친절한효자손, 2019)

삼성 DM301S3B(2014.05)모델

4. "삼성노트북(NT370R5E) secure boot violation 에러가 나올때" (홍실장, 2021) -- secure boot off, os mode: csm으로 설정하고 부팅순서를 usb 가 위로 오게.

5. "윈도우8 윈도우7 다운그레이드 설치 방법 - csm os" (얼마니의 머니모니 ?, 2014) -- csm으로 부팅했을 경우,,,파티션 문제 발생시 재부팅하면 해결

https://m-sooriya.tistory.com/865

한줄요약: 녹스-Tools-설정-개발자옵션-하드웨어 가속렌더링-GPU 렌더링 강제설정: On

스마트폰도 앱을 많이 깔다 보면 느려진다. 용량도 부족하고, 저사양 스마트폰이라서 앱설치를 자제하는데.

쿠팡플레이가 드디어 스마트TV에서도 설치가능하다고 나온다.

이미 와이프가 쿠팡와우에 가입한 상태라, 추가요금없이 불 수 있다는 마음에 설치를 하고 보니.

스마트폰에서 앱을 실행한후 기기추가를 해줘야 한다고 나오네요 ㅡㅡ;;;

그래서, Nox전용으로 쓰기 위해 새로 포맷해놓은 데스크탑으로 가서, 녹스를 설치하고 쿠팡플레이를 실행.

역시나 첫실행에 성공은 안됨.

검색해보니 다양한 방법들이 보였으나, 페이보릿님이 안내해주신 방법을 적용하니 로그인 성공.

앱은 쿠팡, 쿠팡플레이 2개를 다 설치해야합니다.

녹스-Tools-설정-개발자옵션-하드웨어 가속렌더링-GPU 렌더링 강제설정: On

설정에서 개발자옵션이 안보이면 태블릿정보-빌드번호를 연속 클릭.

※ 관련 링크(제목 클릭)

1. "녹스 앱플레이어 다운로드 최적화 하는법" (페이보릿, 2020)