◆印刷範囲外に、書かれた赤と青で囲まれた数値をまずそのまま
でも良いので別シートに表示させたいです。 ・・・解決
(全11シートあり全て同じセルに入っています)
◆そして、その表示した数値の最大値を求めいです。
(たとえば、「-0.002」と「0.001」だったら「-0.002」
「-0.002」と「0.002」なら±0.002と表示したいです)
Sub saidaichi()
Dim atai
Dim ws
ws = 1 For atai = 2 To 12 Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value ws = ws + 1 Next
End Sub
ージ説明](290caebec0516ff6268cd1e201648340.jpeg)9965781a4b8eb3bc8a92981b66ccbd82.jpeg)
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/11/11 10:04