Excel VBA質問箱 IV

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

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


52448 / 76736 ←次へ | 前へ→

【29126】Re:ワークシート間の検索集計
質問  toki  - 05/9/25(日) 19:45 -

引用なし
パスワード
   ▼ponpon さん:
こんにちは。
なるほど簡単ですね。ありがとうございます。

ところで、もうひとつ質問があります。

全社員、全月の得点部分だけを一括クリアする場合、下記のようなコードではまったくダメでしょうか?
というかオブジェクトエラーになってしまいます。

ちなみに得点データ領域は、7行目、4列目以降です。
    'A列を上から順に
    For Each daTa In myDR
      daTagyo = daTa.Offset(0, 3).Resize(1, 10).Value
      daTagyo.Delete
    Next
の部分がダメらしいのですが・・・

  1    2    3     4
  職務 氏名 社員番号 得点・・・・・
7 J              ●
8 J              ●
9 J              ●





Private Sub データクリアボタン_Click()
  
  Dim myDR As Range
  Dim daTa As Variant
  Dim daTagyo As Variant
  Dim ans As Integer
  Dim i As Integer
  
  Application.DisplayAlerts = False
  ans = MsgBox("全社員の得点データを一括削除します。本当に削除しますか?", vbYesNo + vbExclamation, "オールクリア")
  
  Select Case ans
    Case vbYes
    MsgBox "全社員の得点データを削除します。", vbInformation, "オールクリア"
       
  '****************************************
  '各月シートから得点データ領域を削除
  '****************************************
  For i = 1 To 12
  With Worksheets(i & "月")
    '抽出されたA列をmyDRに格納
    Set myDR = .Range("A7", .Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)

    'A列を上から順に
    For Each daTa In myDR
      daTagyo = daTa.Offset(0, 3).Resize(1, 10).Value
      daTagyo.Delete
    Next
  End With
  Next
    
    Case vbNo
  
  End Select
  Application.DisplayAlerts = True
End Sub

0 hits

【28969】ワークシート間の検索集計 toki 05/9/19(月) 23:13 質問
【28972】Re:ワークシート間の検索集計 Statis 05/9/20(火) 9:09 回答
【28996】Re:ワークシート間の検索集計 toki 05/9/20(火) 21:45 お礼
【28995】Re:ワークシート間の検索集計 ponpon 05/9/20(火) 19:25 発言
【28997】Re:ワークシート間の検索集計 toki 05/9/20(火) 21:46 質問
【29000】Re:ワークシート間の検索集計 ponpon 05/9/20(火) 22:52 発言
【29002】Re:ワークシート間の検索集計 toki 05/9/21(水) 7:19 お礼
【29035】Re:ワークシート間の検索集計 ponpon 05/9/22(木) 2:46 発言
【29052】Re:ワークシート間の検索集計 toki 05/9/22(木) 15:21 お礼
【29086】Re:ワークシート間の検索集計 toki 05/9/23(金) 16:56 お礼
【29091】Re:ワークシート間の検索集計 ponpon 05/9/23(金) 21:05 発言
【29096】Re:ワークシート間の検索集計 toki 05/9/23(金) 22:03 質問
【29097】Re:ワークシート間の検索集計 ponpon 05/9/24(土) 0:23 発言
【29099】Re:ワークシート間の検索集計 toki 05/9/24(土) 12:46 お礼
【29104】Re:ワークシート間の検索集計 ponpon 05/9/24(土) 21:40 発言
【29106】Re:ワークシート間の検索集計 toki 05/9/24(土) 23:14 お礼
【29108】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 5:49 発言
【29109】Re:ワークシート間の検索集計 toki 05/9/25(日) 8:27 お礼
【29122】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 16:50 発言
【29126】Re:ワークシート間の検索集計 toki 05/9/25(日) 19:45 質問
【29128】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 21:41 発言
【29188】Re:ワークシート間の検索集計 toki 05/9/27(火) 12:01 質問
【29199】Re:ワークシート間の検索集計 toki 05/9/27(火) 14:21 お礼
【29437】Re:ワークシート間の検索集計 toki 05/10/4(火) 23:08 質問
【29448】Re:ワークシート間の検索集計 Jaka 05/10/5(水) 13:16 発言
【29454】Re:ワークシート間の検索集計 ponpon 05/10/5(水) 18:34 発言
【29463】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:21 質問
【29467】Re:ワークシート間の検索集計 ponpon 05/10/5(水) 22:55 発言
【29526】Re:ワークシート間の検索集計 toki 05/10/6(木) 21:57 お礼
【29529】Re:ワークシート間の検索集計 ponpon 05/10/6(木) 23:34 発言
【29461】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:08 質問
【29462】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:12 発言

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