Excel VBA 質問スレ Part78

2022/10/30(日) 13:43:16.31

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

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

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

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

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

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

2023/01/12(木) 18:59:52.86

vbsのスレは気持ち悪いからねえ
win32apiコールとか何でもできるpowershellを検討しよう

2023/01/12(木) 21:50:28.71

でもパワーシェルはダブルクリックで起動できないって
ところが

2023/01/12(木) 22:14:31.34

>>684
馬鹿にはできないだけだぞ

2023/01/12(木) 22:22:53.89

>>684
バッチからPowerShell呼べばいいだけ

2023/01/12(木) 22:26:21.46

PowerShellのスクリプトは.ps1ファイル
普通に起動できる

2023/01/12(木) 22:27:21.44

>>680
そうなんかな？
VBAのデザインパターン扱ってる本なんて見たことないけど

2023/01/12(木) 22:47:57.75

>>688
VB.NETの方

2023/01/13(金) 05:15:26.60

パワーシェルでやってみます

2023/01/13(金) 06:09:05.42

オブジェクト指向の典型は、Ruby on Rails。
派生ばっかり

おまけにRubyは、メソッドチェーンで関数型プログラミングもできる

ウェブ開発では、ガチガチのオブジェクト指向で、
テキスト処理では、Linux のパイプラインみたいなメソッドチェーンの両方を使うから、
あらゆるデザインパターンの宝庫

おまけに、Stack Overflow によると米国年収ではトップ。
Rubyは9.3万ドル、多くの言語は6.5万ドル、PHPは5万ドル

2023/01/13(金) 09:12:44.75

>>691
でも
日本ではVBAより平均年収安いって記事
前このスレに挙げられてたよね

2023/01/14(土) 13:37:47.00

また何かにつけて馬鹿馬鹿って連呼するヤツが来たか。揚げ足の取り合い、誹謗中傷スレになるのも時間の問題だな
荒らしにイチイチ構っているお前らも同罪

2023/01/14(土) 15:05:35.60

そんな馬鹿な

2023/01/14(土) 16:08:53.73

Rubyはほんとにオブジェクト指向の学習に向いてるのに5chだとキチガイのせいで勧めづらい
いい加減消えてほしい

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/14(土) 21:16:02.63

今ruby勧めたらボッコボコにたたかれるだろうな

2023/01/15(日) 03:52:20.14

新年明けましておめでとう
今年はここの住人に《禿》とか《馬鹿》とか《氏ね》とか言われない事を目標にするぞ！

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/15(日) 09:48:56.12

>>697
禿ましておめでとうございます

2023/01/15(日) 22:39:41.40

氏ね

2023/01/16(月) 01:40:45.06

>>682
VBSからWin32api呼ぶのにVBA使わんの?

2023/01/16(月) 03:47:49.20

別の確実な方法があるのにそんなもん使わないのでは

2023/01/16(月) 04:20:04.61

VBA使ってAPIコールするなら最初からVBAで作るだろ...
何が悲しくてvbsなんて使うんだよ

2023/01/16(月) 07:47:36.98

>>700
ここは”Excel”のVBAスレです

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/16(月) 07:56:54.09

もう忘れたけどvbsの方がいい場面があることはある
ただもう二度と使う事はないだろう

2023/01/16(月) 11:52:06.85

Excelのスレだったのか？

2023/01/16(月) 11:57:18.10

スレタイ読めないのか

2023/01/16(月) 12:02:48.00

>>705
流石にこの発言は馬鹿と言われても仕方ないな

2023/01/16(月) 12:10:40.38

Excelにかぎらなければこっちにスレがあるからこちらへどうぞ

VBAなんでも質問スレ Part3
https://mevius.5ch.net/test/read.cgi/tech/1631184381/

2023/01/16(月) 12:19:23.79

>>708
質問するにはこっちのスレの方が平和的でいいな
このスレには人をバカにしてマウント取るような人間しかいないし

2023/01/16(月) 12:29:47.52

それはｗ　自分の発言読み返して反省しろよｗ　>>705 はボケただけだろ　客席がﾄﾞｯ!と沸くトコだぞ

2023/01/16(月) 12:40:01.09

ガチでボケてるのか後出しでボケたことにしたいのか
どちらにせよ>>710が恥ずかしいことに変わりはないなw

2023/01/16(月) 18:41:31.88

スレの住人のカラーや雰囲気全然違ってワロタww
ここは人をバカにして楽しむクソスレww

2023/01/16(月) 19:21:15.63

winapi使いたいならexe作れよ
古いけどVB.NETのコンパイラ入ってるから

2023/01/16(月) 21:08:05.75

>>712
ここにはスレタイも読めなければスレの趣旨も理解できずにただ雑談にくる人も多いからね
クソスレにしてるのはあなたみたいな人だって事を理解したほうがいい

2023/01/17(火) 21:21:18.66

>>703
エクセルのVBAだろ?
ワードのVBAなんか使わないぞ?

2023/01/17(火) 22:19:09.74

たまに勘違いしてVBの質問してくる人とかいるくらいだからな。

2023/01/17(火) 22:29:25.09

vbaとribbon customuiって直接関係ありませんが、マクロをribbon customuiから利用を考えています。
ネットやyoutube等調べて試したのですが、タブやボタンが表示されずに困っています。
また2007と2010でxmlnsの名前空間指定方法が異なることも理解しているつもりです。
2010以降を想定しています。
環境：Excel for Microsoft 365 MSO (バージョン 2212 ビルド 16.0.15928.20196) 64 ビット
ribbon_test.xlsm(zip)
_rels, customUI, docProps, xl, [Content_Types].xml

マクロ
Module1.main

_relsの.rels
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships";>
<Relationship Id="rId3" Type="(略)" Target="docProps/core.xml"/>
<Relationship Id="rId1" Type="(略)" Target="xl/workbook.xml"/>
<Relationship Id="rId4" Type="(略)" Target="docProps/app.xml"/>
<Relationship Id="rId5" Type="http://schemas.microsoft.com/office/2007/relationships/ui/extensibility"; Target="customUI/customUI14.xml"/>
</Relationships>

customUIのcustomUI14.xml
<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui";>
<ribbon><tabs>
<tab id="CustomTab" label="Custom Tab">
<group id="customGroup" label="Custom Group"><button id="member" visible="true" label="Custom Button" size="large" imageMso="HappyFace" onAction="Module1.main" /></group>
</tab>
</tabs></ribbon>
</customUI>

ご教授お願いいたしますm(_ _;)m

2023/01/17(火) 23:43:37.93

自己解決できました。
お騒がせしました。

2023/01/18(水) 20:59:44.95

なんやねん

**デフォルトの名無しさん** (JP 0H6d-w88e) · 2023/01/19(木) 07:37:02.75

VBA知らないのですけど
シート間やブック間の情報のやり取りには
コールバック関数みたい非同期処理をしてるんですか？

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/19(木) 07:47:03.02

>>720
オブジェクトのプロパティを書き換えたり取得したりする
超古い言語だよ

**デフォルトの名無しさん** (JP 0H6d-w88e) · 2023/01/19(木) 08:01:59.36

書き換えや取得してる間はコードの実行は待機し
書き換え、取得が済んでからコードを再開するってことなのでしょうか？

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/19(木) 08:06:32.97

>>722
書き換えや取得するコードを書く
やって見た方が早い

2023/01/19(木) 08:33:41.90

コールバックではなくCOMという概念で実際のところプロセス間通信している
VBAの場合多分インプロセスなので他の手段より有利
シートやブックに対してコールバックする処理ってあったっけかな

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/19(木) 08:42:01.19

>>724
色々あるみたいだけど、vbaで使う場面って思いつかない。ってかバグりそうでやらない方がいい気がしてならない・・・
https://qiita.com/Kamo123/items/e676e0cbe6de83410980

2023/01/19(木) 09:20:35.66

Excelのオブジェクトを外部から弄るつもりならVBAよりもCOMアドインやVSTOアドイン、Office Scriptsなど別の方法利用を検討する方が良い気がする

2023/01/19(木) 10:50:54.77

>>722
その通り

データの書き換えしている様子も見えるから仕事しているなって気がしてくる

2023/01/19(木) 13:24:17.21

イベントはコールバック

2023/01/19(木) 19:42:15.97

例外処理の悩みなんだけど、
普段、オプションでエラーをクラスで停止するように設定している
その状態でクラスでErr.Raiseすると、標準モジュールでOnErrorGotoステートメントで受け取れないけど皆さんはどうしてるんですかね？

2023/01/19(木) 19:46:40.02

オプションを変えれば標準モジュールで受けとれるんだけど切り替えが面倒

2023/01/19(木) 20:51:52.93

普段からオプション変えとけばいいんじゃね
クラスモジュールで中断って、使いどころがわからん

**720** (JP 0H6d-w88e) · 2023/01/19(木) 21:58:24.97

みなさん、ありがとうです
>>727様、ありがとうです

web系はユーザーの待機ストレスをなくすために
コールバックを多用しますけれど
事務系は一つの処理が終わってから次の処理に移るって
なんだかそんな感じを受けました

ありがとうございました

**720** (JP 0H6d-w88e) · 2023/01/19(木) 22:00:12.46

>>728
イベントはコールバックしかないですものね

2023/01/19(木) 23:05:36.09

外部取り込みデータでcsvファイルを
QueryTablesメソッドを使用して、TextFileColumnDataTypesを文字列では取り込むとデータの後ろに半角スペースが入ります。
これなぜでしょうか？
標準で取り込むと半角スペースが入らないです。

やりたいのが数値などを文字列で取り込んだ時に、先頭の0を表示させて、E形式で表示されてる数値を全部表示させたいです。

今、文字列形式で取り込むと必ず全データの後ろに半角スペースが入ります。半角スペースが入らないように取り込みたいです

2023/01/19(木) 23:47:25.42

>>734
そのcsvメモ帳で開いて
本当に生データに半角入ってないの？

2023/01/20(金) 01:33:26.94

シートが2つあって、片方非表示にしようとしたら、最低1個は表示しろって怒られるの何で?
非表示にする1行手前でデバッグプリント取ったけど、間違いなく2つとも表示されている。
単体で実行すると問題ないが、新規ブック作ってシートを2つに増やしてからやるとエラーになる。
DoEvents入れても駄目、On Error Resume Next入れてもエラーで止まる。
ワケわからん。

2023/01/20(金) 01:44:54.53

その非表示にする行が悪いんじゃないの
御託はいいからコード貼れカス

2023/01/20(金) 02:56:01.96

悪くない。
1行手前では2シートともVisibleは-1を返すから、前後がどんなどんなコードでも関係ないだろ。

2023/01/20(金) 03:42:39.52

コード貼れ

2023/01/20(金) 06:53:35.87

>>736
ブック2つあってその片方を丸ごと非表示にしょうとしてるとか

2023/01/20(金) 07:00:14.46

>>735
半角スペース入ってないです
アクセスから抜いてきたデータなんですけど、何回やっても入るんですよね

2023/01/20(金) 07:46:13.25

もうACCESSに直接ADO接続して値取って来たら？

2023/01/20(金) 08:00:52.80

質問者がよくわからない現象だから質問してくるんだろうけどそういう人の質問だといまいち状況がつかみにくいから
オリジナルでなくてもいいから現象が再現するサンプルコードでも提供すれば解決しやすいのにね
そういう事ができない人多いよね

**デフォルトの名無しさん** (JP 0H6e-f6s+) · 2023/01/20(金) 08:13:31.91

>>743
＾＾；

2023/01/20(金) 09:37:46.21

>>742
結局、全部にトリムすることにしましたわ

2023/01/21(土) 02:59:07.37

総合スレからこちらに誘導されて来ました
マクロ記録は使えるけどVBAは使えないのに。。

【1 Windows10】
【2 Excel2019 】
【3 いいえ】
【4 否】

普段横書きで印刷をしているシートを
月一回の報告資料のみ、範囲を変えて縦書きにして印刷する必要があります

それでマクロ記録を使って印刷範囲を絞り込んで縦書きにして印刷をするボタンを作成してみたのですが、問題は印刷範囲の最終行が毎回変わるのでその最終行に合わせた範囲指定にするにはどうしたら良いでしょうか？
CTRL＋↓を記録は出来ないみたいだし。。

印刷範囲の最終行に透明な「※」でも打ち込んでそこまでを印刷というような事は出来ますでしょうか？

2023/01/21(土) 04:22:08.36

>>746
印刷範囲(ActiveSheet.PageSetup.PrintArea)が設定されている前提で
dim printrange, lastRow

' 現在の印刷範囲のRangeオブジェクトを得る
set printrange = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
' 実際の最終行を得る
lastRow = ActiveSheet.Cells(printrange.Row, printrange.Column).SpecialCells(xlLastCell).Row
'最終行を変更したRangeオブジェクトのAddressを印刷範囲に設定する
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(ActiveSheet.Cells(printrange.Row, printrange.Column), ActiveSheet.Cells(lastRow, printrange.Column + printrange.Columns.Count - 1)).Address

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/21(土) 07:02:51.83

>>746
これを機にVBA使いになりましょう
そんな難しくないですよ

まずはダミーデータと
マクロで記録したコードを張ってみてもらえますか？

2023/01/21(土) 09:23:02.19

>>747-748

ありがとうございます

マクロ記録はボタンを押すだけなので簡単ですが
VBAになると一気に難易度が。。

1980年代のDOSの前のBASICはちょろっとやってたので本気出せばなんとかなるかもですが

分かりやすい書籍、動画、講座とかありますかね？

2023/01/21(土) 10:59:00.69

そも、縦書きと横書きという独特の言い回しが相手には伝わりにくい
あいうえお　← 横書き
あ
い　　← 縦書き　　普通に読んでればこう捉える
う
え
お

でもそれでは無くて、帳票の状態が普通はA4横長で印刷してるものを、月イチではA4縦長で印刷したいとかなのか
ほんとうに文字ごとタテ並びにしてしまいたいのか　　後者なら敷居が相当高いけど
しかし、初めて白状した状況だと相当の高齢者が毎月なんらかの帳票を印刷するのに苦心している様子からして
自治会の会計資料だのそういう方面だとも考えられる
自分でサンプルを提示するのが困難なら、どっかのサイトで似たような状況を探って画像検索でもしてみて「こういうのをこうしたい」と書かないと伝わり難い
自治会用のExcelサンプルなんかゴロゴロ転がってるし、それを参考にするとか流用するとか　　見立て違いなら失敬
　　　しかし、単に「印刷範囲」をその都度指定するだけで簡単に解決するような質問のような気もしてる

2023/01/21(土) 12:20:46.74

>>750
打ち出しているのは零細企業の売上報告資料です
経営陣と上司が高齢者なので今まで長年使い続けて来た会議資料のフォーマットは原則何も変えてはならないという前提の作業です

売上が得意先の売上高順に並べられている資料で
右側に売上の内訳があります

単純にA4縦をA4横にして印刷するわけでは無くて列の削除が2列必要になり、その列を単純に削除すると関数が埋められてるのでエラー表示になるので、手作業だと毎回大変だったので、マクロ記録を使って自動的に印刷出来るようにしました

ところが一つだけ上手く行かなかったのが
今回の印刷範囲の指定でした

簡単な例を作成中なので後でアップします

2023/01/21(土) 13:39:30.09

>>750
毎日こんな表を作成しています

https://i.imgur.com/U2Pky8f.jpg

2023/01/21(土) 13:40:43.92

>>750
そして毎週こんな感じで縦向きの印刷をしています（右側の内訳は不要）

https://i.imgur.com/RpWsFui.jpg

2023/01/21(土) 13:41:54.11

>>750
そして毎月、売上が確定するとこんな感じで横向きの印刷をします

列の削除が必要となります

https://i.imgur.com/DfWRUBx.jpg

2023/01/21(土) 13:46:51.08

ほんとは
>>752
の上の表と下の表の間に担当者別の売上集計表があるので毎月、列の削除は行えずに右側の内訳をスライドして値複写して整形する必要が有ります

この作業が地味に面倒なのでマクロ記録で自動化しました

2023/01/21(土) 14:05:07.15

>>749
Console 0,25,0,1とかで始まるやつか
文法こそ同じような部分はあるけど全くの別物だぞ

2023/01/21(土) 14:07:16.17

>>756
syntax error

2023/01/21(土) 14:10:22.83

最初で最後のプログラミングが
年賀状当選ハガキ発見プログラムでした。。

2023/01/21(土) 14:55:21.95

レコード総数どのくらいか判らんけど、回答待ってる間に別シートにコピーして並べ替えするだけで済むような
いくら零細だからって業務用途なら自社内で解決できるレベルに収めておかないと、引き継ぎに難儀するような
　↓こういうのを参考にしてじぶんで懸命に制作してもいいかも知らんけど
https://forest.watch.impress.co.jp/docs/serial/exceltips/1306514.html　　単なる受け売りじゃ応用利かなくなるだろうし

2023/01/21(土) 15:43:24.35

>>759
そのくらいは使えるんだけど。

2023/01/21(土) 15:55:42.09

数字掴むのはパワークエリやパワーピボットでなんとでもなるんだけど
今まである資料にキッチリ合わせた体裁にしないとならんところで苦労をしていて

2023/01/21(土) 16:26:39.90

>>754
改めて考えたらこの横向きの印刷は苦労して無かったんだった
>>752
のシートを新規シートにコピーしてから不要列を削除してプリントするマクロ記録で出来るので

問題は
>>753
の印刷です

この表の下に2月分の納品予定、3月分の納品予定、4月、5月と続いていくので最終行を指定する事は出来なくて
印刷したい範囲はあくまでも当月の1月分までなので

2023/01/21(土) 16:46:59.18

>>752-754
1 日次を人間が更新 or 印刷
2 1を元に週次で印刷
3 1を元に月次で印刷
ということなら、シートをあらかじめ上記3つに分ける方向で考えた方がいいんじゃないかね
ご存知かもしれないけど「Excel VBA やりたい事」でぐぐれば大抵の事は出てくるよ
取り急ぎ動的な範囲選択の記述の仕方とか判ればVBAの文法とかあやふやでも全然いけそうだけど

2023/01/21(土) 16:50:11.61

>>763
ああ、なるほど、確かに
固定フォーマットに数字だけ行くように出来れば良いのかなと思ったけど
会社も毎月変わるから難しいかな
あと売上高の多い順だし

2023/01/21(土) 16:58:34.85

何度も聞くけど「印刷範囲」の設定ってどうやってる？　マウスで印刷したい範囲をドラッグ選択して印刷範囲に設定するだけなんだけど？
月ごとに微妙に行数が増減するから用紙からはみ出るとかの懸念？　Excelの初歩の初歩のような気がしてきた

2023/01/21(土) 17:11:10.91

必要な情報を配列に入れ込んで
それで新しいシートを作り直したらどうでしょう？

新しいシートは手作業でフォーマットしておくか
VBAで印刷範囲の列数行数を取得して
配列から取り出してセルに代入するとか

誤って元データを失わないように
シートの追加削除はあまりどうなんだろうって気がします

2023/01/21(土) 17:26:56.30

>>765
いや、だから関数とか印刷範囲の設定で済まないので悩んでいるわけです
それだけで済むならマクロ記録で終了です

不要範囲の削除で関数の連携が無くなるから
数値コピーしたり
手動の整形を伴うのと

毎月売上の会社は一定じゃないし

2023/01/21(土) 17:34:58.85

>>766
元データを失わないように
元データからマクロで読み込んでコピーファイルを作成して、そこで作業を行ってから終了時にマクロで元データに書き込むようにはしています。。

売上の最新情報は他の人と共有しているファイルになるので、これもコピーファイルを作成してからデータを新しいシートにコピペして、パワークエリを使ってそのファイルから読み込んで毎度自動更新するようにしています

定形フォーマット（シート）を使ってVBAで行数を決められると確かに良いですね

2023/01/21(土) 17:41:46.80

>>768
なんか頭のハゲた人がいっぱいいそうな会社だなあ。

2023/01/21(土) 17:57:20.75

ダメだこりゃ　行や列の非表示とかも知らなそう
たぶん「書き間違えました」とか訂正あるんだろうけど、>作業を行ってから終了時にマクロで元データに書き込むようにはしています
これはやっちゃいけない最たるものじゃないのか？　元ファイルと作業ファイルは一方通行にしとかなきゃ、戻してどうすんだ
40年前にBASIC触った世代？　なんかアタマでっかちで実務に向いてない　縦書き横書きすら誤用してるのにいっちょまえな用語駆使しようとして伝わらない
すまんがサジ投げる　君らに任せた

2023/01/21(土) 17:58:03.03

>>769
残念ながら剥げてるのは俺一人

2023/01/21(土) 17:58:43.35

>>770
いやいや他の人はともかくあなただけ異次元にレベル低い
パワーピボットとか使って無いでしょ

2023/01/21(土) 18:11:05.02

>>770
他の優秀な方は皆さん理解出来るのに一人だけトンチンカンなVBAスレにいてはいけないレベルのような

列の非表示をしたらその下の担当者別の列まで非表示になるから
範囲指定や非常時でなんとかなるレベルじゃないでしょ

じゃあなたにVBAの質問して答えられるのかな？

2023/01/21(土) 18:14:32.74

>>770
元ファイルは自分だけの使っているファイルだから問題無し
共有ファイルは参照するだけで元には戻さない　
なんで書いてる事を理解出来ないのかな

2023/01/21(土) 18:47:58.93

>>774
このハゲ！
　　　　　　　　　　　　　　　　　
　　　　　　／￣￣￣￣￣￣＼
　　　　／　　　　　　　　　　　　＼
　　　/　　　　　　　　　　　　　　ヽ　
　　 l:::::::::.　　　　　　　　　　　 |　
　　 |:::::::::: 　　（●）　　（●）　　 |　
　　　|::::::::::::::::: 　＼＿＿_／　　　 |　　
　　ヽ:::::::::::::::::::.　　＼／　　　　　ノ

2023/01/21(土) 18:49:06.36

>>775
オマエモナー

久しぶりに書いたなこれ

2023/01/21(土) 18:51:29.36

(爆)

2023/01/21(土) 18:51:32.42

ほんとは表示がなんでも良ければ
>>752
こんな内容はパワークエリとパワーピボットで、何もしなくても常に最新データに書き換えられるんだけどな。。
といつも思いながらEXCELの加工してます

2023/01/21(土) 19:34:50.38

零細企業だからこんな馬鹿しか雇えないのかね

2023/01/21(土) 19:38:29.43

>>779
馬鹿に出来るほどの回答してないよね？

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/21(土) 20:00:29.29

>>752
連想配列、多次元配列を使えば、好きな項目を紐づけでき
表示も好きなようにできるので楽だと思います
一度覚えたら重宝しますのでいつか学んでみたらいかがでしょう？
VBAの学習はネットで十分ですし是非

例えばシートから顧客名を取得して
顧客名をキーワードにして、製品名、単価、数量、担当者名を配列に格納し
単価×売上高の多い順に配列をソートして、配列から必要な表示項目だけセルに代入する
そうやって処理すれば担当者別であれ製品別であれ好きなように表示できます
その後、罫線処理をして、最後に幅調整をしてあげればって思います

2023/01/21(土) 20:08:19.63

>>780
あまりにも馬鹿過ぎるから馬鹿と指摘しているのだが
こんなのしか雇えないから零細企業のままなのか、零細企業だからこんなの雇っちゃうのか