Excel VBA質問箱 IV

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

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


20361 / 76732 ←次へ | 前へ→

【61792】TextBoxのデータを削除すると、ワークシートのデータも削除される
質問  Chikako  - 09/6/4(木) 14:49 -

引用なし
パスワード
   複数の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

'コマンドボタン1をクリックするとテキストボックス3にCのレコードが表示される
Private Sub CommandButton1_Click()
UserForm1.TextBox3.ControlSource = "C" & curRow
UserForm1.TextBox3.Font.Size = 24

End Sub

'コマンドボタン2をクリックし、テキストボックス3の内容を削除する
Private Sub CommandButton2_Click()
TextBox3 = vbNullString

End Sub

0 hits

【61792】TextBoxのデータを削除すると、ワークシートのデータも削除される Chikako 09/6/4(木) 14:49 質問
【61793】Re:TextBoxのデータを削除すると、ワークシ... つん 09/6/4(木) 15:11 回答
【61802】Re:TextBoxのデータを削除すると、ワークシ... Chikako 09/6/5(金) 13:49 お礼
【61795】Re:TextBoxのデータを削除すると、ワークシ... もも 09/6/4(木) 20:12 発言
【61803】Re:TextBoxのデータを削除すると、ワークシ... Chikako 09/6/5(金) 13:54 お礼

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