Excel VBA質問箱 IV

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

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


48979 / 76732 ←次へ | 前へ→

【32678】Countifについて【至急】
質問  an  - 05/12/20(火) 18:39 -

引用なし
パスワード
   大変困っています。
どなたか教えてください。
以下のコード(下手で恥ずかしいですが、、)を2回実行しないと
正確にカウントされません。
原因がなんとなくわかるのですが、いくら考えても
修正することが出来ないのです。
お分かりになる方、至急アドバイスいただけると助かります。

-----------------------------------------------------------ここから
kizami = InputBox("刻みを入力して下さい。")
  lastrowno = Range("A65536").End(xlUp).Row
  
    If kizami = 500 Then
     
     For i = 2 To lastrowno
     
    
      Result1 = Application.WorksheetFunction.VLookup(Cells(i, 8),             Sheets("Sheet2").Columns("B"), 1, True)
      
       Range("L" & i).Value = Result1
       Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 2).Value
       Range("N" & i).Value = Application.WorksheetFunction.CountIf        (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i,           2))
      
      Next i
      
    ElseIf kizami = 1000 Then
     
     For i = 2 To lastrowno
    
      Result2 = Application.WorksheetFunction.VLookup(Cells(i, 8),             Sheets("Sheet2").Columns("A"), 1, True)
      
       Range("L" & i).Value = Result2
       Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 1).Value
       Range("N" & i).Value = Application.WorksheetFunction.CountIf        (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i,           1))
      Next i


    Else: kizami = 2000
     
     For i = 2 To lastrowno
    
      Result3 = Application.WorksheetFunction.VLookup(Cells(i, 8),       Sheets("Sheet2").Columns("C"), 1, True)      
       Range("L" & i).Value = Result3
       Range("M" & i).Value = "〜" & Sheets(2).Cells(i + 1, 3).Value
       Range("N" & i).Value = Application.WorksheetFunction.CountIf      (Sheets("200511").Columns("L"), Sheets("Sheet2").Cells(i, 3))
      
      Next i    
    
  End If

--------------------------------------------------------------ここまで
  
0 hits

【32678】Countifについて【至急】 an 05/12/20(火) 18:39 質問
【32679】Re:Countifについて【至急】 やっちん 05/12/20(火) 18:55 発言
【32681】Re:Countifについて【至急】 an 05/12/20(火) 19:11 質問
【32683】Re:Countifについて【至急】 やっちん 05/12/20(火) 19:26 回答
【32684】Re:Countifについて【至急】 an 05/12/20(火) 19:32 質問
【32686】Re:Countifについて【至急】 やっちん 05/12/20(火) 19:42 回答
【32688】Re:Countifについて【至急】 an 05/12/20(火) 20:07 お礼
【32699】Re:Countifについて【至急】 ゆと 05/12/21(水) 0:43 発言
【32709】Re:Countifについて【至急】 an 05/12/21(水) 9:05 質問
【32776】Re:Countifについて【至急】 ゆと 05/12/21(水) 23:26 回答
【32786】Re:Countifについて【至急】 an 05/12/22(木) 10:37 お礼
【32680】Re:Countifについて【至急】 やっちん 05/12/20(火) 19:08 発言

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