Excel VBA質問箱 IV

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

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


56971 / 76738 ←次へ | 前へ→

【24508】Re:登録方法
回答  Hirofumi  - 05/4/23(土) 19:04 -

引用なし
パスワード
   「Private Sub CommandButton2_Click()」のプロシージャを以下の様に変更して下さい

Private Sub CommandButton2_Click()

'  行の削除

  Dim rngDelete As Range
  Dim lngWrite As Long

  '現在行が未定なら
  If lngCurrent = 0 Then
    Exit Sub
  Else
    If MsgBox(TextBox1.Text & "のデータが削除されます", _
        vbExclamation + vbOKCancel, "行削除") = vbOK Then
      '削除データのListの先頭セル位置を設定
      Set rngDelete = Worksheets("Sheet3").Cells(1, "A")
      With rngDelete
        'Sheet3のデータ書き込み位置を取得
        lngWrite = .Offset(65536 - .Row).End(xlUp).Row - .Row + 1
        If lngWrite < 1 Then
          lngWrite = 1
        End If
      End With
      With rngList.Offset(lngCurrent)
        '名簿Listの削除行を削除Listの最終行にCopy
        .Resize(, lngCoiumns).Copy _
            Destination:=rngDelete.Offset(lngWrite)
        'H列に日付を代入(コメントアウトの行は、時刻まで入れる場合)
        rngDelete.Offset(lngWrite, lngCoiumns).Value = Date
'        rngDelete.Offset(lngWrite, lngCoiumns).Value = Now
        '行を削除
        .EntireRow.Delete
      End With
      Set rngDelete = Nothing
    End If
    'List行数をディリメント
    lngRows = lngRows - 1
    'IDのセル範囲を更新
    Set rngSearch = rngList.Offset(1).Resize(lngRows)
  End If
    
  'TextBoxのデータをクリア
  TextBox1.Text = ""
  DataClear
  
End Sub

0 hits

【24405】登録方法 まこと 05/4/21(木) 17:32 質問
【24407】Re:登録方法 ni 05/4/21(木) 17:49 発言
【24421】Re:登録方法 YN61 05/4/21(木) 21:34 回答
【24491】Re:登録方法 Hirofumi 05/4/23(土) 7:16 回答
【24496】Re:登録方法 まこと 05/4/23(土) 10:26 質問
【24497】Re:登録方法 Hirofumi 05/4/23(土) 11:41 回答
【24498】Re:登録方法 Hirofumi 05/4/23(土) 11:48 回答
【24506】Re:登録方法 まこと 05/4/23(土) 17:39 質問
【24508】Re:登録方法 Hirofumi 05/4/23(土) 19:04 回答
【24509】Re:登録方法 Hirofumi 05/4/23(土) 19:14 発言
【24511】Re:登録方法 まこと 05/4/23(土) 20:36 お礼
【24510】Re:登録方法 YN61 05/4/23(土) 20:03 発言
【24514】Re:登録方法 サラリーマン 05/4/23(土) 22:27 発言
【24515】Re:登録方法 サラリーマン 05/4/23(土) 22:29 質問
【24517】Re:登録方法 Hirofumi 05/4/23(土) 23:15 回答
【24523】サラリーマンさんの質問について Hirofumi 05/4/24(日) 7:05 発言
【24524】Re:サラリーマンさんの質問について サラリーマン 05/4/24(日) 8:02 発言

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