| |
はじめまして、いつもみなさんの質問→回答を参考に色々を勉強させて頂いてます。
今日は初めて質問させていただきますが、初心者な為わかりずらい質問の仕方しか出来ないですが････
どうかご理解頂きご回答して頂ければと思います。
宜しくお願い致します。
まず質問は、
年賀状印刷の住所録を作成しました。
名簿マスターというシートに、
Ａ Ｂ Ｃ Ｄ Ｅ ・・・・・
番号 氏名 フリガナ 会社名 部署名 ・・・・・
こういった形でデータが登録されてます。２００件程あります。
ここでＶＢＡで新規登録・削除・変更が可能なコンボボックスを作成しました。
その中の削除が以下の通りです。
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 = "" '分類１
Cells(選択行, 6).Value = "" '分類２
Cells(選択行, 7).Value = "" '会社名
Cells(選択行, 8).Value = "" '部署名１
Cells(選択行, 9).Value = "" '部署名２
Cells(選択行, 10).Value = "" '役職名
Cells(選択行, 11).Value = "" '郵便番号１
Cells(選択行, 12).Value = "" 'Ｅメール
Cells(選択行, 13).Value = "" '住所１
Cells(選択行, 14).Value = "" '住所２
Cells(選択行, 15).Value = "" '電話番号
Cells(選択行, 16).Value = "" 'ファックス
Cells(選択行, 17).Value = "" '携帯電話
Cells(選択行, 20).Value = "" '住所１'
Cells(選択行, 21).Value = "" '住所２'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True
Label17.Caption = "削除完了です。"
TextBox1.Text = "" '氏名
TextBox4.Text = "" 'フリガナ
ComboBox1.Text = "" '敬称
ComboBox2.Text = "" '分類１
ComboBox3.Text = "" '分類２
TextBox6.Text = "" '会社名
TextBox7.Text = "" '部署名１
TextBox8.Text = "" '部署名２
TextBox9.Text = "" '役職名
TextBox10.Text = "" '郵便番号
TextBox18.Text = "" 'Ｅメール
TextBox12.Text = "" '住所１
TextBox13.Text = "" '住所２
TextBox14.Text = "" '電話番号
TextBox15.Text = "" 'ファックス
TextBox16.Text = "" '携帯電話
Label16.Caption = "[次へ]ボタンで次の行へ移ります。"
End If
If 応答 = vbCancel Then
Exit Sub
End If
End If
End If
End Sub
このシステムですと、
削除をしたものが完全にデータ内から消えてしまいます。
これを削除シートを作成し、そちらに移行し保管したいのですが可能でしょうか？
ちなみにこの数式は退社なさった先輩が作成していかれたものなので、
私には意味がチンプンカンプンです。。。。
このデータは何人かの上司が確認し、その後でソノデータから私が印刷をかけます。
ですので、あとで私が見ても削除したものがなんなのかがわかる様
別シートに移行したいのです。
初心者で説明不足とは思いますが、
何卒宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
