Excel VBA質問箱 IV

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

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


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

18 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【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のほうでエラーが発生してしまいます。

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

・ツリー全体表示


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

ロジ - 23/1/14(土) 12:35 -


	引用なし

	パスワード

>データ数が多いとフリーズしてしまうので、可能であればCSVから読み取ったシートそのままで処理したいのですが、何かいい方法はないようでしょうか……。

数十分ほっとけば終わるのでは？
多分。

・ツリー全体表示


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

ロジ - 23/1/14(土) 12:32 -


	引用なし

	パスワード

マクロの設定とかは、解っているとして（使い方含む）

ええと、そのマクロが書いてあるブックを保存して
エクセルを終了させてから、再度そのブックを開く
このぐらいは試したのでしょうか？

・ツリー全体表示


	【82110】Openイベントが実行されない

Yamato - 23/1/13(金) 3:04 -


	引用なし

	パスワード

ブックのOpenイベントが実行されません。
解決方法を探しています。

⑴使用環境：Excel2019、Windows１０

⑵試したこと・わかっていること

2.1　Module内でapplication.EnableEvents = Trueを記述し実行した。
2.2　ブックを開きイミディエイトウィンドウで?Application.EnableEventsと入力すると”True”が返ってくる

まとめると
・EnableEventsは有効であるのに、xlsm形式ブックのOpenイベントは実行されない

⑶その他
・PERSONAL.xlsb上でOpenイベントを行っています。PERSONALのOpenイベントは実行されます。（その後開かれるxlsmブックに記述されたOpenイベントは無視されます）
・4か月前ほど前、これまで作ってきたマクロ対応ブックがすべてOpenイベントが無視されるようになりました。　一部のブックはXlsmブックにModuleを挿入し、そこにApplication.EnableEventsの記述をし、実行することでOpenイベントが実行されました。

・新たにブックを作った場合でもOpenイベントが実行されないことがあります。
（＝ブックの破損ではない可能性があります）

・例えば次のような内容が短いものはOpenイベントが実行されたことがあります
Sub workbook_open()
msgbox("a")
end sub
一方以下のような内容が長いものはOpenイベントが実行されません。
Sub workbook_open()
msgbox("a")
with application
　.onkey "a", "Thisworkbook.a"
　.onkey "b", "Thisworkbook.b"
　.onkey "c", "Thisworkbook.c"
　.onkey "d", "Thisworkbook.d"
end with

・ツリー全体表示


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

18 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free