|
はじめまして、いつもみなさんの質問→回答を参考に色々を勉強させて頂いてます。
今日は初めて質問させていただきますが、初心者な為わかりずらい質問の仕方しか出来ないですが・・・・
どうかご理解頂きご回答して頂ければと思います。
宜しくお願い致します。
まず質問は、
年賀状印刷の住所録を作成しました。
名簿マスターというシートに、
A B C D E ・・・・・
番号 氏名 フリガナ 会社名 部署名 ・・・・・
こういった形でデータが登録されてます。200件程あります。
ここでVBAで新規登録・削除・変更が可能なコンボボックスを作成しました。
その中の削除が以下の通りです。
Private Sub CommandButton8_Click() '削除
Dim 選択行 As Integer
Dim 参照範囲行 As Integer
Dim 参照番号 As Variant
Dim 参照元 As Variant
Dim 応答 As Variant
If TextBox17 = "" Then
Label16.Caption = "削除する氏名を検索してください。 "
TextBox1.SetFocus
Else
応答 = MsgBox("データを削除します。よろしいですか?", _
vbOKCancel, "データの削除")
If 応答 = vbOK Then
Range("A1").Activate
ActiveSheet.Unprotect
Label17.Caption = "削除中です。"
DoEvents
Label16.Caption = ""
参照番号 = TextBox17.Value
For 参照範囲行 = 3 To 1000
参照元 = Cells(参照範囲行, 1).Text
If 参照元 = 参照番号 Then
選択行 = 参照範囲行
End If
Next 参照範囲行
If 選択行 <> 0 Then
Cells(選択行, 2).Value = "" '氏名
Cells(選択行, 3).Value = "" 'フリガナ
Cells(選択行, 4).Value = "" '敬称
Cells(選択行, 5).Value = "" '分類1
Cells(選択行, 6).Value = "" '分類2
Cells(選択行, 7).Value = "" '会社名
Cells(選択行, 8).Value = "" '部署名1
Cells(選択行, 9).Value = "" '部署名2
Cells(選択行, 10).Value = "" '役職名
Cells(選択行, 11).Value = "" '郵便番号1
Cells(選択行, 12).Value = "" 'Eメール
Cells(選択行, 13).Value = "" '住所1
Cells(選択行, 14).Value = "" '住所2
Cells(選択行, 15).Value = "" '電話番号
Cells(選択行, 16).Value = "" 'ファックス
Cells(選択行, 17).Value = "" '携帯電話
Cells(選択行, 20).Value = "" '住所1'
Cells(選択行, 21).Value = "" '住所2'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True
Label17.Caption = "削除完了です。"
TextBox1.Text = "" '氏名
TextBox4.Text = "" 'フリガナ
ComboBox1.Text = "" '敬称
ComboBox2.Text = "" '分類1
ComboBox3.Text = "" '分類2
TextBox6.Text = "" '会社名
TextBox7.Text = "" '部署名1
TextBox8.Text = "" '部署名2
TextBox9.Text = "" '役職名
TextBox10.Text = "" '郵便番号
TextBox18.Text = "" 'Eメール
TextBox12.Text = "" '住所1
TextBox13.Text = "" '住所2
TextBox14.Text = "" '電話番号
TextBox15.Text = "" 'ファックス
TextBox16.Text = "" '携帯電話
Label16.Caption = "[次へ]ボタンで次の行へ移ります。"
End If
If 応答 = vbCancel Then
Exit Sub
End If
End If
End If
End Sub
このシステムですと、
削除をしたものが完全にデータ内から消えてしまいます。
これを削除シートを作成し、そちらに移行し保管したいのですが可能でしょうか?
ちなみにこの数式は退社なさった先輩が作成していかれたものなので、
私には意味がチンプンカンプンです。。。。
このデータは何人かの上司が確認し、その後でソノデータから私が印刷をかけます。
ですので、あとで私が見ても削除したものがなんなのかがわかる様
別シートに移行したいのです。
初心者で説明不足とは思いますが、
何卒宜しくお願い致します。
|
|