10 seconds view

변경 사항  - 환율 추가  - PBR 추가 악재: 경기 침체로 인한 주식 투자 거래 감소 호재: 증권거래세 0.23% -> 0.20% 가능성 있음(단타에 유리) 신기한 점은 대신증권2우B는 보통주와 배당금이 동일 대신증권우만 50원 더 주기에 배당률이 제일 높게 예상됨 대부분의 증권사가 연말배당을 한 다는 것은 아쉬운 점

arr = [1, 2, 3, 5, 7, 11, 13, 17, 19, 23] a = 15 for i in range(len(arr)):     for j in range(i+1, len(arr)):         if arr[i] + arr[j] == a:             print(arr[i], arr[j])         elif arr[i] + arr[j] < a:             for k in range(j+1, len(arr)):                 if arr[i] + arr[j] + arr[k] == a:                     print(arr[i], arr[j], arr[k])                 elif arr[i] + arr[j] + arr[k] < a:                     for l in range(k+1, len(arr)):                         if arr[i] + arr[j] + arr[k] + arr[l] == a:                             print(arr[i], arr[j], ar...

드디어 효성이 8만원 밑으로 내려왔네. 기관은 한 달 동안 매수하고 있고, 외인은 2주 동안 매도하고 있고, 나는 8만원 밑으로 오길 기다리고 있고, 월요일 외인이 매수로 돌아서면 나도 분할매수 고고~

Sub stock_v3() 'v1 today stock price 'v2 timer 'v3 exchange rate          Dim ie As InternetExplorer     Dim strURL As String     Dim i As Integer     Dim start_time As Single     Dim end_time As Single          start_time = Timer          Range(Range("D3"), Range("D3").End(xlDown)).ClearContents     For i = 3 To Range("C1000").End(xlUp).Row              Set ie = CreateObject("InternetExplorer.application")         strURL = "https://finance.naver.com/item/coinfo.nhn?code=" & Range("C" & i)         ie.Navigate strURL         ie.Visible = False         Do While (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True)             DoEvents         Loop         Application....

은행주들이 배당률이 좋음 근데 왜 사고 싶다는 생각은 안들지? 금리도 올라가고 있는데~ 좀 더 세부 분석을 해 봐야겠음 

위의 2개의 그래프로 추정을 해보면, 맨 아래 선 교차점인 46,000 ~ 48,000원에서 반등하지 않을까 생각됨 이미지 출처: 네이버 금융

부국증권만 '22년 예상 배당금 정보가 없어 '21년 배당금으로 기재 증권사 배당률도 나쁘지 않네 악재: 경기 침체로 인한 주식 투자 거래 감소 호재: 증권거래세 0.23% -> 0.20% 가능성 있음 세금 0.03% 낮아진다고 해서 주식 거래량 얼마나 늘어나겠어. 단타 치시는 분들에게는 상당히 호재일 듯 지속 update 중이라 오타 및 잘못된 정보 많음 확실히 여윳돈으로 배당 투자를 하니 하락장에도 마음이 편함 

Sub stock_v2()     Dim ie As InternetExplorer     Dim strURL As String     Dim i As Integer     Dim start_time As Single     Dim end_time As Single          start_time = Timer  '시작 시각          Range(Range("D3"), Range("D3").End(xlDown)).ClearContents     For i = 3 To Range("C1000").End(xlUp).Row         Set ie = CreateObject("InternetExplorer.application")         strURL = "https://finance.naver.com/item/coinfo.nhn?code=" & Range("C" & i)         ie.Navigate strURL         ie.Visible = False         Do While (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True)             DoEvents         Loop         Application.Wait (Now + TimeValue("00:00:01"))  '1초 대기         R...

요즘 상가투자 절대 하지 말라는데~ 차라리 리츠 투자도 나쁘지 않을 거 같음 우리 동네만 봐도 임대 붙여 논 게 상가가 엄청 많음 에이리츠 - 매출 떨어졌음 매력적이지 않음 코람코에너지리츠 - 좋아 보임 정보를 계속 모으는 중이라 뭐라 결론 짓기 뭐하지만~ 맥쿼리인프라 - 기름값 비싸면 사람들이 고속도로 덜 탈 거라 생각됨 신한서부티앤디리츠 - 대통령 집무실까지 2km인데 영향이 있는지 모르겠음

Sub exchange_rate()     Dim ie              As InternetExplorer     Dim strURL        As String     Set ie = CreateObject("InternetExplorer.application")     strURL = "https://search.naver.com/search.naver?where=nexearch&sm=top_hty&fbm=1&ie=utf8&query=%ED%99%98%EC%9C%A8"     ie.navigate strURL     ie.Visible = False     Do While (ie.readyState <> READYSTATE_COMPLETE Or ie.Busy = True)         DoEvents     Loop     MsgBox ie.document.getElementsByTagName("strong")(16).innerText     ie.Quit     Set ie = Nothing End Sub