Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70149 / 76732 ←次へ | 前へ→

【11094】Re:もっとコンパクトにしたいのですが…
回答  アイエネス  - 04/2/27(金) 23:17 -

引用なし
パスワード
   こんにちは 

みなさんのコードを参考にして作ってみました。

Sub test()
Dim i As Long
Dim j As Long
Dim mj As Single
Dim mk As Single
Dim suuti(4) As Single
Dim tuki As Long
Dim 実績グラフ As Worksheet
Dim 会議資料 As Worksheet
Set 実績グラフ = Worksheets("品質会議 実績グラフ")
Set 会議資料 = Worksheets("工作品質会議資料")

Application.ScreenUpdating = False
'計算式 (小数点第二位切り上げ)
For i = 0 To 4
suuti(i) = Application.WorksheetFunction.RoundUp((実績グラフ.Cells(50 + i, 2) * 1000) / 1000000, 1)
Next i

'出力
tuki = Replace(Worksheets(5).Range("I1").Value, "月", "")
j = IIf(tuki < 4, tuki + 11, tuki - 1)
For i = 0 To 4
実績グラフ.Cells(7 + i, j) = suuti(i)
会議資料.Cells(5 + i, j) = suuti(i)
Next i
If j = 3 Then
mj = 0
mk = 0
Else
mj = 実績グラフ.Cells(13, j - 1)
mk = 会議資料.Cells(11, j - 1)
End If
実績グラフ.Cells(13, j) = 実績グラフ.Cells(12, j) + mj
会議資料.Cells(11, j) = 会議資料.Cells(10, j) + mk
Application.ScreenUpdating = True
Set 実績グラフ = Nothing
Set 会議資料 = Nothing
End Sub

ちなみに、「品質会議 実績グラフ」シートの13行目、「工作品質会議資料」シートの11行目には、前月の13行目、11行目と当月の12行目、10行目の合計が入るのでしょうか?それとも、4月から当月までの12行目、10行目の合計が入るのでしょうか?それによって少し変わります。
2 hits

【11072】もっとコンパクトにしたいのですが… みぃこ 04/2/27(金) 9:21 質問
【11073】Re:もっとコンパクトにしたいのですが… IROC 04/2/27(金) 10:13 回答
【11075】Re:もっとコンパクトにしたいのですが… Asaki 04/2/27(金) 10:46 回答
【11081】Re:もっとコンパクトにしたいのですが… IROC 04/2/27(金) 13:47 回答
【11095】Re:もっとコンパクトにしたいのですが… Hirofumi 04/2/27(金) 23:20 回答
【11094】Re:もっとコンパクトにしたいのですが… アイエネス 04/2/27(金) 23:17 回答
【11153】Re:驚きました みぃこ 04/3/1(月) 15:26 お礼
【11270】ご報告 みぃこ 04/3/4(木) 14:08 発言
【11271】Re:ご報告 IROC 04/3/4(木) 14:34 回答
【11272】Re:ご報告 みぃこ 04/3/4(木) 14:57 お礼
【11389】Re:ご報告・その2 みぃこ 04/3/8(月) 14:13 お礼

70149 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free