Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/12/12(日) 12:00:32.32

数年前までVBAで結構組んでたんだけどちょっと必要があって使ってみたらセーブに10分くらいかかる
調べてみると

2021/12/12(日) 12:04:50.97

ごめんなさい途中でかきこんでしまいました
VBAのコードが長いとセーブに時間がかかるとあったのでモジュールを削除してみましたが変化なし
そこで新規にbookを作ってコピペでVBAのコード他すべての要素をコピペしたら普通にセーブできたのですが
これはどういった原因が考えられるでしょうか？
ちなみに別のPCで使ってみたら普通にセーブできました

2021/12/12(日) 13:09:25.29

マクロ付きブックの保存なんて普通は1秒で終わる
10分なんてあきらかに異常だし、たとえ10秒でもおかしい
HDDの故障やウィルスをまず疑うレベル

2021/12/12(日) 13:16:29.89

そんなことは分かってるから質問してるんですが日本語読めてますか？ｗ

2021/12/12(日) 13:52:38.61

>>850
それな
で、職場で仕事がなくなる。なんだかよくわからん状態になる

>>859
ブックの中にゴミデータが溜まってる
・条件付き書式
・名前の定義
特に条件付き書式はコピペで増えるので要注意。vbaでコピペを繰り返すマクロを繰り返すうちに、恐ろしく重くなる事がたまによくある

2021/12/12(日) 14:16:03.78

>>862
なるほどそれで新規BOOKにコピペするとごみが消えるから軽くなるってことですね
ありがとうすっきりしました

2021/12/12(日) 18:58:52.97

消えてほしいゴミはまだいるのにね

2021/12/12(日) 21:54:20.78

>>861
死ねよ

2021/12/12(日) 21:54:32.69

>>837
> 一般的にデバッグはコーディングの10倍ぐらい経験や知識が必要な作業だから初心者には荷が重い

ものすごい納得がいく。プログラムの力のかなりな部分を
設計力とデバッグ力が占めてる気がする。

2021/12/12(日) 21:59:03.19

>>865
あ。禁断のセリフが。

昔の2ちゃんで「氏ね」とか「市ね」とかわざわざ誤字にしてた
理由知らない世代なんだろうなあ…。

2021/12/12(日) 22:11:14.12

>>865
日本語まともに理解できないからしょうがないんだよなｗ

2021/12/12(日) 23:18:50.35

超初心者です。
10個のブックで、それぞれのブックに同じ名前の４種類のシートがあり、
各シートのE10～D12に入力されている値を抽出したいんですが、
１つのセルを指定するやり方しかわからず…

できれば10個のブックから一括で抜き取りたいんですけど、どう書けばいいでしょうか。
現時点でできたのはダイアログでファイルを選択して、指定のシートから１つだけ抜き出してくる方法です。
これを複数のセルを抜き出したい（可能なら複数のブック指定して抜き出したい）です。

2021/12/13(月) 02:11:31.83

>>868
>>869
Ruby馬鹿

2021/12/13(月) 03:17:35.02

>>868
別のPCなら普通にセーブできるって言うから、PCの故障を疑ったんでしょう

862の回答だと、別のPCでうまくいく説明になってない

お前のほうが日本語理解できてないんじゃね？

2021/12/13(月) 03:32:37.10

>>869
こんな感じで二重ループにする
ブック名やシート名は必要に応じて配列に入れておく

For Bok = 1 To 10
　For Sht = 1 To 4
　　Range(" ") = Workbooks("ブック" & Bok).Worksheets("シート" & Sht).Range("D10:E12").Value
　Next
Next

2021/12/13(月) 22:01:16.80

もう解決したかもしれんが
保存にやたら時間がかかるエクセルファイルとは自分の経験だと
非表示にされたシートに画像が貼られまくってたって事があったなvba開いてみたらシートが異常に多くて気づいた
パソコンリテラシーない人はこういうファイルを平気でメールで送ろうとするよねw

2021/12/13(月) 22:22:28.96

知らんけどxlsm形式だと社内メールは送れんわうちじゃ

2021/12/13(月) 22:45:39.93

ボタンのあるシートを
ボタン削除しないままシート削除して
新たにシートを作るっていうコードにしてたら
無茶苦茶ゴミが溜まってファイルが肥大化した挙げ句、
最終的にボタンを貼り付けられなくなった

2021/12/14(火) 00:01:39.40

>>873
リテラシー以前の問題で、何がどうなってるかさっぱりわからない
ただ、開くのに1分ぐらいかかるけどとりあえずは使えるのでつかて下さい、ｌという感じ

2021/12/14(火) 03:42:43.93

>>873
その画像が沢山貼ってあるシートコピーして
VeryHiddenで隠して送りつけてやればいい。

やられたらやり返す
倍返しだ！！

2021/12/14(火) 17:45:50.47

>>875
ボタン消えないのかよ怖いな

2021/12/14(火) 18:25:23.35

ひとつに見えていても２つのボタンが重なっていることもあるぞ

2021/12/15(水) 21:10:32.00

VBAのchengeイベントで

セルB1に１２、セルC１に３、と入力されたら
D1に１２／３と日付が自動で出力され
かつ
C1が空白ならD1も空白
C1が文字ならD１も文字になるようにできるでしょうか？

初心者じみた質問で申し訳ありません

2021/12/15(水) 21:18:56.86

>>880
出来る

2021/12/15(水) 21:20:45.35

>>880
数式でも良い？

2021/12/15(水) 21:24:32.70

>>882
できればVBAでお願いします
わがままですいません

2021/12/15(水) 22:08:43.53

>>883
そうか
＞D1に１２／３と日付が自動で出力され
この場合の、年がわからない
・常に1980年（デフォルト）
・常に「chengeイベント」のあった年
・今が12月なら来年
など

2021/12/16(木) 01:23:52.85

日付と言ってるけど単に文字列で良さそうな感じ

2021/12/16(木) 01:36:42.92

>>883
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo finalty

'無限ループ回避
Application.EnableEvents = False

'C1セルが空白は終了処理へ
If Cells(1, 3) = "" Then GoTo finalty

'C1セルが文字列の場合は、そのまま放り込む。それ意外は日付
If WorksheetFunction.IsText(Cells(1, 3)) Then
Cells(1, 4).Value = Cells(1, 3).Value
Else
Cells(1, 4).Value = DateSerial(Year(Now()), Cells(1, 2), Cells(1, 3))
End If

'終了処理
finalty:
Application.EnableEvents = True

End Sub

とりあえず作ったけど、B1が文字列、ｃ1が数字の時にエラーになるな
B1とC1で日付判定したほうがよかったのだろうか

2021/12/16(木) 05:45:18.34

>>886
「できるでしょうか？」と聞かれているだけなのに引っ掛かる馬鹿

2021/12/16(木) 07:14:30.10

>>887
何か嫌なことがあったのか？

2021/12/16(木) 07:16:48.24

全く内容が同じ投稿を何度も目にしている気がする
その度に丁寧な回答を貰ってるけど
その処理流行ってるの？

2021/12/16(木) 07:34:41.45

>>887
大丈夫？

>>889
同じ内容を貼る人：
相手にしてもらえるので、同じ質問を貼り続ける
承認欲求が満たされない人間の末路

回答者：
腕が上がるので気にせずに回答すればオッケー

2021/12/16(木) 07:46:05.41

そっか

>>886 だけど空白なら終了よりも空白の時は出力先も空白って条件があるから出力先にClearContentsかけた方が良さそう
その後にB1とC1をそれぞれIsNumericでTrueならB1 & "/" & C1をDatevalueで日付データにして出力先へ
あとはElseで文字列として結合して出力とかどうだろう？

2021/12/16(木) 08:42:17.59

>>886
・「C1が空白ならD1も空白」にしないといけないのにやってない
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
・Cells( ) と Cells( ).Value とバラバラ
・finalty という単語はない

2021/12/16(木) 09:06:16.32

>>892
まあ多少エラーがあっても大まかな流れがわかればいいんでねえの？
後は自力だろ
特にエラー処理関連は条件がわからないとやっても無駄だし

＞・finalty という単語はない
まずこっから突っ込まないと
>>880
＞VBAのchengeイベントで

2021/12/16(木) 10:21:23.91

揚げ足が好物な人に引っかかる優しさ？

2021/12/16(木) 10:48:42.97

>>883
早速のご返答ありがとうございます
とりあえずB1には文字型は入力されないので、教えて頂いた構文で試してみたいと思いますよ
スレの雰囲気悪くしてすいません
先生たちには
感謝します

2021/12/16(木) 12:11:49.85

足フェチ

2021/12/16(木) 12:59:03.22

>>886
Go Toとか草

2021/12/16(木) 20:27:23.55

Gotoトラベル。

2021/12/16(木) 20:37:59.11

GoSub Return

2021/12/16(木) 21:57:52.03

VB.Netでもgotoとかgosubとかremとか残ってるんだよなぁ
いつになったらこんな負の遺産使えなくするのやら
variantとか早々に消したくせに

先にVB.Netの方が消えてしまいそうだ

2021/12/16(木) 22:01:35.50

>>900
DOS時代の古いアプリを移植して使ってるとこが意外とあるらしい
だから昔ながらの行番号なんかも使えるようになってる

2021/12/16(木) 22:40:48.14

https://sugoikaizen.com/excel_list/vba-macro-01/
超初心者です。上のサイトを参考に非表示のシートを全表示にするようにしたいのですが、実際に使ってみるとアクティブシート?が切り替わって切り替わってチカチカしてしまいます。

その切り替わりのチカチカ、アクティブを切り替えないでシートを表示させることってできますか

2021/12/16(木) 23:12:56.50

application.screenupdating=false
処理
application.screenupdating=true

2021/12/16(木) 23:49:36.74

>>892
・「C1が空白ならD1も空白」にしないといけないのにやってない
すまん
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
ifで分岐させてinsideかInspectorでexitsubだ
・Cells( ) と Cells( ).Value とバラバラ
すまん
・finalty という単語はない
たいぽ

>>897
＞Go Toとか草
vbaはエラー処理がエグいので、gotoを使う方が簡潔になる
今回のように、分岐処理が型に依存するような時はあえてエラーを発生させて、gotoでまとめる方が楽
総論としては「trycatch欲しい」だろうな

2021/12/16(木) 23:54:07.68

>>901
VBできたのはWindowsになってからだな
DOSのときはMS-Cじゃね

2021/12/17(金) 00:50:02.02

行番号はDOS自体が登場する以前のROM BASIC全盛の頃の話
Microsoft BASICの独自拡張版を各メーカーが移植して搭載してた
FDD普及後も暫くはN88 BASICなどは生き残っていたけどDOS登場後は急速に廃れていった

2021/12/17(金) 01:11:17.61

>>906
信長の野望はBASICで作ってあったな

2021/12/17(金) 07:15:41.68

>>905
DOS版のVB使っていたぞ

2021/12/17(金) 07:48:55.45

シートのデータを
文字コードutf-8、改行コードLFでファイルに書き出す方法教えてください

2021/12/17(金) 07:56:20.87

>>908
うわ本当だ知らんかった、すまんす

2021/12/17(金) 08:43:20.41

>>909
Excel単体では無理
アドインか、マクロか、外部ツールで変換か

2021/12/17(金) 12:43:48.01

UTF-8 でも、BOM の有無で2種類ある。
先頭3バイトが「0xEF 0xBB 0xBF」なら、BOM有り

BOM有りUTF-8
BOM無しUTF-8(UTF-8N)

Windows だけはBOM有りだけど、
一般的に、Linux などのウェブではBOM無し

最近のWindowsでは、BOM無しも使えるかも知れない

2021/12/17(金) 16:33:33.43

>>904
先日教えていただいた構文は間違いですか？
今、試したら自分のイメージに近い動作はするような感じです
後は自分で試行錯誤してみたいです

また質問してしまうかもしれませんが
自力でやってみます

2021/12/17(金) 20:46:33.62

空白でないセルの末尾に「様」という文字列を一括追加するマクロを教えてください
置換処理も組み込んで一括で処理したいのでマクロでやりたいです
出来ればコピペで使えるとありがたいです
環境はWin10でExcel2016です
よろしくお願いします

2021/12/17(金) 20:53:35.71

置換も末尾に様を付けるのも関数式で行けるがオートフィルでぶわぁーっとやるんじゃアカンのか？
マクロでやっても処理内容的にはあまり変わらんぞ？

2021/12/17(金) 20:58:45.17

この先をずっと繰り返す作業なので、複数の置換と文字列付加を１つのマクロにまとめたいのです

2021/12/17(金) 21:12:38.32

いつものあいつの釣りとあまりに馬鹿過ぎる質問はお断りです
また、Excelの使い方すらわからない人はお帰りください

2021/12/17(金) 22:36:33.99

>>914
俺も>>915と同意見で、関数かオートフィルでいいと思う。常時必要なら、関数の作業列を作ってそれを参照するとか
それでもいいなら

A列が名前の場合。

Sub Macro3()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
If Cells(i, 1).Value <> "" Then Cells(i, 1).Value = Cells(i, 1).Value & "様"
Next
End Sub

2021/12/17(金) 22:44:20.69

何回もマクロ動かして　山田様様　ってなってわけわからんようになる

2021/12/17(金) 22:48:52.62

>>919
まぁこれは直接書き換える案件じゃないんだよな
名前列 & (”様”|"御中")が良い

このやり方だと、最後が「様」で終わる名字があるとバグるんだよな。昔、「羽様」って顧客からクレームがあって「いいんですけどね・・・」って感じだった
まぁ、珍しい名前だしいいと思う

2021/12/17(金) 23:07:41.06

>>913
致命傷は一点

・「C1が空白ならD1も空白」にしないといけないのにやってない
以下のコードで直した

・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
重い処理じゃない。どうせ入力箇所増える
重いなら>>904の内容で修正するか再度聞けば良い

・Cells( ) と Cells( ).Value とバラバラ
どうでもいい
Cells( )はCells( ).Valueに解釈される
暇なら統一すれば良い。特に意味はない

・finalty という単語はない
どうでもいい
もちろんfinalityの打ち間違えは認める
変数名なんてなんでもいい

自己弁護でもないが、そのためにも関数やクラスは影響が最小限に済むように、短くまとめる必要がある

2021/12/17(金) 23:37:41.46

>>920
> 昔、「羽様」って顧客から
岡山県赤磐市か奈良県生駒市かな？

2021/12/17(金) 23:55:47.33

>>922
東京か埼玉、もしくは神奈川。そもそも「羽様」様、以外にも最後が「様」になる名字はそれなりにいるぞ

2021/12/18(土) 00:00:59.23

>>921
のコード書き忘れてたわ

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo finalty

'無限ループ回避
Application.EnableEvents = False

'C1セルが空白は終了処理へ
If Cells(1, 3) = "" Then
Cells(1, 4) = ""
GoTo finalty
End If
'C1セルが文字列の場合は、そのまま放り込む。それ意外は日付
If WorksheetFunction.IsText(Cells(1, 3)) Then
Cells(1, 4).Value = Cells(1, 3).Value
Else
Cells(1, 4).Value = DateSerial(Year(Now()), Cells(1, 2), Cells(1, 3))
End If

'終了処理
finalty:
Application.EnableEvents = True

End Sub

2021/12/18(土) 00:34:19.89

またいつものあいつに引っ掛かる馬鹿ども

2021/12/18(土) 03:53:23.76

>>914
Sub hoge()
Dim targetRange As Range
Dim targetCell As Range

Set targetRange = ThisWorkbook.Sheets(Sheet1.Name).Range("A1:J10")
For Each targetCell In targetRange.Cells
If targetCell.Value <> vbNullString Then
If Right(targetCell.Value, 1) <> "様" Then
targetCell.Value = targetCell.Value & "様"
End If
End If
Next

End Sub

対象シートを変えるならSheets(Sheet1.Name)のSheet1の部分を変えてくれ
シート名じゃなくてシートのオブジェクト名であることに注意な。
今はA1から下10セル、右10セルの範囲に絞っているが、変えたければ
Range("A1:J10")の部分を変えてくれ。

2021/12/18(土) 04:03:51.98

>>924
大変感謝します
早速ためして見ます！

2021/12/18(土) 09:44:05.03

>>914
文字列追加じゃなくて表示形式で対応したらどうだろ
セルの元データを書き換えるのはなんか嫌らしい感じがする

Selection.NumberFormatLocal = "@ ""様"""

2021/12/18(土) 09:58:59.51

条件付き書式で様と御中を使い分けるとか

2021/12/18(土) 10:09:57.53

条件付き書式は値に関与できたっけ？

2021/12/18(土) 10:20:06.80

>>930
マイナス、0、プラス、文字列で分岐できる
どこかにそのフラグを持たせれば分岐できるが・・・それなら最初から様と御中書いたほうが早い

2021/12/18(土) 10:21:15.96

>>931
基本は様でフラグ立てたところだけ御中とか

2021/12/18(土) 10:29:07.67

つーか普通敬称つけるのは印刷するときだけじゃね
エクセルのデータに組み込む必要ないような

2021/12/18(土) 10:30:58.78

量子の世界では1未満は確率的に存在するんだよ。

2021/12/18(土) 10:47:16.76

王さんに様付けると王様だな

2021/12/18(土) 13:06:35.91

>>935
イカに様付けるとイカサマだな
楽しいのか？

2021/12/18(土) 13:09:17.63

>>934
量子の世界でも1か0しかないだろ

2021/12/18(土) 13:11:12.98

銀行の「行」を消して「御中」に直してた画像あったな

2021/12/18(土) 14:28:51.14

だいえーだいえーいえぃいえぃいえぃいえぃ。
だいえーとってもいえぃいえぃいえぃいえぃ。
↓続き。

2021/12/18(土) 14:43:23.05

>空白でないセルの末尾に「様」という文字列を一括追加
これ、今「様」がついてたらつけるなっていう要件じゃないんじゃね
そうじゃないなら、羽様が、羽さん様なのか羽様さんなのか区別できるデータじゃないと不可能だぜ

普通に考えて名称と敬称と分けてもつだろ

2021/12/18(土) 15:31:29.53

おじいさん、もうその話終わってますよ

2021/12/18(土) 17:00:19.27

5chはおじいさんの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2021/12/18(土) 17:14:29.79

>>938
直せてねえ…

2021/12/18(土) 19:06:22.48

もしかしてお前らダイエー知らないの？

2021/12/18(土) 19:52:58.88

野球の漫画だっけ

2021/12/18(土) 20:24:25.92

それはダイエーじゃなくて地獄甲子園。

2021/12/18(土) 21:06:03.74

もう25年前に近くのダイエーなくなってダイクマになった（もうそれもなくなってマンションになってるけど）
一駅先にグルメシティの形で残ってるけどほとんど行かない

2021/12/18(土) 21:30:26.72

ヒントもう無いの？

2021/12/18(土) 21:39:28.14

ここまでの情報で、神奈川県秦野市ではないか？と自作AIがはじき出しましたが。
あってる？

2021/12/18(土) 21:44:58.76

>>949
合ってる
ダイクマ発祥の地なのでAIなら楽勝かとw

2021/12/18(土) 21:45:33.86

おおおお！！
あってた！！

**デフォルトの名無しさん** (ｽﾌｯ Sd8a-kSWT) · 2021/12/18(土) 21:47:56.30

神奈川県秦野市の東海大学前のグルメシティは、元は忠実屋というスーパーだった
ダイエーに買収された後グルメシティに変わった
ステッカーの下には今でも忠実屋のロゴマークが残ってる
店の床に小さい段差があるのは増築した痕跡

2021/12/19(日) 00:46:13.19

ほんとおまいら、昔話が大好物だな

2021/12/19(日) 01:41:02.09

ジジイしかいないスレ
VBAなんていまだにやってるのは、ジジイくらいしかいないか

2021/12/19(日) 01:45:35.49

二十歳こえたらみんなジジイだよ

2021/12/19(日) 02:09:49.49

左様でござるか

2021/12/19(日) 05:36:03.45

ダイクマって
あの「ダイナミックダイクマ～！！」の
ダイクマ？

2021/12/19(日) 07:00:08.37

A１に月、B１に最初の日、B２に最後の日を入力したら
C列に最初の日から最後の日まで書き出され
D列には月／日が書き出されるようにしたいのですが

例えば
A　　　　　B　　　　 C　　　　　　D
１２　　　　１９　　　１９　　　　１２/１９
　　　　　　２２　　　２０　　　　１２/２０
　　　　　　　　　　　２１　　　　１２/２１
　　　　　　　　　　　２２　　　　１２/２２

上記のように各セルがチェンジイベントで動作してくれればと

それと文字などがB２に入力された場合は文字をC２、D2に反映したいです

A　　　　　B　　　　 C　　　　　　D
１２　　　　１９　　　１９　　　　１２/１９
　　　　　　 h　 h h

ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
初心者の私にはレベルが高すぎるようで・・・

今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。