vbaで書き換え

ある範囲(仮にA18:J18とA21:J21)の利用回数が10回未満の場合に、「出席」の文字を「基準未満」に書き換える。
ワークシート関数を使用。出席の文字を範囲中から見つけて、書き換える。

利用回数 = WorksheetFunction.CountIf(ActiveSheet.Range("A18:j18", "A21:j21"), "出席")
MsgBox "期間の、" & 利用回数 & "件です。", vbInformation

If 利用回数 < 5 Then

For 行 = 18 To 21 Step 3
For 列 = 1 To 10
If Cells(行, 列) = "出席" Then
Cells(行, 列) = Replace(Cells(行, 列), "出席", "基準未満")
End If
Next 列
Next 行
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR