Excel VBA質問箱 IV

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

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


37643 / 76732 ←次へ | 前へ→

【44251】Re:勘違いかもしれませんが
質問  素人じゅうすけ E-MAIL  - 06/11/10(金) 19:11 -

引用なし
パスワード
   ▼yata さん:
ご回答の件、本当にありがとうございました。
1項目の答えについてですが、なぜ「8/31と9/31のデータ」を使うのかと言いますと、「9月分のデータを出すために、9月の末日のデータから前の月の末日までのデータを引く」からです。「何月分」というよりは、「何月何日〜何月何日」という表示にしたいです。これは可能でしょうか?また、このマクロで設定すれば別のSHEETへ自動的に表示されるのでしょうか?(前回の質問内容のような感じで)

2項目についてですが、合計させる「数量」は一つだけです。(yataさんの表と同じような感じです)これも別のSHEETに表記されるのでしょうか?(前回質問と同じような感じで)

またお手数をかけますが、宜しくお願い致します。
>素人じゅうすけ さん 今晩わ
>1項目の答え
>「8/31と9/31のデータを使って」 というのが良く分からないのですが、
>何月分ということでしたら下記の様にできますが?(私は棚卸し表を作る時、月名で指定しています。)
>
>Sub Test1()
>Dim R As Long
>Dim m As Integer  ''データ範囲の行数と月名
>R = UsedRange.Rows.Count
>m = Val(InputBox("抽出月"))
>For Each Rng In Range(Range("A2"), Cells(R, 1))
> If Month(Rng) = m Then
>  Set CopyData = Range(Rng, Rng.Offset(, 3))
>  CopyData.Copy _
>    Destination:=Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
> End If
>Next
>End Sub
>--------------------------------------------------------
>2項目
>「数量の合計」とはG 列の「数量」以外にあるのですか?
>単にA列、C列、G列を取り出して、降順に並べ替えるのでしたら
> A列    C列    G列
>日付    人名    数量
>8月29日    A    100
>8月30日    C    1
>9月1日    D    1000
>9月3日    A    200
>9月5日    B    50
>9月29日    F    30
>9月30日    E    20
>10月1日    C    2
>10月2日    A    300
>の様なデータがあるとして、特定の人のデータでその行にある特定のセルをだけを取り出す。
>
>Sub Test2()
>Dim R As Long, R2 As Long '元データの行数と転記先の行番号
>Dim 人名 As String
>R = UsedRange.Rows.Count
>人名 = InputBox("抽出する人")
>For Each Rng In Range(Range("C2"), Cells(R, 3))
> If Rng.Value = 人名 Then
>  With Sheets(2)
>    R2 = .Range("A65536").End(xlUp).Offset(1, 0).Row
>    .Cells(R2, 1) = 人名
>    .Cells(R2, 2) = Rng.Offset(0, 4)
>    .Cells(R2, 3) = Rng.Offset(0, -2)
>  End With
> End If
>Next
>'降順に並べ替え
>With Sheets(2)
> .Activate
> .Range("A1").Select
> Selection.Sort Key1:=.Range("B2"), Order1:=xlDescending
>End With
>End Sub
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 お礼

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