Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【82132】Re:do whileでループしないです。。。

マナ - 23/3/1(水) 20:46 -


	引用なし

	パスワード

▼れさん：

ht　tps://www.limecode.jp/entry/trap/dirindir

・ツリー全体表示


	【82131】do whileでループしないです。。。

れ

- 23/3/1(水) 20:08 -


	引用なし

	パスワード

下記コードでループせず1回で終了してしまいます。
何回見直してもわかりません、ご教授お願いできませんでしょうか。
よろしくお願いします。
対象のフォルダには3つ以上の.xlsxファイルがあります。

Sub 販売営業インセンティブへの転記()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fp As String
　　fp = ThisWorkbook.path
Dim 行先 As String
　　行先 = "C:\Users\5058\Desktop\販売営業インセンティブ"
Dim 対象 As String
　　対象 = Dir(fp & "\" & "インセンティブ" & "\" & "*.xlsx")
Do Until 対象 = ""
　　Dim 店番 As String
　　　店番 = Left(対象, 3) & "*"
　　Dim 行先フォルダ As String
　　　行先フォルダ = Dir(行先 & "\" & 店番, vbDirectory)
　　Dim FSO As Object
　　 Set FSO = CreateObject("Scripting.FileSystemObject")
　　FSO.CopyFile fp & "\" & "インセンティブ" & "\" & 対象, 行先 & "\" & 行先フォルダ & "\"
　　対象 = Dir()
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

・ツリー全体表示


	【82130】Re:カスタムリストでの並び替えについて

ken

- 23/2/28(火) 7:13 -


	引用なし

	パスワード

▼マナさん：
>▼ken さん：
>
>2007以降なら、これを使用するのが簡単ではありませんか。
>ht　tp://officetanaka.net/excel/vba/tips/tips189.htm

ご教授有難う御座います。
試してみます。

・ツリー全体表示


	【82129】Re:カスタムリストでの並び替えについて

マナ - 23/2/27(月) 14:58 -


	引用なし

	パスワード

▼ken さん：

2007以降なら、これを使用するのが簡単ではありませんか。
ht　tp://officetanaka.net/excel/vba/tips/tips189.htm

・ツリー全体表示


	【82128】カスタムリストでの並び替えについて

ken - 23/2/26(日) 9:32 -


	引用なし

	パスワード

何度か質問してお世話になってます。
今回もどうしても解決しないので投稿しました。

データベースは1000行くらいで20列あります。
並び替えのリストは30項目位あり変動します。
シート３のデータをシート２のリストで並び変えた後で
保存しようとするとエクセル自体が終了してしまいます。
他のPCでやっても同様です。
最後の　 Application.DeleteCustomList ListNum:= _
　　Application.CustomListCount
をコメントブロックすると問題なく保存できますがリストが
残っている状態です。
マクロは下記です。
どなたか宜しくお願い致します。

Sub Sample()
　　Dim lst As Variant
　　With Sheets("Sheet2")
　　　　lst = WorksheetFunction.Transpose _
　　　　(Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)))
　　End With
　　Application.AddCustomList ListArray:=lst
　　With Sheets("Sheet3")
　　　　.Range("A1").CurrentRegion.Sort Key1:= _
　　　　　　.Columns("A"), Order1:=xlAscending, _
　　　　　　OrderCustom:=Application.CustomListCount + 1, Header:=xlYes
　　End With
　　Application.DeleteCustomList ListNum:= _
　　Application.CustomListCount
End Sub

・ツリー全体表示


	【82127】Re:欠席理由を個人毎に集計したい

POO - 23/2/22(水) 9:02 -


	引用なし

	パスワード

▼マナさん：

ありがとうございます。
やってみます。
>
>ピボットテーブルをおすすめします。

・ツリー全体表示


	【82126】Re:欠席理由を個人毎に集計したい

マナ - 23/2/20(月) 10:50 -


	引用なし

	パスワード

▼POO さん：

ピボットテーブルをおすすめします。

・ツリー全体表示


	【82125】Re:欠席理由を個人毎に集計したい

POO - 23/2/20(月) 10:20 -


	引用なし

	パスワード

▼マナさん：すみません。わかりずらくなりました。下記がデータと結果です（データ）氏名　　　　年　　　　性別　　　　日付　　　　区分　　　　理由 A　　　　1　　　　女　　　　44664　　　　出席停止　　　　学級閉鎖 A　　　　1　　　　女　　　　44665　　　　出席停止　　　　学級閉鎖 A　　　　1　　　　女　　　　44666　　　　出席停止　　　　学級閉鎖 A　　　　1　　　　女　　　　44715　　　　出席停止　　　　感染症の疑い A　　　　1　　　　女　　　　44907　　　　出席停止　　　　感染症の疑い A　　　　1　　　　女　　　　44914　　　　出席停止　　　　感染症の疑い B　　　　1　　　　女　　　　44664　　　　出席停止　　　　学級閉鎖 B　　　　1　　　　女　　　　44665　　　　出席停止　　　　学級閉鎖 B　　　　1　　　　女　　　　44666　　　　出席停止　　　　学級閉鎖 B　　　　1　　　　女　　　　44677　　　　出席停止　　　　感染症の疑い C　　　　1　　　　男　　　　44664　　　　出席停止　　　　学級閉鎖 C　　　　1　　　　男　　　　44665　　　　出席停止　　　　学級閉鎖 C　　　　1　　　　男　　　　44666　　　　出席停止　　　　学級閉鎖 C　　　　1　　　　男　　　　44668　　　　出席停止　　　　新型コロナウイルス感染症 C　　　　1　　　　男　　　　44670　　　　出席停止　　　　新型コロナウイルス感染症 C　　　　1　　　　男　　　　44720　　　　早退　　　　　　　　腹痛 D　　　　1　　　　男　　　　44839　　　　病気欠席　　　　腹痛 D　　　　1　　　　男　　　　44847　　　　出席停止　　　　感染症の疑い D　　　　1　　　　男　　　　44859　　　　出席停止　　　　感染症の疑い D　　　　1　　　　男　　　　44865　　　　病気欠席　　　　嘔吐・嘔気（結果）　　　　年　　　　性別　　　　日付　　　　出席停止　　　　早退　　　　病気欠席　　　　学級閉鎖　　　　感染症の疑い　　　　新型コロナウイルス感染症　　　　腹痛 A　　　　1　　　　女　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 B　　　　1　　　　女　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 C　　　　1　　　　男　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 D　　　　1　　　　男　　　　　　　　　　　　　　　　　　　　　　　　氏名と年をキーに各合計を計算する形です。　　　　　　　　　　　　区分を出席停止、早退、病気欠席とし、その理由を学級閉鎖　感染症疑い　新型コロナ・・で氏名一人毎に合計を出すというものです。すみません。宜しくお願いします。

・ツリー全体表示


	【82124】Re:欠席理由を個人毎に集計したい

マナ - 23/2/18(土) 15:17 -


	引用なし

	パスワード

▼POO さん：

>１レコードに氏名、グループ、欠席要件、欠席理由

>Ａさん　風邪１、インフル０、コロナ０

どのようなデータなのか、例をみてもわかりません。
グループは？欠席要件は？
欠席理由は１列？それとも４列
対応する見出しがわかるようにしてください。

・ツリー全体表示


	【82123】欠席理由を個人毎に集計したい

POO - 23/2/17(金) 14:14 -


	引用なし

	パスワード

教えてください。
Excelの機能で、「統合」という機能に変わる、ＶＢＡ記述についてお知恵を拝借したく。
１レコードに氏名、グループ、欠席要件、欠席理由（風邪、インフルエンザ、コロナ、その他）とした、データが記録されています。（3500レコード）
これらを、氏名＋グループ毎に、欠席要件以降の数値を合算したいのですが、うまい方法が見つかりません。
例えば
Ａさん　風邪１、インフル０、コロナ０
Ａさん　風邪１、インフル１、コロナ１

Ｂさん　風邪０、インフル２、コロナ１
を
結果
Ａさん｜Ａグループ｜風邪２。インフル１、コロナ１
Ｂさん｜Ａグループ｜風邪０、インフル２、コロナ１

の様な表に氏名とグループが重複しないようにして、各理由の合計を集計したいでのです。

統合の代替となるＶＢＡはどのようにするのが良いか。どなたかご伝授ください。
サンプルなどでもあれば助かります。
宜しくお願いします。

・ツリー全体表示


	【82122】Re:行の削除

マルチネス - 23/1/26(木) 7:16 -


	引用なし

	パスワード

情報共有

ht　tps://www.excel.studio-kazu.jp/kw/20230124091546.html

・ツリー全体表示


	【82121】Re:行の削除

豆助ごんたくん - 23/1/25(水) 22:44 -


	引用なし

	パスワード

ありがとうございました。

・ツリー全体表示


	【82120】Re:行の削除

マナ - 23/1/24(火) 20:08 -


	引用なし

	パスワード

▼豆助ごんたくんさん：

ActiveCell.EntireRow.Range("A1:H1").Delete xlShiftUp

・ツリー全体表示


	【82119】行の削除

豆助ごんたくん - 23/1/24(火) 9:29 -


	引用なし

	パスワード

行の選択した後指定したa列からh列を削除し、その後削除して空北なったa列からh列を詰めるを行いたいと思います。
VBAでどうすれば良いのかご教授をお願い致します。

・ツリー全体表示


	【82118】Re:pdfを画像としてエクセルにはりつける

MK - 23/1/20(金) 9:04 -


	引用なし

	パスワード

>フォルダやpdfの選択に変数を使うのに

ユーザーにダイアログで選択させる方法が
分からない、ということだろうか？

・ツリー全体表示


	【82117】pdfを画像としてエクセルにはりつける

みやま

- 23/1/17(火) 21:05 -


	引用なし

	パスワード

VBAについて質問させてください

PDFを画像としてエクセルに
貼り付けるマクロを作成していますが
フォルダやpdfの選択に変数を使うのに
苦戦しています。
そもそも可能なのかもわからりませんが、、

最初からpdfの名前をマクロに
書いておいた場合だとできるのですが、
うまく行きません。

どなたか教えてください！！！

・ツリー全体表示


	【82116】Re:Openイベントが実行されない

マル - 23/1/16(月) 9:30 -


	引用なし

	パスワード

Openイベントが実行されない
投稿日時: 23/01/13 03:11:58
投稿者: Yamato2003
ht　tps://www.moug.net/faq/viewtopic.php?t=81991

・ツリー全体表示


	【82115】Re:CSVから読み込んだタブの重複が削除で...

ロジ - 23/1/15(日) 17:18 -


	引用なし

	パスワード

>シート名の部分がCSVから読み取ったものだと

「読み取ったもの」とは？

>400とだけ書かれているエラーメッセージが表示されますが、

対象が無い時によく出るエラー番号ですかね
単にシート名が違うだけでは？

それとセル範囲はきちんと指定した方がいいのでは？

・ツリー全体表示


	【82114】Re:CSVから読み込んだタブの重複が削除で...

ロジ - 23/1/15(日) 16:05 -


	引用なし

	パスワード

RPAの事は知らないし
単に重複削除で時間がかかっているのでは？
と思いました。

それで、重複削除をマクロ記録してみたら
提示されてたようにはならなかったので
もう1度マクロ記録してみればと思います。

・ツリー全体表示


	【82113】Re:CSVから読み込んだタブの重複が削除で...

VBA初心者 - 23/1/15(日) 15:14 -


	引用なし

	パスワード

ご回答ありがとうございます。
RPAと組み合わせて使用しているのでフリーズが発生するとRPAのほうでエラーが発生してしまいます。

基本的にカレンダー登録しての手放し実行を想定しているため、はじめに述べた方法での処理を希望しています。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free