Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
52805 / 76732 ←次へ　｜　前へ→
【28756】Re:チェックボックスを含む行の追加
発言  ponpon  - 05/9/13(火) 23:32 -
引用なし
パスワード
   こんばんは。
削除する場合ですが、新しくユーザーフォームを作るのではなく、
今あるユーザーフォームに削除用コマンドボタン２を設け、
それをクリックしたら、削除するようにしたらいかがでしょうか？

試していませんが、以下のようなコードでできると思います。
もっといい方法があるかもしれません。

Private Sub CommandButton2_Click()
　Dim myRow As Long
　Dim ans As Variant
　
　With Worksheets("点数集計表")
　 myRow = Application.Match(Val(Me.社員番号TextBox1.Text), .Range("C:C"), 0)
　 If Not IsError(myRow) Then
　　　Me.社員名TextBox1.Text = .Cells(myRow, "C").Offset(0, -1).Value
'　　 Me.社員登録ComboBox1.Value = .Cells(myRow, "C").Offset(0, -2).Value
　　　ans = MsgBox("削除してもよいですか？", vbYesNo)
　　　If ans = vbYes Then
　　　　.Cells(myRow, "C").EntireRow.Delete shift:=xlUp
　　　　For Each chcB In .CheckBoxes
　　　　　If Cells(myRow, "C").Offset(0, 17).Top = chcB.Top Then
　　　　　　chcB.Delete
　　　　　End If
　　　　 Next
　　　 Else
　　　　Exit Sub
　　　 End If
　　Else
　　 MsgBox "この社員番号は登録されていません"
　　End If
　End With


End Sub
0 hits
▼ 【28685】チェックボックスを含む行の追加 toki 05/9/12(月) 21:27 質問
【28686】Re:チェックボックスを含む行の追加 ichinose 05/9/12(月) 21:54 発言
【28687】Re:チェックボックスを含む行の追加 toki 05/9/12(月) 22:43 質問
【28689】Re:チェックボックスを含む行の追加 ponpon 05/9/12(月) 23:36 発言
【28699】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 8:45 お礼
【28722】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 16:19 質問
【28736】Re:チェックボックスを含む行の追加 ponpon 05/9/13(火) 20:24 発言
【28746】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 22:07 お礼
【28756】Re:チェックボックスを含む行の追加 ponpon 05/9/13(火) 23:32 発言≪
【28757】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 23:52 質問
【28758】Re:チェックボックスを含む行の追加 ponpon 05/9/14(水) 0:44 発言
【28763】Re:チェックボックスを含む行の追加 toki 05/9/14(水) 9:18 お礼
【28937】Re:チェックボックスを含む行の追加 toki 05/9/18(日) 22:59 質問
【28938】Re:チェックボックスを含む行の追加 ponpon 05/9/18(日) 23:48 発言
【28939】Re:チェックボックスを含む行の追加 Hirofumi 05/9/19(月) 0:35 発言
【28945】Re:チェックボックスを含む行の追加 toki 05/9/19(月) 10:04 お礼
【28941】Re:チェックボックスを含む行の追加 ponpon 05/9/19(月) 1:02 発言
【28942】Re:チェックボックスを含む行の追加 ponpon 05/9/19(月) 1:08 発言
【28946】Re:チェックボックスを含む行の追加 toki 05/9/19(月) 10:15 お礼
【28696】Re:チェックボックスを含む行の追加 ichinose 05/9/13(火) 7:23 発言
【28700】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 8:46 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
52805 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free