Excel VBA質問箱 IV

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

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


64314 / 76732 ←次へ | 前へ→

【16999】Re:繰り返しの方法を教えて下さい。
質問  さる E-MAIL  - 04/8/18(水) 13:18 -

引用なし
パスワード
   ▼Asaki さん:
>IROC さんのご回答のマクロは、きちんと理解されていますか?
>理解されていれば、簡単に応用できます。
>分からないところがあれば、ヘルプで調べたり、再度質問するなりするべきでしょう。
>なお、VBAのヘルプはインストールされていないかもしれませんので、
>今後もマクロを利用されるのであれば、インストールすることをお勧めします。

ありがとうございます。質問させていただきます。よろしくお願いします

Dim i As Long

 For i = 2 To Range("A65536").End(xlUp).Row
 If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 4)), 1) > 0  Then   Cells(i, 12).Value = "○"
  If WorksheetFunction.CountIf(Range(Cells(i, 5), Cells(i, 7)), 1) > 0 Then   Cells(i, 12).Value = "○"
  If WorksheetFunction.CountIf(Range(Cells(i, 8), Cells(i, 10)), 1) > 0 Then   Cells(i, 13).Value = "○"
if Cells(i,12) ="",cells(i,13) ="",cells(i,14) ="" then Cells(i,17).value="★”
If Cells(i,12)="○",Cells(i,13)="",Cells(i,14)="" Then Cells(i,15).value="★”
If Cells(i,12)="○",Cells(i,13)="",Cells(i,14)="○" Then Cells(i,15).value="★”
If Cells(i,12)="○",Cells(i,13)="○",Cells(i,14)="" Then Cells(i,16).value="★”
If Cells(i,12)="",Cells(i,13)="○",Cells(i,14)="○" Then Cells(i,16).value="★”
If Cells(i,12)="",Cells(i,13)="○",Cells(i,14)="" Then Cells(i,16).value="★”
If Cells(i,12)="○",Cells(i,13)="○",Cells(i,14)="○" Then Cells(i,16).value="★”

Next i

実行したらコンパイルエラーになりましたのでおかしいところを教えて下さい。

0 hits

【16981】繰り返しの方法を教えて下さい。 さる 04/8/17(火) 23:52 質問
【16983】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/17(火) 23:57 回答
【16986】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 0:31 質問
【16988】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/18(水) 9:02 回答
【16989】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 9:52 質問
【16990】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/18(水) 10:07 回答
【16994】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 11:10 お礼
【16991】Re:繰り返しの方法を教えて下さい。 IROC 04/8/18(水) 10:10 回答
【16995】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 11:35 質問
【16996】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 11:45 質問
【16997】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/18(水) 12:39 発言
【16998】Re:繰り返しの方法を教えて下さい。 IROC 04/8/18(水) 13:08 回答
【16999】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 13:18 質問
【17000】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/18(水) 13:27 回答
【17001】Re:繰り返しの方法を教えて下さい。 Asaki 04/8/18(水) 13:34 回答
【17002】Re:繰り返しの方法を教えて下さい。 さる 04/8/18(水) 13:57 お礼

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