Skip to content

Instantly share code, notes, and snippets.

View Kyeongrok's full-sized avatar

Kyeongrok Kim Kyeongrok

156 followers · 7 following
View GitHub Profile
@Kyeongrok
Kyeongrok / sales_report.md
Created January 20, 2018 07:28 
Sub main()
    db시트명 = Sheets("report").Range("a2").Value
    Call init(db시트명, "filter")
    '조건 입력
       
    lastRow = 1
    spaceRow = 7
@Kyeongrok
Kyeongrok / advancedSort.md
Created January 20, 2018 07:21 
Sub main_advanced_filter()
    Sheets("filter").Range("a9:d10000").ClearFormats
    Call advancedFilter
    정렬조건 = Sheets("filter").Range("b5").Value
    Call sort(정렬조건)
    
    'Sheets("report").Range("a1").Value = Sheets("filter").Range("a8").CurrentRegion
    
End Sub
@Kyeongrok
Kyeongrok / week1_loop.md
Created November 25, 2017 07:30 
Sub main_print_data()
    Cells.Clear
    Call 출력_월
End Sub

Sub 출력_월()
    '행, 열
    
 For 열 = 1 To 12
@Kyeongrok
Kyeongrok / week6.md
Created November 25, 2017 03:49 
function myFunction() {
  var url = 'https://docs.google.com/spreadsheets/d/11SMQaAogdTzr4AzyAyqa7H1kjEXhp286KRFOFQ_XOzA/edit#gid=0';
  var spredSheet = SpreadsheetApp.openByUrl(url);
  var baseSheet = spredSheet.getSheetByName("base");
  baseSheet.getRange('a1:e1').setValue("안녕하세요");
  baseSheet.getRange('a2:e2').setValue("안녕히가세요");
  var targetSiteUrl = 'http://www.r114.com/z/real/m_detail.asp?only=0&m_=5&g_=&type_m=m&addr1=%BC%AD%BF%EF%C6%AF%BA%B0%BD%C3&addr2=%B0%AD%B3%B2%B1%B8&addr3=%BF%AA%BB%EF%B5%BF&type_g=A&type_cd=03%5E05%5E&mpl=15000&mph=16000&SF_PKVal=6&SF_Size=0&rNumber=8051&lst=ml&mkind=30&aptcode=G01011350800030&mulcode=30BB0F25607876&housingtype=77.77&areasize=00023&sizetype=D';
  baseSheet.getRange('a3:e3').setValue(targetSiteUrl);
@Kyeongrok
Kyeongrok / appsScriptRegular.md
Created November 24, 2017 14:48 
function myFunction() {
  // 1. 새로 만든 구글 스프레드시트의 인터넷 주소(URL)를 지정
  var url = "https://docs.google.com/spreadsheets/d/1aRz9Jp5-LH-ocqPz03CgagYFns-rOE9MLp_-fHfBHTE/edit#gid=1721336146";
  var spredSheet = SpreadsheetApp.openByUrl(url);
  
  // 2. 날짜 생성하기
  var d = new Date();
  var targetName = Utilities.formatDate( d, 'GMT', 'yyyyMMdd');
@Kyeongrok
Kyeongrok / advanced_manual.md
Created November 11, 2017 07:01 
Sub main_advanced()
    Sheets("filter").Range("A8:Z10000").Clear
    Call advancedFilter(1)
End Sub

Sub main_advanced_2()
    Sheets("filter").Range("A8:Z10000").Clear
    Call advancedFilter(2)
End Sub
@Kyeongrok
Kyeongrok / 2007.md
Created November 8, 2017 13:52 
Sub drawChart(p_시트명, p_범위, chartTitle, tickLabelSpacing)
    'On Error Resume Next
    Sheets(p_시트명).Select
    
    If Sheets(p_시트명).ChartObjects.Count > 0 Then
        Sheets(p_시트명).ChartObjects.Delete
    End If
    
    '2007은 12.0 365 는 16.0
@Kyeongrok
Kyeongrok / advanced_ver1.md
Created November 4, 2017 06:27 
Sub main_advanced_filter()
    Call advancedFilter("list!A1:D37")
End Sub

Sub 조건1()
    Sheets("filter").Range("a2").Value = "*요양*"
    Call advancedFilter("list!A1:D37")
End Sub
@Kyeongrok
Kyeongrok / excel2010under.md
Last active October 23, 2017 13:21 
' http://cocosoft.kr/442를 참고 했습니다
Private 인터넷익스플로러 As InternetExplorer
Sub main()
    'IE 객체 작성
    Set 인터넷익스플로러 = CreateObject("InternetExplorer.Application")
    검색어 = ENCODEURL("맛집")
    페이지주소 = "https://search.naver.com/search.naver?where=nexearch&sm=top_hty&fbm=1&ie=utf8&query=" & 검색어

    인터넷익스플로러.Visible = True
@Kyeongrok
Kyeongrok / sub_param.md
Created September 30, 2017 05:18 
Sub main()
    Call 출력_안녕하세요
    Call 출력_안녕히가세요
    Call 출력_메세지("hello")
    Call 출력_누구_메세지("김경록", "bye")
End Sub

'파라메터가 2개인 서브루틴 만들기
Sub 출력_누구_메세지(p_누구, p_메세지)