Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41968 / 76732

←次へ　｜　前へ→


	【39838】Re:検索該当なしの場合の登録について

Hirofumi - 06/7/2(日) 20:32 -


	引用なし

	パスワード

後もし、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

0 hits

▼

【39836】検索該当なしの場合の登録について 勉強中です 06/7/2(日) 19:21