엑셀

엑셀
엑셀자료 사용 안내 엑셀 매크로(VBA)를 이용하여 만든 간단한 프로그램과 엑셀 매크로(VBA)를 배울 수 있는 강좌가 있습니다.따라서, 대부분 프로그램을 이용하기 위해서는 엑셀 매크로 사용하기 설정을 하여야 합니다. (1.보안설정) 클릭 (2.개발도구설정) 클릭 3.매크로 차단 해제 방법
Home 엑셀 엑셀자료
2021.06.07 21:06

구글 번역을 엑셀로, 텍스트 문장을 한꺼번에 구글 번역하기

지천명영어
크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
크게 작게 위로 아래로 댓글로 가기 인쇄 첨부

2022.5.27 구글 번역 뿐만 아니라, 파파고 번역까지 한번에, 두가지를 비교하면서 번역할 수 있는 프로그램을 소개합니다.  https://hanaabc.com/excel/3327 참고하세요

구글 번역은 어학 학습에 매우 좋은 도구입니다. 구글 번역이나, 파파고 번역과 같은 훌륭한 프로그램이 있기에, 독학으로 어학공부가 어느 정도 가능해졌다고 생각됩니다.

 

 

최신 구글번역(지천명영어) 다운로드

 

 

 

​구글 번역을 이용하다가, 가끔씩 많은 문장을 한꺼번에 번역하여야 할 때, 사용할 수 있도록 엑셀을 이용해서 만들었습니다.

 

​이미지 4.png

 

 

사용법은 간단합니다.

 

A열에 번역이 필요한 원문장을 붙여 넣고, 번역하고 싶은 언어를 선택한 후, 구글 번역 버튼을 클릭하면 번역이 됩니다.

 

그리고, 번역된 문장을 좌우로 합치는 기능과, 한 칸 아래로 합치는 간단한 기능도 부여해서, 번역된 결과를 사용하기 쉽도록 만들었습니다.

 

​

번역되는 언어종류 2021.6월 현재 108개 언어

영어,일본어,프랑스어,스페인어,이탈리아,독일어,아프리카,알바니아,암하라어,아랍어,아르메니아어,아제르바이잔자니,바스크,벨라루스,벵골어,보스니아어,불가리아어,카탈루냐,세부아노,치케와,중국어(간체),중국어(전통),코르시카,크로아티아어,체코어,덴마크어,네덜란드어,에스페란토,에스토니아어,필리핀,핀란드어,프리시안,갈리시아,그루지야어,그리스어,구자라티,아이티크리올,하우사,하와이안,히브리어의,힌디어,흐몽,헝가리,아이슬란드어,이그보,인도네시아어,아일랜드,자바어,카나다,카자흐스탄어,크메르어,킨야르완다,쿠르드어(쿠르만지족),키르기스어,라오,라틴어,라트비아어,리투아니아어,룩셈부르크어,마케도니아어,말라가시,말레이어,말라얄람,말티즈,마오리,마라티,몽골의,미얀마(버마어),네팔어,노르웨이,오디아(오리야),파슈토,페르시아어,폴란드,포르투갈어,펀잡,루마니아어,러시아어,사모안,스코틀랜드게일어,세르비아어,세소토,쇼나,신디,신할라,슬로바키아어,슬로베니아어,소말리아어,순다나어,스와힐리,스웨덴어,타지크,타밀어,타타르,텔루구,타이의,터키어,투르크멘어,우크라이나,우르두,위구르,우즈벡어,베트남의,웨일스어,소사,이디시,요루바,줄루

 

 

 

프로그램 오류나, 건의사항은 댓글 남겨주세요.

 

프로그램 소스코드입니다. (많은 분들이 요청이 있어서 올려드립니다.

제가 만든건 별로 없어요. 구글 검색으로 누군가 미리 잘 만들어 놓은 펑션을 사용했습니다.

 

참고하세요.

 

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
Option Explicit
Sub 문장지우기()
 
Dim i, MR As Integer
 
MR = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(5, 1), Cells(MR, 5)).Clear
 
End Sub
 
Sub 문장합치기()
 
Dim i, MR As Integer
 
MR = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(5, 5), Cells(MR, 5)).Clear
 
For i = 5 To MR
 
    If Sheets("구글번역").ComboBox3.Value = "좌우로 합치기" Then
        If Trim(Cells(i, 1)) <> "" Then Cells(i, 5) = Cells(i, 1) & "(" & Cells(i, 3) & ")"
    Else
        If Trim(Cells(i, 1)) <> "" Then Cells(i, 5) = Cells(i, 1) & vbNewLine & "(" & Cells(i, 3) & ")"
        Rows(i).EntireRow.AutoFit
    End If
Next i
 
End Sub
 
 
Sub 구글번역_진행바()
    
    UserForm1.Show
 
End Sub
 
Sub 구글번역_배치_다른칼럼()
 
Dim i, j, c, ii, i_num, MR As Long
 
MR = Cells.Find("*", , , , xlByRows, xlPrevious).Row
 
    Dim i_target As Range
    Dim i_text, i_name As String
    Dim i_tran As String
    
    Range(Cells(5, 3), Cells(MR, 3)).Clear
    
    Dim i_from, i_to As String
                
                    
        If Sheets("구글번역").ComboBox1.Value = "언어감지" Then i_from = "auto"
        If Sheets("구글번역").ComboBox1.Value = "한국어" Then i_from = "ko"
        If Sheets("구글번역").ComboBox1.Value = "영어" Then i_from = "en"
        If Sheets("구글번역").ComboBox1.Value = "일본어" Then i_from = "ja"
        If Sheets("구글번역").ComboBox1.Value = "프랑스어" Then i_from = "fr"
        If Sheets("구글번역").ComboBox1.Value = "스페인어" Then i_from = "es"
        If Sheets("구글번역").ComboBox1.Value = "이탈리아" Then i_from = "it"
        If Sheets("구글번역").ComboBox1.Value = "독일어" Then i_from = "de"
        If Sheets("구글번역").ComboBox1.Value = "아프리카" Then i_from = "af"
        If Sheets("구글번역").ComboBox1.Value = "알바니아" Then i_from = "sq"
        If Sheets("구글번역").ComboBox1.Value = "암하라어" Then i_from = "am"
        If Sheets("구글번역").ComboBox1.Value = "아랍어" Then i_from = "ar"
        If Sheets("구글번역").ComboBox1.Value = "아르메니아어" Then i_from = "hy"
        If Sheets("구글번역").ComboBox1.Value = "아제르바이잔자니" Then i_from = "az"
        If Sheets("구글번역").ComboBox1.Value = "바스크" Then i_from = "eu"
        If Sheets("구글번역").ComboBox1.Value = "벨라루스" Then i_from = "be"
        If Sheets("구글번역").ComboBox1.Value = "벵골어" Then i_from = "bn"
        If Sheets("구글번역").ComboBox1.Value = "보스니아어" Then i_from = "bs"
        If Sheets("구글번역").ComboBox1.Value = "불가리아어" Then i_from = "bg"
        If Sheets("구글번역").ComboBox1.Value = "카탈루냐" Then i_from = "ca"
        If Sheets("구글번역").ComboBox1.Value = "세부아노" Then i_from = "ceb"
        If Sheets("구글번역").ComboBox1.Value = "치케와" Then i_from = "ny"
        If Sheets("구글번역").ComboBox1.Value = "중국어(간체)" Then i_from = "zh-CN"
        If Sheets("구글번역").ComboBox1.Value = "중국어(전통)" Then i_from = "zh-TW"
        If Sheets("구글번역").ComboBox1.Value = "코르시카" Then i_from = "co"
        If Sheets("구글번역").ComboBox1.Value = "크로아티아어" Then i_from = "hr"
        If Sheets("구글번역").ComboBox1.Value = "체코어" Then i_from = "cs"
        If Sheets("구글번역").ComboBox1.Value = "덴마크어" Then i_from = "da"
        If Sheets("구글번역").ComboBox1.Value = "네덜란드어" Then i_from = "nl"
        If Sheets("구글번역").ComboBox1.Value = "에스페란토" Then i_from = "eo"
        If Sheets("구글번역").ComboBox1.Value = "에스토니아어" Then i_from = "et"
        If Sheets("구글번역").ComboBox1.Value = "필리핀" Then i_from = "tl"
        If Sheets("구글번역").ComboBox1.Value = "핀란드어" Then i_from = "fi"
        If Sheets("구글번역").ComboBox1.Value = "프리시안" Then i_from = "fy"
        If Sheets("구글번역").ComboBox1.Value = "갈리시아" Then i_from = "gl"
        If Sheets("구글번역").ComboBox1.Value = "그루지야어" Then i_from = "ka"
        If Sheets("구글번역").ComboBox1.Value = "그리스어" Then i_from = "el"
        If Sheets("구글번역").ComboBox1.Value = "구자라티" Then i_from = "gu"
        If Sheets("구글번역").ComboBox1.Value = "아이티크리올" Then i_from = "ht"
        If Sheets("구글번역").ComboBox1.Value = "하우사" Then i_from = "ha"
        If Sheets("구글번역").ComboBox1.Value = "하와이안" Then i_from = "haw"
        If Sheets("구글번역").ComboBox1.Value = "히브리어의" Then i_from = "iw"
        If Sheets("구글번역").ComboBox1.Value = "힌디어" Then i_from = "hi"
        If Sheets("구글번역").ComboBox1.Value = "흐몽" Then i_from = "hmn"
        If Sheets("구글번역").ComboBox1.Value = "헝가리" Then i_from = "hu"
        If Sheets("구글번역").ComboBox1.Value = "아이슬란드어" Then i_from = "is"
        If Sheets("구글번역").ComboBox1.Value = "이그보" Then i_from = "ig"
        If Sheets("구글번역").ComboBox1.Value = "인도네시아어" Then i_from = "id"
        If Sheets("구글번역").ComboBox1.Value = "아일랜드" Then i_from = "ga"
        If Sheets("구글번역").ComboBox1.Value = "자바어" Then i_from = "jw"
        If Sheets("구글번역").ComboBox1.Value = "카나다" Then i_from = "kn"
        If Sheets("구글번역").ComboBox1.Value = "카자흐스탄어" Then i_from = "kk"
        If Sheets("구글번역").ComboBox1.Value = "크메르어" Then i_from = "km"
        If Sheets("구글번역").ComboBox1.Value = "킨야르완다" Then i_from = "rw"
        If Sheets("구글번역").ComboBox1.Value = "쿠르드어(쿠르만지족)" Then i_from = "ku"
        If Sheets("구글번역").ComboBox1.Value = "키르기스어" Then i_from = "ky"
        If Sheets("구글번역").ComboBox1.Value = "라오" Then i_from = "lo"
        If Sheets("구글번역").ComboBox1.Value = "라틴어" Then i_from = "la"
        If Sheets("구글번역").ComboBox1.Value = "라트비아어" Then i_from = "lv"
        If Sheets("구글번역").ComboBox1.Value = "리투아니아어" Then i_from = "lt"
        If Sheets("구글번역").ComboBox1.Value = "룩셈부르크어" Then i_from = "lb"
        If Sheets("구글번역").ComboBox1.Value = "마케도니아어" Then i_from = "mk"
        If Sheets("구글번역").ComboBox1.Value = "말라가시" Then i_from = "mg"
        If Sheets("구글번역").ComboBox1.Value = "말레이어" Then i_from = "ms"
        If Sheets("구글번역").ComboBox1.Value = "말라얄람" Then i_from = "ml"
        If Sheets("구글번역").ComboBox1.Value = "말티즈" Then i_from = "mt"
        If Sheets("구글번역").ComboBox1.Value = "마오리" Then i_from = "mi"
        If Sheets("구글번역").ComboBox1.Value = "마라티" Then i_from = "mr"
        If Sheets("구글번역").ComboBox1.Value = "몽골의" Then i_from = "mn"
        If Sheets("구글번역").ComboBox1.Value = "미얀마(버마어)" Then i_from = "my"
        If Sheets("구글번역").ComboBox1.Value = "네팔어" Then i_from = "ne"
        If Sheets("구글번역").ComboBox1.Value = "노르웨이" Then i_from = "no"
        If Sheets("구글번역").ComboBox1.Value = "오디아(오리야)" Then i_from = "or"
        If Sheets("구글번역").ComboBox1.Value = "파슈토" Then i_from = "ps"
        If Sheets("구글번역").ComboBox1.Value = "페르시아어" Then i_from = "fa"
        If Sheets("구글번역").ComboBox1.Value = "폴란드" Then i_from = "pl"
        If Sheets("구글번역").ComboBox1.Value = "포르투갈어" Then i_from = "pt"
        If Sheets("구글번역").ComboBox1.Value = "펀잡" Then i_from = "pa"
        If Sheets("구글번역").ComboBox1.Value = "루마니아어" Then i_from = "ro"
        If Sheets("구글번역").ComboBox1.Value = "러시아어" Then i_from = "ru"
        If Sheets("구글번역").ComboBox1.Value = "사모안" Then i_from = "sm"
        If Sheets("구글번역").ComboBox1.Value = "스코틀랜드게일어" Then i_from = "gd"
        If Sheets("구글번역").ComboBox1.Value = "세르비아어" Then i_from = "sr"
        If Sheets("구글번역").ComboBox1.Value = "세소토" Then i_from = "st"
        If Sheets("구글번역").ComboBox1.Value = "쇼나" Then i_from = "sn"
        If Sheets("구글번역").ComboBox1.Value = "신디" Then i_from = "sd"
        If Sheets("구글번역").ComboBox1.Value = "신할라" Then i_from = "si"
        If Sheets("구글번역").ComboBox1.Value = "슬로바키아어" Then i_from = "sk"
        If Sheets("구글번역").ComboBox1.Value = "슬로베니아어" Then i_from = "sl"
        If Sheets("구글번역").ComboBox1.Value = "소말리아어" Then i_from = "so"
        If Sheets("구글번역").ComboBox1.Value = "순다나어" Then i_from = "su"
        If Sheets("구글번역").ComboBox1.Value = "스와힐리" Then i_from = "sw"
        If Sheets("구글번역").ComboBox1.Value = "스웨덴어" Then i_from = "sv"
        If Sheets("구글번역").ComboBox1.Value = "타지크" Then i_from = "tg"
        If Sheets("구글번역").ComboBox1.Value = "타밀어" Then i_from = "ta"
        If Sheets("구글번역").ComboBox1.Value = "타타르" Then i_from = "tt"
        If Sheets("구글번역").ComboBox1.Value = "텔루구" Then i_from = "te"
        If Sheets("구글번역").ComboBox1.Value = "타이의" Then i_from = "th"
        If Sheets("구글번역").ComboBox1.Value = "터키어" Then i_from = "tr"
        If Sheets("구글번역").ComboBox1.Value = "투르크멘어" Then i_from = "tk"
        If Sheets("구글번역").ComboBox1.Value = "우크라이나" Then i_from = "uk"
        If Sheets("구글번역").ComboBox1.Value = "우르두" Then i_from = "ur"
        If Sheets("구글번역").ComboBox1.Value = "위구르" Then i_from = "ug"
        If Sheets("구글번역").ComboBox1.Value = "우즈벡어" Then i_from = "uz"
        If Sheets("구글번역").ComboBox1.Value = "베트남의" Then i_from = "vi"
        If Sheets("구글번역").ComboBox1.Value = "웨일스어" Then i_from = "cy"
        If Sheets("구글번역").ComboBox1.Value = "소사" Then i_from = "xh"
        If Sheets("구글번역").ComboBox1.Value = "이디시" Then i_from = "yi"
        If Sheets("구글번역").ComboBox1.Value = "요루바" Then i_from = "yo"
        If Sheets("구글번역").ComboBox1.Value = "줄루" Then i_from = "zu"
        
        
        If Sheets("구글번역").ComboBox2.Value = "한국어" Then i_to = "ko"
        If Sheets("구글번역").ComboBox2.Value = "영어" Then i_to = "en"
        If Sheets("구글번역").ComboBox2.Value = "일본어" Then i_to = "ja"
        If Sheets("구글번역").ComboBox2.Value = "프랑스어" Then i_to = "fr"
        If Sheets("구글번역").ComboBox2.Value = "스페인어" Then i_to = "es"
        If Sheets("구글번역").ComboBox2.Value = "이탈리아" Then i_to = "it"
        If Sheets("구글번역").ComboBox2.Value = "독일어" Then i_to = "de"
        If Sheets("구글번역").ComboBox2.Value = "아프리카" Then i_to = "af"
        If Sheets("구글번역").ComboBox2.Value = "알바니아" Then i_to = "sq"
        If Sheets("구글번역").ComboBox2.Value = "암하라어" Then i_to = "am"
        If Sheets("구글번역").ComboBox2.Value = "아랍어" Then i_to = "ar"
        If Sheets("구글번역").ComboBox2.Value = "아르메니아어" Then i_to = "hy"
        If Sheets("구글번역").ComboBox2.Value = "아제르바이잔자니" Then i_to = "az"
        If Sheets("구글번역").ComboBox2.Value = "바스크" Then i_to = "eu"
        If Sheets("구글번역").ComboBox2.Value = "벨라루스" Then i_to = "be"
        If Sheets("구글번역").ComboBox2.Value = "벵골어" Then i_to = "bn"
        If Sheets("구글번역").ComboBox2.Value = "보스니아어" Then i_to = "bs"
        If Sheets("구글번역").ComboBox2.Value = "불가리아어" Then i_to = "bg"
        If Sheets("구글번역").ComboBox2.Value = "카탈루냐" Then i_to = "ca"
        If Sheets("구글번역").ComboBox2.Value = "세부아노" Then i_to = "ceb"
        If Sheets("구글번역").ComboBox2.Value = "치케와" Then i_to = "ny"
        If Sheets("구글번역").ComboBox2.Value = "중국어(간체)" Then i_to = "zh-CN"
        If Sheets("구글번역").ComboBox2.Value = "중국어(전통)" Then i_to = "zh-TW"
        If Sheets("구글번역").ComboBox2.Value = "코르시카" Then i_to = "co"
        If Sheets("구글번역").ComboBox2.Value = "크로아티아어" Then i_to = "hr"
        If Sheets("구글번역").ComboBox2.Value = "체코어" Then i_to = "cs"
        If Sheets("구글번역").ComboBox2.Value = "덴마크어" Then i_to = "da"
        If Sheets("구글번역").ComboBox2.Value = "네덜란드어" Then i_to = "nl"
        If Sheets("구글번역").ComboBox2.Value = "에스페란토" Then i_to = "eo"
        If Sheets("구글번역").ComboBox2.Value = "에스토니아어" Then i_to = "et"
        If Sheets("구글번역").ComboBox2.Value = "필리핀" Then i_to = "tl"
        If Sheets("구글번역").ComboBox2.Value = "핀란드어" Then i_to = "fi"
        If Sheets("구글번역").ComboBox2.Value = "프리시안" Then i_to = "fy"
        If Sheets("구글번역").ComboBox2.Value = "갈리시아" Then i_to = "gl"
        If Sheets("구글번역").ComboBox2.Value = "그루지야어" Then i_to = "ka"
        If Sheets("구글번역").ComboBox2.Value = "그리스어" Then i_to = "el"
        If Sheets("구글번역").ComboBox2.Value = "구자라티" Then i_to = "gu"
        If Sheets("구글번역").ComboBox2.Value = "아이티크리올" Then i_to = "ht"
        If Sheets("구글번역").ComboBox2.Value = "하우사" Then i_to = "ha"
        If Sheets("구글번역").ComboBox2.Value = "하와이안" Then i_to = "haw"
        If Sheets("구글번역").ComboBox2.Value = "히브리어의" Then i_to = "iw"
        If Sheets("구글번역").ComboBox2.Value = "힌디어" Then i_to = "hi"
        If Sheets("구글번역").ComboBox2.Value = "흐몽" Then i_to = "hmn"
        If Sheets("구글번역").ComboBox2.Value = "헝가리" Then i_to = "hu"
        If Sheets("구글번역").ComboBox2.Value = "아이슬란드어" Then i_to = "is"
        If Sheets("구글번역").ComboBox2.Value = "이그보" Then i_to = "ig"
        If Sheets("구글번역").ComboBox2.Value = "인도네시아어" Then i_to = "id"
        If Sheets("구글번역").ComboBox2.Value = "아일랜드" Then i_to = "ga"
        If Sheets("구글번역").ComboBox2.Value = "자바어" Then i_to = "jw"
        If Sheets("구글번역").ComboBox2.Value = "카나다" Then i_to = "kn"
        If Sheets("구글번역").ComboBox2.Value = "카자흐스탄어" Then i_to = "kk"
        If Sheets("구글번역").ComboBox2.Value = "크메르어" Then i_to = "km"
        If Sheets("구글번역").ComboBox2.Value = "킨야르완다" Then i_to = "rw"
        If Sheets("구글번역").ComboBox2.Value = "쿠르드어(쿠르만지족)" Then i_to = "ku"
        If Sheets("구글번역").ComboBox2.Value = "키르기스어" Then i_to = "ky"
        If Sheets("구글번역").ComboBox2.Value = "라오" Then i_to = "lo"
        If Sheets("구글번역").ComboBox2.Value = "라틴어" Then i_to = "la"
        If Sheets("구글번역").ComboBox2.Value = "라트비아어" Then i_to = "lv"
        If Sheets("구글번역").ComboBox2.Value = "리투아니아어" Then i_to = "lt"
        If Sheets("구글번역").ComboBox2.Value = "룩셈부르크어" Then i_to = "lb"
        If Sheets("구글번역").ComboBox2.Value = "마케도니아어" Then i_to = "mk"
        If Sheets("구글번역").ComboBox2.Value = "말라가시" Then i_to = "mg"
        If Sheets("구글번역").ComboBox2.Value = "말레이어" Then i_to = "ms"
        If Sheets("구글번역").ComboBox2.Value = "말라얄람" Then i_to = "ml"
        If Sheets("구글번역").ComboBox2.Value = "말티즈" Then i_to = "mt"
        If Sheets("구글번역").ComboBox2.Value = "마오리" Then i_to = "mi"
        If Sheets("구글번역").ComboBox2.Value = "마라티" Then i_to = "mr"
        If Sheets("구글번역").ComboBox2.Value = "몽골의" Then i_to = "mn"
        If Sheets("구글번역").ComboBox2.Value = "미얀마(버마어)" Then i_to = "my"
        If Sheets("구글번역").ComboBox2.Value = "네팔어" Then i_to = "ne"
        If Sheets("구글번역").ComboBox2.Value = "노르웨이" Then i_to = "no"
        If Sheets("구글번역").ComboBox2.Value = "오디아(오리야)" Then i_to = "or"
        If Sheets("구글번역").ComboBox2.Value = "파슈토" Then i_to = "ps"
        If Sheets("구글번역").ComboBox2.Value = "페르시아어" Then i_to = "fa"
        If Sheets("구글번역").ComboBox2.Value = "폴란드" Then i_to = "pl"
        If Sheets("구글번역").ComboBox2.Value = "포르투갈어" Then i_to = "pt"
        If Sheets("구글번역").ComboBox2.Value = "펀잡" Then i_to = "pa"
        If Sheets("구글번역").ComboBox2.Value = "루마니아어" Then i_to = "ro"
        If Sheets("구글번역").ComboBox2.Value = "러시아어" Then i_to = "ru"
        If Sheets("구글번역").ComboBox2.Value = "사모안" Then i_to = "sm"
        If Sheets("구글번역").ComboBox2.Value = "스코틀랜드게일어" Then i_to = "gd"
        If Sheets("구글번역").ComboBox2.Value = "세르비아어" Then i_to = "sr"
        If Sheets("구글번역").ComboBox2.Value = "세소토" Then i_to = "st"
        If Sheets("구글번역").ComboBox2.Value = "쇼나" Then i_to = "sn"
        If Sheets("구글번역").ComboBox2.Value = "신디" Then i_to = "sd"
        If Sheets("구글번역").ComboBox2.Value = "신할라" Then i_to = "si"
        If Sheets("구글번역").ComboBox2.Value = "슬로바키아어" Then i_to = "sk"
        If Sheets("구글번역").ComboBox2.Value = "슬로베니아어" Then i_to = "sl"
        If Sheets("구글번역").ComboBox2.Value = "소말리아어" Then i_to = "so"
        If Sheets("구글번역").ComboBox2.Value = "순다나어" Then i_to = "su"
        If Sheets("구글번역").ComboBox2.Value = "스와힐리" Then i_to = "sw"
        If Sheets("구글번역").ComboBox2.Value = "스웨덴어" Then i_to = "sv"
        If Sheets("구글번역").ComboBox2.Value = "타지크" Then i_to = "tg"
        If Sheets("구글번역").ComboBox2.Value = "타밀어" Then i_to = "ta"
        If Sheets("구글번역").ComboBox2.Value = "타타르" Then i_to = "tt"
        If Sheets("구글번역").ComboBox2.Value = "텔루구" Then i_to = "te"
        If Sheets("구글번역").ComboBox2.Value = "타이의" Then i_to = "th"
        If Sheets("구글번역").ComboBox2.Value = "터키어" Then i_to = "tr"
        If Sheets("구글번역").ComboBox2.Value = "투르크멘어" Then i_to = "tk"
        If Sheets("구글번역").ComboBox2.Value = "우크라이나" Then i_to = "uk"
        If Sheets("구글번역").ComboBox2.Value = "우르두" Then i_to = "ur"
        If Sheets("구글번역").ComboBox2.Value = "위구르" Then i_to = "ug"
        If Sheets("구글번역").ComboBox2.Value = "우즈벡어" Then i_to = "uz"
        If Sheets("구글번역").ComboBox2.Value = "베트남의" Then i_to = "vi"
        If Sheets("구글번역").ComboBox2.Value = "웨일스어" Then i_to = "cy"
        If Sheets("구글번역").ComboBox2.Value = "소사" Then i_to = "xh"
        If Sheets("구글번역").ComboBox2.Value = "이디시" Then i_to = "yi"
        If Sheets("구글번역").ComboBox2.Value = "요루바" Then i_to = "yo"
        If Sheets("구글번역").ComboBox2.Value = "줄루" Then i_to = "zu"
 
 
 
 
    
    
'On Error Resume Next
    
For i = 5 To MR
    
   
    If Trim(Cells(i, 1)) <> "" Then
    
        i_tran = GTranslate(Cells(i, 1), i_from, i_to)
        Cells(i, 3) = i_tran
 
    End If
     
    DoEvents
     
    '진행바 만들기
    UserForm1.Frame1.Label1.Width = Int(i * UserForm1.Frame1.Width / MR)
    UserForm1.Frame1.Label1.BackColor = &HC0C000
    UserForm1.Frame1.Caption = Format(i / MR, "0%")
     
Next i
 
UserForm1.Hide
 
End Sub
Sub testTranslateG()
 
  Debug.Print GTranslate("やっぱ落ち着いてて上手い人のプレイも定期的に見ないとね", "ja", "ko")
End Sub
 
 
Function GTranslate(ByVal strInput As String, ByVal strFromLang As String, ByVal strToLang As String)
    Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant
    
    strInput = WorksheetFunction.EncodeURL(strInput)
    strURL = "https://translate.google.com/m?hl=" & strFromLang & _
        "&sl=" & strFromLang & _
        "&tl=" & strToLang & _
        "&ie=UTF-8&prev=_m&q=" & strInput
        
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    objHTTP.Open "GET", strURL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.Send ""
    
    Set objHTML = CreateObject("htmlfile")
    With objHTML
        .Open
        .Write objHTTP.responseText
        .Close
    End With
    
    Set objDivs = objHTML.getElementsByTagName("div")
    For Each objDiv In objDivs
        If objDiv.className = "result-container" Then
            GTranslate = objDiv.innerText: Exit For
        End If
    Next objDiv
    
    Set objHTML = Nothing: Set objHTTP = Nothing
End Function
 
 
 
 
 
 cs
위로 아래로 댓글로 가기 인쇄 첨부
Comments '2'
사진 및 파일 첨부

여기에 파일을 끌어 놓거나 왼쪽의 버튼을 클릭하세요.

파일 용량 제한 : 0MB (허용 확장자 : *.*)

0개 첨부 됨 ( / )
에디터 사용하기 닫기

  1. 엑셀 프로그램 요청하기(무료 또는 책 구입 후원)

    Date2021.06.07 By지천명영어 Views1371
    read more

  2. 엑셀 VBA로 PDF파일 페이지 나누기

    Date2022.12.13 By지천명영어 Views675
    Read More

  3. 이미지 속에 있는 표를 OCR로 인식 후, 테이블 데이터로 만들기

    Date2022.12.11 By지천명영어 Views1944
    Read More

  4. 엑셀 스크롤바 일치 시키기(UsedRange 에러)

    Date2022.11.24 By지천명영어 Views275
    Read More

  5. 엑셀 다운로드 후 매크로 차단(보안 위험 Microsoft는 이 파일의 출처를 신뢰할 수 없기 때문에 매크로 실행을 차단했습니다.

    Date2022.11.13 By지천명영어 Views5929
    Read More

  6. 엑셀 리본메뉴 imageMso (이미지 아이콘 검색)

    Date2022.08.25 By지천명영어 Views886
    Read More

  7. 수도쿠로 숫자와 친해지기(엑셀 매크로(VBA)로 스도쿠 프로그램 만들기(1/3)(2022.6.4 압데이트)

    Date2022.06.01 By지천명영어 Views1335
    Read More

  8. 엑셀 공백 행. 열 전부 삭제 (엑셀에서 공란인 행과 열을 찾아서 한번에 삭제해 줍니다.)

    Date2022.05.27 By지천명영어 Views5050
    Read More

  9. 파파고와 구글번역을 한번에(지천명영어) 프로그램 사용법

    Date2022.05.24 By지천명영어 Views2482
    Read More

  10. 엑셀 표를 웹형식의 html 코드로 만들기(글꼴 설정, 셀병합 , 하이퍼링크 , 테두리 표시 등을 코드로 만들어 줍니다.)

    Date2022.05.23 By지천명영어 Views5107
    Read More

  11. 대법원 부동산 경매 물건 검색 크롤링(엑셀) - 타 프로그램 없이 직접 엑셀에서 경매 물건 검색

    Date2022.05.13 By지천명영어 Views2771
    Read More

  12. 엑셀로 PPT파일을 자동으로 만들기

    Date2022.04.18 By지천명영어 Views6774
    Read More

  13. 영어, 일본어 듣기 공부 용 mp3 파일 가사 만들기 - 일괄 만들기

    Date2022.04.10 By지천명영어 Views543
    Read More

  14. 일본어 한자 후리가나 자동입력 및 파파고 한글번역 그리고, 구글 영어번역까지 한번에

    Date2021.11.17 By지천명영어 Views2027
    Read More

  15. MS오피스 언어가 일본어로 나올 때 한국어로 바꾸기

    Date2021.10.31 By지천명영어 Views2685
    Read More

  16. PDF 영어문장 합치기(PDF 문서 영어 글자를 정상적인 영문으로 일괄 바꿔주기)

    Date2021.06.28 By지천명영어 Views1119
    Read More

  17. 엑셀에 마이크로소프트(MS) 영어 음성합성시스템(TTS) 설치하기

    Date2021.06.13 By지천명영어 Views1151
    Read More

  18. 따옴표 없이 엑셀 글자 복사하기

    Date2021.06.08 By지천명영어 Views7857
    Read More

  19. 구글 번역을 엑셀로, 텍스트 문장을 한꺼번에 구글 번역하기

    Date2021.06.07 By지천명영어 Views5828
    Read More

  20. 엑셀 비어있는 셀(공란인 행 또는 열) 한번에 삭제하기

    Date2021.06.05 By지천명영어 Views3136
    Read More

  21. 엑셀 책 쪽수 자동 계산하는 법

    Date2021.06.05 By지천명영어 Views536
    Read More
쓰기
Board Pagination Prev 1 2 Next
/ 2

LOGIN

로그인

회원가입

SEARCH

MENU NAVIGATION