Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

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

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

2023/03/25(土) 17:09:50.33

恐ろしいぐらいめんどくさかったけど複雑な処理をするマクロが完成して改善の部門賞で去年3万貰えたけどそれを超えるマクロが完成しそう
こりゃ社長賞狙えるかな

2023/03/25(土) 17:16:33.67

典型的な頭の弱い社畜の書き込み
井の中の蛙

2023/03/25(土) 17:20:16.80

だよな、ここの人らって本当に井の中の蛙だわ
異動してpythonに移行する前に作り上げて10万かっさらうわ

2023/03/25(土) 20:39:39.60

まぁEXCEL VBAはEXCEL扱うのはめっぽう強いし
ちょこっとした処理を作るのに長けているから
プログラマ主体でなくて業務側についてる人でも多く使っているからね。

他の言語使っててもUTとかの際に
エビデンス取るとき整合確認とかで
EXCELの数式やVBA知ってると
かなり時間短縮出来たりするし。

2023/03/26(日) 02:18:50.58

ちょっとした処理に適しているのがExcelマクロだい。

2023/03/26(日) 21:50:17.38

VBAはネットに転がってるのがいいよね

2023/03/26(日) 22:54:45.65

VBA基地外が転がってる

2023/04/01(土) 10:04:12.82

ＶＢＡでゼビウス作りたいです

2023/04/01(土) 10:41:21.61

まず許可とらないと

2023/04/01(土) 19:42:02.16

https://xtech.nikkei.com/it/pc/article/NPC/20080321/296775/
もう15年も前の記事だが

2023/04/04(火) 05:43:03.68

Excelの罫線が太すぎるので
ある範囲の入力済セルの下に
例えば0.5ptのオートシェイプを引きたいです
どのようにしたらできますか？

2023/04/04(火) 11:13:58.48

入力済セルの下にオートシェイプの線を貼り付ける
線の書式の幅を 0.5pt にする

2023/04/04(火) 16:48:55.55

>>240
VBAで自動でやりたいです

2023/04/04(火) 17:42:01.18

ほんとにオートシェイプでやるの？
あら手の嫌がらせかな

2023/04/04(火) 19:06:27.39

>>242
どうしても細い線が引きたいけどないのでそうするしかないんです

2023/04/04(火) 19:29:11.09

>>243
ダイアログの「なし」の下の破線が一番細い実線だよ
0.5ptって訳じゃないけどこれで代用はできない？
https://i.imgur.com/FI2RhpR.png

2023/04/04(火) 19:40:07.41

やりたければやればいい
何がわからないのかわからない

丸投げしたいなら初めからそう言っとけ

2023/04/04(火) 19:57:30.78

流石に何も調べず「こうしたいんです」って言われてもね
調べた上で質問しろよ流石に

2023/04/04(火) 19:57:38.37

>>244
プリンタの問題なのかその破線だと印刷されません
ブラザーのモノクロレーザーなんですが
色々と調べたところインクジェットだと滲むから印字されるけどレーザーだと細すぎて印刷できないみたいです

2023/04/04(火) 20:11:18.91

>>247
レーザーでも印刷はできる
プリント解像度が合ってないから変えて試せ
要件としてはプリンターで細い罫線を出力したいが正しいのに、
情報小出しにするのはなぜ？

2023/04/04(火) 20:27:01.14

馬鹿は馬鹿な頭で馬鹿な方法を考えついて馬鹿な質問をする法則
例の零細企業の馬鹿でわかったはずだろ？

2023/04/04(火) 21:06:09.03

>>248
考えた結果、オートシェイプで線を引くしかない、となったのでそれのやり方を聞きました
ブラザーのサポートにも問い合わせたけどそういうものみたいです

2023/04/04(火) 22:10:24.26

ちなみに点線は印刷業界でいうヘアラインというやつでプリンタの一番細い線を出すという命令なので
いいプリンタほどほぼ印字されないそうです
なので設定は無関係です
300dpiにすれば印字されますが文字が汚いです

印刷のアドバイスを聞きたいわけでも情報を後出ししているわけでもなく、
オートシェイプで線を引くコードが知りたかっただけです

2023/04/04(火) 22:16:45.73

絶対に自分で調べたほうが早いし楽だし拡張性あるのに、頑なに人に聞くやつっているよな
ggrks

2023/04/04(火) 22:33:10.85

Sub Macro1()
Dim rr As Range
Set rr = Selection
rr.Parent.Shapes.AddLine(rr.Left, rr.Top + rr.Height, rr.Left + rr.Width, rr.Top + rr.Height).Select
With Selection.ShapeRange.Line
.Weight = 1
.ForeColor.RGB = RGB(0, 0, 0) '255,255,153 薄いイエロー 204,255,255 薄いブルー
End With
rr.Select
End Sub

Sub Macro2()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline 'xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Macro1が直線を引く場合　Macro2が罫線を引く場合　Weight = 1を0.5にしても変わらない　xlHairline細線xlThin極細
直線を引くと消す作業が必要に成る

2023/04/04(火) 22:57:58.66

下線を付ける場合って普通はアンダーライン機能使うし、空欄の下線なら＿＿＿　（シフト+「ろ」）
~~~~~~~~~~ (半角波線) ^^^^^^ (ハット)　で上行の強調みたいな書き方したり
─────　(罫線文字）　━━━━━　(罫線文字太い)　　でたいていは済むと思うが

2023/04/04(火) 23:21:59.65

下線というのはセル毎の仕切り線という意味でした
わかりにくくてすみません

2023/04/04(火) 23:30:14.47

>>249
馬鹿は馬鹿な質間の後に後出し条件を付けるも追加で

2023/04/05(水) 00:53:07.23

>>256
別に全然後出しとは思ってないけどね
細い線が出したいです、ではなくて
自動でオートシェイプで線を書く方法を教えてください、なんだから

2023/04/05(水) 00:54:17.99

ろくなやついないみたいだからよそいくね

2023/04/05(水) 01:00:51.04

何が問題なのかわからない馬鹿ばっかのところが見つかるといいね

2023/04/05(水) 01:20:39.85

知恵遅れ袋があるじゃないか

2023/04/05(水) 07:58:24.80

>>257
それは自分が思う解決方法であって目的は細い線を印刷することだろ

2023/04/05(水) 08:35:05.20

罫線文化は日本特有だからそろそろ辞めよう

2023/04/05(水) 11:17:22.11

そういい続けてもう何年になるだろうか

2023/04/05(水) 11:34:30.61

>>258
オイオイw　提示したコード試したンか？w　オートシェイプの線と罫線と両方をサンプルして
尚且つ、線種や色を改良しやすいように例示もしたってのに　
出力できる太さに限界があるなら色を変えることで改善させるのもひとつの解決策だろうに

2023/04/05(水) 14:48:49.66

>>264
そういうまともな発想が通じない自分の馬鹿な解決方法とやらに拘るのが馬鹿の馬鹿たる所以だ、残念なことに

2023/04/05(水) 19:37:02.68

どこが日本特有だよ
タイやら中国やらアメリカやらからデータ来るけど罫線なんて普通に使いまくりだぞ
文化じゃねーよ無職知ったかかよ

2023/04/09(日) 10:12:35.57

さて、そろそろ書けますか？

2023/04/09(日) 10:34:21.92

うおおw　またどっかに吸い込まれたｗ　なにがイカン？
　tps://www.post.japanpost.jp/img/int/use/writing/pic_invoice.jpg　日本郵便のサンプル
　tps://learn.microsoft.com/ja-jp/dynamics365/finance/localizations/media/apac-tha-tax-invoices-tax-invoice.png
　tps://templates.invoicehome.com/invoice-template-en-neat-750px.png
各国のインボイス画像何枚か貼り付けたレスだが、取り敢えずアタマ削って書き込んでみるw

現地の駐在員が日本人の可能性もあるぞ　と書きたかったw　それらの国でもイージーな書式でも通用するから
敢えて日本向けに罫線書式で送り付けてきてる可能性だってある　何かに憑り付かれたように「これでなきゃだめ」
なのは、使う側が融通効かない石頭揃いなせいが大　容易に使えてそれを容認するような文化　が無い(劣ってる)とは言える

2023/04/09(日) 12:18:38.23

部署で唯一VBA使える人が異動しそうなので
なにか力になりたいけれども、マイクロソフトのVBAスタンダードの
勉強をするよりはその人のコードを見て調べて…の方が良いでしょうか。
資格は実務に役立たないとよく聞くので。

2023/04/09(日) 12:44:54.33

>>269
VBAスタンダードなんかのVBAエキスパート資格とMicrosoftは無関係
だからVBAスタンダードより異動する前にコード見て、聞けるところを聞いておく方が有意義

2023/04/09(日) 12:49:57.62

何も知らないやつが仕事で力になりたいけどとか簡単に言っちゃいけないよ
他人のVBAコードは不条理の塊と見なせるから、担当が自分に振られたのでなければ下手に関わらない方がいい
異動なら連絡は付くだろうし、君が心配しなくとも引継ぎ担当が面倒見てくれるよ

2023/04/09(日) 12:59:51.78

>>270 >>271
ありがとうございます。よく分かりました。
ちなみに引き継ぎを受ける候補は私なので
自分でもコツコツ勉強プラス異動後も聞くことにします。

2023/04/09(日) 13:03:59.67

こっそりYouTubeで解説動画見て、簡単なの自分で作って、実務のVBA眺めて意味を考えてググって分からなかったらここで聞いて勉強してからじゃない？
最初は使い方だけ聞けばいいし、中身変更なんて頻繁にないでしょ。

2023/04/09(日) 17:34:38.52

>>268
交互色もよくみる

2023/04/09(日) 18:28:02.92

>>280
Listobject使うと自動で交互色テーブルになるんですが他国言語版はならんのか?

2023/04/09(日) 21:15:17.28

おちつけ

2023/04/11(火) 06:32:54.99

>>269
VBAの試験なんて
適当にVBA組んでれば
その内何も勉強しなくても
エキスパートいきなり受けても受かる試験だから
そん時受ければいいよ。

EXCELの試験の方が難しいらしい

2023/04/11(火) 10:56:35.96

日商表計算1級は自慢してもいいレベルらしい。
mosは…察し。

2023/04/15(土) 17:32:15.76

エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルB2に入る文字を変えたいです
https://jsfiddle.net/07ed2ajc/

2023/04/15(土) 17:39:31.98

セルチェックボックス連動
で沢山出てくるよ

2023/04/22(土) 08:24:42.08

A列の「作業結果」ごとに振り分けたいんだけど良い方法ない？
ピポッド組んだ方がはやいかな？

A列　　　　　B列
作業結果氏名
不備なし田中
不備あり佐藤
不備なし佐々木
不備あり加藤

↓別シートに転記したい

A列
不備なし

田中
佐々木

不備あり

佐藤
加藤

2023/04/22(土) 08:27:50.42

フィルタかけて　「不備なし」、「不備あり」ごとに転記

作業結果　　氏名
不備なし田中
不備なし佐々木

不備あり佐藤
不備あり加藤

「作業結果」列で重複データのみを削除
Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes

作業結果　　氏名
不備なし田中
　　　　佐々木

不備あり佐藤
　　　　加藤

ここまではイメージしたのだけれど、
そもそもとして、A列の属性ごとにまとめたいから、上記ではうまくいかないような…

2023/04/22(土) 08:29:37.58

氏名はありきたりなのを使用したので大丈夫かとｗ

2023/04/22(土) 08:31:58.26

あかん不倫ありに見えた・・・

2023/04/22(土) 08:52:52.45

自己解決

ピボット組んだ方が説明しやすいような気がした

2023/04/22(土) 08:56:33.28

今月に入って勉強し始めたわいはフォームからの操作で使ってるけど、
ある結果に該当するデータを　For ～　Next と If ～ Elseでふりわけてコピーしてる。

2023/04/22(土) 09:16:50.26

>>281
Excel2019以後や365版ならVBAでなくワークシート関数のFilter関数使った方が楽かと。
こんな感じ。
=FILTER(B:B,A:A=“不備なし”)

2023/04/22(土) 09:43:24.98

>>287
これいけそうだね。

毎日集計ださなければならないんだけど、
日付で絞るのは楽勝だとして、

不備なし
不備あり

ごとにFILTERかければいいんだね。
なるべく誰でも分かるものにしろ、
とのお達しなので来週ためしてみるよ。
どうもありがとう。

2023/04/24(月) 16:29:17.11

Excelのシートにpdfを貼り付けたいんですが（一枚目だけでいい）
OLEObjecps.Add
でファイルパスを与えて取り込むと
文字が読みづらいレベルで
解像度が低く取り込まれてしまいます

簡単なプレビューをエクセル上でしたいだけで
pdfのパスが入ってるセルを選択したら
シート上に表示、といったことがやってます

別のファイルを選択したら前のプレビューは消して次のファイルをプレビューする、みたいな

Acrobat Readerはインストされてますが
無料環境でやりたいです。

2023/04/24(月) 16:37:38.75

>>289
Windowsも有料だし、電気代も掛かるし無料は無理でしょ
他は現状報告だけで答える部分はありませんね

質問やり直せ

2023/04/25(火) 10:02:17.63

>>289
　>解像度が低く取り込まれる　が、把握しずらかったが
https://www.microsoft.com/ja-jp/biz/smb/column-excel-pdf.aspx
　　↑の、【PDF がぼやけて表示される際の原因と対策】が合致するのか

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-8Xzj) · 2023/04/25(火) 11:27:26.34

pdfを画像として印刷して
その画像を取り込めばいいと思う

2023/04/25(火) 12:49:16.15

>>291
ありがとうございます
設定試してみましたが、症状はかわりませんでした…

>>292
一応考えはしましたが、面倒で躊躇していました…

pdfを取り込むという方針でばかり検索していたので見つかりませんでしたが
webbrowserに表示するという手に逃げることにしました
フォームのModalをオフにしてサイズを可変にすれば
シート上のオブジェクトと似たような操作性にはなるので
これで行こうと思います

2023/04/25(火) 12:56:36.27

なぜReaderに表示させるではだめなのか

2023/04/25(火) 13:26:27.30

そこはほら、ファイルパスを指定して読み込む　という部分で察するに
表示されたPDFに関連した他の情報もSheet上にいろいろあれこれ連動して表示されるとか
そういうつくりに成ってるのかも知れない　デュアルモニタでも無いんで目が散るとかも
pngやjpgとかの画像ならオブジェクト扱いで拡大縮小すれば何とか処置できるかも知らんけど
PDF固有の問題とかなんだろ

2023/04/25(火) 14:59:34.57

>>294
すいません
pdfだけじゃなくて
普通の画像もユーザーに同じUIで操作させたいのと
普通のReaderはファイルを連続で開くと
タブで複数開こうとするので諦めました…
新しいファイルを開いたら
新しいインスタンス作らず開き直してくれれば近い動作になるんですが

あと、AlwaysTopにする必要もありますし
余計に大変だと考えていませんでした

>>295さんの内容でだいたい正解です

2023/04/25(火) 22:10:00.33

1 PDFをAdobeReaderで開く
2 AdobeReaderにCtrl+Lを送ってフルスクリーンにする
3 画面キャプチャする
4 クリップボードの画像をシートに貼り付ける
5 AdobeReaderを閉じる
何が面倒なんだこれ

2023/04/26(水) 17:36:17.42

１回だけならいいかもしれんが、毎日何回もやるとなったら
面倒だと思わんほうがどうかしてる

2023/04/26(水) 21:05:50.62

VBAスレで何言ってんだコイツ

2023/04/26(水) 22:50:11.08

まぁwebbrowserで済むなら
そっちのほうが良いだろね
readerのインスタンス閉じたり開いたりしなくていいし
いちいち画像スクショのフローも通す必要ないし
処理もパスを渡すだけで済むし
なんだったら複数ページでもスクロール確認できるし

2023/05/03(水) 21:37:40.68

数値が指数表示されるのどうやって直しますか
format で@にすれば直るって言う人いるけど末尾にE15とか付いちゃう

2023/05/03(水) 22:23:40.94

>>301
馬鹿は消えろ

2023/05/04(木) 03:04:51.18

表示形式変えたら良くね？

2023/05/04(木) 07:02:56.52

>>301
随分前に取り込んだcsv内のデータが指数表示になって困ったことがある。
セルの書式設定が標準だと12桁以上の数値は自動的に指数表示になるexcelの仕様らしいので書式設定を数値にするか、頭にアポストロフィをつけて文字列として入れたかのどちらかで対応した記憶。

2023/05/04(木) 09:06:13.63

csvの取り込みはVBAから直接ではなく、
PowerQueryにした。
エンコードや読込み列数の指定もできる。

2023/05/04(木) 17:35:17.84

分からないから質問しているのに馬鹿だの何だのって。

2023/05/04(木) 18:18:33.10

>>306
馬鹿でNGしておくといい
質問スレによくいる罵るだけ罵って自身は何もしない無能な奴だよ

2023/05/04(木) 19:48:22.72

>>307
よく読んでいないのに決めつける馬鹿
お前らにはわからない時には時々答えているぞ

2023/05/04(木) 20:21:25.82

おいおい、NGワードての初めて使ったがあぼーんだらけだぞ？？
いかにここがNGワードだらけか分かったよ。

2023/05/10(水) 02:58:03.13

なにアホぬかしてんねん

2023/05/10(水) 20:53:06.79

あぼーん

2023/05/11(木) 22:30:54.17

あかーん

2023/05/12(金) 22:05:56.53

おぼーん

2023/05/13(土) 19:38:24.33

こぼーん

2023/05/15(月) 07:09:01.65

会社のシステム(黒バックに緑の字)で“数字→Ent”で画面表示を切り替えて行くんだけど、どうしてもSendkeyでEnt(テンキー側)が押せない。(それ以外は押せている)
NumLockの問題では無いと思うんだけど、何が問題なんだろう？
“｛ENTER｝”でも“~”でもダメでした。
どうもメインキー側のEntを押している感じがする。(Entはそれぞれ別の機能か割り振られている)
Sendkeyで無理なら他の方法ってない？

ちなみにVBAは独学でやっている初心者なので、お手柔らかに。

2023/05/15(月) 07:44:39.36

大きいEnterとテンキーのEnterはキーコードが違う
テンキー側は{ENTER}
sendkeysで{PRTSC}やっても画面キャプチャ撮れないのと同じようなものかも
AutoHotKeyみたいなツール使った方が簡単かもよ

2023/05/15(月) 08:33:02.84

>>316
いや、返信が早いのはありがたいんだけど、エンターキーが別なのは分かってるから、テンキー側か押せないと書いてるワケなんだけど…。
会社のパソコンだから、勝手に別アプリは入れられない。

2023/05/15(月) 09:43:33.62

Excelじゃ無理

2023/05/15(月) 10:32:40.13

>>317
.exe叩くことすら不可能なら諦めろ
AutoHotKeyはAS/400のターミナル操作で右ctrl無いノートPCで右altで右ctrl操作したり、
テンキーがないノートPCでてんきーのEnter押下操作したりした実績がある

2023/05/15(月) 11:57:22.16

上司にできませんって言うのも勇気

2023/05/15(月) 12:25:24.97

>>317
どうしてもVBAでやりたいならWin32APIのkeybd_event関数使え
さっき言ったPRTSCでスクショできない問題も解決できてるから、
恐らくターミナル操作もできると思う

2023/05/15(月) 13:00:05.62

コレ(>>315)は仕事の話だけど、別に上司に言われてやってるんじゃなくて、仕事の効率を上げる為に自分が勝手にやってるだけ。
俺はExcelを使ってるけど、他の人は画面を見て手打ちしたり紙に書き写したり、何なら電卓叩いてる。
で、今は会社のシステムのマクロ(Excelで操作を記録するのと同じ様なモノ)にEntを登録して、画面上部にあるそのアイコンをVBAでマウスを操作してクリックすると言う、無理矢理なやり方でやってる。
やっぱりWin32APIでやってみるかな。
みんなありがとう。
長文でスマン。

2023/05/15(月) 13:53:06.37

いくつか疑問が　：
(黒バックに緑の字)で“数字→Ent”で画面表示を切り替えて行く　ここは実際のキーを叩いてる？
ユーザーフォーム上とかの数字をクリックしてEnterボタンとかを押してる？

“｛ENTER｝”でも“~”でも　ENTERには｛｝付けてるのに～には｛｝付けないのは単なるタイポ？

(黒バックに緑の字)　それってPower Shell とかコマンドプロンプトとかで無くて？

どうしてもSendkeyでEnt(テンキー側)が押せない　テンキー側である必要は？　メインのENTERキーが押せれば充分なのでは？

2023/05/15(月) 14:07:11.48

>>323
一部のターミナルエミュレータ（IBM iSeriesとか）ではテンキーのEnterとテンキーではないEnterや、
右ctrlと左ctrlなんかに別々の動作が割り当てられてるからでしょ
PSやコマンドプロンプトなら別の動作ではないし、
画面の配色もデフォルトで黒地に白文字でわざわざ変えるとも思えない

2023/05/15(月) 14:27:07.62

あぁ、「会社のシステム」ってのが別にあって、他の社員はその画面上だけで処理してるけど
相談者はそこに別途起動したExcelでキー操作したい　ってことか？
だからメインのENTERキーとテンキーのENTERキーは区別して使いたいと？(メインだとベースのシステム側が
反応しちゃうから　とか)　結構無理やりな使い方のような
Sendkeysはプレーンの状態しか想定してないような　もうひとつのシステムとのアクティブが問題とか？

https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/keycode-constants
Sendkeysはやめて、ここのキーコードでコード書いた方が安全安心なような

2023/05/15(月) 15:18:05.10

>>322
指示されたとか業務を請け負ったわけでもなく
自力でできない改造を勝手にやって周りに困ってるとか言い出してるのね
他に優先する仕事無いの？

2023/05/16(火) 13:42:46.21

>>315です。
もうSendkeys以外でやろうと思っていましたが、323さんが疑問を持ったままだとモヤモヤするでしょうし、一応返信しておきます。
注意：長文・駄文になるので、興味の無い方は無視してください。
(レスアンカーが多過ぎたので、レス番号のみにしています。)

まず会社のシステムをソフトウェア名で検索したら、まさに324さんが言っているモノでした。
今やっているのは、その操作をExcel_VBAからSendkeysで叩かせてメニューを操作し、必要なデータをExcel側に持って行って処理しようとしています。
(会社のシステム上では、現状その処理が出来ない為。)
主に毎日出るデータから必要な数値を関数を使って抜き出して計算する為です。
現在その作業をやっている人があまりにも時間が掛かり過ぎていて、作業効率をUPする為にやっています。
(画面上の数値を目視で探して紙に書き留め、電卓で計算してExcelに手入力すると言うアナログな方法です。)
テンキー側のEnterが押せない以外は出来ていて、作業時間は1/3の以下に出来ました。
自分も323さんが325で言っている様に、無理矢理な使い方(特にEnterの入力法)をしているとは思っています。
もう一度調べ直して、325のリンクのキーコードに切り替えてみます。
ありがとうございます。ヒントになりました。

2023/05/16(火) 16:04:00.86

無知な人は無知だから解決方法のアプローチすら間違う
IBMのCOMオブジェクトがあるだろ