Excel VBA質問箱 IV

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

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


37583 / 76732 ←次へ | 前へ→

【44313】Re:1項目の説明と2項目
回答  素人じゅうすけ E-MAIL  - 06/11/13(月) 9:30 -

引用なし
パスワード
   ▼yata さん:
お返事ありがとうございます。
例えば、A氏が三件だとしますと、C列にその日付(縦に、つまりは1行目からスタートの場合は、1行目から3行目まで)早いもの順にすべて表示させたいのです。
その下、一行開けて次の人を表示させたいのです。次の人は5行目からのスタートと言うわけです。よろしくお願いします。
>素人じゅうすけ さん こんばんわ
>ごめんなさい。返信が遅くなりました。
>>再度の質問、申し訳ありません。
>>計算式のマクロは、「’引き算をして別シートへ表示」の部位(つまりは、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件あった場合は?
1 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 お礼

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