|
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
|
|