Ｐａｇｅ 85 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼全てのワークシートに同じ計算をさせたい！ ken 02/9/14(土) 23:49 ┗Re:全てのワークシートに同じ計算をさせたい！ Nakamura 02/9/15(日) 1:46 ┗すいません、もう一度お願いします。 ken 02/9/15(日) 7:21 ┗Re:すいません、もう一度お願いします。 Nakamura 02/9/15(日) 12:18 ┗ありがとうございました！ ken 02/9/16(月) 21:22 ─────────────────────────────────────── ■題名 ： 全てのワークシートに同じ計算をさせたい！ ■名前 ： ken ■日付 ： 02/9/14(土) 23:49 -------------------------------------------------------------------------
| Kenです。 いつもお世話になっています。 今回の質問は、何枚かのワークシートで同じセルの計算させたいのです。 一度に出来るでしょうか？ |
| ▼ken さん： >Kenです。 >いつもお世話になっています。 >今回の質問は、何枚かのワークシートで同じセルの計算させたいのです。 >一度に出来るでしょうか？ こんばんは 回答ではありませんが、もっと詳しく（具体的に）書かないとレスが付き難いと思いますよ。 それでは |
| >回答ではありませんが、もっと詳しく（具体的に）書かないとレスが付き難いと思いますよ。 すいません、やっぱりわかりにくいですよね。 たとえば、ｎ枚のワークシートの３〜ｎのSheetのcell(3,5)の値を （1枚目のcell(1,1)の値）×（3〜ｎのSheetのcell(2,2)の値） とした場合はどう書けばよろしいでしょうか？ For〜Each〜Nextを使うと思っているのですが・・・・ 宜しく、お願いします。 |
| こんにちは シート３〜ｎのセルＥ３に”=Sheet1!A1*B2”と入れておけば良いと思うのですが マクロでやるにはこんな感じです。 Sub test() Dim wksh As Worksheet, a As Variant, b As Variant For Each wksh In Worksheets With wksh a = Worksheets(1).Cells(1, 1).Value b = .Cells(2, 2).Value If .Index >= 3 And IsNumeric(a) And IsNumeric(b) Then .Cells(3, 5).Value = a * b End If End With Next End Sub それでは |
| Nakamura さん、ありがとうございました。 IsNumericは良く意味が解らないけど 調べてみます。 それでは、また、よろしくお願いします。 |