2008-07-01から1ヶ月間の記事一覧
Private Sub CommandButton1_Click() 'A1の値を検索し、あればB1の値に置換するマクロ Dim r As Range Set r = ThisWorkbook.Sheets("変換リスト").Range("A1") Dim UsedCell As Range Dim i As Integer Dim sss As Variant Set UsedCell = ThisWorkbook.She…
Private Sub CommandButton1_Click() 'A1の値を検索し、あればB1の値に置換するマクロ Dim r As Range Set r = ThisWorkbook.Sheets("変換リスト").Range("A1") Dim UsedCell As Range Dim i As Integer Dim sss As Variant Set UsedCell = ThisWorkbook.She…