검색결과 리스트
전체에 해당되는 글 276건
- 2019.04.26 앞뒤 공백 있는 문자열 공백 제거
- 2019.04.15 [Excel VBA] 짝수/홀수만 진행하는 For문
- 2019.04.14 더 오피스 - "The Office" Season 1 #6
- 2019.04.14 BCT 시험
- 2019.04.09 [Excel VBA] 파일생성후 시트 복사
- 2019.04.09 [Excel VBA] 파일생성 및 문자열 특정부분추출
- 2019.04.01 영어 Daily 정리(April.19)
- 2019.04.01 每天中文 - 4月
- 2019.03.15 [Excel VBA] 문자열 합치기
- 2019.03.15 [Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기
글
앞뒤 공백 있는 문자열 공백 제거
방법 : 이것은 VBA 사용이 아닌 Trim 함수를 사용하여 해결하는 것이 간편
함수 사용시 아래처럼 변환된다.
결론적으로, 가운데 많이 뛰어 쓰기 한것도 한칸으로 변환하고, 앞 뒤의 공백은 없애준다!
예시
=TRIM(A1)
테스트 문구 | 테스트 문구 |
테스트 문구 | 테스트 문구 |
테스트 문구 | 테스트 문구 |
'Excel(엑셀) > Excel' 카테고리의 다른 글
Speed VLOOKUP (0) | 2021.03.27 |
---|---|
VLOOKUP 을 다중 조건으로 골라내기 (0) | 2019.05.02 |
글
[Excel VBA] 짝수/홀수만 진행하는 For문
목적
: 포문 돌때 짝수만 돌기
실행결과
: For문의 짝수만 돌아서 진행
코드
For i = 0 To UBound(varTemp) Step 2 '배열내 증가값을 2씩 한다. format_sheet.Rows(format_similar_job + (i / 2)).Columns(3).Value = varTemp(i) 'i = i + 2 '짝수만 돌리기 MsgBox i Next |
'Excel(엑셀) > Excel VBA' 카테고리의 다른 글
[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장 (0) | 2019.08.06 |
---|---|
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기 (0) | 2019.08.06 |
[Excel VBA] 파일생성 및 문자열 특정부분추출 (0) | 2019.04.09 |
[Excel VBA] 문자열 합치기 (0) | 2019.03.15 |
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기 (0) | 2019.03.15 |
글
더 오피스 - "The Office" Season 1 #6
The Office Season 1 - Episode 6 - Hot Girl, Review
vendor 행상인, 노점상
That is a distraction. 그건 방해가되. distraction 집중을 방해하는것
break it up 싸우지 마라
You're being infiltrated. 당신은 침투하고 있습니다.
I'm against violence in the workplace. 직장내에서 폭력은 반대합니다.
let's put them in the hallway. 그들은 복도에 두지
decisiveness 결정적임, 단호함
illuminating 이해를 돕는, 분명하게 하는
Just don't hesitate to ask. 망설이지 말고 물어봐요.
a cup of coffee would be great. 커피 한잔이면 좋을거 같네요.
go by the beat of a different drummer. 다른사람이 뭐라해도 상관하지 않고 자기가 하고 싶은대로 하다.
That's a very rude thing to say. 그건 매우 무례한 말이에요.
Would you look after the purses, please? 지갑들을 좀 봐줄래요?(누가 훔쳐갈까봐)
I'm on the phone. 전화 받는 중이에요.
See you in a bit. 조만간 보자. (잠시후에 보자의 의미)
Why don't you get on that? 왜 시작하지 않지?
primarily [praɪˈmerəli] 주로
I would be all over that (?)
go-to guy 해결사
If you hit a stall, you have a perfect fallback. 너가 장벽에 부딪혀도, 완벽한 대비책이 있다.
busted 걸렸네~(못된짓을 하다 걸린)
bail on 바람맞히다. 어기다.
I don't wanna inconvenience you. 당신을 불편하게 하고 싶지 않아요.
I'm your inferior, 나는 당신의 열악한 존재입니다.
Thoroughness is very important. 완벽함은 아주 중요하지.
futon 방석 겸 요
Are you still mad at me? 아직 나에게 화가 난거야?
Cut it out : (명령형) 그만둬, 닥쳐
Don't freak it out. 무서워 하지 말아요.
'영어 > 미드' 카테고리의 다른 글
더 오피스 - "The Office" Season 2 #2 (0) | 2019.08.15 |
---|---|
더 오피스 - "The Office" Season 2 #1 (0) | 2019.06.03 |
더 오피스 - "The Office" Season 1 #5 (0) | 2019.02.07 |
더 오피스 - "The Office" Season 1 #4 (0) | 2019.02.05 |
더 오피스 - "The Office" Season 1 #3 (0) | 2019.02.04 |
글
9:30까지 입실(실제는 50분에 통제)
9:35~9:48 OT 끝 휴식시간
10:00~11:35 시험
샤프펜슬 사용가능
글
[Excel VBA] 파일생성후 시트 복사
목적
: 시트 만들고, 기존 시트 복사해서 넣기
실행 결과
: 새로운 파일 만들고, 그곳에 기존에 있던 내용중 특정 시트를 복사해서 붙여 넣는다.
코드
Sub copy_sheet() Dim wb As Workbook Dim template_sheet, format_sheet As Worksheet Dim file_name As String Dim template_row As Integer, template_col As Integer Dim i, j, k As Integer Set template_sht = Sheets("TEST") Set format_sheet = Sheets("양식") '양식 시트를 붙여 넣을 것임 template_row = template_sht.UsedRange.Rows.Count template_col = template_sht.UsedRange.Columns.Count '파일 생성++ For i = 44 To template_row file_name = Mid(template_sht.Rows(i).Columns(2).Value, 5, 9) '문자열 자르기 '생성할 파일이 이미존재하는지 여부확인 If Len(Dir(ThisWorkbook.Path & "\" & file_name & ".xlsx")) Then ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면 True 'MsgBox "파일명이 존재합니다." & i & file_name '메시지 띄움 Else Workbooks.Add '워크북 추가 format_sheet.Copy Before:=ActiveWorkbook.Sheets(1) '시트를 복사해 넣는다. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" ActiveWorkbook.Close SaveChanges:=True '현 디렉토리에 "file_name".xlsx 로 저장 후 종료 End If Next i '파일 생성-- End Sub |
글
[Excel VBA] 파일생성 및 문자열 특정부분추출
목적
: 엑셀 파일 생성 및 문자열에서 필요한 부분만 추출
실행결과
: 4,2 셀에 있는 값의 5부터 8개 글자의 파일명으로 추출해서 파일명 만든후 생성
코드
Sub create_file_device_string() Dim template_sheet As Worksheet Dim file_name As String Set template_sht = Sheets("TEST") file_name = Mid(template_sht.Rows(4).Columns(2).Value, 5, 8) '문자열 자르기 '생성할 파일이 이미존재하는지 여부확인 If Len(Dir(ThisWorkbook.Path & "\" & F_name & ".xlsx")) Then ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면 True MsgBox "파일명이 존재합니다." '메시지 띄움 End If Workbooks.Add '워크북 추가 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" '현 디렉토리에 "file_name".xlsx 로 저장 End Sub |
'Excel(엑셀) > Excel VBA' 카테고리의 다른 글
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기 (0) | 2019.08.06 |
---|---|
[Excel VBA] 짝수/홀수만 진행하는 For문 (0) | 2019.04.15 |
[Excel VBA] 문자열 합치기 (0) | 2019.03.15 |
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기 (0) | 2019.03.15 |
[Excel VBA] 특정 폴더의 모든 엑셀 파일을 열어 작업수행 (0) | 2019.03.15 |
글
영어 Daily 정리(April.19)
4/25/19(Tue)
pour 쏟아지다.
the systems for dealing with horrible natural disasters 재난대응체계
pillar 기둥(건물)
It’s natural that 이건 당연하다.
Flexible material 유연한 소재
a construction company 건설회사.
4/15/19(Tue)
Siberian high 시베리안 고기압
sank sink 의 과거 침몰하다.
capsize 뒤집어지다.
impeaches 탄핵하다.
window dressing 쇼윈도 장식
chip in 기부하다.
sell 팔다, 매각하다.
4/2/19(Tue)
tourism 관광업
tourist 관광객
At first sight 언뜻보기에,
it is getting worse, 점점 나빠지다.
store 가게
competition is fierce 치열하다.
accountant 회계사
demand and supply 수요와 공급
4/1/19(Mon)
effective 효력을 발하다.
bribe 뇌물
powder 가루
I would rather ~하는게 더 좋다.
ex (vowel - a,e,i,o,u) 이그 - example
ex (consonant) 엑스 - expert
'영어 > 매일 영어' 카테고리의 다른 글
영어 Daily 정리(June.19) (0) | 2019.06.10 |
---|---|
영어 Daily 정리(May.19) (0) | 2019.05.02 |
영어 Daily 정리(Mar.19) (0) | 2019.03.04 |
영어 Daily 정리(Fab.19) (0) | 2019.02.07 |
영어 Daily 정리(Jan.19) (0) | 2019.01.02 |
글
每天中文 - 4月
29/4/19
心意 [xīnyì] 마음, 성의
有过出国留学的经历。해외유학경험이 있는
面子 miàn zi 체면
27/4/19
传染 [chuánrǎn] 전염하다.
笑声 [xiàoshēng] 웃음소리
季度 [jìdù] 분기
对于和工作有关的知识方面
24/4/19
助理 [zhùlǐ] 보조(하다)
见世面 [jiàn shìmiàn] 세상 물정을 잘 알다.
丈母娘 장모
22/4/19
好久不V 오랜만에,
理发店 [lǐfàdiàn] (남자,여자 다 가는곳) 미용실
只可以剪发,不可以烫发。 이발은 가능하지만, 파마는 불가
染色 [rǎn//sè] 염색하다.
词典 [cídiǎn] 사전
干净 = 整洁 [gānjìng zhĕngjié ] 깔끔하다.
叔丈人 [shū zhàngrén] 장인
17/4/19
都是免费的。모두 공짜이다.
以前的部门 이전 부서의 사람
两百块钱 200 위안
回忆 [huíyì] 추억
长得很帅。얼굴이 잘생겼다.
高中时 고등학교때
同班同学 [tóngbāntóngxué] 동급생(같은반 같은 학교)
职位是科长 직위가 과장이다.
16/4/19
组建 [zǔjiàn] 조직하다.(스터디 등)
带头(儿) [dài//tóu(r)] 앞장서다.
我带头组建了这个学习小组. 내가 나서서 스터디를 조직하였다.
我还怎么看棒球赛。어떻게 야구경기를 보겠어.
他比我工作的时间长 그는 나에비해 근무한 시간이 길다.
工龄 [gōnglíng] 근속연한
8/4/19
盛开 [ shèngkāi ] 꽃이 만발하다.
教会 [ jiàohuì ] 교회
基督教 [ Jīdūjiào ] 기독교
宗教 [ zōngjiào ] 종교
从来都不 여지껐 ~하지 않다.
同类相从 [ tónglèixiāngcóng ] 유유상종
资深 [ zīshēn ] 진실한
身材 [ shēncái ] 몸매
3/4/19
戳穿 [ chuōchuān ] 폭로하다
装聋作哑 [ zhuāng lóng zuò yǎ ] 귀머거리인 척 벙어리인 척하다
补贴 [ bǔtiē ] 보조금, 수당
感到背叛 [huì găndào bèipàn ba] 배신감도 느꼈다.
背叛 [bèipàn] 배신하다.
心脏病 [ xīnzàngbìng ] 심장병
2/4/19
愚人节 만우절
你们一定要在今天结束之前把蛋糕做完 오늘까지 케익을 만들어야 한다.
尹课长在他还没把话结束之前就打断了他的话
김과장은 그가 채 말끝을 여미기도 전에 그의 말을 끊으며 말했다.
构造 [ gòuzào ] 구조
1/4/19
莫动物的毛 [mō ] 동물의 털을 만지다.
凶 [ xiōng ] 사납다.
讨厌 [ tǎoyàn ] 싫어하다.
调整 [ tiáozhěng ] 조정하다.
'중국어 > 오늘의 중국어' 카테고리의 다른 글
每天中文 - 5月 (0) | 2019.05.03 |
---|---|
每天中文 (0) | 2019.01.18 |
오늘의 중국어 2017.06.07. 星其三 (0) | 2017.06.07 |
오늘의 중국어 2017.06.02. 星其五 (0) | 2017.06.02 |
오늘의 중국어 2017.05.26. 星其五 (0) | 2017.05.26 |
글
[Excel VBA] 문자열 합치기
목적
: 다양한 문자열 들을 합치는 기능 구현
ex) A 와 B 라는 양식의 글들을 있을때 A(B) 라는 문자열로 모두 만들때
실행 결과
: B~차있는 열 까지의 문자들이 모두 합쳐져서 A 열에 나타나게 됨
코드
Sub sum_string() Dim template_sht As Worksheet, position_sht As Worksheet, std_job_sht As Worksheet
Set template_sht = Sheets("Data") '실제 Sheet 의 이름 Dim template_row As Integer, template_col As Integer Dim temp_str As String Dim i As Integer, j As Integer
template_row = template_sht.UsedRange.Rows.count template_col = template_sht.UsedRange.Columns.count For i = 1 To template_row
temp_str = "" For j = 2 To template_col If IsEmpty(template_sht.Rows(i).Columns(j).Value) Then Else temp_str = temp_str & template_sht.Rows(i).Columns(j).Value End If Next j template_sht.Rows(i).Columns(1).Value = temp_str Next i
End Sub |
'Excel(엑셀) > Excel VBA' 카테고리의 다른 글
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기 (0) | 2019.08.06 |
---|---|
[Excel VBA] 짝수/홀수만 진행하는 For문 (0) | 2019.04.15 |
[Excel VBA] 파일생성 및 문자열 특정부분추출 (0) | 2019.04.09 |
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기 (0) | 2019.03.15 |
[Excel VBA] 특정 폴더의 모든 엑셀 파일을 열어 작업수행 (0) | 2019.03.15 |
글
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기
목적
: 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 or 원하는 시트만 남기고 모두 삭제하기
실행 결과
: 지정한 시트만 남고 모두 삭제됨
코드
Sub DeleteSheet() Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "Sheet1" And xWs.Name <> "남길시트이름" Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨 xWs.Delete End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True
End Sub |
'Excel(엑셀) > Excel VBA' 카테고리의 다른 글
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기 (0) | 2019.08.06 |
---|---|
[Excel VBA] 짝수/홀수만 진행하는 For문 (0) | 2019.04.15 |
[Excel VBA] 파일생성 및 문자열 특정부분추출 (0) | 2019.04.09 |
[Excel VBA] 문자열 합치기 (0) | 2019.03.15 |
[Excel VBA] 특정 폴더의 모든 엑셀 파일을 열어 작업수행 (0) | 2019.03.15 |