Excel VBA 手書きで入力する InkEditコントロール

• オブジェクト（必須）
  インクエディットを表すInkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】オブジェクト名を指定します。
• 設定値（必須）
  認識開始までの時間をミリ秒単位で指定します。認識開始時間を早くし過ぎると、入力途中で認識され思うような認識結果が得られない場合があります。既定値は「2000ミリ秒（2秒）」です。

• オブジェクト（必須）
  インクエディットコントロールを表す
  InkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】コントロールのオブジェクト名を指定します。
• 設定値（必須）
  

  設定値	内容
  True	マウス入力可能
  False	マウス入力不可能（既定値）

※既定値ではマウス入力は不可能で、タッチ操作可能なデバイスのみ対応します。

Private Sub UserForm_Initialize()
With InkEdit1
     .RecognitionTimeout = 1500
     .UseMouseForInput = True
End With
End Sub

Sub ユーザーフォーム表示
　　UserForm1.Show
End Sub

2行目【With InkEdit1】
InkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】オブジェクトをオブジェクト名で、With【ｳｨｽﾞ】ステートメントで指定します。

3行目【.RecognitionTimeout = 1500】
With【ｳｨｽﾞ】ステートメントで指定したInkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】オブジェクトの入力内容の認識を開始するまでの時間を設定するRecognitionTimeout【ﾚｺｷﾞﾈｯｼｮﾝﾀｲﾑｱｳﾄ】プロパティに1.5秒を表す1500ミリ秒を指定します。

4行目【.UseMouseForInput = True】
With【ｳｨｽﾞ】ステートメントで指定したInkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】オブジェクトのマウス操作による入力をどうするかを設定するUseMouseForInput【ﾕｰｽﾞﾏｳｽﾌｫｱｲﾝﾌﾟｯﾄ】プロパティにマウス操作を可能にするTrueを設定します。

• オブジェクト（必須）
  インクエディットを表すInkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】コントロールのオブジェクト名を指定します。
• 設定値（必須）
  InkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】コントロールに表示する、文字列を文字列型(String)の値で指定します。「””」（長さ0の文字列）を設定すると手書き入力で認識された文字列をクリアすることができます。

Private Sub CommandButton2_Click()
Dim 文字列 As String
Dim 最終行 As Long
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row +1
    文字列 = InkEdit1.Text
    Cells(最終行, 1).Value = 文字列
    InkEdit1.Text = ""
End Sub

3行目【Dim 最終行 As Long】
セルの値が入力されている最終行の次の行の行番号を格納する変数「最終行」を長整数型(Long)で宣言します。

4行目【最終行 = Cells(Rows.Count, 1).End(xlUp).Row +1】
Cells【ｾﾙｽﾞ】プロパティの行番号を表す引数に行の集まりを表すRows【ﾛｳｽﾞ】コレクション のCount【ｶｳﾝﾄ】プロパティ で最終セル番号を設定します。

列番号を表す引数に1を設定します。つまり、A列の最終行のセルを表します。

そのセルに対して、End【ｴﾝﾄﾞ】プロパティで方向を表す引数にxlUpを指定して下から上方向に向かってRow【ﾛｳ】プロパティで行番号を取得して1を加算することでデータが入力されている領域の終端セルの1行下の行番号を取得して引数「最終行」に代入します。

5行目【文字列 = InkEdit1.Text】
InkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】コントロールオブジェクトのText【ﾃｷｽﾄ】プロパティを使用して、手書き入力を認識して変換した文字列を取得し、変数「文字列」に代入します。

6行目【Cells(最終行, 1).Value = 文字列】
変数「文字列」に格納されている文字列をCells【ｾﾙｽﾞ】プロパティを使用して参照した、1列目のデータが入力されている領域の終端セルの次のセルに代入します。

7行目【InkEdit1.Text = “”】
InkEdit【ｲﾝｸｴﾃﾞｨｯﾄ】コントロールオブジェクトのText【ﾃｷｽﾄ】プロパティに「長さ0の文字列」を設定し、インクエディットが認識して表示されている文字列をクリアします。