5人の当番表を作りたいと思います
A列に日程のカレンダー ・ B列に曜日 ・ 土日祝日の場合は自動的にAからC列まで灰色がセルになるようにExcel2010の条件付書式で設定しています。
色が付いているところを除き、上から Aくん・Bくん・Cくん・Dくん・Eくん Aくん・・・(繰り返し)と、
カレンダー最後の行まで入力できるマクロを作りたいのですがどのように書けばいいでしょうか?
手順としては、次のような感じかなと思います。
やりたいことはあるのですが、どうやってコードを書けば良いか分かりません。
その方法も含めてご教示いただければ勉強になります。
1.名前を行列として定義
2.今のセルから一つ左に文字があるか判定
3.色が付いていなければAくんを挿入
4.一つ下のセルへ移動 2の判定をしてBくん挿入
・
・
・
5.左に文字が無くなれば終了
No.1ベストアンサー
- 回答日時:
>3.色が付いていなければAくんを挿入
VBAでは条件付き書式で塗りつぶされたセル色を認識できません
データは2行目から開始されていると仮定して
1.名前を行列として定義
↓
Dim Tantou(4) As String
Tantou(0) = "A君"
Tantou(1) = "B君"
Tantou(2) = "C君"
Tantou(3) = "D君"
Tantou(4) = "E君"
2.今のセルから一つ左に文字があるか判定
4.一つ下のセルへ移動
5.左に文字が無くなれば終了
↓
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Offset(0, 2).Select
For Each ObjRange In Selection
ココに(3.色が付いていなければTantou()を挿入)の処理
Next ObjRange
問題の
3.色が付いていなければAくんを挿入
の処理ですが
If 塗りつぶし条件を満たしていない場合 Then
Tc = WorksheetFunction.CountA(ActiveSheet.Range("C2:" & ObjRange.Address))
i = Tc Mod 5
ObjRange.Value = Tantou(i)
End If
こんな感じで
というかこれはマクロ使わずに、計算式のほうが容易な気がします
No.3
- 回答日時:
>A列に日程のカレンダー ・ B列に曜日 ・ 土日祝日の場合は自動的にAからC列まで灰色がセルになるようにExcel2010の条件付書式で設定しています。
その条件付き書式において色を付ける条件として入力されている数式がどの様なものなのかが判れば、マクロを使わずとも、ワークシート関数を使って、色が付いているところを除き、上から Aくん・Bくん・Cくん・Dくん・Eくん Aくん・・・(繰り返し)と、カレンダー最後の行まで入力する事も可能だと思われますので、
(1)カレンダーの初日の日付はA列の何行目に入力されているのか?
(2)その灰色の色を付ける条件として、条件付き書式の「書式ルールの編集」ダイアログボックス(或いは「新しい書式ルール」ダイアログボックス)の「次の数式を満たす場合に値を書式設定」欄に入力されている数式は、どの様なものなのか?
(3)Aくん・Bくん・Cくん・Dくん・Eくんという氏名の一覧が入力されている表が、もし既にある場合には、その氏名の一覧表において、実際の氏名が入力されているセル範囲は何シートの何列の何行目から、どちらの方向(下に向かってなのか? 右に向かってなのか?)なのか?(もし氏名の一覧表が存在しなければ、新たに作れば良いだけです)
という事を御教え頂けないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルを結合したA4とA5の条件付...
-
excel:条件付き書式の適用範囲...
-
ある倍数だけを塗りつぶす方法 ...
-
Excelで社歴管理をしており4年...
-
色のリンクは出来ますか?【エク...
-
Excelで表を作り、自動で今月の...
-
条件付き書式のやり方。隣のセ...
-
エクセルの折られたセルを戻したい
-
Excel2010 日付列を結合した予...
-
エクセル 文字列に数字を含む場...
-
excelの条件付き書式のルールに...
-
条件付き書式の式の書き方で「...
-
エクセルで毎年同じ月が来ると...
-
エクセル 条件付書式で時刻の...
-
関数の質問-条件に合った得点...
-
Excelの塗りつぶしの反映
-
【Excel】ガントチャートの作成...
-
EXCELで2つの条件設定で別のセ...
-
Excelを使ったメタボ判定の式を...
-
左列の文字の色と同じ文字の色...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excel:条件付き書式の適用範囲...
-
セルを結合したA4とA5の条件付...
-
ある倍数だけを塗りつぶす方法 ...
-
色のリンクは出来ますか?【エク...
-
Excelで社歴管理をしており4年...
-
Excelで表を作り、自動で今月の...
-
左列の文字の色と同じ文字の色...
-
条件付き書式のやり方。隣のセ...
-
エクセル 条件付書式で時刻の...
-
【Excel】ガントチャートの作成...
-
エクセルの折られたセルを戻したい
-
数字を入力するとセルに色が付...
-
Excelの塗りつぶしの反映
-
Excelで隣のセルを参照し...
-
excelの条件付き書式のルールに...
-
エクセル2010の書式の条件設定...
-
エクセルの小計のみに色をつけ...
-
エクセルで毎年同じ月が来ると...
-
Excel2010 日付列を結合した予...
-
エクセルで
おすすめ情報