Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/12/01(水) 21:12:48.54

なにそれ怖い

2021/12/01(水) 21:14:41.21

>>745
今やってる手作業を全部マクロで書いてみる
とにかくひたすら、
「入力を最低限に」
「出力を正確に」
を考えると、実用十分な面で腕が上がる

あとはオブジェクト、setなどを覚えると更に快適になるけど
まぁそこまで覚えなくてもいいことがほとんど

2021/12/01(水) 21:25:33.13

「助けて」と質問を書くのは馬鹿ばっか

2021/12/01(水) 21:42:33.27

タスケテ…

2021/12/01(水) 22:01:16.26

コロシテ…

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-f7fV) · 2021/12/01(水) 22:12:07.13

オコシテ…

2021/12/01(水) 22:19:52.19

excel vnaでパス区切りが入りません。
\マークの前に、変な文字が入ってしまいます。
a=“c:\tmp\”
が
a=“c: \tmp \”
みたいになります。
解決策をご存知の方いませんか？

2021/12/01(水) 22:22:18.62

>>772
どの時点で入るのか

2021/12/01(水) 22:22:56.56

VNAじゃ無理だな

2021/12/01(水) 22:28:54.98

>>773
パスを連結する所です。
次のようなコードです。

file = wsh.specialfolder(“Desktop”) & “\test.csv”

2021/12/01(水) 22:31:48.27

>>775
実行時なのか書いてるときなのかってこと

2021/12/01(水) 22:37:04.57

>>776
実行時です。
lenで長さを調べると、不明な文字分、長くなっています。

2021/12/01(水) 23:27:22.80

Ruby の文字列には、こういうメソッドがある

chomp は、文字列の末尾に改行コードがあった場合に、文字列の末尾の改行コードを削除します。
strip は、文字列の前後のホワイトスペース(空白類？)をすべて削除します

2021/12/01(水) 23:37:48.12

使用者の低下率ナンバーワンのrubyか

2021/12/01(水) 23:47:40.21

とりあえず、半角スペース？をRelaceしてその場は乗り切ればいいんじゃない
根本的な解決じゃないだろうけどVBAなんだからその場しのぎで十分

2021/12/02(木) 02:56:08.75

>>780
Ruby馬鹿に引っ掛かる馬鹿

2021/12/02(木) 05:50:03.53

>>780
半角スペースでは無い文字だったので、置き換え出来ませんでした。
結局、動的にパスを連結するのは諦めて、一つの文字列にして対応しました。
お騒がせしてすみませんでした。

2021/12/02(木) 09:23:36.17

絶対別のどこかにバグがあるパターンやな
ステップ実行しながら変数の中身をチェックしてみ

2021/12/02(木) 15:07:50.32

全角空白、CR、LF、ESC文字、TABコード、00H、のどれかに10ガバチョ
不明文字の文字コード調べればすぐわかるのになぜしないのか？

2021/12/02(木) 19:13:44.99

>>747
> 変数の定義、ループ文の書き方、条件分岐の書き方が分かれば大体の言語はなんとかなる

OOPからのパラダイムシフトすら起きつつある今、それだけでは
ソース見て、？？？？？にならないか。

2021/12/02(木) 19:16:51.76

基本を押さえれば何が出来るかとかどう調べればいいか分かるって言う話なのになんでそれオンリーで戦おうとするん

2021/12/02(木) 19:34:11.48

縛りプレイ？

2021/12/02(木) 20:00:04.69

ああ、なるほど。すまんかった

2021/12/02(木) 20:17:25.75

それがこのスレに集う人達のクォリティ

2021/12/02(木) 21:25:27.56

知らんけどって最後につけてるからセーフ

2021/12/02(木) 22:03:16.66

知らんがな

2021/12/03(金) 04:54:46.81

>>775
csvがユニコードだったのではなかろうかもう解決したみたいなのでどっちでもいいけど
自分の場合は、ウェブからコピペしたセル上の文字列がユニコードなのにそれをvbaで扱おうとしたらちょっと嵌まったまあなんとかうまく処理できたけど
vbaのエディタはユニコードに対応してないそうだから困っちゃうね

2021/12/03(金) 05:26:40.56

>>792
これ全く再現できないんだよな

っていうか質問者自身が
「\の前に文字が混入するバグ」であるとか、
原因が「a=“c:\tmp\”」や「file = wsh.specialfolder(“Desktop”) & “\test.csv”」にあると勝手に判断してて、
それがミスリードになってる気がする。

余計な文字が入った個所が偶々\マークの近くだっただけだったり、
実は後々変数を弄っていてそこで混入している可能性もある。

質問者は素直にコードを一部始終書いて、
「ここでこうなるようにしたい」とそれだけ書けばいいのにと常々思う。

2021/12/03(金) 07:05:37.24

＞「ここでこうなるようにしたい」とそれだけ書けばいいのにと常々思う。

禿げ上がるほど同意

2021/12/03(金) 08:32:26.43

また髪の話してる(´・ω・`)

2021/12/03(金) 11:57:05.48

IE操作をしてとあるページまで辿り着いて、そこのBASIC認証のポップアップにユーザー名とパスワードを入力した後、OKをクリックする、ということをやりたいです
詳しくないのですが、普通にリンクを辿っていく感じではなく、div要素にJavaScriptが埋め込まれていて、VBAでIdやClassを指定してクリックしてもページ遷移しません
BASIC認証を求められるページの先にあるデータが目的なのですが、そこへ直接行くURLは分かっていても、当然ながら先にログインしてないとデータが閲覧できないようになっています
直接URL先へ飛んでもBASIC認証のポップアップが出ないため、初めから順にページ遷移していって、BASIC認証を求められる特定の場所まで辿り着きたいのです
そのBASIC認証を求められるページのURLが分からないので、遠回りでもそういう方法しか自分には思い浮かびません
URLにユーザー名とパスワードを埋め込む方法はもうできないそうなので、どうにかJavaScriptによるページ遷移をVBAによるIE操作でやりたいです
必要な情報がなにかも分からないのですが、具体的にどうすればdiv要素に埋め込まれたJavaScriptを動かせますか？

2021/12/03(金) 12:53:21.83

>>796
認証している画面(ログイン画面)は分かりますか？
そもそもですが、一度ログインした情報をクライアントサイドで持ち回っているとは限りませんよ。

Webにはサーバー側でセッションというものがあり、セキュリティ上の関係で、ログイン画面で打ち込んだ、あるいはログイン出来た、という情報をそれで持ち回る手段も一般的に使われます。

クッキーやクエリストリングで持ち回る場合も有りますが、一般公開されているサイトであれば望み薄でしょう。

直接入るようにするのであれば、そのサイトも社内環境のような場所にあるのであれば、そういう口を作って貰うのが一番手っ取り早いでしょう。
そんなに簡単に入れるのなら内部の情報抜きたい放題ですよね？
だから認証というものがある訳です。

2021/12/03(金) 13:12:32.34

>>796
鯖によって使えるかどうか変わるけど、URLにIDとパスワードを埋め込んで認証させてしまうという方法がある
あとJavascriptでのページ遷移もURLにスクリプトを埋め込む方法で飛べてしまうケースがけっこうある
これ以上は具体的にそこのサイトを教えてもらわないと、何が使えるとかアドバイスは難しい

2021/12/03(金) 13:19:32.02

>>796
URLなんてパケットキャプチャすればすぐわかる
ただしURLにワンタイムキーが含まれてる場合はURLがわかってても直接飛ぶのは不可能
ポップアップウィンドウに文字列を入力する最終手段としてSendKeysというのもあるけど、安定動作させるのが難しすぎるのであまりおすすめしない

2021/12/03(金) 13:54:04.52

>>796
他のアプリ操作してネットワークにアクセスするのをVBAで作るのはやめなされ

2021/12/03(金) 14:27:04.84

>>797
詳細は分からないのですが、一度ログインした後ならば、その先のURLへ直接飛んでも閲覧できるんです
なので、とりあえず一度でもどうにかログインさえすれば、なんとかなるかなと思っています

>>798
外部サイトではないので直接見ていただくことはできないのです
URLに埋め込む方法を試しては見たのですが上手くいきませんでした
欲しいデータのある場所は、URLにパラメータを渡してなんとか飛べることはできたので、BASIC認証が求められるページもそうやって行けるのが一番なんですが、ソースを見ても分からなくてお手上げ状態です
BASIC認証を呼び出してるであろうそれっぽい場所は見つけたんですが、そこからどうも上手くいかなくて・・・

>>799
なるほど
パケットキャプチャ調べてみます
とにかくポップアップさえ表示できれば、最悪SendKeysでEnterしてやろうと思ってました

>>800
あまり良くないであろうことは分かってるんですが、できればすでにあるVBAコードの中に組み込みたいんです・・・

2021/12/03(金) 14:43:51.51

Authorizationヘッダを追加する方法は試したの？

2021/12/03(金) 15:07:12.35

>>802
BASE64でエンコードしてやる方法でしょうか？
一番最初にそれを試しましたんですが上手くいきませんでした

2021/12/03(金) 15:24:32.70

>>801
＞>>797
＞詳細は分からないのですが、一度ログインした後ならば、その先のURLへ直接飛んでも閲覧できるんです
＞なので、とりあえず一度でもどうにかログインさえすれば、なんとかなるかなと思っています

ならばgetElementByIdで目的のテキストボックス拾って値設定して、
同様にボタン拾ってClickさせるコードを書いて、その後目的のページに飛べば行けるような気がしますが、それでは駄目なのでしょうか？

2021/12/03(金) 15:52:30.54

>>804
IdやClassNameでは.Clickでも駄目でした
ページ遷移という書き方をしてしまいましたが、正確にはdiv要素がstyleで画像になっていて、それをマウスクリックするとそのページ内でメニューがポップアップします
そのメニューにも同様にボタン画像があって、いくつかクリックして潜っていった先の一つをクリックすると、今度はBASIC認証のウィンドウが出てきます

2021/12/03(金) 18:05:37.11

web側で認証しなくていいように直せよ

2021/12/03(金) 20:39:08.05

>>805
で書いてある通りに、やっていけば？
Ruby on Rails の統合テストのCapybara は、そういう感じでやっていく

漏れは、Ruby, Selenium Webdriver でブラウザの自動操作して、
yahoo にログインしている

Seleniumでは、要素が出現するまで待ってくれるので、操作しやすい。
この機能がない場合は、適度にsleep して待てば良い

2021/12/03(金) 21:16:21.68

>>807
うわぁ・・・rubyってこんなのしかいないのか
rubyの勉強しようと思ってたけどもうやめる

2021/12/03(金) 22:10:47.69

またRuby馬鹿の釣りに引っ掛かった馬鹿ども

2021/12/03(金) 22:14:21.75

と、馬鹿が申しております。

2021/12/03(金) 23:03:37.81

>>796
Basic認証の情報はホスト名毎に自動的に送信されるはずだから、
事前に認証後に遷移するURLへAuthorizationヘッダに認証情報を追加した状態でNavigateメソッドを実行しておけばどうかな。
そのあと通常通り辿ってBasic認証が求められるページに行ったらどうなる？

2021/12/04(土) 02:28:53.31

https://www.vba-ie.net/sp/collection/iebasic.php

2021/12/04(土) 14:10:39.93

根本的な質問で恐縮ですが。EOMonth関数でシリアル値が取れるのはわかっていますが、そこからMonthのみ取り出したらその「月数」のデータ型も日付シリアル値の一部のままと考えていいでしょうか。
それともただのint型やstr型などになってしまうのでしょうか。

2021/12/04(土) 14:42:38.47

>>813
https://support.microsoft.com/ja-jp/office/month-%E9%96%A2%E6%95%B0-579a2881-199b-48b2-ab90-ddba0eba86e8

2021/12/04(土) 14:59:32.05

>>813
月を取り出したらDateserialで好きな日付のシリアル値を作ればいいアル

2021/12/04(土) 16:20:58.44

>>813 >>814
ありがとうございます

2021/12/04(土) 16:21:36.10

>>814 >>815でした。
すみません。
改めてありがとうございます

2021/12/04(土) 20:10:40.70

1.A列にシートごとに不特定多数(X)のセルがある
2.セルの個数にしたがってを4等分する(小数点以下切り上げ)
3.等分したデータをBCDへ移動する

これをやりたいんだけ2をどう表現すればいいのかわからない
X / 4ってどうやったら表現できますか？

データの最終行の取得方法はわかったけど使い方がわからない…

2021/12/04(土) 20:21:19.59

>>818
セルの個数が小数点になるのが理解不能
なんか文がおかしい

2021/12/04(土) 20:26:20.12

>>818
ごめん4等分か。
セル個数数えて4で割れば数は出ると思うから、
その数をcellsでn、n+1から2*n、2n+1から3nで範囲選択してコピーとかすればいいんじゃね

2021/12/04(土) 20:27:45.56

>>819
レスありがとう
4等分って書き方が悪かったかな
A列セルが1234こあったら1234 / 4 =308.5
ABCD列に309 309 309 307こずつ配置したい

2021/12/04(土) 21:22:26.78

これが構文エラーになっちゃうのはなんででしようか？
https://i.imgur.com/uZw8aRE.jpg

2021/12/04(土) 21:40:43.97

>>818
> 2.セルの個数にしたがってを4等分する(小数点以下切り上げ)
[1] A, B, C 列の個数 = WorksheetFunction.RoundUp(A列の個数, 0)
[2] D列の個数 = 元のA列の個数 - 3 * ([1]で求めた個数)

2021/12/04(土) 21:44:29.23

>>822
なんかに代入してないから

2021/12/05(日) 05:50:33.57

>>793
mac版で編集、保存したファイルでなった事あるよ。
winで作ったxlsmをmacで編集、保存する。
後phpexcelなどのライブラリーを使ってwebからダウンロードさせたファイルでも同様の現象になることがあったなぁ。

2021/12/05(日) 07:36:04.48

MacのExcel VBAは使い物にならないからやめとけとあれほど

2021/12/05(日) 07:48:10.10

>>822
Sub Macro1()
　　A列 = 1234　'全体の個数
　　分割 = WorksheetFunction.RoundUp(A列 / 4, 0)　'分割後の個数
　　Cells(分割 * 1 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "B")　'コピペ2列目
　　Cells(分割 * 2 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "C")　'3列目
　　Cells(分割 * 3 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "D")　'4列目
End Sub

2021/12/05(日) 11:29:11.55

数値をバーコード化するマクロ使うと、かなりの確率でWorksheet クラスの Paste メソッドが失敗しました。が起きるのはなぜでしょうか

貼り付けコマンド直後にDoEventやると少し緩和されます

2021/12/05(日) 11:45:46.53

>>828
そのマクロの作者に聞いてください
うちで使ってるバーコードマクロだとそんな症状は出ないので

2021/12/05(日) 13:12:32.58

>>828
バーコードフォントってのがあるから、そっち使ったほうがいいと思う

2021/12/05(日) 16:00:44.92

　　　　　　　　　　　|
　　　　　　　　　　 |　　彡⌒ミ
　　　　　　　　　　　＼ (´･ω･`)また髪の話してる
　　　　　　　　　　　　　(|　　　|)::::
　　　　　　　　　　　　　(γ　/:::::::
　　　　　　　　　　　　　　し＼:::
　　　　　　　　　　　　　　　　　＼

2021/12/05(日) 16:26:53.62

>>831
このハゲ！

2021/12/05(日) 17:47:50.87

バーコードフォント使う方法ってダウンロードしないとダメじゃね
現場でこそこそやってる俺はOLEオブジェクトだったか使う王道でやるしかなかったわ

ぐぐるとこの方法がトップに出てくるわけなんだけど
もし>>828がこの方法を使っているとして
何の目的でpasteメソッドを使ってるんだろうね
普通にバーコード作成するだけだと、たぶんだけどpasteメソッドは出てこない

2021/12/10(金) 18:22:43.48

質問つか愚痴だけども…
閑散期にやってるアピールで始めたVBA、
入れ過ぎた塩を中和するのに砂糖を入れ、
入れ過ぎた砂糖を中和するのに塩を入れるのを繰り返した
ヘタクソ料理みたいなコーディングの果てに繁忙期に食い込んで上司の視線が痛い…
依然としてどっか直したらどっかが狂う…
業務改善を謳いながら結果的に仕事と混乱をもたらしただけだった…

2021/12/10(金) 19:14:12.64

>>834
典型的な初心者で草

俺も最初は随分と苦労したけど、
そうなったら最初から書き直したほうが絶対に早いし、腕も上がる
糞みたいなコードを読み直す時間は無駄
せっかく書いたのに・・・って思う気持ちは窓から投げ捨てろ

2021/12/10(金) 21:34:03.94

いやいや
失敗は成功の母
一度始めたことは苦しくても頑張れよ
出来の悪いコードを苦労して改良して動くようにしたとき、
人はレベルが一段上がる

2021/12/10(金) 21:53:28.84

一般的にデバッグはコーディングの10倍ぐらい経験や知識が必要な作業だから初心者には荷が重い
まずは最初から書き直してちゃんと動く物を作り上げた方がいいと思うよ

2021/12/10(金) 21:57:39.03

書き直しって一からベタ打ちするんじゃなくてコピペがほとんどですよね？

2021/12/11(土) 00:08:42.46

それは、なにをするコードかにかかってる

2021/12/11(土) 00:13:00.70

誰でも最初はコピペから始めるもんだ

2021/12/11(土) 00:15:09.63

거피&베！

2021/12/11(土) 00:15:37.34

>>838
その辺は慣れ。今からほしいコードが、「書く」「コピペ」、どっちが早いかによる。
ほとんどは自分でベタ書きだけど、個人的にこの辺はマクロの記録を修正するか、ネットからのコピペで済ます
・背景色や罫線を変更する時
・グラフをvbaで制御したい時

2021/12/11(土) 08:59:51.92

引数の意味がうろ覚えの時、ヘルプを読むより動くコードをコピペした方が早いことも

2021/12/11(土) 10:04:25.41

早さじゃなく内容を優先しないから
つぎはぎだらけになるんじゃね

2021/12/11(土) 10:37:22.38

行き当たりばったりで建築開始しました
バランスが悪くなって一部倒壊しました

もう更地にして立て直した方がいい事もあるよね

2021/12/11(土) 10:40:37.38

>>>843
それはたまによくある

2021/12/11(土) 13:51:55.04

今は早さが最優先される時代だからね
民生アプリやゲームなんてバグだらけでもとにかくリリースして、オンラインでどんどんパッチを当ててく方式が主流になってる

2021/12/11(土) 15:19:06.66

馬鹿が作って混乱を引き起こすのがVBAです

2021/12/11(土) 16:03:15.75

VBAテロか

2021/12/11(土) 17:49:58.93

職場なんかで作ってたらろくなもんできないわ
VBAなんか普通はビール飲みながら自宅でつくるもんだ
そうしないと集中できないだろ

2021/12/11(土) 18:00:38.81

よっぽどじゃないと他人向けのマクロは作らない方がいいよなあ
独学だから、頼まれた機能を実現するために仕方なく作った時は気を使った

2021/12/11(土) 18:49:44.86

>>848
いや、VBAで作って混乱引き起こすような人はどの言語使っても混乱引き起こすよ。
理路整然と書く人はアセンブラでも綺麗なコードを書く。

2021/12/11(土) 18:53:20.61

ジャンプ命令の後の命令が実行されてからジャンプするような意味不明な設計でそんなこと無理だ

2021/12/11(土) 19:01:24.21

PS2のデバッグで出会ったわそれ
Mipsだったかで

2021/12/11(土) 20:11:09.89

遅延スロット知ってる俺すげー君が現れた！

2021/12/11(土) 20:15:06.16

遅延スロットって言うのかあれ
知っててすごいね

2021/12/11(土) 20:26:38.51

一気に形勢逆転。

2021/12/12(日) 12:00:32.32

数年前までVBAで結構組んでたんだけどちょっと必要があって使ってみたらセーブに10分くらいかかる
調べてみると

2021/12/12(日) 12:04:50.97

ごめんなさい途中でかきこんでしまいました
VBAのコードが長いとセーブに時間がかかるとあったのでモジュールを削除してみましたが変化なし
そこで新規にbookを作ってコピペでVBAのコード他すべての要素をコピペしたら普通にセーブできたのですが
これはどういった原因が考えられるでしょうか？
ちなみに別のPCで使ってみたら普通にセーブできました

2021/12/12(日) 13:09:25.29

マクロ付きブックの保存なんて普通は1秒で終わる
10分なんてあきらかに異常だし、たとえ10秒でもおかしい
HDDの故障やウィルスをまず疑うレベル

2021/12/12(日) 13:16:29.89

そんなことは分かってるから質問してるんですが日本語読めてますか？ｗ

2021/12/12(日) 13:52:38.61

>>850
それな
で、職場で仕事がなくなる。なんだかよくわからん状態になる

>>859
ブックの中にゴミデータが溜まってる
・条件付き書式
・名前の定義
特に条件付き書式はコピペで増えるので要注意。vbaでコピペを繰り返すマクロを繰り返すうちに、恐ろしく重くなる事がたまによくある

2021/12/12(日) 14:16:03.78

>>862
なるほどそれで新規BOOKにコピペするとごみが消えるから軽くなるってことですね
ありがとうすっきりしました

2021/12/12(日) 18:58:52.97

消えてほしいゴミはまだいるのにね

2021/12/12(日) 21:54:20.78

>>861
死ねよ

2021/12/12(日) 21:54:32.69

>>837
> 一般的にデバッグはコーディングの10倍ぐらい経験や知識が必要な作業だから初心者には荷が重い

ものすごい納得がいく。プログラムの力のかなりな部分を
設計力とデバッグ力が占めてる気がする。