エクセルマクロ 爆速開発テンプレート
久しぶりにマクロを作成することになりました。分岐、ループ、デバックログの方法もググってます。どうせなら、全部込みのテンプレートがあればググる必要はない。よって以下を作成しました。これだけあれば、基本ロジックは作成できるかも。他はググってくださいね。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
Sub Macro1() 'Sheet1,Sheet2,Sheet3があるとして 'デバックログはイミディエイトウィンドウで確認 Sheets("Sheet1").Select Dim i As Integer Dim val1 As String Dim val2 As String '単独セル取得パターン1 Cellsはセルを扱うもの val1 = Cells(1, 1) Debug.Print ("Cells(1, 1)>>" & val1) '単独セル取得パターン2 val2 = Range("A2") Debug.Print ("Range(""A2"")>>" & val2) '範囲セル取得パターン1 Rangeは範囲を扱うもの Range("A1:B2").Select Selection.Copy Range("G1").PasteSpecial '範囲セル取得パターン2 Range(Cells(3, 1), Cells(4, 2)).Select Selection.Copy Cells(3, 7).PasteSpecial 'FORひな形 For i = 1 To 10 Debug.Print (i) 'IFひな形 If i Mod 2 = 0 Then Debug.Print "偶数です" Else Debug.Print "奇数です" End If Next 'シート関連名一覧 For i = 1 To Sheets.Count Cells(i + 10, 1) = Sheets(i).Name Next 'シート間コピー Sheets("Sheet1").Select Range("A11:A13").Select Selection.Copy Sheets("Sheet2").Select Range("A10").Select ActiveSheet.Paste End Sub |