ドロップダウン カレンダーに2006年の祝日を設定するには?
対象製品
El Tabelle for .NET 3.0J
詳細
日付型セルのドロップダウン カレンダーに祝日を設定するには、各コントロールの DropDownCalendar プロパティを設定します。ここでは、2005年と2006年の国民の祝日の設定例を示します。

El Tabelle のドロップダウン カレンダーでは、曜日・祝日の色分けや「7月の第3月曜日」のように法律にあわせた指定が可能です。
WorkBook/Sheet の場合、次のようにコーディングします。
[Visual Basic]
[C#]
MultiRowSheet の場合、次のようにコーディングします。
[Visual Basic]
[C#]
El Tabelle のドロップダウン カレンダーでは、曜日・祝日の色分けや「7月の第3月曜日」のように法律にあわせた指定が可能です。
WorkBook/Sheet の場合、次のようにコーディングします。
[Visual Basic]
Dim nationalHoliday As GrapeCity.Win.ElTabelle.HolidayStyle _
= New GrapeCity.Win.ElTabelle.HolidayStyle
nationalHoliday.Name = "2005,2006年 国民の祝日"
nationalHoliday.SubStyle = New GrapeCity.Win.ElTabelle.SubStyle( _
Color.White, Color.Red)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1))
'成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日", _
GrapeCity.Win.ElTabelle.MonthFlags.January, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'建国記念の日、政令で定める日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5))
'海の日、7月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日", _
GrapeCity.Win.ElTabelle.MonthFlags.July, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日", _
GrapeCity.Win.ElTabelle.MonthFlags.September, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日", _
GrapeCity.Win.ElTabelle.MonthFlags.October, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23))
'年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2005, 3, 20)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2006, 3, 21)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2005, 9, 23)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2006, 9, 23)))
'振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday = _
New GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy( _
GrapeCity.Win.ElTabelle.WeekFlags.All, _
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay)
Sheet1.DropDownCalendar.OverrideTipText = "振替休日"
'休日スタイルをコレクションに追加してカレンダーに反映する
Sheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday)
Sheet1.DropDownCalendar.ActiveHolidayStyles = New String() {"NH"}
'すべての日曜日の日付スタイルを赤色に設定する
Sheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
Sheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red
Sheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'すべての土曜日の日付スタイルを青色に設定する
Sheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
Sheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue
Sheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'A1セルを日付型に設定する
Dim objDate As New GrapeCity.Win.ElTabelle.Editors.DateEditor
'ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways
Sheet1(0, 0).Editor = objDate
= New GrapeCity.Win.ElTabelle.HolidayStyle
nationalHoliday.Name = "2005,2006年 国民の祝日"
nationalHoliday.SubStyle = New GrapeCity.Win.ElTabelle.SubStyle( _
Color.White, Color.Red)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1))
'成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日", _
GrapeCity.Win.ElTabelle.MonthFlags.January, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'建国記念の日、政令で定める日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5))
'海の日、7月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日", _
GrapeCity.Win.ElTabelle.MonthFlags.July, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日", _
GrapeCity.Win.ElTabelle.MonthFlags.September, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日", _
GrapeCity.Win.ElTabelle.MonthFlags.October, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23))
'年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2005, 3, 20)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2006, 3, 21)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2005, 9, 23)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2006, 9, 23)))
'振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday = _
New GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy( _
GrapeCity.Win.ElTabelle.WeekFlags.All, _
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay)
Sheet1.DropDownCalendar.OverrideTipText = "振替休日"
'休日スタイルをコレクションに追加してカレンダーに反映する
Sheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday)
Sheet1.DropDownCalendar.ActiveHolidayStyles = New String() {"NH"}
'すべての日曜日の日付スタイルを赤色に設定する
Sheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
Sheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red
Sheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'すべての土曜日の日付スタイルを青色に設定する
Sheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
Sheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue
Sheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'A1セルを日付型に設定する
Dim objDate As New GrapeCity.Win.ElTabelle.Editors.DateEditor
'ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways
Sheet1(0, 0).Editor = objDate
[C#]
GrapeCity.Win.ElTabelle.HolidayStyle nationalHoliday =
new GrapeCity.Win.ElTabelle.HolidayStyle();
nationalHoliday.Name = "2005,2006年 国民の祝日";
nationalHoliday.SubStyle =
new GrapeCity.Win.ElTabelle.SubStyle(Color.White, Color.Red);
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1));
//成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日",
GrapeCity.Win.ElTabelle.MonthFlags.January,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//建国記念の日、政令で定める日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5));
//海の日、7月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日",
GrapeCity.Win.ElTabelle.MonthFlags.July,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日",
GrapeCity.Win.ElTabelle.MonthFlags.September,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日",
GrapeCity.Win.ElTabelle.MonthFlags.October,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23));
//年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2005, 3, 20)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2006, 3, 21)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2005, 9, 23)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2006, 9, 23)));
//振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday =
new GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy(
GrapeCity.Win.ElTabelle.WeekFlags.All,
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay);
sheet1.DropDownCalendar.OverrideTipText = "振替休日";
//休日スタイルをコレクションに追加してカレンダーに反映する
sheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday);
sheet1.DropDownCalendar.ActiveHolidayStyles = new string[]{"NH"};
//すべての日曜日の日付スタイルを赤色に設定する
sheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
sheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red;
sheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//すべての土曜日の日付スタイルを青色に設定する
sheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
sheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue;
sheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//A1セルを日付型に設定する
GrapeCity.Win.ElTabelle.Editors.DateEditor objDate =
new GrapeCity.Win.ElTabelle.Editors.DateEditor();
//ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways;
sheet1[0, 0].Editor = objDate;
new GrapeCity.Win.ElTabelle.HolidayStyle();
nationalHoliday.Name = "2005,2006年 国民の祝日";
nationalHoliday.SubStyle =
new GrapeCity.Win.ElTabelle.SubStyle(Color.White, Color.Red);
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1));
//成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日",
GrapeCity.Win.ElTabelle.MonthFlags.January,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//建国記念の日、政令で定める日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5));
//海の日、7月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日",
GrapeCity.Win.ElTabelle.MonthFlags.July,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日",
GrapeCity.Win.ElTabelle.MonthFlags.September,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日",
GrapeCity.Win.ElTabelle.MonthFlags.October,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23));
//年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2005, 3, 20)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2006, 3, 21)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2005, 9, 23)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2006, 9, 23)));
//振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday =
new GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy(
GrapeCity.Win.ElTabelle.WeekFlags.All,
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay);
sheet1.DropDownCalendar.OverrideTipText = "振替休日";
//休日スタイルをコレクションに追加してカレンダーに反映する
sheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday);
sheet1.DropDownCalendar.ActiveHolidayStyles = new string[]{"NH"};
//すべての日曜日の日付スタイルを赤色に設定する
sheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
sheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red;
sheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//すべての土曜日の日付スタイルを青色に設定する
sheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
sheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue;
sheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//A1セルを日付型に設定する
GrapeCity.Win.ElTabelle.Editors.DateEditor objDate =
new GrapeCity.Win.ElTabelle.Editors.DateEditor();
//ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways;
sheet1[0, 0].Editor = objDate;
MultiRowSheet の場合、次のようにコーディングします。
[Visual Basic]
Dim nationalHoliday As GrapeCity.Win.ElTabelle.HolidayStyle _
= New GrapeCity.Win.ElTabelle.HolidayStyle
nationalHoliday.Name = "2005,2006年 国民の祝日"
nationalHoliday.SubStyle = New GrapeCity.Win.ElTabelle.SubStyle( _
Color.White, Color.Red)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1))
'成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日", _
GrapeCity.Win.ElTabelle.MonthFlags.January, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'建国記念の日、政令で定める日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5))
'海の日、7月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日", _
GrapeCity.Win.ElTabelle.MonthFlags.July, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日", _
GrapeCity.Win.ElTabelle.MonthFlags.September, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日", _
GrapeCity.Win.ElTabelle.MonthFlags.October, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23))
'年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2005, 3, 20)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2006, 3, 21)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2005, 9, 23)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2006, 9, 23)))
'振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday = _
New GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy( _
GrapeCity.Win.ElTabelle.WeekFlags.All, _
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay)
MultiRowSheet1.DropDownCalendar.OverrideTipText = "振替休日"
'休日スタイルをコレクションに追加してカレンダーに反映する
MultiRowSheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday)
MultiRowSheet1.DropDownCalendar.ActiveHolidayStyles = New String() {"NH"}
'すべての日曜日の日付スタイルを赤色に設定する
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'すべての土曜日の日付スタイルを青色に設定する
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'最初のセルを日付型に設定する
Dim objDate As New GrapeCity.Win.ElTabelle.Editors.DateEditor
'ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways
MultiRowSheet1(0, 0, 0).Editor = objDate
= New GrapeCity.Win.ElTabelle.HolidayStyle
nationalHoliday.Name = "2005,2006年 国民の祝日"
nationalHoliday.SubStyle = New GrapeCity.Win.ElTabelle.SubStyle( _
Color.White, Color.Red)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1))
'成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日", _
GrapeCity.Win.ElTabelle.MonthFlags.January, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'建国記念の日、政令で定める日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5))
'海の日、7月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日", _
GrapeCity.Win.ElTabelle.MonthFlags.July, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日", _
GrapeCity.Win.ElTabelle.MonthFlags.September, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
'体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日", _
GrapeCity.Win.ElTabelle.MonthFlags.October, _
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second, _
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23))
'年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2005, 3, 20)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"春分の日", New Date(2006, 3, 21)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2005, 9, 23)))
nationalHoliday.Holidays.Add( _
New GrapeCity.Win.ElTabelle.ForceHoliday( _
"秋分の日", New Date(2006, 9, 23)))
'振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday = _
New GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy( _
GrapeCity.Win.ElTabelle.WeekFlags.All, _
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay)
MultiRowSheet1.DropDownCalendar.OverrideTipText = "振替休日"
'休日スタイルをコレクションに追加してカレンダーに反映する
MultiRowSheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday)
MultiRowSheet1.DropDownCalendar.ActiveHolidayStyles = New String() {"NH"}
'すべての日曜日の日付スタイルを赤色に設定する
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red
MultiRowSheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'すべての土曜日の日付スタイルを青色に設定する
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle = _
GrapeCity.Win.ElTabelle.ReflectTitle.Both
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue
MultiRowSheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags = _
GrapeCity.Win.ElTabelle.WeekFlags.All
'最初のセルを日付型に設定する
Dim objDate As New GrapeCity.Win.ElTabelle.Editors.DateEditor
'ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways
MultiRowSheet1(0, 0, 0).Editor = objDate
[C#]
GrapeCity.Win.ElTabelle.HolidayStyle nationalHoliday =
new GrapeCity.Win.ElTabelle.HolidayStyle();
nationalHoliday.Name = "2005,2006年 国民の祝日";
nationalHoliday.SubStyle =
new GrapeCity.Win.ElTabelle.SubStyle(Color.White, Color.Red);
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1));
//成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日",
GrapeCity.Win.ElTabelle.MonthFlags.January,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//建国記念の日、政令で定める日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5));
//海の日、7月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日",
GrapeCity.Win.ElTabelle.MonthFlags.July,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日",
GrapeCity.Win.ElTabelle.MonthFlags.September,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日",
GrapeCity.Win.ElTabelle.MonthFlags.October,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23));
//年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2005, 3, 20)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2006, 3, 21)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2005, 9, 23)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2006, 9, 23)));
//振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday =
new GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy(
GrapeCity.Win.ElTabelle.WeekFlags.All,
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay);
multiRowSheet1.DropDownCalendar.OverrideTipText = "振替休日";
//休日スタイルをコレクションに追加してカレンダーに反映する
multiRowSheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday);
multiRowSheet1.DropDownCalendar.ActiveHolidayStyles = new string[]{"NH"};
//すべての日曜日の日付スタイルを赤色に設定する
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red;
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//すべての土曜日の日付スタイルを青色に設定する
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue;
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//最初のセルを日付型に設定する
GrapeCity.Win.ElTabelle.Editors.DateEditor objDate =
new GrapeCity.Win.ElTabelle.Editors.DateEditor();
//ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways;
multiRowSheet1[0, 0, 0].Editor = objDate;
new GrapeCity.Win.ElTabelle.HolidayStyle();
nationalHoliday.Name = "2005,2006年 国民の祝日";
nationalHoliday.SubStyle =
new GrapeCity.Win.ElTabelle.SubStyle(Color.White, Color.Red);
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("元日", 1, 1));
//成人の日、1月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("成人の日",
GrapeCity.Win.ElTabelle.MonthFlags.January,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//建国記念の日、政令で定める日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("建国記念の日", 2, 11));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("みどりの日", 4, 29));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("憲法記念日", 5, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("国民の休日", 5, 4));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("こどもの日", 5, 5));
//海の日、7月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("海の日",
GrapeCity.Win.ElTabelle.MonthFlags.July,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//敬老の日、9月の第3月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("敬老の日",
GrapeCity.Win.ElTabelle.MonthFlags.September,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Third,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
//体育の日、10月の第2月曜日
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.DayOfWeekHoliday("体育の日",
GrapeCity.Win.ElTabelle.MonthFlags.October,
GrapeCity.Win.ElTabelle.DayOfWeekInMonthFlags.Second,
GrapeCity.Win.ElTabelle.DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("文化の日", 11, 3));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("勤労感謝の日", 11, 23));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.Holiday("天皇誕生日", 12, 23));
//年によって変化する祝日の初期値を設定する(これらの日付は官報で公表される)
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2005, 3, 20)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("春分の日",
new System.DateTime(2006, 3, 21)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2005, 9, 23)));
nationalHoliday.Holidays.Add(
new GrapeCity.Win.ElTabelle.ForceHoliday("秋分の日",
new System.DateTime(2006, 9, 23)));
//振替休日の扱いを設定する
nationalHoliday.Holidays.Weekdays.Sunday =
new GrapeCity.Win.ElTabelle.DayOfWeekHolidayPolicy(
GrapeCity.Win.ElTabelle.WeekFlags.All,
GrapeCity.Win.ElTabelle.HolidayOverride.NextDay);
multiRowSheet1.DropDownCalendar.OverrideTipText = "振替休日";
//休日スタイルをコレクションに追加してカレンダーに反映する
multiRowSheet1.DropDownCalendar.HolidayStyles.Add("NH", nationalHoliday);
multiRowSheet1.DropDownCalendar.ActiveHolidayStyles = new string[]{"NH"};
//すべての日曜日の日付スタイルを赤色に設定する
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.SubStyle.ForeColor = Color.Red;
multiRowSheet1.DropDownCalendar.Weekdays.Sunday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//すべての土曜日の日付スタイルを青色に設定する
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.ReflectToTitle =
GrapeCity.Win.ElTabelle.ReflectTitle.Both;
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue;
multiRowSheet1.DropDownCalendar.Weekdays.Saturday.WeekFlags =
GrapeCity.Win.ElTabelle.WeekFlags.All;
//最初のセルを日付型に設定する
GrapeCity.Win.ElTabelle.Editors.DateEditor objDate =
new GrapeCity.Win.ElTabelle.Editors.DateEditor();
//ドロップダウンボタンを表示する
objDate.ShowDropDown = GrapeCity.Win.ElTabelle.Visibility.ShowAlways;
multiRowSheet1[0, 0, 0].Editor = objDate;
関連情報
キーワード
HowTo
この文書は、以前は次のFAQ IDで公開されていました : 8124