Ｐａｇｅ 167 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼マクロ作りの考え方 美優 02/10/5(土) 12:17 ┗Re:マクロ作りの考え方 孫悟空 02/10/5(土) 12:43 ┗ありがとうございますぅ。 美優 02/10/5(土) 21:58 ─────────────────────────────────────── ■題名 ： マクロ作りの考え方 ■名前 ： 美優 ■日付 ： 02/10/5(土) 12:17 -------------------------------------------------------------------------
| １日から31日のデータの月計を作っているのですが、今までは32個目のシートに１〜３１シートにある数字を、一つづつSUMで計算式をいれているのですが、良く間違えるので最近知ったマクロを使おうと考えてます。どのようにすれば良いのか教えて下さい。 本を見ながらやってはいるのですが、どのように考えていけば良いのかわからないので、考え方のアドバイスだけでもお願い致します。m(_ _"m) |
| ▼美優 さんへ 下記モジュールが参考になると思います。 Sub 合計記入() Dim CellData, WSheet As Variant For Each CellData In Selection CellData.Value = 0 For Each WSheet In ActiveWorkbook.Worksheets If Not WSheet.Name = ActiveSheet.Name Then CellData.Value = CellData.Value + _ WSheet.Range(CellData.AddressLocal).Value End If Next WSheet Next CellData End Sub |
| ▼孫悟空 さん： 質問に答えてくださってありがとうございます。 月曜日、早速コレを持っていってやってみます。 たぶん、四苦八苦の続きを続行していると思いますので、また質問に来ると思いますがよろしくお願い致します。 ひとまず。 お礼まで。m(_ _"m) |