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/15(水) 00:41:25.72

他のgetElementなんちゃらを使えばいいんでねーの？

2023/03/15(水) 01:44:42.30

>>207
まずhtmlソース全部見る
タグとかクラス名とかinnerHTMLとか、そこを一意に識別する方法を考える

2023/03/15(水) 19:59:06.05

>>208,209
ありがとうございます。

2023/03/22(水) 19:26:33.26

VBAをやらざるを得なくなってしまい、半月ほど初心者向けサイトをざっと見したんだけど、復習しながら練習するのにいいサイトとかないですかね？？YouTubeとかでもいいです。

2023/03/22(水) 20:16:54.25

教えてもらうくせに上から目線でサイト探しているの？

2023/03/22(水) 20:27:03.12

え？どこが上から目線？
全然普通の態度だと思うが。

2023/03/22(水) 20:35:07.68

できないと言う勇気

2023/03/22(水) 21:02:59.43

VBA やりたい事でググれば大抵出てくるOffice田中のサイトでいいんじゃないの

2023/03/22(水) 21:57:37.59

俺も別段上から目線だとは思わんな
vba100本ノックでググればいいよ

2023/03/22(水) 23:19:15.71

>>215
>>216
ありがとうございます。

2023/03/22(水) 23:32:19.46

半年探していいサイトが無かったように聞こえたな

2023/03/22(水) 23:32:43.87

半月だ

2023/03/23(木) 00:54:29.33

ここ最近は神髄というサイトが人気あるらしいね。
例の老舗さんはネタ切れ感あるとか？？

2023/03/23(木) 03:04:12.23

いいサイトが見つからないから勉強ができないって言い訳はするなよ

2023/03/23(木) 08:19:59.99

いうほどいいサイトってなくね？
コード書く練習したいなら100本ノックくらいしか思いつかんわ。
サラッと目通しただけじゃ難易度高いだろうが

2023/03/23(木) 09:53:16.93

その都度ググればよくね？
俺はそうしてる

2023/03/23(木) 11:11:45.25

ChatGPTに聞きまくり+ネットのコピペまくりでごまかしてるわ
コメントつけて何とか弄れるようにはしてあるけど
無駄だったり重複する処理を消したりはしない、というか下手に出来ない

2023/03/23(木) 12:55:45.78

>>224
こんなのが作ったVBAを使わされる方がかわいそう

2023/03/23(木) 13:23:54.81

不具合が起きてもコピペだから原因がわからず自分が作ってないから直せませんとか言うのが見えてる

2023/03/23(木) 16:13:34.30

今注目してるのはOffice 春だな。
なかなか痒いところに手が届く技を紹介してくれている。

2023/03/23(木) 18:42:46.38

興味を持つのは自由だが専用スレでやれよ

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しておくといい
質問スレによくいる罵るだけ罵って自身は何もしない無能な奴だよ