¥È¥Ã¥× ºÇ¿· Äɵ­

¥µ¥¤¥é¥¹¤ÎËÜê


2006-06-05

¡¦ [Excel]·î¿ô·×»»¤ÎÊýË¡

Ʊ¤¸Ç¯¤Î 2 ¤Ä¤ÎÆüÉմ֤ηî¿ô¤òµá¤á¤ëÊýË¡¡£

=MONTH(A3)-MONTH(A2)

°Û¤Ê¤ëǯ¤Î 2 ¤Ä¤ÎÆüÉմ֤ηî¿ô¤òµá¤á¤ëÊýË¡¡£

=(YEAR(A4)-YEAR(A3))*12+MONTH(A4)-MONTH(A3) 
ËÜÆü¤Î¥ê¥ó¥¯¸µ | 127 | 59 | 49 | 41 | 41 | 35 | 33 | 31 | 30 | 28 |

2006-06-13

¡¦ [C#]·îËöÆüÉÕ·×»»

ËÜÆü¤ò´ð½à¤È¤·¤Æ·îËöÆüÉÕ¤ò·×»»¤¹¤ëÊýË¡¤Ï°Ê²¼¤ÎÄ̤ꡣ
string sEndDate = DateTime.Parse(DateTime.Today.AddMonth(1).ToString("yyyy/MM/01")).AddDays(-1).ToShortDateString();
ËÜÆü¤Î¥ê¥ó¥¯¸µ | 172 | 57 | 45 | 44 | 35 | 31 | 27 | 25 | 25 | 23 |

2006-06-20

¡¦ [Excel] ·ÓÀþ¤Î°ú¤­Êý

Excel VBA ¤Ç·ÓÀþ¤ò°ú¤¯¾ì¹ç¡¢ÈϰϤȤʤë Range ¤Î Borders ¥×¥í¥Ñ¥Æ¥£¤Ë¤ª¤¤¤Æ°Ê²¼¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£¤Ê¤ª¡¢·ÓÀþ¤ÎÂÀ¤µ(Weight)¤Ï¡¢XlBorderWeight ¥¯¥é¥¹¤ÎÄê¿ô¡ÊxlHairline¡¢xlThin¡¢xlMedium¡¢xlThick¡Ë¤ò»ÈÍѤ·¤Þ¤¹¡£
With Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(MaxRow, MaxCol))
.Borders.LineStyle = xlContinuous '---·ÓÀþ¤Î¼ïÎà
.Borders.Weight = xlThin          '---·ÓÀþ¤ÎÂÀ¤µ
.Borders.Color = RGB(0, 0, 0)     '---RGBÃͤǿ§¤ò»ØÄê
.Font.Name = "£Í£Ó £ÐÌÀÄ«"        '---¥Õ¥©¥ó¥ÈÀßÄê
End With            
ËÜÆü¤Î¥ê¥ó¥¯¸µ | 41 | 23 | 15 | 10 | 10 | 7 | 7 | 7 | 7 | 6 |

2006-06-27

¡¦ [Excel] ¥¼¥í¤Î¿ôÃͤòɽ¼¨¤·¤Ê¤¤

¥·¡¼¥È¤Ç¥¼¥í¤¬ÍåÎ󤹤ë¤È¸«¤Å¤é¤¤¤È¤¤¤¦¾ì¹ç¡¢¥·¡¼¥ÈËè¤Ë¥¼¥íÃͤòɽ¼¨¤·¤Ê¤¤ÀßÄ꤬¤Ç¤­¤ë¡£
Worksheets("Sheet1").Select
ActiveWindow.DisplayZeros=True 
ËÜÆü¤Î¥ê¥ó¥¯¸µ | 25 | 18 | 11 | 11 | 8 | 7 | 7 | 6 | 6 | 5 |