Option Explicit Sub LoadKoreanLanguage() sProductname = GetProductname sOK = "~확인" sCancel = "취소" sColumnHeader = "열 머리글" sInsertStockName = "주식 종목을 삽입해주십시오." sTitle = "<PRODUCTNAME>: 주식 매수" sTitle = ReplaceString(sTitle, sProductName, "<PRODUCTNAME>") sMsgError = "입력 오류" sMsgNoName = sInsertStockname sMsgNoQuantity = "0 이하의 매수를 입력해주십시오." sMsgNoDividend = "한 주당 배당분 또는 총배당분을 입력해주십시오." sMsgNoExchangeRate = "정확한 환율을 입력해주십시오 (구주를 신주로 소급 시)." sMsgNoValidExchangeDate = "유효한 배당 결제일을 입력해주십시오." sMsgWrongExchangeDate = "배당 기준일이 경과하여 배당할 수 없습니다." sMsgSellTooMuch = "이렇게 많은 주식을 팔 수 없습니다. 최대 매도수: " sMsgConfirm = "확인 필요" sMsgFreeStock = "공짜 주식을 입력하시겠습니까?" sMsgTotalLoss = "주가 폭락세를 입력하시겠습니까?" sMsgAuthorization = "안정성 조회" sMsgDeleteAll = "모든 주가 움직임을 삭제하고 계좌 현황을 원래대로 하시겠습니까?" cSplit = "주식 배당일 " sHistory = "내역" TransactTitle(1) = "주식 관리: 주식 매도" TransactTitle(2) = "주식 관리: 주식 매수" StockRatesTitle(1) = "주식 관리: 배당금 지불" StockRatesTitle(2) = "주식 관리: 주식 배분" StockRatesTitle(3) = sHistory sDepotCurrency = "주식 계좌 통화" sStockName = "주식 종목명" TransactMode = LIFO ' Possible values: "FIFO" and "LIFO" DateCellStyle = "결과, 날짜" CurrCellStyle = "1" sStartDate = "매매일:" sEndDate = "만기일:" sStartUpWelcome = "이 템플릿을 사용하여 주식 투자 관리를 효율적으로 할 수 있습니다." sStartUpChooseMarket = "인터넷 업데이트를 위해 우선 관련 통화와 증권 장소를 선택하십시오." sStartUpHint = "<내역> 기능은 미국 시장용으로만 사용할 수 있습니다." sStartupHint = ReplaceString(sStartUpHint, sHistory, "<History>") sNoInternetUpdate = "인터넷 업데이트 없음" sMarketPlace = "증권 장소:" sNoInternetDataAvailable = "인터넷 시세는 받을 수 없었습니다." sCheckInternetSettings = "원인: <BR> 인터넷 설정을 점검해야만 합니다.<BR> 옳지 않은 암호<예를 들어 잘못된 문자 또는 종목 코드>를 입력했습니다." sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), "<BR>") sMsgEndDatebeforeNow = "만기일은 오늘 날짜 전에 기입되어야 합니다." sMsgStartDatebeforeEndDate = "매매일은 만기일 전에 기입되어야 합니다." sMarket(0,0) = "미국 달러" sMarket(0,1) = "$" sMarket(0,2) = "뉴욕" sMarket(0,3) = "http://quote.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv" sMarket(0,4) = "http://table.finance.yahoo.com/table.csv?" &_ "a=<StartMonth>&b=<StartDay>&c=<Startyear>&d=<EndMonth>&" &_ "e=<EndDay>&f=<Endyear>&s=<StockID>&y=0&g=<interval>&ignore=.csv" sMarket(0,5) = "기호" sMarket(0,6) = "en" sMarket(0,7) = "US" sMarket(0,8) = "409" sMarket(0,9) = "44" sMarket(0,10) = "1" sMarket(1,0) = "유로" sMarket(1,1) = chr(8364) sMarket(1,2) = "프랑크푸르트" sMarket(1,3) = "http://de.finance.yahoo.com/d/quotes.csv?s=<StockID>.F&f=sl1t1c1ghpv&e=.csv" sMarket(1,5) = "WKN" sMarket(1,6) = "de;nl;pt;el" sMarket(1,7) = "DE;NL;PT;GR" sMarket(1,8) = "407;413;816;408" sMarket(1,9) = "59/9" sMarket(1,10) = "1" sMarket(2,0) = "영국 파운드" sMarket(2,1) = "£" sMarket(2,2) = "런던" sMarket(2,3) = "http://uk.finance.yahoo.com/d/quotes.csv?s=<StockID>.L&m=*&f=sl1t1c1ghov&e=.csv" sMarket(2,5) = "기호" sMarket(2,6) = "en" sMarket(2,7) = "GB" sMarket(2,8) = "809" sMarket(2,9) = "44" sMarket(2,10) = "1" sMarket(3,0) = "엔화" sMarket(3,1) = "¥" sMarket(3,2) = "도쿄" sMarket(3,3) = "" sMarket(3,5) = "코드" sMarket(3,6) = "ja" sMarket(3,7) = "JP" sMarket(3,8) = "411" sMarket(3,9) = "" sMarket(3,10) = "" sMarket(4,0) = "홍콩 달러" sMarket(4,1) = "HK$" sMarket(4,2) = "홍콩" sMarket(4,3) = "http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>.HK&f=sl1d1t1c1ohgv&e=.csv" sMarket(4,5) = "번호" sMarket(4,6) = "zh" sMarket(4,7) = "HK" sMarket(4,8) = "C04" sMarket(4,9) = "44" sMarket(4,10) = "1" sMarket(5,0) = "호주 달러" sMarket(5,1) = "$" sMarket(5,2) = "시드니" sMarket(5,3) = "http://au.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv" sMarket(5,5) = "기호" sMarket(5,6) = "en" sMarket(5,7) = "AU" sMarket(5,8) = "C09" sMarket(5,9) = "44" sMarket(5,10) = "1" ' ****************************End of the default subset********************************* CompleteMarketList() LocalizedCurrencies() With TransactModel .lblStockNames.Label = sStockname .lblQuantity.Label = "수량" .lblRate.Label = "시세" .lblDate.Label = "배당 결산일" .hlnCommission.Label = "기타 지출" .lblCommission.Label = "수수료" .lblMinimum.Label = "최저 수수료" .lblFix.Label = "약정 금액/기타 경비" .cmdGoOn.Label = sOK .cmdCancel.Label = sCancel End With With StockRatesModel .optPerShare.Label = "배당분/주" .optTotal.Label = "배당분 합계" .lblDividend.Label = "금액" .lblExchangeRate.Label = "환율(구주->신주)" .lblColon.Label = ":" .lblDate.Label = "환율일자" .lblStockNames.Label = sStockname .lblStartDate.Label = sStartDate .lblEndDate.Label = sEndDate .optDaily.Label = "~매일" .optWeekly.Label = "~매주" .hlnInterval.Label = "기간" .cmdGoOn.Label = sOk .cmdCancel.Label = sCancel End With End Sub