­ã´£³¡ªL

¦^´_ 10# gaishutsusuru


¦pªGªí¤@¶W¹L10¦æ, ¤S«ç°µ???

­ã´£³¡ªL

¦^´_ 10# gaishutsusuru


With [J1].Resize(MaxRa + 1, MaxCa)
     .Value = Arr
     .Borders.LineStyle = 1
     .Rows(1).Interior.ColorIndex = 6
End With

Dim Erng As Range
Set Erng = [J1].Cells(MaxRa + 4, 1)
If Erng.Row < 10 Then Set Erng = [J10]
With Erng.Resize(MaxRb + 2, MaxCb)
     .Value = Brr
     .Borders.LineStyle = 1
     .Rows(1).Interior.ColorIndex = 6
End With

gaishutsusuru

¦^´_ 12# ­ã´£³¡ªL


ÁÂÁ±zªº¦^ÂÐ

Ãö©ó±z´£¨ìªº°ÝÃD¡A¹ï±z«D±`¤£¦n·N«ä¡A§Ú¨S¦³»¡©ú²M·¡¡G¦]¬°¡u¤j¤p³Ì¦h¥u¦³6ºØ¤Ø¤o¡v¡A©Ò¥Hªí¤@³Ì¦h·|¨ìJ6¡AÀ³¸Ó¬O¤£·|¨ìJ10ªº¡C

­è­è¸Õ¤F±z§ïªº¥¨¶°¡A¥Ø«eÀ³¸Ó¬O¥i¥H¾Þ§@¤F¡C

³Ì«á¡A¯uªº·PÁ±zªº¨ó§U¡AÁÂÁ¡C