Excel VBA質問箱 IV

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

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


37599 / 76737 ←次へ | 前へ→

【44301】Re:1項目の説明と2項目
回答  yata  - 06/11/12(日) 19:10 -

引用なし
パスワード
   素人じゅうすけ さん こんばんわ
ごめんなさい。返信が遅くなりました。
>再度の質問、申し訳ありません。
>計算式のマクロは、「’引き算をして別シートへ表示」の部位(つまりは、NEXTとWITH SHEETSの間)に打ち込めば好いのでしょうか?
「計算式のマクロ」とはどのような式を入れたいのですか?。
計算はここで出来ていますが
With Sheets("Sheet2")
  '使われている最終行番号
  EndRow = .Range("A65536").End(xlUp).Row
  .Cells(EndRow + 1, 1) = 期間
  .Cells(EndRow + 1, 2) = Cells(r2, 2) - Cells(r1, 2)
  .Cells(EndRow + 1, 3) = Cells(r2, 3) - Cells(r1, 3)
End With
元データがSheet1にあって、Sub Test1()〜End SubまでがSheet1のコードにあれば、
Sheet2の1行目に項目が入力してあれば、InputBoxで日付を 8/31,9/30[OK]、9/30,10/31[OK]、・・

とするたびに、2行目、3行目・・・と追加されて表示されるはずですが?
もう一つの方は1列目に項目が入力されていたら、1回目はB列に 2回目はB列がデータで埋まっているので、その右の列に・・・ということです。
Cells(r2, 2) - Cells(r1, 2) は重量を引き算しています。
Cells(r2, 3) - Cells(r1, 3) は金額を引き算しています
EndRow + 1 は使っている行の下の行番号
EndColumn + 1 は使っている右側の列番号 です。
●2項目
Sheet4に項目を入れておく。A1に人名 B1に数量

Sub Test2()
Dim R As Long, r2 As Long '元データの行数と転記先の行番号
Dim 人名 As String
Dim Sum As Double
R = UsedRange.Rows.Count

人名 = InputBox("抽出する人")

For Each Rng In Range(Range("C2"), Cells(R, 3))
If Rng.Value = 人名 Then
    'G列から取り出して合計する
    Sum = Sum + Rng.Offset(0, 4).Value
End If
Next
With Sheets(4)
    r2 = .Range("A65536").End(xlUp).Offset(1, 0).Row
    .Cells(r2, 1) = 人名
    .Cells(r2, 2) = Sum
End With
'降順に並べ替え
With Sheets("Sheet4")
.Activate
'データが1件以上あったら並び替えをする
If .Range("A3") <> "" Then
.Range("A1").Select
Selection.Sort Key1:=.Range("B2"), Order1:=xlDescending
End If
End With
End Sub

C列に表示する日付について
例えばA氏のデータが3件あった場合は?

0 hits

【44202】別のSHEETへの答え記入 素人じゅうすけ 06/11/8(水) 20:58 質問
【44206】Re:別のSHEETへの答え記入 りん 06/11/9(木) 12:02 発言
【44208】Re:別のSHEETへの答え記入 素人じゅうすけ 06/11/9(木) 18:01 お礼
【44215】Re:勘違いかもしれませんが yata 06/11/9(木) 22:13 回答
【44251】Re:勘違いかもしれませんが 素人じゅうすけ 06/11/10(金) 19:11 質問
【44255】Re:勘違いかもしれませんが yata 06/11/10(金) 22:44 回答
【44266】Re:勘違いかもしれませんが 素人じゅうすけ 06/11/11(土) 14:11 質問
【44289】Re:取り敢えず1項目だけ yata 06/11/12(日) 8:42 回答
【44291】Re:取り敢えず1項目だけ 素人じゅうすけ 06/11/12(日) 9:36 回答
【44293】Re:取り敢えず1項目だけ 素人じゅうすけ 06/11/12(日) 10:30 質問
【44301】Re:1項目の説明と2項目 yata 06/11/12(日) 19:10 回答
【44313】Re:1項目の説明と2項目 素人じゅうすけ 06/11/13(月) 9:30 回答
【44383】Re:1項目の説明と2項目 素人じゅうすけ 06/11/14(火) 17:21 質問
【44389】Re:訂正と2項目の行挿入 yata 06/11/14(火) 19:51 回答
【44404】Re:訂正と2項目の行挿入 素人じゅうすけ 06/11/15(水) 9:37 質問
【44420】Re:2項目の日付表示では yata 06/11/15(水) 21:34 回答
【44486】Re:2項目の日付表示では 素人じゅうすけ 06/11/18(土) 14:53 お礼
【44542】Re:2項目の日付表示では 素人じゅうすけ 06/11/21(火) 9:43 質問
【44568】Re:2項目の日付表示では yata 06/11/21(火) 22:46 回答
【44590】Re:2項目の日付表示では 素人じゅうすけ 06/11/22(水) 17:40 お礼

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