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/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オブジェクトがあるだろ

2023/05/16(火) 16:15:00.01

少し囓ったレベルでそもそも何を使ってるかすらわからなかったようなレベルの奴が変に弄くり回すなよ

2023/05/16(火) 17:06:14.83

無知は恥じることじゃ無い　怯むことでも無い　懸命に解を見付けようとするのは悪いことでも無い
ただ、敵(IBM iSeriesとか)の壁は高そうだ　敵を知り己を、って奴が遠回りでも結果的には近道なのか
IBMのCOMオブジェクトというヒントだけでゴールに辿り着けそうなら進んでもいいかも知らんし(やめとけ)

エミュレータで運用しなきゃいけないほど投資も出来ず利用者も不平不満を言えないような環境なら
それ壊したら損賠しきれない被害になるだろうから、ヘタに横からアドバイスも出来ないんだな(やめとけ)
結論はいぢくりまわすのはやめとけ　てことで

2023/05/16(火) 18:47:42.45

>>330
> エミュレータで運用しなきゃいけないほど
今時ダム端末なんて使ってるところ無いよ
というよりそもそも作ってすらないでしょ
それともサーバを直接叩けっていう意味？
知ったかぶりでマウント取るより素直に質問や礼ができる>>327の方が将来性があるよ

2023/05/16(火) 22:45:00.74

いや、>>324が例をあげて質問者が「それだ」っつーから「なにそれ？」でググったら
https://ja.wikipedia.org/wiki/IBM_i#/media/%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB:Ibmi-main-menu.png
こんなんが出てきて、そういやどっかで見掛けたことあるな、とか思って、これだとフル画面だけど別途Excel開けるだけの
スペースが画面上にある様子だし、ターミナルエミュレータって書かれてるし「いぢるな」に成ってもおかしくないだろ？
Win11でもWindows3.1のゲームが出来る(どころかスーパーマリオまでできる)
https://archive.org/details/softwarelibrary_win3_games　みたいなもんだろ(ちがうか)
リモートデスクトップやTeamViewerみたいに、キーボード操作もマウス操作も別画面に吸い込まれる　みたいなもんだろ　違うのか？

2023/05/16(火) 23:38:51.78

そもそも開発環境が用意されてるわけでもなく本番環境でやろうとしてるのは明らかだろ
それも無断で

2023/05/17(水) 01:30:45.81

>>332
無知は恥じることじゃ無い

2023/05/17(水) 03:34:15.76

ここ何のスレだ？(笑)

2023/05/17(水) 08:10:58.74

>>332
全然違う
ググらなきゃ分からない程度の知識でマウントかよ

2023/05/17(水) 10:40:39.29

マウントマウントうるせーよ　何でもマウントだと思うその僻み根性直せよ
どこがマウントなんだよ　忠告っつーんだろが　引き留めてんだ
つまんねコト書いてねーで、知ってんなら対策と傾向教えてやれや　できねんか？

2023/05/17(水) 10:51:01.19

改行とエンターキー別にほしいよねー
あとバックタブも必要だわ

2023/05/17(水) 11:41:51.42

>>337
無知は恥じることじゃ無い
忠告の前提が間違った知識あるいは勘違いに由るものなら
その忠告は間違っているかもという自認はしておくべき
俺は自分の環境（iSeriesの前身AS/400、ターミナルエミュレータはiSeriesと同じ）で使えたAHKって代替策と、
Win32API叩けばできるって代替策案内した
あなたはマウント取ろうとする以外に何かしたっけ？

2023/05/17(水) 12:45:51.36

どこをどう読んでも新人のヒラ社員(歳が若いかどうかまではわからんけど)が悪戦苦闘してる風　と、
方や、それなりに業務をこなしてきただろう人物が経験則を元に導き出した解で効率化を成し得た　のと、
そういう読み方をしたんで、やめとけ・無理すンな、と
そのAHKとかWin32API叩く方法が、左程メインのシステムに影響を及ぼさず問題無く解決できる手段だとするなら
相談者もそっちにすがった方がいいんだろう　どちらを選ぶかは相談者次第　とりまkeycodeのリンクは貼った

2023/05/17(水) 13:12:55.03

今来てよくしらんけど、ExcelでRPAもどきなんてするもんじゃねえなと思いましたまる

2023/05/17(水) 13:35:49.51

予めリスクのコストを計れるならやらない手は無いだろうけど、住人の指摘で「まさにそれ」って応じてるレベルなら
後先顧みずに無鉄砲な操作が先走ってるということでもあり、めくら蛇に動じずの喩えにハマってるようなもの
本職だって他社のシステムと云われた途端にそれなり身構えるものだろ？
リスクコストそっちのけで「こうしろ」だの「ああしろ」だの無責任に言い募れない　だからやめとけと
　うん、こう書いた方がかっちょ良かったかも　上のカキコは無しで

2023/05/17(水) 13:57:52.40

そもそもSendkeysってキーボードの操作をアクティブなウィンドウに送信してるだけなのに『いぢくりまわす』ことになるの？
リスクって何？
それがダメなら手入力での作業も出来ないでしょ。
あと作業時間が1/3になってるんだから実際に効率UPしてるワケで『それなりに業務をこなしてきただろう人物が～効率化を成し得た』は意味不。
手書きと電卓のどこが効率的なの？
まぁ～やり方が強引なのは間違いないけど。

2023/05/17(水) 16:25:11.69

comがあるならセンドキーは愚策でしょ

しらんけど

2023/05/17(水) 16:30:50.87

ちょっと囓っただけの知ったかが色々やらかしてくれるのはよくある

2023/05/17(水) 19:06:16.88

>>343
素人が勝手に作ったマクロをその内容も知らずに別の素人が使ったらどうなると思う？

2023/05/17(水) 20:35:36.27

>>346
そんなのマクロに限った話じゃない
素人がシュレッダーで書類切っちゃったらどうするとか、
素人が容量超えてるコンセントにプラグ刺しちゃったらどうするとかいちいち考えてるの？

2023/05/17(水) 21:03:27.97

師匠がSendkeysは使うなって言い残してたからそれに倣ってたけど、他アプリにも使える
https://excel-ubara.com/excelvba1/EXCELVBA421.html　　　みんな大好き神髄サイト
>>340　は一行目が相談者で、二行目は経験者の>>324　を対比させてる
操作する相手のアプリが見知ってるモノなら万が一を回避できるかも知らんが、業者が納めたガチガチのシステムだと
どんな仕様かも不明の上、どのキーに何が割り振られてるか知れたもんじゃ無い
メンテ用とかで隠しコマンドとか埋め込まれてた日にゃあ(まあ、キー１個に割り振る事は無いだろうとは言え)
たまたま1/3で済ませられてても、イレギュラーな運用には違いない　壊した時のことを懸念してるだけ
キチンと上司上長の許諾を得てからの改良なら >>324 が手取り足取り教えてくれるかも知れない

2023/05/17(水) 21:34:13.85

>>347
こういう馬鹿が問題を引き起こす

2023/05/17(水) 22:03:25.31

>>349
世のユーザーRPAほぼ全否定することになるじゃん

2023/05/17(水) 22:40:10.64

最近はVBAユーザーは神髄さんのサイトに移行しつつあるみたいね。
どこかのちょいちょいやらかし有名老舗サイトが超されるのも時間の問題

2023/05/18(木) 00:44:58.59

>>350
だから、「ノウハウもない能力もない素人が勝手に」が問題なんだろ

2023/05/18(木) 02:00:11.23

ユーザーRPA製品の売り文句知らなそうだな
誰でも簡単に作れるのをウリにしてるってのにｗ

2023/05/18(木) 02:32:12.49

>>353
馬鹿はRPAがそれが理由で下火になって撤退が相次いでいることを知らんのだな
結局素人が作ったものは使い物にならないとか問題を引き起こすことがわかったからだぞ

2023/05/19(金) 18:19:33.08

>>354
うちの会社でも馬鹿が一生懸命量産してるよ
これが自動で出来るようになりました！
って画像認識たっぷり含んでてHTML・CSSも知らないもんだから
サイトのフォントがちょっと変わっただけで
ストップするようなRPAが大量に作られてる

2023/05/19(金) 18:58:32.43

>>355
そいつがその実績()を活かして転職して、残ったやつが嘆く姿が見える

2023/05/19(金) 19:25:48.13

>>356
そういうやつの例が>>353というわけだ

この手の「素人でも～」というツールは結局素人とか素人に毛が生えただけの知ったかが使って混乱を引き起こすだけ
わかる人が作っても、ツールの仕様を他の誰かが理解していないとメンテ不可能になって終わる

2023/05/19(金) 21:52:10.05

スレタイ読めない奴に比べればみんな玄人よ

2023/05/19(金) 23:28:52.13

自分でRPAの話しを出しておいて悔しかったからと捨て台詞

2023/05/20(土) 01:03:14.01

皆、キャノンのWebPerformer の仕事は嫌がる

この技術を覚えても、使い道がないから

2023/05/20(土) 02:10:46.12

毒吐きw

2023/05/21(日) 05:14:29.94

黒画面に緑文字ってAS400じゃないの?
元からマクロ機能あるでしょ

2023/05/21(日) 07:46:37.80

>>362
あるしコードはVBS使えるからスレの内容は必ずしも無駄にはならない

2023/05/21(日) 21:40:01.65

AS400ってまだ現役なんだ

2023/05/21(日) 22:08:02.77

名前が変わったことも知らないにわか

2023/05/22(月) 20:51:05.95

行数が同じ配列A,Bがあります
VBAで、ワークシート関数で言うとhstack(A,B)みたいな事がしたいのですがどう書けば良いですか

2023/05/22(月) 21:11:33.19

Function hstack()

2023/05/27(土) 20:53:59.53

>>366

二次元配列の列方向に連結したい、と。
配列AとBが同じ行数という前提なら、
こんな感じのコードで実現可能かと。

Dim C() As Variant
ReDim C(1 To UBound(A, 1), 1 To UBound(A, 2) + UBound(B, 2))

For i = 1 To UBound(A, 1)
For j = 1 To UBound(A, 2)
C(i, j) = A(i, j)
Next j
For j = 1 To UBound(B, 2)
C(i, j + UBound(A, 2)) = B(i, j)
Next j
Next i

これでCがAとBのhstack(A, B)に
相当する配列になるはず。

2023/05/28(日) 01:44:19.65

拡大率が違う画面を複数使ってるとコマンドボタン押せなくなるのはどうにかならんの?
100%と150%で使ってると、後者ではボタンがきかず、エクセル画面を前者側に持っていくときくようになる。

2023/05/28(日) 03:17:02.66

それで解決でいいんじゃね

2023/05/28(日) 20:56:12.40

おおかた、モニターがスクエアだった時分のを未だに使わざるを得ない環境なんだろうが
150%になんかしないといけない環境を、いち早く改修することのが先決
そもそもディスプレイのカスタムスケーリングをしようとすると「テキストやアプリを読み取ることができなくなる云々」と
メッセージされる　それを突破して設定してンだから、文句を言う筋合いじゃ無い
それとも、Excelの画面だけ150%にしてる？　それだとちゃんとボタン押せるが？