반응형

2024/09 9

무빙워터 고명환님 유튜브 인사이트

https://youtu.be/P8coVJhyxK4?si=O0kn5OyNTyieyobl 꿈을 크게 갖되, 그 꿈을 이루기 위한 현실을 실천하자 ex) 500억 메밀국수 식당을 만들거다! -> 현실은, 주방 3-4평짜리 육수 가공 2통밖에 안됨.실제로 작년에 육수공장을 먼저 차림. -> 크게 갖되, 그에 맞는 현실적인 현재 할 수 있는 방안을 도출. 다른 의미로, 블로그같은 작업도 좋지만, 더 큰 사업영역을 위한, 큰 가치를 위한걸 먼저 생각하고.그를 위한 현실적인 스텝을 밟아야겠다라는 생각. 현재 사업에서, 극N이었던 나는, 현실적인 요소들을 1-2년 정도 전부터 실천하고 있다. (*고명환님과 비슷한 스텝이라고 봄.) 사람도 좋지만, '시스템'이 기반이 & 반영이 된 체계를 만들자.

카테고리 없음 2024.09.27

죽음, 그리고 한국의 장례 및 제사 문화.

https://youtu.be/rlsYICnqbdg?si=LMXOhxoWfiP2ani4 유현준 건축가님의 인사이트는 정말이지 최고다 ㅎㅎ ‘공간’이라는 유형적인 형태를 여러 의미에서 좋아하는 나라서 더 와닿는게 있는 것도 같고. 아무튼, 제사를 아직 지내는 우리 집 특성상, 극혐하는 나였는데. 그러면서 ’죽음‘에 대한 생각은 진중하게 하고자 하는 나이다. 그래서 마냥 어쩔 수 없이 지내야하는 제사라고 한다면, ‘죽음’에 대해서 생각해보는 의미로 성스러운 시간으로 접근을 해야겠다라는 생각. 그리고 처음 해본 생각인데, 우리나라는 사회적인 특성상 납골당이 들어서는걸 굉장히 꺼린다. 집값, 부정적인 시각 등이 있다보니. 그러다보니, ’죽음’이라는 거에 대해서 현재를 살아가는 우리가 굉장히 동떨어지게 생각하고,..

나의 (My) 2024.09.15

엑셀 vba 실행 속도 상승 소스

'sub ajksndjklasd() 아래Application.Calculation = xlCalculationManual     Application.ScreenUpdating = False     Application.DisplayAlerts = False     Application.AskToUpdateLinks = False     Application.EnableEvents = False     Application.CutCopyMode = False     Application.Calculation = xlCalculationAutomatic     Application.AskToUpdateLinks = True     Application.DisplayAlerts = True     Appli..

카테고리 없음 2024.09.10

엑셀 VBA 시트명 일괄 변경

Sub ChangeSheetNamesInFolder()     Dim folderPath As String     Dim fileName As String     Dim newFileName As String     Dim wb As Workbook     Dim ws As Worksheet     Dim i As Integer          ' 폴더 경로 설정 (경로 끝에 \를 꼭 추가하세요)     folderPath = "C:\Users\KJH_7JS2\Downloads\새 폴더 (27)\" ' 폴더 경로를 변경하세요          ' 폴더 내 첫 번째 파일 가져오기     fileName = Dir(folderPath & "*.xls*") ' .xls, .xlsx, .xlsm 등 확장자    ..

카테고리 없음 2024.09.10

엑셀 VBA, 55바이트 이하로 텍스트 줄이기

Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, _     ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cbMultiByte As Long, _     ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, _     ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal c..

카테고리 없음 2024.09.10

20240908 김준희 일기록 : 미니멀 라이프를 실천하는 나의 자세.

미니멀 라이프에 제대로 빠져, 많은 것을 비우고, 저에게 집중하고 있는 요즘입니다. 행거를 봤을 때는, 정리가 안되고 나름 옷이 많지만 비우고 비워, 제가 정말 잘 입는 컬러와 디자인의 옷들로만 남겨뒀어요. 심플하게 산다, 월든, 유튜브 오롯이 등, 미니멀과 관련된 인사이트를 볼때면, 저 또한 비울 생각에 오히려 설레고 신납니다. 가장 인상깊었던 심플하게 산다 책에서의 말인데, ‘공간을 채우느라 공간을 잃는다.’라는 표현이었습니다. 너무 정확한… 비우고 나니까, 정말 오롯이 저에게 집중하게 되고, 삶이 오히려 더 풍요로워졌습니다. 정신적으로 꽉 채워진다는 느낌을 받고요. 사업으로 이커머스, 유통을 진행하고 있는 저인데, 사람들에게 필요한 물건을 유통하고 가치를 주는 소중한 일이지만, 점차적으로 정말 의미..

나의 (My) 2024.09.08

엑셀 VBA FUNCTION으로 함수 만들기

Function namecut(str, n)     strs = Split(str, " ")          For i = 0 To UBound(strs)         If i = n - 1 Then         Else             result = result & " " & strs(i)         End If     Next i               namecut = Trim(result)      End Function Function lencut(str, n, num)     pname = namecut(str, n)     For i = 1 To 10                  If LenB(pname)             Exit For         Else     ..

카테고리 없음 2024.09.03
반응형