Entries from 2016-11-01 to 1 month
Sub font() 'フォント名と見本一覧を作成 Cells(1, 1) = "フォント名" Cells(1, 2) = "数字見本" Cells(1, 3) = "小文字見本" Cells(1, 4) = "大文字見本" Dim i As Integer Dim str As String Dim obj As Object str = "0123456789" str2 = "abcdefghijklmn…
Sub font() 'フォント名と見本一覧を作成 Cells(1, 1) = "フォント名" Cells(1, 2) = "数字見本" Cells(1, 3) = "小文字見本" Cells(1, 4) = "大文字見本" Dim i As Integer Dim str As String Dim obj As Object str = "0123456789" str2 = "abcdefghijklmn…
