帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-7-22 09:08 | 只看該作者

用excel上網查音標

本帖最後由 Hsieh 於 2010-7-22 13:04 編輯

http://gb.twbts.com/index.php?topic=11456.10

http://www.boxcn.net/shared/77cyt18g34
crdotlin 版主做的。

舊版的excel主題: 單字(詞)學習工具曾討論過的,用excel上網查音標。
只是現在yahoo的網頁改變了
請問現在要怎麼用呢!

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-7-22 13:10 | 只看該作者

本帖最後由 Hsieh 於 2010-7-22 13:11 編輯

回復 1# 自我感覺良好

現在的yahoo字典音標已經改成文字
這樣更好辨識了

Sub searchIT(Rng As Range)
Dim XH As Object
Dim shpRm As Shape
'清除已有的解釋及音標
With Rng.EntireRow
.Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
End With
'開啟網頁
Set XH = CreateObject("Microsoft.XMLHTTP")
With XH
.Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
.send
On Error Resume Next
'摘取第一組中文翻譯
Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description"">1.")(1), "<")(0)
'摘取KK音標
Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK ")(1), InStr(VBA.Split(.responseText, "KK ")(1), "]"))
End With
Rng.Select
End Sub

複製代碼

yahoo_dictionary.rar (13.66 KB)

學海無涯_不恥下問

TOP

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

3^#

發表於 2010-7-22 16:31 | 只看該作者

回復 2# Hsieh
真的太感謝了,又可以查音標了。
I [aɪ]
am [æm]
really [ˋrɪəlɪ]
thankful [ˋθæŋkfəl]

50 字節以內
不支持自定義 Discuz! 代碼

TOP

uncle

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
註冊時間: 2011-10-26
最後登錄: 2011-10-26

4^#

發表於 2011-10-26 18:59 | 只看該作者

回復 2# Hsieh

我是新會員還不能下載檔案。小弟不才，請問這些代碼要如何使用?

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

5^#

發表於 2011-11-21 09:13 | 只看該作者

各位大大好：

又有一個學習英文的
好工具，小弟要好好多加
運用。可是小弟在學習過程
中一直無法顯示其音標。
請問其原因為何呢？

感恩各位大大！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-11-21 10:02 | 只看該作者

回復 6# dechiuan999
2樓摘取KK音標 這行程式碼
 Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK ")(1), InStr(VBA.Split(.responseText, "KK ")(1), "]"))
 修改為
 Rng.Offset(0, 1) = Split((Split(.responseText, "KK")(1)), "")(0)

TOP

dechiuan999