at6ue

Private Sub SuggestCancel_Click()
    SelectedItem = Null
    Unload Me
End Sub

Private Sub SuggestOK_Click()
    SelectedItem = Me.SuggestListBox.Value
    Unload Me
End Sub

at6ue

import UIKit
import TesseractOCR

class ViewController: UIViewController, G8TesseractDelegate {
    
    override func viewDidLoad() {
        super.viewDidLoad()

        //評価画像の準備
        let imageView = UIImageView()

at6ue

Const DicSheetName = "辞書"	'辞書シート名
Const DicRangeAddress = "A:A"	'辞書範囲

Private Sub Worksheet_Change(ByVal target As Range)
    If IsSearchCell(target) Then
        Application.EnableEvents = False
        'サジェスト
        Call Suggest(DicSheetName, DicRangeAddress, target, target.Count = 1)
        Application.EnableEvents = True
    End If

at6ue

Attribute VB_Name = "SuggestModule"
Option Explicit

'辞書や候補データが大きく、候補リストを別シートに分けるときTrue
Const USE_SUGGEST_LIST_SHEET = False
Const SUGGEST_LIST_NAME = "SuggestList" '候補リストの名前定義
Const SUGGEST_LIST_SHEET = "list"       '候補リストを格納するシート名

'候補リストが255文字を超える場合にリストの最後に追加する項目
Const OVERFLOW_DESCRIPTION = "…"

at6ue

'辞書や候補データが大きく、候補リストを別シートに分けるときTrue
Const USE_SUGGEST_LIST_SHEET = False
Const SUGGEST_LIST_NAME = "SuggestList" '候補リストの名前定義
Const SUGGEST_LIST_SHEET = "list"       '候補リストを格納するシート名

'辞書セルの内容によって、該当しない方をコメントアウト
'Const DICTIONARY_CELL_TYPE = xlCellTypeConstants    '文字列の場合
Const DICTIONARY_CELL_TYPE = xlCellTypeFormulas    '数式の場合

'検索セル値に部分一致する候補をドロップダウンリストに設定する