|
いつもありがとうございます!!!
おかげさまでできました。
ところでさらに質問ですが、教えていただいたユーザーフォームのリストボックスで選択した行をコマンドボタンから削除するにはどのようにするのでしょうか。
Private Sub コマンドクリア_Click()
'---削除---
Dim f As Long
Dim myLID As Long
myLID = ListBox1.ListIndex + 4
myCHE = True
Rows(myLID:myLID).Delete Shift:=xlUp
End Sub
上記のような感じでやってみたのですが、Rows・・・行で引っかかってしまいうまくできませんでした。
全然的外れなのかも知れませんが・・・。
ちなみにユーザフォームの構成は、以前質問した際と若干異なっています。
textbox1〜4、combobox1、textbox5、textbox6〜7、checkbox1〜6、textbox8、checkbox7〜15、textbox9・・・
という構成で、textbox6からtext9までの部分はマルチページで5ページ分同じ配列を繰り返しています。
それをエクセルシートに1行ずつA列からCX列まで順に貼り付けるようにしています。
現在作っているのは新規にデータを登録したり、変更、削除するというものです。
更には、オートフィルタでデータ抽出できるようにし、指定した行のデータを別シートに作成した「帳票」に貼り付けて印刷、というところまで作りたいと考えています。
|
|