2017-08-20から1日間の記事一覧

エクセルマクロのメモ

結構面倒くさい(;´Д`) Option Explicit Sub OnClick_Search() Dim w As Worksheet Dim c As Range Dim s() As String Dim firstAddress As String Dim i As Integer Set w = ActiveSheet If w Is Nothing Then MsgBox "ワークシートエラー" 'w.Cells(1, 1)…