Excel VBA質問箱 IV

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

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


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

1 / 3840 ﾍﾟｰｼﾞ


	【82466】Re:転記先のひな形が崩れてしまう

マナ - 25/5/2(金) 21:52 -


	引用なし

	パスワード

▼ちっちさん：

>Sheets("会計1.").Range("A1").CurrentRegion.Columns(5)
　　 ↓
　Sheets("会計1.").Range("E1:E99")

・ツリー全体表示


	【82465】転記先のひな形が崩れてしまう

ちっち - 25/5/2(金) 20:46 -


	引用なし

	パスワード

教えてください。
収納調書シートから会計1.シートへ転記させたいです。
以下のコードだと転記自体はうまくいくのですが、会計1.シート100行目にあった合計行や、罫線がすべて消えてしまいます。
どのようにコードを変更させればよいのでしょうか？

Sub 学級費_収()

　With Sheets("会計1.").Cells(Rows.Count, "A").End(xlUp)
　　.Offset(1, 0).Resize(3) = Sheets("収納調書").Range("G2").Value '日付
　　.Offset(1, 1).Resize(3) = Sheets("収納調書").Range("I3").Value '整理番号
　　.Offset(1, 3).Resize(3) = Sheets("収納調書").Range("I5").Value '項目
　　.Offset(1, 4).Resize(3) = Sheets("収納調書").Range("C19:C21").Value '内訳
　　.Offset(1, 5).Resize(3) = Sheets("収納調書").Range("G19:G21").Value '単価
　　.Offset(1, 6).Resize(3) = Sheets("収納調書").Range("I19:I21").Value '数量
　　.Offset(1, 7).Resize(3) = Sheets("収納調書").Range("J19:J21").Value '金額
　End With

　'空白がある場合
　If WorksheetFunction.CountBlank(Sheets("会計1.").Range("A1").CurrentRegion.Columns(5)) > 0 Then
　　'空白行を削除
　　Sheets("会計1.").Range("A1").CurrentRegion.Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
　End If
　
　MsgBox "処理が完了しました。", 0, "確認"

End Sub

・ツリー全体表示


	【82464】Re:VBAで複数CSV内容の結合について

元配線工 - 25/4/14(月) 16:06 -


	引用なし

	パスワード

PLCってわからなかったので、調べたらシーケンサと出てきました
シーケンサって、and or 回路を制御するいわゆるコンピュータのことではないの？
CSVファイルとか吐き出せるんだ・・・
すみません、昭和の時代自動制御版で配線していたぐらいの知識しかありません

「夫々」それぞれと読むんですね
多分初めて見ました博学ですね
無知ですみません

で、簡単に各CSVファイルを開いて
コピーして貼り付け、その一番下に次のCSVファイルを
開いてコピーして貼り付けるといった単純作業ではダメなんですか？
メモ帳だけでもそれ自体は可能で話？
メモ帳で重かったらワードを使うとか
出来上がったCSVファイルをエクセルで開いてソート
とまあ私なら単純作業しか思いつかないですけど
マクロのロジックを考える事や書くの面倒だし

・ツリー全体表示


	【82463】Re:VBAで複数CSV内容の結合について

マナ - 25/4/7(月) 21:20 -


	引用なし

	パスワード

▼rena さん：

Power Queryの利用してはどうでしょう。

・ツリー全体表示


	【82462】VBAで複数CSV内容の結合について

rena - 25/4/7(月) 11:20 -


	引用なし

	パスワード

PLCから吐き出される複数CSVの1列目が時間の文字列で、それぞれのCSVに複数の項目があります。
夫々のCSVの1列目の時間をもとに、一致した時間の全CSV列をまとめて、１つのCSVにして、時間が昇順になった1つのCSVがほしいです。

これって可能でしょうか。

もしご存じの先輩がいらっしゃったら、教えていただきたいです。

・ツリー全体表示


	【82461】Re:INDEX(LINEST(　)内に他セルから数値を

ホワッツマイケル - 25/3/17(月) 20:08 -


	引用なし

	パスワード

INDIRECT 関数を調べる

・ツリー全体表示


	【82459】Re:挿入画像の削除

sai - 25/3/15(土) 12:47 -


	引用なし

	パスワード

▼sai さん：
>▼マナさん：
>>▼sai さん：
>>>お願いします。
>>>
>>>A1にマクロ登録したボタンを設置しています。
>>>
>>>ではA1の画像まで削除されてしまいます。
>>>ボタンは削除しないとか
>>
>>A1のボタンは、画像（msoPicture）なのでしょうか。
>>オートシェイプ（msoAutoShape）にすればよいのでは？
>
>
>ありがとうございます。
>
>msoAutoShapeにするとjpg画像が削除されず
>msoPictureにするとボタンもjpg共に削除されてしまい
>困っている状況です。

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

・ツリー全体表示


	【82458】Re:挿入画像の削除

sai - 25/3/15(土) 9:56 -


	引用なし

	パスワード

▼マナさん：
>▼sai さん：
>>お願いします。
>>
>>A1にマクロ登録したボタンを設置しています。
>>
>>ではA1の画像まで削除されてしまいます。
>>ボタンは削除しないとか
>
>A1のボタンは、画像（msoPicture）なのでしょうか。
>オートシェイプ（msoAutoShape）にすればよいのでは？

ありがとうございます。

msoAutoShapeにするとjpg画像が削除されず
msoPictureにするとボタンもjpg共に削除されてしまい
困っている状況です。

・ツリー全体表示


	【82457】Re:挿入画像の削除

マナ - 25/3/14(金) 19:56 -


	引用なし

	パスワード

▼sai さん：
>お願いします。
>
>A1にマクロ登録したボタンを設置しています。
>
>ではA1の画像まで削除されてしまいます。
>ボタンは削除しないとか

A1のボタンは、画像（msoPicture）なのでしょうか。
オートシェイプ（msoAutoShape）にすればよいのでは？

・ツリー全体表示


	【82456】挿入画像の削除

sai - 25/3/14(金) 16:06 -


	引用なし

	パスワード

お願いします。

A1にマクロ登録したボタンを設置しています。

そのボタンから複数のjpg画像を挿入しています。

シートをクリアするための動作を考えていましたが

Dim Pic As Shape

For Each Pic In .Shapes
　　 If Pic.Type = msoPicture Then
　　　Pic.Delete
　　　
　　End If
Next

ではA1の画像まで削除されてしまいます。

A1以外の画像を削除するとか
ボタンは削除しないとか
或いはjpgだけを削除するとか

良い方法がありましたらご指導願います。

・ツリー全体表示


	【82454】INDEX(LINEST(　)内に他セルから数値を

本田　達穂

- 25/3/11(火) 12:32 -


	引用なし

	パスワード

=INDEX(LINEST($C$14:C$200,$D$14:$F$200),1)で近似式を作成していますが、これをツール化する際、上記式内の数値200を、他のセル例えばA2セルに出力された数値200を自動的に入れたいのですが、どうしてもうまく行きません。

方法があれば、是非ご教授いただければ幸いです。

・ツリー全体表示


	【82453】Re:複数の指定された項目を転記したい

jindon - 25/2/24(月) 13:04 -


	引用なし

	パスワード

▼初心者です。さん：
>Aシート(元データ)
>1行目(A列～AA列):項目　　 ⇽　名前、電話、住所、県、市　など項目があります。
>2行目以降は項目ごとのデータがある
>
>Bシート(抽出先)
>1行目(A列～Z列):項目　⇽　住所、県、電話、県　　
>2行目以降に、該当する項目のデータを貼り付けたい

AdvancedFilterで一発...

Sub test()
　　Sheets("b").[a1].CurrentRegion.Offset(1).Clear
　　Sheets("a").[a1].CurrentRegion.AdvancedFilter 2, , _
　　　　Sheets("b").[a1].CurrentRegion
End Sub

・ツリー全体表示


	【82452】Re:複数のExcelに関数いれて集計したい

さかな - 25/1/31(金) 18:02 -


	引用なし

	パスワード

▼マナさん：
>▼さかなさん：
>
>
>Power Queryを使うことを推奨します

→
ご確認ありがとうございます
パワークエリは触ったことなかったので、やりたい事が実現できるか確認してみます！

・ツリー全体表示


	【82451】Re:複数のExcelに関数いれて集計したい

マナ - 25/1/28(火) 18:15 -


	引用なし

	パスワード

▼さかなさん：

Power Queryを使うことを推奨します

・ツリー全体表示


	【82450】Re:複数のExcelに関数いれて集計したい

さかな - 25/1/28(火) 16:50 -


	引用なし

	パスワード

▼マナさん：
>▼さかなさん：
>
>>4、各列の合計値を別のExcelに一覧として記載したい
>
>一覧というのがイメージできません。
>レイアウトがわかるように例示できませんか。

一覧とは、以下みたいにExcel内で集計したデータをまとめた
表というイメージです

フォルダ内
CSVファイル1　関数いれて集計
CSVファイル2　関数いれて集計
CSVファイル3　関数いれて集計
CSVファイル4　関数いれて集計

↓
別のExcel(上記のCSVファイルに関数いれて集計した数値をまとめる表)
※どのCSVがどんな内容だったかを一目でみたく一覧化したい要望です

「CSVデータ1のファイル名)」　CSVに関数いれて集計した数値(Q列合計・R列合計・S列合計)
「CSVデータ2のファイル名)」　CSVに関数いれて集計した数値(Q列合計・R列合計・S列合計)
「CSVデータ3のファイル名)」　CSVに関数いれて集計した数値(Q列合計・R列合計・S列合計)
「CSVデータ4のファイル名)」　CSVに関数いれて集計した数値(Q列合計・R列合計・S列合計)

・ツリー全体表示


	【82449】Re:複数のExcelに関数いれて集計したい

マナ - 25/1/28(火) 13:15 -


	引用なし

	パスワード

▼さかなさん：

>4、各列の合計値を別のExcelに一覧として記載したい

一覧というのがイメージできません。
レイアウトがわかるように例示できませんか。

・ツリー全体表示


	【82448】複数のExcelに関数いれて集計したい

さかな - 25/1/28(火) 12:04 -


	引用なし

	パスワード

VBAについて詳しくないのですが、以下がVBAで実現できないかなと思い相談させて頂きたいです

------------------------------------
当方のレベル：かなり初心者(コード等は自分でつくれないレベル)
------------------------------------
要望
・概要+背景
　複数の形式が同じのCSVのデータを集計する為に
　現状、200くらいあるCSVファイルを1つ1つ開いて、
　指定の関数を入れて集計された数値の合計を手作業で一覧表に転記していっています
　RPAも検討しましたが、費用が高額で断念しました、、、
　VBAで実現できないか、アドバイス頂きたいです、、

・詳細
1、1つのフォルダ内にファイル名の違う複数CSVファイルあり(200ファイルくらい)
2、CSVの形式(列・項目)は同じですが、CSVによって行数が異なります
3、CSV内に以下の指定のセルに関数を入れ込む
　セルQ2…=IF(AND(B2="ＩＰ間呼",H2="IP(有料)"),L2,"0")
　セルR2…=IF(B2="ＩＰ間呼","0",L2)
　セルS2…=IF(B2="ＩＰ間呼",L2,"0")
　 ※行数が複数あるので、関数いれた後に最終行までオートフィルしたい
4、各列の合計値を別のExcelに一覧として記載したい

・ツリー全体表示


	【82447】Re:エクセルシートを増やすと VBA の速...

westwindow - 25/1/27(月) 12:46 -


	引用なし

	パスワード

▼ふぇふぇさん：
>シートをコピーしてあるけど名前定義もそのままですよね？
>それと、いちいちセルを選択するだけでも遅くなる
>数式の使用は？
>とまあ、なんとなくそう感じました
>では

ご指摘ありがとうございます。

・ツリー全体表示


	【82446】Re:エクセルシートを増やすと VBA の速...

ふぇふぇ - 25/1/27(月) 9:41 -


	引用なし

	パスワード

シートをコピーしてあるけど名前定義もそのままですよね？
それと、いちいちセルを選択するだけでも遅くなる
数式の使用は？
とまあ、なんとなくそう感じました
では

・ツリー全体表示


	【82445】Re:エクセルシートを増やすと VBA の速...

westwindow - 25/1/27(月) 1:34 -


	引用なし

	パスワード

▼マナさん：
>▼westwindow さん：
>
>シート１つの場合と２つの場合で
>どのステップで時間に違いがでるか
>調べてみてがいかがでしょうか。

ご指摘ありがとうございます。

・ツリー全体表示


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

1 / 3840 ﾍﾟｰｼﾞ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free