Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11221 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17105】データ整理 なかちゃん 04/8/23(月) 1:08 質問[未読]
【17106】Re:データ整理 Asaki 04/8/23(月) 1:25 発言[未読]
【17107】Re:データ整理 なかちゃん 04/8/23(月) 1:44 質問[未読]
【17121】Re:データ整理 柴犬 04/8/23(月) 14:53 回答[未読]
【17133】Re:データ整理 なかちゃん 04/8/23(月) 17:08 発言[未読]
【17188】Re:データ整理 [名前なし] 04/8/24(火) 17:36 回答[未読]
【17218】Re:データ整理 なかちゃん 04/8/24(火) 21:42 質問[未読]
【17307】Re:データ整理 なかちゃん 04/8/26(木) 17:56 質問[未読]
【17324】なかちゃん 応答せよ 柴犬 04/8/26(木) 23:54 回答[未読]
【17326】Re:なかちゃん 柴犬 04/8/27(金) 0:01 回答[未読]
【17387】Re:なかちゃん 応答せよ なかちゃん 04/8/28(土) 1:27 発言[未読]
【17265】Re:データ整理 通りすがり 04/8/26(木) 2:40 発言[未読]
【17105】データ整理
質問  なかちゃん  - 04/8/23(月) 1:08 -
引用なし
パスワード
   データ整理で行き詰まっています
教えて下さい。お願いします
下記のようなシートが８月〜７月までの１２枚あります

　A　　 B　　C　　 D　　　　E
1 日付　摘要　項目　収入金額　支出金額
2 繰越
3
4
5


33
34　　　　　　合計

入力範囲はA3〜E33です(暫定)
８月から翌年７月までをC項目毎に整理しようと思っています
項目は最大で13項目あります(月毎で異なります)
新規にシートを作ってコピペするのが簡単だとは思うのですが、私を含めて複数人が使用します
出来ればマクロ等を利用して、誰でも使用可能にしたいと思っています
もし可能ならば教えて下さい
よろしくお願いします
【17106】Re:データ整理
発言  Asaki  - 04/8/23(月) 1:25 -
引用なし
パスワード
   こんばんは。

結局、お解りにならないのは何処でしょうか？
また、結果として欲しいものはなんですか？
【17107】Re:データ整理
質問  なかちゃん  - 04/8/23(月) 1:44 -
引用なし
パスワード
   Asaki　様
こんばんは、よろしくお願いします

>結局、お解りにならないのは何処でしょうか？
>また、結果として欲しいものはなんですか？

新規のシートを作って、それに項目別に整理したいと思っています
例えば整理というシートを作って下記のようにしたいです

　 A　　 B　　 C　　 D　　　　E　　　
1　項目　日付　 摘要　収入金額　支出金額
2　宿泊　8/2　　東京　　　　　　10000
3　宿泊　10/10　大阪　　　　　　10000

12 事務　8/8　　コピー　　　　　870
13 事務　4/20　 パソコン　　　 80000

38 学習　8/21　 講習会　　　　 50000
39 学習　9/5　　懇談会　　　　 3000

と言った感じで１年分を整理できないかと思います　
月毎のシートに記入するだけで、整理シートに記入したいのです
よろしくお願いします
【17121】Re:データ整理
回答  柴犬  - 04/8/23(月) 14:53 -
引用なし
パスワード
   ▼なかちゃん
柴犬ですが入力Form作ってあげようか
でもそれってFX関数で間に合いそうだけど
【17133】Re:データ整理
発言  なかちゃん  - 04/8/23(月) 17:08 -
引用なし
パスワード
   柴犬 さん

こんにちは

>柴犬ですが入力Form作ってあげようか
>でもそれってFX関数で間に合いそうだけど

FX関数？できますか？
でも入力Formを作って欲しいです
よろしくお願いします
【17188】Re:データ整理
回答  [名前なし]  - 04/8/24(火) 17:36 -
引用なし
パスワード
   ▼なかちゃん さん：
>柴犬 ですが　A列の項目を順番に整理したいのですか
【17218】Re:データ整理
質問  なかちゃん  - 04/8/24(火) 21:42 -
引用なし
パスワード
   >>柴犬 ですが　A列の項目を順番に整理したいのですか

【17105】
データ整理で行き詰まっています
教えて下さい。お願いします
下記のようなシートが８月〜７月までの１２枚あります

　A　　 B　　 C　　 D　　　　 E
1 日付　摘要　項目　収入金額　支出金額
2 繰越
3
4
5


33
34　　　　　　合計

入力範囲はA3〜E33です(暫定)
８月から翌年７月までをC項目毎に整理しようと思っています
項目は最大で13項目あります(月毎で異なります)
新規にシートを作ってコピペするのが簡単だとは思うのですが、私を含めて複数人が使用します
出来ればマクロ等を利用して、誰でも使用可能にしたいと思っています
もし可能ならば教えて下さい
よろしくお願いします

【17107】
新規のシートを作って、それに項目別に整理したいと思っています
例えば整理というシートを作って下記のようにしたいです

　 A　　 B　　 C　　 D　　　　E　　　
1　項目　日付　 摘要　収入金額　支出金額
2　宿泊　8/2　　東京　　　　　　10000
3　宿泊　10/10　大阪　　　　　　10000

12 事務　8/8　　コピー　　　　　870
13 事務　4/20　 パソコン　　　 80000

38 学習　8/21　 講習会　　　　 50000
39 学習　9/5　　懇談会　　　　 3000

と言った感じで１年分を整理できないかと思います　
月毎のシートに記入するだけで、整理シートに記入したいのです
よろしくお願いします


17105と17107をコピペしました
月毎のシートのＣ項目を新規のシートに項目毎に整理しようと思っています
説明下手ですみません
こんな説明で判りますでしょうか？
よろしくお願いします
【17265】Re:データ整理
発言  通りすがり  - 04/8/26(木) 2:40 -
引用なし
パスワード
   あくまでも質問箱です
作ってくれ！は無理です
そこまでボランティアではありません
残念！！
【17307】Re:データ整理
質問  なかちゃん  - 04/8/26(木) 17:56 -
引用なし
パスワード
   8月のシートのデータをコピーして集計シートに貼り付け

9月〜7月のシートのデータをコピーして前月のデータの下に貼り付ける

範囲を選択してデータの並び替えから[最優先されるキー]を[項目][２番目に優先されるキー]を[日付]にする

項目を一番左に持ってくる

上記の事をマクロで表示するにはどうしたら良いですか？
誰か作って下さい
お願いします

>通りすがりさん
すみませんが、よろしくお願いします
【17324】なかちゃん 応答せよ
回答  柴犬  - 04/8/26(木) 23:54 -
引用なし
パスワード
   ▼なかちゃん
取りあえず押入れの中から昔使ってたサンプル見つけたので送ります
使ってみて　
Sub 特定文字列を含むデータの抽出()

Dim Moji As String　　　　　　　　'検索する特定の文字列
Dim Jouken As String　　　　　　　'抽出条件
Dim WS1 As Worksheet
Dim WS2 As Worksheet

Moji = "交通費" とか　　　　　　　　'検索する特定の文字列を取得

Jouken = "*" & Moji & "*"　　　　　'抽出条件の作成
Set WS1 = Sheets("Sheet1")
Set WS2 = Sheets("Sheet2")

Application.ScreenUpdating = False 　　　　'画面の更新を停止

With WS2
　　.Activate　　　　　　　　　　　　　　　　'抽出先のSheet2の表示
　　.Columns("B:D").Clear　　　　　　　　　　'抽出先のSheet2のデータを消去
End With

With WS1

　　'特定文字列を含むデータの抽出
　　.Range("B3").AutoFilter Field:=1, Criteria1:=Jouken
　　
　　'抽出したデータをSheet2へコピー
　　.Range("B3").CurrentRegion.Copy Destination:=WS2.Range("B3")

　　.Range("B3").AutoFilter　'オートフィルタの解除
　　
End With

Application.ScreenUpdating = True '画面の更新を有効

End Sub

範囲、項目当追加書き換えが必要応用できるかな
自分で一度サンプルを作るといい
【17326】Re:なかちゃん
回答  柴犬  - 04/8/27(金) 0:01 -
引用なし
パスワード
   ほかにもあるけどまたFormとかは　んーメールでサンプル送ってもいいけど
詳しい使い勝手が分からないとんー　やり方がいくつかあってんー
【17387】Re:なかちゃん 応答せよ
発言  なかちゃん  - 04/8/28(土) 1:27 -
引用なし
パスワード
   ▼柴犬 さん：
ありがとうございます
しかし私にはちんぷんかんぷんですぅ
本を買うか借りるなりして勉強してみます

>▼なかちゃん
>取りあえず押入れの中から昔使ってたサンプル見つけたので送ります
>使ってみて　
>Sub 特定文字列を含むデータの抽出()
>
>Dim Moji As String　　　　　　　　'検索する特定の文字列
>Dim Jouken As String　　　　　　　'抽出条件
>Dim WS1 As Worksheet
>Dim WS2 As Worksheet
>
>Moji = "交通費" とか　　　　　　　　'検索する特定の文字列を取得
>
>Jouken = "*" & Moji & "*"　　　　　'抽出条件の作成
>Set WS1 = Sheets("Sheet1")
>Set WS2 = Sheets("Sheet2")
>
>Application.ScreenUpdating = False 　　　　'画面の更新を停止
>
>With WS2
>　　.Activate　　　　　　　　　　　　　　　　'抽出先のSheet2の表示
>　　.Columns("B:D").Clear　　　　　　　　　　'抽出先のSheet2のデータを消去
>End With
>
>With WS1
>
>　　'特定文字列を含むデータの抽出
>　　.Range("B3").AutoFilter Field:=1, Criteria1:=Jouken
>　　
>　　'抽出したデータをSheet2へコピー
>　　.Range("B3").CurrentRegion.Copy Destination:=WS2.Range("B3")
>
>　　.Range("B3").AutoFilter　'オートフィルタの解除
>　　
>End With
>
>Application.ScreenUpdating = True '画面の更新を有効
>
>End Sub
>
>範囲、項目当追加書き換えが必要応用できるかな
>自分で一度サンプルを作るといい
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11221 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free