ネイバー国語辞典/英語辞書検索ツール_v1.02_20240201
1つの機能を追加した「ネイバー国語辞典/英語辞書検索ツール_v1.02_20240201」を配布する。クエリに誤字がある場合は、結果を出力する方法をオプションとして追加し、このオプションに従って出力する機能を追加しました。
ネイバー国語辞典、英語辞書検索ツールの概要と使用方法は、以下の記事にまとめられている。
1. 要求事項
今週火曜日（2024-01-30）に次のようなコメントが登録された。
*コメントURL： https://prodskill.com/naver-korean-english-dictionary-search-tool-update-20220708/#comment-387
2. 反映内容
2.1。検索語と異なる結果が表示された場合の例
ネイバー辞書検索語に誤字がある場合、最も近い単語の検索結果を表示する。たとえば、「preimium」を検索すると、次のように提案内容に「premiumの検索結果です。」と表示され、premiumの検索結果が表示されます。
この時点で、Http Response JSONファイルの内容に次のデータが含まれていることを確認しました。
2.2.オプションの追加と機能の追加
次のように、「実際の検索語とは異なり、結果を表示」オプションを追加しました。
このオプションが選択された状態では以前のバージョン（v1.01）と同様に結果が表示され、選択しない状態では結果に「#NOT FOUND#」が表示されるように機能を追加した。
ヘルプの内容も以下のようにオプションの説明を追加した。
2.3。実行結果の例
「実際の検索語とは異なり、結果表示」オプションを選択して実行すると、以前のバージョン（v1.01）と同様に検索結果が表示され、H列（「実際の検索語」）に結果表示検索語を追加で出力する。
「実際の検索語とは異なり、結果表示」オプションを選択せずに実行すると、検索結果には「#NOT FOUND#」で出力する、H列（「実際の検索語」）に結果表示検索語を追加出力するのはオプションに関係なく常に出力する。
3. ダウンロード
以下のgithubで「ネイバー国語辞典、英語辞書検索ツール_v1.02_20240201.xlsm」ファイルを選択してダウンロードするか、
https://github.com/DAToolset/ToolsForDataStandard
または、このURLに直接ダウンロードできます。
https://github.com/DAToolset/ToolsForDataStandard/blob/main/ネイバー国語辞書英語辞書検索ツール_v1.02_20240201.xlsm
日本語 
한국어 
English 
简体中文 
Deutsch 
Español
こんにちは先生のおかげで英語勉強するのにたくさんのお役に立てて本当にありがとうございます。相違ではなく、もしこのように改造してみようと思うのに、可能なのかどうかと思います。
英単語は第1の意味だけでなく2 3 4 5 6の意味も重要であるが、構文解析されているオックスフォード辞書の場合、多くの場合、第3 4 5 6の意味が欠けているか動詞の意味もあるが、名詞型の意味だけ表記されるなど事実東亜出版やシュプリームなど辞書をもう一度見なければならない場合があります。
一番右の欄に等級別の意見がありますが、これで見ると、第1～以上の意志を一度に見ることができますが、この等級別の意見の意を掻き取ることができるように使用できるかどうかお願いします。
いつもありがとうございます。私もちょうど真のvbaの勉強を始めました。いつも見ているのがすみません。ありがとうございます。
こんにちは、嬉しいです。
良いコメントありがとうございます。
「等級別意見」の内容をインポートできるかどうかはテストしてみるとわかりますね。
私は最近時間の賭けがとても難しい状況だと少しかかるようです。
テストしてみるかどうかを把握してコメントを残しておきます。
ありがとうございます。先生。私はちょうどVBAを学ぶ初心者ユーザーなので、面倒です。ご検討いただきありがとうございます。お気軽にお願いいたします。
I apologize in advance if you find it a bit difficult to understand, because my English is very bad.
Hello, your tool is really suitable for my situation. But I still don't understand why when I use version v1.02 an error message appears, it is here:
ランタイムエラー「1004」
Method 'Range' of object '_Worksheet' failed.
At first I thought it was because the new version had an error, so I redownloaded version v1.01 and the error was the same. As for the message, in debug mode it points to this command line:
Dim sWord As String, oKorDicSearchResult As TDicSearchResult, oEngDicSearchResult As TDicSearchResult
Dim oBaseRange As Range
Set oBaseRange = Range(“検索結果Header”).Offset(1, 0) [it points here]
oBaseRange.Select
Can you show me where the error is and how to fix it?
Perhaps the problem is in the “Range(”検索結果Header“)” part.
This syntax means “named range” in Excel, and I'm guessing that the name of the range written in Korean is causing the error on your computer.
Try this
1. in Excel, click the “Edit” button at the top of the “Name Manager” window that appears when you press Ctrl+F3, and change the name to “Header”
2. change the part of the VBA code where the error occurs to the following
– Before: Range(“検索結果Header”)
– After: Range(“Header”)
Hope this works for you.
And please post comment when it works.