Excel VBA質問箱 IV

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

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


52123 / 76736 ←次へ | 前へ→

【29454】Re:ワークシート間の検索集計
発言  ponpon  - 05/10/5(水) 18:34 -

引用なし
パスワード
   ▼toki さん、Jakaさん
 こんばんは。

>
>
>Private Sub 職務別印刷上期実行ボタン_Click()
>
>  Dim erCh As Variant
>  Dim comP1 As Variant
>  Dim gyo As Variant
>  Dim ten As Range
>  Dim c As Range
>  Dim myten1 As Variant, myten2 As Variant
>  Dim mycomiT As Variant
>  
>  
>  Application.ScreenUpdating = False
>  
>  'ユーザーフォームの表示テキストから職務名を変数に代入
>  sentakuI = Replace(sentakuP, "Level", "") ’←sentakuPというのは「職務+Level」で構成された変数のため、「職務」だけを抽出しています。
>  
>  
>  '社員登録がされている職務かどうかのチェック
>  With Worksheets("4月")
>  erCh = Application.Match(sentakuI, .Range("A:A"), 0)
>  End With
  
   sentakuPは、TextBox1.Value ですか?
   それなら、ここですでにsentakuIによる検索があっていることになります。
   つまり、職務を下でオートフィルターで抽出しているので、登録しているかどうかの
   二重チェックの意味ですか?
   
>    
>  If Me.職務別印刷TextBox1.Value = "" Then
>    MsgBox "いずれかの職務を選択してください。", vbExclamation, "職務選択": Exit Sub

   したがって、これは、検索前に行わないといけないと思います。ここが空だと
   sentakuIによる検索ができないと思います。

>  ElseIf IsError(erCh) Then
>    MsgBox "この職務の社員登録はありません。", vbExclamation, "登録なし": Exit Sub
>  
>  Else
>   
>  '点数集計
>  '****************************************
>  '職務によるオートフィルター絞込み
>  '****************************************
>  With Worksheets("4月")
>    '4月A列に職務によるオートフィルターをかける
>    .Range("A6", "A65536").AutoFilter field:=1, Criteria1:=sentakuI
>    '抽出されたC列をmyRに格納
>    Set myR = .Range("C7", "C65536").SpecialCells(xlCellTypeVisible)
>
>    'C列を上から順に(C=社員番号)
>    For Each c In myR
> 
>
>      '****************************************
>      '4月点数コピーペースト
>      '****************************************
>      '4月
>      With Worksheets("4月")
>        gyo = Application.Match(c, .Range("C:C"), 0)
                        ↑
                       c.value??

    でも、Jakaさんが言っているように、   
   Set myR = .Range("C7", "C65536").SpecialCells(xlCellTypeVisible)
    この段階で、sentakuIによる抽出は、終わっているので、
   myRを順番に転記していけばよいのでは・・・・
   For Each C in myR
    myten1 = C.Offset(0, 0).Resize(1, 5).Value 'はじめの5つ
    myten2 = C.Offset(0, 5).Resize(1, 5).Value '次の5つ
    mycomiT = C.Offset(0, -1).Value 'コミット取り出し
   
    ただ、C.Valueというのが特定の社員番号なら話は別ですが・・・
    このままでは、
   For Each C in myRのC と
   gyo = Application.Match(c, .Range("C:C"), 0)の
        C.Valueは同じになります。
   それなら、gyo = Application.Match(c, .Range("C:C"), 0)は、
   意味ないと思います。


>        Set ten = .Cells(gyo, 5) '←←←ここでエラー反転しています。型が違うとのこと。
>        '点数のコピー
>        myten1 = ten.Offset(0, 0).Resize(1, 5).Value 'はじめの5つ
>        myten2 = ten.Offset(0, 5).Resize(1, 5).Value '次の5つ
>        mycomiT = ten.Offset(0, -1).Value 'コミット取り出し
>        '人事評価シートへ
>        With Worksheets("人事評価シート")
>          .Cells(9, 2).Value = mycomiT 'コミット貼り付け
>          .Cells(13, 2).Resize(5, 1).Value = Application.Transpose(myten1)
>          .Cells(19, 2).Resize(5, 1).Value = Application.Transpose(myten2)
>        End With
>        
>      End With
>
>    
>    'オートフィルターの解除
>    Worksheets("4月").Range("A6", "A65536").AutoFilter
>    'プリントアウト
>    Worksheets("人事評価シート").PrintOut
>
>    Next
>
>
>  End With
>        
>    
>  End If
>  
>  Application.ScreenUpdating = 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 発言

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