| |
複数のTextBoxに表示したワークシートのデータのうち、ひとつのTextBoxの内容のみCommandButtonを使って削除したいのです。下記記述ではワークシートのデータも同時に削除されれしまいます。基本が理解できていないためと思います。どこから手をつけたらいいのかわからなくなりました。よろしくお願いいたします。VBA素人です。本を見ながら記述しました。
Option Explicit
Dim curRow As Long
Dim StartRow As Long
Dim LastRow As Long
Private Sub ScrollBar1_Change()
curRow = UserForm1.ScrollBar1.Value
Call SmpControlSource
End Sub
'スクロールバーを使用してレコードを移動する
Private Sub UserForm_Initialize()
curRow = 1
StartRow = 1
LastRow = Worksheets("標識").Range("A1").CurrentRegion.Rows.Count
'スクロールバーの最大値、最小値を設定
With UserForm1.ScrollBar1
.Max = LastRow
.Min = StartRow
End With
Call SmpControlSource
End Sub
'ワークシートの値をそのままフォームに表示する
Sub SmpControlSource()
With UserForm1
.TextBox1.ControlSource = "A" & curRow
.TextBox2.ControlSource = "B" & curRow
End With
End Sub
'コマンドボタン１をクリックするとテキストボックス3にCのレコードが表示される
Private Sub CommandButton1_Click()
UserForm1.TextBox3.ControlSource = "C" & curRow
UserForm1.TextBox3.Font.Size = 24
End Sub
'コマンドボタン２をクリックし、テキストボックス３の内容を削除する
Private Sub CommandButton2_Click()
TextBox3 = vbNullString
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
