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 質問
【39837】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 19:59 回答
【39838】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 20:32 回答
【39839】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 20:50 お礼
【39840】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 21:06 回答
【39841】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 21:12 お礼
【39843】Re:検索該当なしの場合の登録について Hirofumi 06/7/2(日) 21:33 回答
【39844】Re:検索該当なしの場合の登録について 勉強中です 06/7/2(日) 21:42 お礼
【39861】Re:検索該当なしの場合の登録について 勉強中です 06/7/3(月) 13:10 お礼

41968 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free