Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70148 / 76732

←次へ　｜　前へ→


	【11095】Re:もっとコンパクトにしたいのですが…

Hirofumi

- 04/2/27(金) 23:20 -


	引用なし

	パスワード

思いっきりやるとこんなかな？
上手く行かなかったらゴメン

Public Sub Sample()

　　Dim i As Long
　　Dim vntData As Variant
　　'vntData(1, 1) : 資材
　　'vntData(2, 1) : 工作
　　'vntData(3, 1) : 設計
　　'vntData(4, 1) : 生産設計
　　'vntData(5, 1) : その他
　　Dim lngMonth As Long
　　Dim vntSheets As Variant
　　
　　vntSheets = Array("工作品質会議資料", "品質会議　実績グラフ")
　　
　　'計算式（小数点第二位切り上げ）
　　With Sheets(vntSheets(1))
　　　　vntData = .Range("B50:B54").Value
　　　　For i = 1 To 5
　　　　　　vntData(i, 1) = -Int(-vntData(i, 1) / 100) / 10
　　　　Next i
　　End With
　　
　　'出力
　　lngMonth = Val(StrConv(Worksheets(5).Range("I1"), vbNarrow))
　　lngMonth = ((lngMonth + 8) Mod 12) + 3
　　For i = 0 To 1
　　　　With Sheets(vntSheets(i))
　　　　　　Range(.Cells(5 + 2 * i, lngMonth), _
　　　　　　　　　　.Cells(5 + 2 * i, lngMonth)).Value = vntData
　　　　　　.Cells(11 + 2 * i, lngMonth).Value _
　　　　　　　　　　　　= .Cells(10 + 2 * i, lngMonth).Value
　　　　　　If lngMonth > 0 Then
　　　　　　　　.Cells(11 + 2 * i, lngMonth).Value _
　　　　　　　　　　= .Cells(11 + 2 * i, lngMonth).Value _
　　　　　　　　　　　　+ .Cells(11 + 2 * i, lngMonth - 1).Value
　　　　　　End If
　　　　End With
　　Next i

End Sub

0 hits

▼

【11072】もっとコンパクトにしたいのですが… みぃこ 04/2/27(金) 9:21