¿´¤¬¸«¤¨¤ë¸÷¿´¤Ï¤É¤³¤Ë¤¢¤ë¤Î¤«¡£ º£¡¢»×¤¤É⤫¤Ù¤Æ¤¤¤ë¤³¤È¤Ï ¤³¤ÎÂΤÎÃæ¤Ë¤¢¤ë¤Î¤«¡¢Æ¬¤Î¾å¤Ç¤Õ¤ï¤Õ¤ï¤·¤Æ¤ë¤Î¤«¡£ ¤¢¤ë¸÷Àþ¤òÅö¤Æ¡¢ÆÃ¼ì¤Ê¤á¤¬¤Í¤Ç¸«¤ë¤È¸«¤¨¤½¤¦¤Êµ¤¤¬¤¹¤ë¡£ ¤½¤Î¾ì¹ç¡¢¤É¤³¤Î¹ñ¤Î¿Í¤Ç¤â¤¹¤Ù¤ÆÆ±¤¸¤è¤¦¤Ë¡¢ ľÀÜ¿´¤Ë´¶¤¸¤ë¤è¤¦¤Ë¸«¤¨¤Æ¤¤½¤¦¤Êµ¤¤¬¤¹¤ë¤Ê¡£ ¤È¤³¤í¤Ç¡¢µ²±¤ä·Ð¸³¤ò»Ä¤·¤¿¤Þ¤ÞÂΤò¼ãÊ֤餷¤¿¤ê¡¢ ÀÖ¤Á¤ã¤ó¤Þ¤ÇÀ¸¤Þ¤ìÊѤï¤Ã¤¿¤ê¤¹¤ë¤Û¤¦¤Ë ¿Ê²½¤·¤Ê¤«¤Ã¤¿¤Î¤Ï¤Ê¤¼¤Ê¤ó¤Ç¤·¤ç¤¦¡£ ¤Ê¤¼»Ò¶¡¤Ï¿Æ¤Î·Ð¸³¤ò°ú¤·Ñ¤¬¤º¤ËÀ¸¤Þ¤ì¤Æ¤¯¤ë¤Î¤Ç¤·¤ç¤¦¤«¡© ¤Ê¤¼¡ÖÎϡפȤ¤¤¦¤â¤Î¤¬¤³¤ÎÀ¤¤Ë¤¢¤Ã¤Æ 狼¤ò»ÙÇÛ¤·¤¿¤ê¡¢ ¡ÖÍýÉԿԡפ¬¤Þ¤«¤êÄ̤俤ꤷ¤Æ¤·¤Þ¤¦¤Î¤Ç¤·¤ç¤¦ ¤¢¤¤é¤á¤º¤Ë¡¢¤·¤¿¤¤¤è¤¦¤Ë¤·¤¿¤¤¤Û¤¦¤Ë¸þ¤«¤¦¤³¤È¤¬¿Ê²½¤Ê¤é µö¤µ¤ì¤Ê¤¤¤³¤È¤Ê¤ó¤«¤Ê¤¤¤È¤¤¤¦Á°Äó¤Ë¤Ê¤Ã¤Á¤ã¤¦¡£ °¤¤¤³¤È¤ò·è¤á¤ë¤³¤È¤¬°¤¤¤³¤È¤Ë¤Ê¤Ã¤Á¤ã¤¦¤Ê¤ó¤Æ¹Í¤¨¤Æ¤ß¤¿¤ê¡£ |
![]() |
![]() |
Êý¿ØºîÀ®¤Î¥Þ¥¯¥í¥é¥Æ¥óÊý¿Ø¤òºî¤ëEXCEL¤Î¥Þ¥¯¥í¤ò¹Í¤¨¤Æ¤ß¤¿¡£ Option Explicit 'Êý¿ØºîÀ®³«»ÏÃÏÅÀ¤È¤·¤¿¤¤¥»¥ë¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤·¡¢¼Â¹Ô¤¹¤ë¡£ Private Sub N¼¡¥é¥Æ¥óÊý¿ØºîÀ®() Dim n As Integer n = InputBox("²¿»þ¤Î¥é¥Æ¥óÊý¿Ø¤Ë¤·¤Þ¤¹¤«") If ¥é¥Æ¥óÊý¿ØºîÀ®(n) = False Then MsgBox "Êý¿ØºîÀ®¤Ë¼ºÇÔ" Else MsgBox "Êý¿ØºîÀ®À®¸ù" End If End Sub Private Function ¥é¥Æ¥óÊý¿ØºîÀ®(ByVal n As Integer) As Boolean On Error GoTo ErrorHandler Dim i As Integer Dim j As Integer Dim intSCol As Integer intSCol = ActiveCell.Column Dim intRow As Integer Dim intCol As Integer intRow = ActiveCell.Row intCol = ActiveCell.Column For i = 0 To n - 1 For j = 1 To n If j + i > n Then Cells(intRow, intCol).Value = j - n + i Else Cells(intRow, intCol).Value = j + i End If intCol = intCol + 1 Next intRow = intRow + 1 intCol = intSCol Next ¥é¥Æ¥óÊý¿ØºîÀ® = True Exit Function ErrorHandler: MsgBox "¥¨¥é¡¼È¯À¸" ¥é¥Æ¥óÊý¿ØºîÀ® = False End Function ¤É¤¦¤Ç¤·¤ç¤¦¤«¡£ |
![]() |
![]() |
¤½¤·¤Æ¤½¤ó¤Ê¤³¤È¤ò¤¤¤Ã¤Æ¤ë¤ª¤ì¤Ï¤Ë¤»¤â¤Î¤À¤ª¤ì¤Ï¤Û¤ó¤È¤¦¤Ï¤Ê¤ó¤Ë¤â¤â¤Ã¤Æ¤Ê¤¤¤ó¤À¤è ¤â¤Ã¤È¤â¤é¤·¤¤¤³¤È¤¤¤Ã¤Æ¤Æ¤â¤½¤ì¤Ï ¼Ú¤êʪ¤òÃΤäƤë¤È»×¤¤¤³¤ó¤Ç ¤Ê¤ó¤ó¤âÊ¢¤¬·è¤Þ¤Ã¤Æ¤Ê¤¯¤Æ ¤¿¤À¤Ó¤Ó¤Ã¤Æ ¤Ê¤ó¤À¤ª¤ì¤Ï¡ª ¤¤¤Ã¤¿¤¤¤Ê¤ó¤Ê¤ó¤À ¤Õ¤ê¤Ç¿Í¤ò¤ß¤Ê¤ò¤´¤Þ¤«¤·¤Æ¤ë¤À¤±¤¸¤ã¤Ê¤¤¤« ¤ª¤ì¤Ï¤Ê¤Ë¤ò¤â¤Ã¤Æ¤ó¤À ¤À¤±¤É¥¼¥í¤«¤é¤Ç¤â¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤ ¾¯¤·¤º¤Ä¤Ç¤â¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤ ¤´¤Þ¤«¤¹¤³¤È¤Ê¤¯ ±³¤Ä¤¯¤³¤È¤Ê¤¯ ±³¤Ê¤ó¤Æ¤¹¤°¸«Çˤé¤ì¤ë¤½¤ó¤Ê¤Î¤à¤Ê¤·¤¤¤À¤í À¸¤¤Æ¤ó¤À¤í¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤¤ó¤À¤í º£Æüb¤Ï¿ì¤Ã¤¿¤Ê¤Ë¤â¤â¤¦¤Ê¤¤¤ª¤ì¤ÎÃæ¿È¤Ï¤«¤é¤Ã¤Ý¤À¤É¤¦¤·¤è¤¦¤â¤Ê¤Ê¤¤¼«Ê¬¤ò¤È¤³¤È¤ó±Þ¤À±Þ¤À |
![]() |
![]() |
¤ª¤ì¤Ï¤Ê¤Ë¤ò¤µ¤¬¤·¤Æ¤ó¤À¿Í¤Ï»×¤¤¤ÇÊѤï¤ë ¤Ê¤Ë¤ò¤â¤Ã¤Æ¿Í¤Ï¼«Ê¬¤ËËþ¤¹¤ë¤ó¤À¡£ ¤É¤³¤Þ¤Ç¤¤¤±¤Ð¤ª¤ì¤Ï¤½¤ì¤Ç¤è¤«¤Ã¤¿¤È»×¤¨¤ë¤ó¤À¤í¤¦¤«¡£ ¤¤¤Ã¤¿¤¤¤ª¤ì¤Ï¤Ê¤Ë¤òµá¤á¤Æ¤ë¤ó¤À¤í¤¦¤«¡£ ¤è¤Ã¤Ñ¤é¤Ã¤Æ·î¤òį¤á¤Ê¤¬¤é ¤ª¤ì¤Ï¹Í¤¨¤ë¤ó¤À¡£ ¤Ê¤Ë¤¬¡¡¤ª¤ì¤òư¤«¤·¤Æ¤ó¤Î¤« ¤ª¤ì¤Ï¤Ê¤¼¤³¤³¤Ë¤¤¤Æ ¤Ê¤Ë¤òõ¤·¤Æ ¤Ê¤ó¤Ç¤À |
![]() |
![]() |
¤¤¤ë¤â¤Î¤¤¤é¤Ê¤¤¤â¤Î¿Í¤Ë¤È¤Ã¤Æ¤Îɬ¼ûÉʤϡ¢¤â¤¦¿È¶á¤Ë¤Ï¤Û¤È¤ó¤É·¤Ã¤Æ¤¤¤ë¡£ ºÇ¶á¤Î¿·À½Éʤϡ¢¤¢¤ì¤Ð¤¤¤¤¤±¤É¤Ê¤¯¤Æ¤âÊ̤ˤȤ¤¤¦´¶¤¸¤À¡£ ¤Ê¤ó¤È¤«Àú¤í¤¦¤È¤·¤Æ¤â¡¢ÉÔ¶·²¼¤Ç¤Ï¸Â³¦¤â¤¢¤ë¡£ ·ÈÂÓÅÅÏäϡ¢¤½¤ì¤¬¤Ê¤¤¤È»Å»ö¤Ë¤Ê¤é¤Ê¤¤¤Þ¤Ç¤Î¥¤¥ó¥Õ¥é¤Ë¤Ê¤Ã¤¿¡£ ¤½¤ì¤Ï¼Ò²ñ¤¬Í׵ᤷ¤¿¤«¤é¤À¡£É¬¼ûÉʤˤ·¤¿¤«¤é¤À¡£ º£ÅÙ¤ÏÅŵ¤¼«Æ°¼Ö¤Ê¤É¡¢¥¨¥³¤ò¼Ò²ñŪ¤ËɬÍפʤâ¤Î¤È·è¤á¡¢ ¤½¤ì¤Ç¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤È¤¤¤¦´Ñǰ¤òÍ¿¤¨¤Æ¤¤¤ë¡£ Ãϥǥ¸¤Ë³¤¡¢¤Ê¤¼¤½¤³¤Þ¤Ç¤È»×¤¦¡£ ¤½¤ì¤Ë¤è¤Ã¤Æ¸ÛÍѤ¬¡¦·ÐºÑ¤¬¤È¤¤¤¦¤Î¤â¤ï¤«¤é¤ó¤Ç¤â¤Ê¤¤¤¬¡¢ ¤¸¤ã¤¢¤º¤Ã¤È¤½¤ó¤Ê¤³¤È¤ò·«¤êÊÖ¤¹¤Î¤«¡£ ɬ¼ûÉÊ¤Ë°Ï¤Þ¤ì¤Æ¡¢¤½¤ì¤Ê¤ê¤ËÊë¤é¤¹¤³¤È¤òÁªÂò¤Ç¤¤ë¼Ò²ñ¡¢ ¶¥Á褷¤Ê¤¯¤Æ¤â¤¤¤¤¼Ò²ñ¤Ë¤Ï¤Ê¤é¤Ê¤¤¤Î¤«¡£ ¿Í´Ö¤ÏÀ®Ä¹¤·Â³¤±¤ëɬÍפϤʤ¤¤ó¤¸¤ã¤Ê¤¤¤«¤Ê¤È¤â»×¤¦¡£ |
![]() |
![]() |
DTI¥Ö¥í¥°¤Ã¤Æ¡© |
![]() |
![]() |
|
¥Û¡¼¥à |
¼¡¤Î¥Ú¡¼¥¸¤Ø |
copyright © 2006
Powered By DTI¥Ö¥í¥°
allrights reserved