Excel VBA質問箱 IV

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

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


55482 / 76732 ←次へ | 前へ→

【26024】検索のしかた
質問  初心者  - 05/6/22(水) 9:56 -

引用なし
パスワード
   Button検索を押す。
Text氏名.Valueの文字を検索
上記文字にあったTextレコードを表示する

という作業がしたいのですが、Findを使用するみたいですがよくわかりません
どうかよろしくお願いいたします。


Private Sub Button検索_Click()

End Sub

Private Sub UserForm_Initialize()

  Combo住所.ColumnCount = 1
  Combo住所.AddItem "******"
  Combo住所.AddItem "******"
  
  Spin移動.Max = レコード数取得 + 1
  
  Set TBL(1) = Text登録日
  Set TBL(2) = Text氏名
  Set TBL(3) = Textフリカナ
  Set TBL(4) = Text郵便番号
  Set TBL(5) = Combo住所
  Set TBL(6) = Text住所
  Set TBL(7) = Text電話番号
  
  
  Set データ範囲 = Range("A1").CurrentRegion
  If データ範囲.Rows.Count = 1 Then
  Else
    データ表示 (2)
  End If
End Sub
Public Sub データ表示(行数 As Integer)
  
  Dim Cnt As Integer
  For Cnt = 1 To 7
    Select Case Cnt
      
      Case Else
        TBL(Cnt).Value = データ範囲.Cells(行数, Cnt).Value
    End Select
  Next
 
  
  Textレコード.Value = Spin移動.Value - 1 & "/" & レコード数取得

End Sub
Public Function レコード数取得() As Integer
  
  レコード数取得 = Range("A1").CurrentRegion.Rows.Count - 1

End Function
Public Sub データ書き込み(行数 As Integer)
  
  Dim Cnt As Integer
  For Cnt = 1 To 7
    Select Case Cnt
      
      Case Else
        データ範囲.Cells(行数, Cnt).Value = TBL(Cnt).Value
    End Select
  Next

End Sub
Private Sub Button更新_Click()
  
  データ書き込み (Spin移動.Value)
  
End Sub
Private Sub Button削除_Click()

  データ範囲.Rows(Spin移動.Value).Delete
  データ表示 (Spin移動.Value)
  
  Set データ範囲 = Range("A1").CurrentRegion
  Spin移動.Max = データ範囲.Rows.Count
  Worksheets("内訳").Range("A:G").ClearContents
  
  
End Sub
Private Sub Button終了_Click()
  
  データ編集.Hide
    
End Sub
Private Sub Button追加_Click()
  
  Dim AddRow As Integer
  
  AddRow = データ範囲.Rows.Count + 1
  データ書き込み (AddRow)
  
  Textレコード.Text = Spin移動.Value - 1 & "/" & レコード数取得

  Set データ範囲 = Range("A1").CurrentRegion
  Spin移動.Max = データ範囲.Rows.Count
  Spin移動.Value = データ範囲.Rows.Count
  データ表示 (AddRow)
  
End Sub
Private Sub Spin移動_Change()
  
  If データ範囲.Rows.Count <> 1 Then
    データ表示 (Spin移動.Value)
  End If

End Sub
0 hits

【26024】検索のしかた 初心者 05/6/22(水) 9:56 質問
【26026】Re:検索のしかた IROC 05/6/22(水) 10:12 回答
【26029】Re:検索のしかた 初心者 05/6/22(水) 10:37 質問
【26030】Re:検索のしかた IROC 05/6/22(水) 10:50 回答
【26032】Re:検索のしかた 初心者 05/6/22(水) 11:01 質問
【26033】Re:検索のしかた IROC 05/6/22(水) 11:59 回答
【26039】Re:検索のしかた 初心者 05/6/22(水) 14:27 質問
【26080】Re:検索のしかた IROC 05/6/23(木) 9:00 回答
【26099】Re:検索のしかた BOM 05/6/23(木) 16:23 お礼
【26102】Re:検索のしかた IROC 05/6/23(木) 16:35 回答
【26105】Re:検索のしかた BOM 05/6/23(木) 17:28 お礼

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