2009-11-04から1日間の記事一覧
これでたぶん完成。 Option Explicit Public Type Enzan s As Double n As String k As Integer End Type Private r As Long Private hai() As String Private c1 As Integer Sub Shoot() Columns("B").Value = "" Dim c For Each c In Array("Num1", "Num2"…