Excel VBA 質問スレ Part79

**デフォルトの名無しさん** · 2023/01/28(土) 11:46:47.21

↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.5ch.net/test/read.cgi/tech/1667104996/

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

**デフォルトの名無しさん** · 2023/05/17(水) 13:37:03.45

なぜその程度の事を試さないでいるのかわからん

**デフォルトの名無しさん** · 2023/05/17(水) 20:26:57.88

>>770
ユーザーフォームの表示位置は設定できるんだから
後はAPIでもなんでもいいから一定時間で起動するイベントで
位置をずらして行けばいいだけじゃないの？
そういう意味じゃなくて？

**デフォルトの名無しさん** · 2023/05/17(水) 20:34:40.20

自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ　部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか？　マウスで好きな位置にドラッグしろと突っ撥ねろ

**デフォルトの名無しさん** · 2023/05/17(水) 20:36:59.98

懐かしのブラクラかよ

**デフォルトの名無しさん** · 2023/05/17(水) 22:00:50.03

やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します

**デフォルトの名無しさん** · 2023/05/17(水) 22:19:01.82

なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ

**デフォルトの名無しさん** · 2023/05/17(水) 22:37:47.21

>>770
なんでそんな事が必要って話。
マウスが無いなら別だけど。

**デフォルトの名無しさん** · 2023/05/17(水) 23:14:20.94

>>775
2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる
セルの値を比較するだけなら単純にセルの前にシート名を書けばいい

**デフォルトの名無しさん** · 2023/05/18(木) 00:00:54.09

>>778
どういう事でしょうか？

**デフォルトの名無しさん** · 2023/05/18(木) 00:19:39.19

>>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな

If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If

**デフォルトの名無しさん** · 2023/05/18(木) 00:39:29.96

あっけなく終了

**デフォルトの名無しさん** · 2023/05/18(木) 06:34:53.48

>>780
どうやってElseのセルの塗り潰しをしますか？

**デフォルトの名無しさん** · 2023/05/18(木) 07:03:21.02

interiorcolor

**デフォルトの名無しさん** · 2023/05/18(木) 13:22:02.41

>>782
もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う

Sheets(1).Cells(1, 1).Interior.Color = vbRed

**デフォルトの名無しさん** · 2023/05/18(木) 17:13:43.92

Private Sub FillDiff( _
ByVal DstSheet As Worksheet, _
ByVal SrcSheet As Worksheet, _
ByVal cy As Long, _
ByVal cx As Long, _
ByVal f As Long)
Dim d() As Variant
Dim s() As Variant
Dim row As Long
Dim col As Long
With SrcSheet.Cells(1, 1).Resize(cy, cx)
s = .Value
End With
With DstSheet.Cells(1, 1).Resize(cy, cx)
d = .Value
.Interior.ColorIndex = xlNone
End With
For row = 1 To cy
For col = 1 To cx
If Not (d(row, col) = s(row, col)) Then
With DstSheet.Cells(row, col)
.Interior.Color = f
End With
End If
Next
Next
End Sub

**デフォルトの名無しさん** · 2023/05/19(金) 11:26:43.98

>>785
VBAでセルの色も塗れないようなレベルじゃ
このサブルーチンを使うための引数さえ入れることができないと思われる

**デフォルトの名無しさん** · 2023/05/19(金) 11:51:40.30

変数名に違和感しかない
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手

**デフォルトの名無しさん** · 2023/05/19(金) 12:35:54.69

座標にx、yを使う気持ちはわかる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる

**デフォルトの名無しさん** · 2023/05/19(金) 12:52:50.03

他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。
本人でさえも1ヶ月後には解読に時間がかかる。

**デフォルトの名無しさん** · 2023/05/19(金) 14:32:46.40

俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針
Dim sr() ' Source Range
みたいな感じ

**デフォルトの名無しさん** · 2023/05/19(金) 16:03:10.43

VBAなんてグループで開発することなんてほぼ無いし
コーディングルールなんかあってないようなもんだな

**デフォルトの名無しさん** · 2023/05/19(金) 16:13:15.68

グループでなくとも別の人とか辞めた後にとかあるのに

**デフォルトの名無しさん** · 2023/05/19(金) 16:30:13.95

自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ

**デフォルトの名無しさん** · 2023/05/19(金) 17:26:41.01

出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ
史上最強の暗号に成り果てる　どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる　彼女は優秀なデクリプター　粗末には扱えない
(因みに彼女は打ち合わせに同席していない)　罵倒されながら清書している時間は至福のひととき

**デフォルトの名無しさん** · 2023/05/19(金) 17:51:29.85

はいはい
そうですか

**デフォルトの名無しさん** · 2023/05/19(金) 18:06:46.91

>>792
それよくいうけど、
知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ

**デフォルトの名無しさん** · 2023/05/19(金) 18:09:20.34

とうとう当スレに
散文詩を記す御仁が出現・・・

**デフォルトの名無しさん** · 2023/05/19(金) 18:33:52.51

>794
こんな無能の塊と一緒に仕事する人は可哀そうだな

**デフォルトの名無しさん** · 2023/05/19(金) 20:20:11.33

>>790
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。

後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。

**デフォルトの名無しさん** · 2023/05/19(金) 20:30:07.26

エクセルを月曜～金曜の決まった時間に実行する場合は
イベントプロシージャを使うのが一番いいですか？
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください

**デフォルトの名無しさん** · 2023/05/19(金) 20:41:37.93

>>800
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと？

タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの？

**デフォルトの名無しさん** · 2023/05/19(金) 20:43:39.44

>>800
エクセルを実行するのだからタスクスケジューラだろ
馬鹿ですか？

**デフォルトの名無しさん** · 2023/05/19(金) 21:00:02.29

>>801
盛大に勘違いしてました。
タスクスケジューラーで問題ないですね。
ありがとうございます。

**デフォルトの名無しさん** · 2023/05/19(金) 21:05:29.56

>>787
cx cyは座標ではなく
count of x
count of y
MSがwin32APIのc/c++で使ってきた古い接頭語です
まだSIZE構造体に残っています

**デフォルトの名無しさん** · 2023/05/19(金) 21:30:19.21

変数の理解が怪しいのはその通りです

**デフォルトの名無しさん** · 2023/05/19(金) 21:43:28.41

はあ～またいつものマウント取りあい始まったよ

**デフォルトの名無しさん** · 2023/05/20(土) 00:07:38.75

ビーングは4.0って本当かよ
3.5の方が正しいコード書いてくれるんだが

**デフォルトの名無しさん** · 2023/05/20(土) 18:29:05.09

条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 22:25:35.47

背景色を変更する条件が付いているから条件付き書式と呼ぶ
条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない

**デフォルトの名無しさん** · 2023/05/20(土) 22:28:37.71

とおもう

**デフォルトの名無しさん** · 2023/05/20(土) 22:48:50.21

条件付き書式の色だけをコピーするためには
クリップボートのコピーと貼り付けを行えばいいところまではわかりました
そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました
しかしActiveSheet.Pasteで貼り付ける事ができないです
どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 23:06:35.71

同じとこにそのままペーストしてるからじゃね

**デフォルトの名無しさん** · 2023/05/20(土) 23:18:24.07

>>812
ところにそのままペーストすることは無理なのですか？

ではこの様に
Sub Sample1()
Worksheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub

とするのであれば問題ないのでしょうか？

**デフォルトの名無しさん** · 2023/05/20(土) 23:41:42.54

やりたい事は
今選択しているシートをコピーして末尾に送る
コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す
という事がしたいです

なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？

**デフォルトの名無しさん** · 2023/05/21(日) 00:16:44.41

やってみて理想通りの動作だったら問題ないんじゃね

**デフォルトの名無しさん** · 2023/05/21(日) 01:12:12.18

頭が悪いからPASTEに拘るのね

**デフォルトの名無しさん** · 2023/05/21(日) 02:07:29.20

いったい何のために

**デフォルトの名無しさん** · 2023/05/21(日) 02:24:13.63

VBAが使えないのにワープロが使えたことを自慢していた爺かな

**デフォルトの名無しさん** · 2023/05/21(日) 06:58:31.07

>>816
ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？

**デフォルトの名無しさん** · 2023/05/21(日) 07:13:41.86

条件付き書式から条件を消して結果の色だけ残したいんやろ
それは単純なコピペじゃ無理
DisplayFormatでセルの色を調べて自力で再設定するしかない

**デフォルトの名無しさん** · 2023/05/21(日) 07:35:11.64

>>820

https://tokusengai.com/_ct/17541893

https://dekiru.net/article/16416/

クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました
そしてクリップボートのコピーはselection.copyだという事も判明しました
なので後は貼り付けのみ実行したいのですが
ペーストもスペシャルペーストもエンターキー送信も
全て貼り付けられませんでした

**デフォルトの名無しさん** · 2023/05/21(日) 07:58:40.07

ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？

**デフォルトの名無しさん** · 2023/05/21(日) 10:39:24.18

初心者によくある思い込みと表現が稚拙すぎてかみ合わない

**デフォルトの名無しさん** · 2023/05/21(日) 11:17:23.92

もしかして
VBAで条件付き書式のある範囲をコピーをコピーしたときは
必ず色のコピペではなく、条件付き書式のコピペになってしまう
という事でしょうか？
なのでVBAで条件付き書式でつけられた色を塗りたいときは
必ず
Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex

を使用しなければならないという事でしょうか？
しかも範囲選択も使えないと

**デフォルトの名無しさん** · 2023/05/21(日) 12:35:30.87

https://okwave.jp/qa/q9992673.html

最終的にこれでやりました
もっと短いコードで行う方法はないでしょうか？

**デフォルトの名無しさん** · 2023/05/21(日) 12:49:41.48

別シート（コピー先シート）の範囲に.DisplayFormat.Interior.ColorIndexの値をコピーさせることはできないので
別シート（コピー先のシート）にコピー元のアドレスを参照させるという形なのでしょうか？

**デフォルトの名無しさん** · 2023/05/21(日) 13:31:14.96

馬鹿は馬鹿だから自分の考えた方法が間違えていると指摘されても馬鹿な考えに拘り続ける法則
その実例

**デフォルトの名無しさん** · 2023/05/21(日) 13:35:13.93

そういうの一言でなんて言うか知らない？

**デフォルトの名無しさん** · 2023/05/21(日) 13:36:12.22

馬鹿は死ね

**デフォルトの名無しさん** · 2023/05/21(日) 14:39:46.36

>>827
すみません
今回は条件付き書式で塗られている色を値が変わっても残る様にしてほしい
という注文があったので条件付き書式の色を残すという事を考えていました
私は簡単な事だと考えていましたが、「条件付き書式の色をコピーするという事」が想像以上に難しかったです
今回エクセルの古い機能は問題があるかもしれないと学びました

**デフォルトの名無しさん** · 2023/05/21(日) 14:58:07.98

Excelのせいかよw　古かろうが新しかろうが、使用してる環境で張り切るっきゃ無いだろ
それが注文を請けた側の望まれる姿勢　無理なら「できません」ってアタマ下げる
アタシは悪くない、ぜんぶExcelの古い機能のせい　ハイハイ、注文した方にそう言い訳しときな
つか、最終形に到達したんだろ？　それをもっと短いコードに出来ないってだけだろ？
自分はできないけど誰かやって、かよ　それをじぶんの手柄か？　おめでてえな

**デフォルトの名無しさん** · 2023/05/21(日) 15:21:34.77

>>831
つまり今回の例で言うとExcelの仕様的に出来ないと断るのは望まれる姿勢なので良くて
出来そうだから引き受けたが、かなり難しいのは望まれる姿勢ではないのでダメという事でしょうか？

では例えば知らないので出来ません（無知の知）というのは望まれる姿勢なのでしょうか？

**デフォルトの名無しさん** · 2023/05/21(日) 15:52:29.72

馬鹿って自分ができないことは製品のせいにするんだな

**デフォルトの名無しさん** · 2023/05/21(日) 15:56:24.43

注文って言ってるぐらいだから金が発生してる仕事なのかしらんけど
こんな奴に作らせていいものかと思わなくもない
書き込み数から見て必死さはうかがえるが

**デフォルトの名無しさん** · 2023/05/21(日) 16:02:51.00

すみません
私は世の中の事や仕事という事を全く分かっていなかったです。
久しぶりの感覚を味わいました。
こらからは出来ない事は出来ないとしっかりいう様にし、自分に確実にできる事をいう様にします。

**デフォルトの名無しさん** · 2023/05/21(日) 16:05:39.40

それはそうだろw　出来もしない奴が「できらあ！」で勝手にいぢくりまわしたら周りが迷惑
どういう立場(内製・外注)か分らんが、出来ないものは「出来ません」とキチンと伝えられた方が
頼む方も判断の材料に成る　「じゃあ他の奴に」と方針決定も早くできる
請けたままグダグダいつまでも結果出さないでいる連中が多過ぎるのは企業(組織)の損失

**デフォルトの名無しさん** · 2023/05/21(日) 16:58:16.81

なぜ「エクセルの古い機能」と決めつけて「問題」だとも決めつけているのか
こういう中途半端の知ったかのせいで風評被害が生まれる

**デフォルトの名無しさん** · 2023/05/21(日) 17:08:55.76

vbaばっかり使ってて知識のアップデートも出来てないから関数を全く使えてない
xlookup？xmatch？？unique？？？indirect？？？？おっさんには無理

**デフォルトの名無しさん** · 2023/05/21(日) 17:15:28.73

浅い知識でなんとかなると思って痛い目みてると自覚してるならもっと勉強しような

**デフォルトの名無しさん** · 2023/05/21(日) 17:25:06.42

>>838
負け惜しみ乙

**デフォルトの名無しさん** · 2023/05/21(日) 17:29:48.85

何でそんなに無差別に煽ってるのか
余裕ないな…年収低いのかな…

**デフォルトの名無しさん** · 2023/05/21(日) 17:35:24.54

高いのは血圧ぐらいです

**デフォルトの名無しさん** · 2023/05/21(日) 20:44:03.59

条件付き書式の「条件」を調べて
マクロ中で条件を判断してコピペ時に
自分で書式を設定するのがいいのではと提案する

**デフォルトの名無しさん** · 2023/05/21(日) 20:47:46.54

それでも条件付き書式の優先順位やペースト時は値だけにするとか色々あるけどな

**デフォルトの名無しさん** · 2023/05/21(日) 20:55:57.95

先程の話を聞いた限りでは
もうひとつシート作っといて
対象シートと同じ値を設定しといて
値が違うなら着色するのを条件付き書式の
条件の中に混ぜてやれば出来ない
気がしないでもない。

その判断用シートを見せたくないなら
Very hiddenで隠しておけばいいし。

ま、方法は探せばまだなんかありそうな気もするね。

**デフォルトの名無しさん** · 2023/05/21(日) 21:06:13.61

すみません
本当にその通りだと思います
情けないです

**デフォルトの名無しさん** · 2023/05/21(日) 22:03:54.55

試しに最終的に使用したコードをbing AIくんに尋ねてみました
そうしたら解説をして頂けました
ありがとうございます

**デフォルトの名無しさん** · 2023/05/21(日) 23:39:24.56

任された仕事、引き受けた仕事はミスなく完璧に仕上げないといけない
という話を聞いてそれではとても仕事を引き受けられないと思うのと、ネットで言われていた「私がやります」と仕事を引き受けたら責任の押し付けをされるから誰も引き受けようとしないという話がやっと理解できました

**デフォルトの名無しさん** · 2023/05/22(月) 00:19:24.60

転職するなら早い方がいい

**デフォルトの名無しさん** · 2023/05/22(月) 01:39:29.37

こんなのが入社してくるのは勘弁してくれ

**デフォルトの名無しさん** · 2023/05/22(月) 02:12:11.55

馬鹿連発病気野郎はこのスレにもいるのか？

**デフォルトの名無しさん** · 2023/05/22(月) 07:02:02.27

責任の押し付け合い、押し付けになるのなら誰もやりたがらない
普通ですよね？

**デフォルトの名無しさん** · 2023/05/22(月) 07:26:17.83

ワッチョイないせいか完全に雑談みたいなスレになっちまってるな

**デフォルトの名無しさん** · 2023/05/22(月) 10:28:31.01

元々へんなおぢさんが立てたスレだぞ　正規のスレは別にちゃんと現在進行形で生きてる
それでも所々ではキチンと応じてるひとも居るから続いてるだけのこと

>>825　のリンク先の回答で、なにが不満なんだかソッチのが理解できない
「もっと短いコード」って、それ以上短く出来ないだろうに
もしかして試して無いんじゃないのか？一瞬で要望満たすぞ？ Excel2016での質問だし、もっと古いVer使ってんのか？
そこで解決！で終わらせてりゃ、余計な罵倒されずに済んでたのに　　まぁ、要件が要件で無意味な要求にも思えるけど

**デフォルトの名無しさん** · 2023/05/22(月) 12:34:00.56

会社のレベルが低いし勤務してる俺のレベルも当然低いんだが

DX化の推進、早くpython入れないと
と連呼してる人の内容を聞いたら
社内サーバの特定の場所にある1000以上あるpdfをExcelに名前を取得してリスト化したいと…
更にリンクで飛べるようにしたいと…

pythonいれずともマクロでやって神扱い

**デフォルトの名無しさん** · 2023/05/22(月) 13:27:39.73

はいはい

**デフォルトの名無しさん** · 2023/05/22(月) 14:36:24.55

自慢なのかただの事例報告なのか分からんが、凄いとは思う

**デフォルトの名無しさん** · 2023/05/22(月) 15:33:00.76

とにかく書き込まれるレス全てに煽らないと気が済まない奴がいるよな。
>>856とかその常連だし。

**デフォルトの名無しさん** · 2023/05/22(月) 16:07:41.58

PDFのファイル名だけならそこまででもないような？
まあ神扱いされて？ならそうじゃないんやろなあ

**デフォルトの名無しさん** · 2023/05/22(月) 18:22:15.70

>>854
わざわざすみません

セルの色　= ディスプレイに表示されているセルの色
に勝るシンプルなコードはありませんよね
情けないです

**デフォルトの名無しさん** · 2023/05/22(月) 18:23:42.16

>>855
全く悔しくないので申し訳ないですがパワークエリでも出来なくもない様な、、、

**デフォルトの名無しさん** · 2023/05/22(月) 18:48:11.43

For Each Range型変数 In 範囲
If Range型変数.Value <> Sheets("比較するシート").Range(Range型変数.Address).Value Then

やっぱり短いコードがあったのですね
本当に恥ずかしい

**デフォルトの名無しさん** · 2023/05/22(月) 19:23:18.88

いや、いちいち何でマウント取ろうとするのか…年収低いのかな

**デフォルトの名無しさん** · 2023/05/22(月) 19:56:20.06

Then の後に記述する量が余計でしょ？　IF分岐させる意味無いでしょ？
ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど

**デフォルトの名無しさん** · 2023/05/22(月) 20:00:51.23

>>864
本当にありがとうございます

**デフォルトの名無しさん** · 2023/05/22(月) 21:24:15.99

すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。

**デフォルトの名無しさん** · 2023/05/22(月) 21:29:35.14

>>864
bung ai君にも　ifとthenが必要です
と怒られました

**デフォルトの名無しさん** · 2023/05/22(月) 22:19:23.91

まああれだ　美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ
ちがうか　何がしたいんだかとっ散らかって来てる様子だな
>>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？
Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、
CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？　bug ai に改名した方がいいな

広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで
どれが美味いものかは、本人しか決められねえ　近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような

**デフォルトの名無しさん** · 2023/05/22(月) 23:44:38.04

仕事は確実にできないといけない
できもしない仕事は引き受けてはいけない
という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ

**デフォルトの名無しさん** · 2023/05/23(火) 01:19:58.26

AIの仕様は誰かが決めたのかね
確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ