Excel VBA質問箱 IV

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

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


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

70168 / 76738

←次へ　｜　前へ→


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

IROC - 04/2/27(金) 13:47 -


	引用なし

	パスワード

Offset関数で、列方向に　月数－４移動するようにしてみました。

Sub sample()
Dim 資材 As Single, 工作 As Single, 設計 As Single
Dim 生産設計 As Single, その他 As Single
Dim ws1 As Worksheet, ws2 As Worksheet
Dim mycol As Long

　　'シートをオブジェクト変数に格納
　　Set ws1 = Worksheets("品質会議　実績グラフ")
　　Set ws2 = Worksheets("工作品質会議資料")
　　
　　'計算式（小数点第二位切り上げ）
　　With Application.WorksheetFunction
　　　　資材 = .RoundUp((ws1.Range("B50") * 1000) / 1000000, 1)
　　　　工作 = .RoundUp((ws1.Range("B51") * 1000) / 1000000, 1)
　　　　設計 = .RoundUp((ws1.Range("B52") * 1000) / 1000000, 1)
　　　　生産設計 = .RoundUp((ws1.Range("B53") * 1000) / 1000000, 1)
　　　　その他 = .RoundUp((ws1.Range("B54") * 1000) / 1000000, 1)
　　End With

　　
　　mycol = CLng(Left(Worksheets(5).Range("I1").Value, _
　　　　　　Len(Worksheets(5).Range("I1").Value - 1)))
　　
　　　　With ws1
　　　　　　.Cells(7, 3).Offset(0, mycol - 4).Value = 資材
　　　　　　.Cells(8, 3).Offset(0, mycol - 4).Value = 工作
　　　　　　.Cells(9, 3).Offset(0, mycol - 4).Value = 設計
　　　　　　.Cells(10, 3).Offset(0, mycol - 4).Value = 生産設計
　　　　　　.Cells(11, 3).Offset(0, mycol - 4).Value = その他
　　　　　　.Cells(13, 3).Offset(0, mycol - 4).Value = .Range("C12").Value
　　　　End With
　　
　　　　With ws2
　　　　　　.Cells(5, 3).Offset(0, mycol - 4).Value = 資材
　　　　　　.Cells(6, 3).Offset(0, mycol - 4).Value = 工作
　　　　　　.Cells(7, 3).Offset(0, mycol - 4).Value = 設計
　　　　　　.Cells(8, 3).Offset(0, mycol - 4).Value = 生産設計
　　　　　　.Cells(9, 3).Offset(0, mycol - 4).Value = その他
　　　　　　.Cells(11, 3).Offset(0, mycol - 4).Value = .Range("C10").Value
　　　　End With

End Sub

0 hits

▼

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