|
後もし、A列の値が数値の場合の変更を補足して置きます
以下の★印に変更して下さい
「Private Sub CommandButton1_Click()」の中の
If lngCurrent = 0 Then
'読み仮名、ID等のセル範囲からTextBox1値の行挿入位置を探索
' lngFound = RowSearch(TextBox1.Text, rngSearch, lngOver)
lngFound = RowSearch(Val(TextBox1.Text), rngSearch, lngOver) '★変更
'行挿入位置がList範囲内なら
「Private Sub TextBox1_AfterUpdate()」の中の
'TextBoxの値を半角大文字に揃える
' .Text = StrConv(.Text, vbNarrow + vbUpperCase)
'読み仮名、ID等のセル範囲からTextBox1値を探索、現在行を探索位置に
' lngCurrent = RowSearch(.Text, rngSearch)
lngCurrent = RowSearch(Val(.Text), rngSearch) '★変更
'もし、読み仮名、ID等が有った場合
詰まり、TextBox1の値を数値に直して、「Private Function RowSearch」の引数として与えます
また、以下の★印の部分で、A列のセル書式を「文字列」にしてしまう為
此れを止めて下さい
「Private Sub PutCellsData(lngRow As Long)」の中の
With rngList
'読み仮名、ID等を文字列として扱う時は、この行が必要
' .Offset(lngRow).NumberFormatLocal = "@" '★削除若しくはコメントアウト
For i = 1 To lngColumns
|
|