Excel VBA質問箱 IV

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

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


70162 / 76732 ←次へ | 前へ→

【11081】Re:もっとコンパクトにしたいのですが…
回答  IROC  - 04/2/27(金) 13:47 -

引用なし
パスワード
   Offset関数で、列方向に 月数−4 移動するようにしてみました。

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

1 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 お礼

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