Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

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

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

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

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

2022/01/30(日) 23:07:47.49

例えばだけど
VBAを生業としているとその内DBとのやり取りを行うようになってSQLは必須になることは理解している人はここにも沢山いると思う。

同様にWeb系を行うならHTMLやCSS、Javascriptの知識が必須になるんだよ。
もしEXCELがWeb主体で扱われるようになるのであればその知識が必要ってだけ。

まぁ確かにスレ違いではあるから
ぼちぼちおいとまするよ。

2022/01/30(日) 23:34:30.41

Excelでやるには面倒なことでほかの言語知っててそっちの方が簡単ならわざわざExcelなんて使わないでしょう
開発者ならそれぐらいわかりそうなもんだと思うけどわざわざ関係ないことを持ち出してくる必要ないのにね

2022/01/30(日) 23:58:36.03

>>841
嘘ばっかと指摘されてもしつこく書く馬鹿

2022/01/31(月) 02:05:16.34

ruby馬鹿だろ

2022/01/31(月) 04:36:16.27

>>822
Sub save_sheet_as_csv()
　　save_folder = "c:\tmp\"　'保存先フォルダ指定
　　file_name = ActiveSheet.Name & ".csv"　'シート名をファイル名に
　　ActiveSheet.Copy　'現在のシートを新規ブックへコピー
　　Application.DisplayAlerts = False　'警告を無視して上書き保存できるようにする
　　ActiveWorkbook.SaveAs Filename:=save_folder & file_name, FileFormat:=xlCSV　'CSVで保存
　　Workbooks(file_name).Close　'新規ブックを閉じる
End Sub

2022/01/31(月) 08:22:57.51

何が嘘で本当はどうなのかを書けば一発なのに

2022/01/31(月) 09:22:06.68

いやさすがにウソは書き込みしないでいただきたい。
このスレは真面目に勉強したい人もいますので。。
ウソを本当のように書かれると信じちゃうじゃん。

2022/01/31(月) 09:28:32.59

JSとか関係ない話を持ち出してる人のレスが問題なだけでVBAの回答だけなら嘘はないんじゃないの
それと書かれてる内容で勉強したいなら実際に動かしてみるべきだと思うよ

2022/01/31(月) 09:38:43.11

JSはWebのエクセルの話から派生したみたいだからあながち完全にスレチという訳でもなさそうだな
一応俺も少しJS齧ってはいるけど嘘を書いているようには見えないなぁ
どの辺が嘘なんだろ？

2022/01/31(月) 10:13:50.76

>>849
嘘ではなかった、アドイン入れたらJS使えたわ
ただ、ぱっと触った所vbaでいいとしか思わんかった。慣れてる方が楽でいい
ｊQueryも使えると思うけど、使う理由はないと思う。あれセレクタ便利になるけど、エクセルjsでは使わないような

ただwebエクセルでの使い方がわからんかったけど、多分一生使わないからもういいや

2022/01/31(月) 10:25:32.89

自分は嘘と言ってるつもりはないけど話が散らかりすぎてしかもどうでもいいことをダラダラ書きすぎと思ってるけどね
知ってることをいろいろ言いたいのかもしれないけどスレチだってことをわきまえてほしい

2022/01/31(月) 10:46:32.75

Web版Excelのマクロ機能(JSスクリプト)は家庭向け製品では使えない
いまのところ法人向け製品だけの機能

2022/01/31(月) 10:58:28.57

>>852
ああそういうことね、ありがとう

2022/01/31(月) 11:28:12.04

まあ、ウソホントの話は置いといてマッタリ平和にやりましょうよ

2022/01/31(月) 12:34:07.47

争いが嘘か、平和が嘘か

2022/01/31(月) 12:47:21.32

JavaScriptと書いてくれ、途中まで理解が噛み合わなかったわ笑

2022/01/31(月) 12:58:13.56

JScriptでExcel.Applicationを扱うのは難しい!

2022/01/31(月) 12:58:47.12

細かいこと言えば実際はJavaScriptというよりTypeScriptだけど
https://docs.microsoft.com/ja-jp/office/dev/scripts/develop/scripting-fundamentals

2022/01/31(月) 13:07:08.11

>>855
銀河万丈の声で脳内再生されて草

2022/02/01(火) 04:12:47.67

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

2022/02/01(火) 18:51:32.45

VBA 何もかもみな懐かしい。。

2022/02/01(火) 20:43:06.80

GoogleのI'm Feeling Luckyボタンを押すために

objIE.document.GetElementsByClassName("～")(0).click

って書いてちゃんとclassnameの名前を入れているのに実行してみたら
438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。
って表示されて実行されません
idだったらちゃんと動作するのですがclassnameだと実行されません
目的はclassnameでのボタンの押し方を知る事なのでどうしてらいいのか教えてください

2022/02/01(火) 21:42:08.98

独立したIf式が100個あるとして、どのIf式が処理をしたか最後にmsgboxで表示したいのですが、そういうことってできますか

2022/02/01(火) 21:53:36.89

できる
はい、次

2022/02/01(火) 21:53:41.40

各ifの処理の中でmsgboxに表示する番号なり何なりを変数に代入すればいいんじゃね

2022/02/01(火) 23:48:27.08

>>865
If A1<>""　～
End if

現状上の式がただただ書かれているんだけなんですがどうしたらいいですか

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-IClH) · 2022/02/01(火) 23:53:02.19

マクロでマクロを書く

はい次

2022/02/02(水) 00:04:57.15

それはif文を理解していないという解釈でいいのか

2022/02/02(水) 00:11:32.60

>>866
>>2を読め

2022/02/02(水) 00:23:00.41

>>862
Document.getElementsByClassName()
https://developer.mozilla.org/ja/docs/Web/API/Document/getElementsByClassName

JavaScript なら、上のリンク先を見れば良いけど、
VBA では、書き方が異なるのかも

2022/02/02(水) 07:28:52.11

>>870
ここからボタンを押すにはなんと書けばいいのでしょうか、、、？

2022/02/02(水) 07:31:23.63

この手の質問は悪用される可能性があるから回答するの躊躇するよね

2022/02/02(水) 07:47:54.37

Ruby で、Selenium WebDriver なら、
driver.要素.click だけど、VBA は知らない

検索してみれば？

2022/02/02(水) 07:49:20.30

>>871
学習目的なら他のサイトにしたら

2022/02/02(水) 10:07:41.90

こんなところにアホな質問するヤツらは

ググる能力さえ無いということなのか？

2022/02/02(水) 11:13:58.55

ググったりして、その上で質問してると信じたい
スクレイピングとかブラウザの自動処理の質問だけど後者は悪用されるリスクが高いから答えたくないよね

2022/02/02(水) 11:17:43.23

違うよ
処理完了MsgBox を表示させるなんて
素人でもググって１分で作れるだろ

2022/02/02(水) 11:38:37.34

>>875
最初は聞きまくった方が上達する
vbaはコードはアホみたいに簡単だけど、変なとこで敷居高いからな

2022/02/02(水) 11:54:30.15

>>878
なら答えてやれよw

2022/02/02(水) 12:16:51.15

どんな言語もそうだけど敷居なんて高いと思ったことないよ
そもそもできないこともわからずにあれこれやろうとしてる人がそう思うだけでは

2022/02/02(水) 12:26:36.37

Excelを操作するための言語で
なぜブラウザを操作しているのか？
もっと良い方法があったのではないか？
手を動かす前にほんの少しは考えたほうが良かったのではないか？

2022/02/02(水) 12:27:02.36

答えたい人は答えて答えたくない人はスルーしておけば良いと思う
答えないのに偉そうにしてる人は解らないのに偉そうにしている人と同じだし

2022/02/02(水) 12:38:30.87

>>877
>>863の質問から、
「処理完了MsgBox を表示させる」ことが質問の本質だと思うわけね

2022/02/02(水) 12:58:44.52

お題は100個のif文を書き換えずにどれが処理されたかを当てるクイズね

2022/02/02(水) 13:00:17.51

各、End If の前に、IF 番号を変数として代入する
一行を記述する。

2022/02/02(水) 13:31:44.29

100個のif文はどういう出し方したいかにもよるけど抜ける考慮はさておき
dim msgno as long
if 条件１ then
　msgno=1
end if
if 条件２ then
　msgno=2
end if
call MsgBox(msgno)
ってやるだけでしょ
そうではなくどのif文が動いたかであれば適当に動いた個所がわかる変数を用意して同じように表示すればいいだけかと

>>882
リスクあるから答えないってのも立派な回答だと思うけどね
それを偉そうと思うのならそう思ってもらって結構だけど

2022/02/02(水) 13:31:48.33

>>863
フラグを外に出したほうが良いか考えたけど、もういいかなって
ってか本当にやりたいことはステップインって機能では

Sub foo()

bar = ""
If A1 <> "" Then
bar = bar & "If A1 <> """" Then"
bar = bar & vbCrLf
End If

If b1 <> "" Then
bar = bar & "If b1 <> """" Then"
bar = bar & vbCrLf
End If

MsgBox bar
End Sub

>>879
たまってたのね

2022/02/02(水) 13:41:28.48

それじゃあ >>868 の言うように
私の子がバカみたいじゃないですか！

2022/02/02(水) 13:42:27.00

IF 式自体を、MsgBox に表示したいのなら
100個の式の一覧をつくって、

Const にして100個記述すればよいかと。
そっちのほうが早い。

2022/02/02(水) 14:24:28.77

Const IF001 = "If A1 <> """" Then"
Const IF002 = "If B1 <> """" Then"
・・・
・・・（100個記述）

Sub Test()

　If A1 <> "" Then 　～
　　　RSLT = IF001
　End If

　If B1 <> "" Then 　～
　　　RSLT = IF002
　End If

・・・・・

　MsgBox RSLT
End Sub

こんな感じかな。
スマホだと書きづらいわ…

2022/02/02(水) 14:25:53.07

VBAってevalなかったっけ
あれをフラグに入れれば完結になるんだけどな

2022/02/02(水) 14:31:06.05

IF文を全部、シートにコピペ→ソートしてやれば
Const を100個書くのは、３分でできるかな。

2022/02/02(水) 14:32:20.83

もっとメンタリストみたいにスマートに当てる方法はないのですか？
あなた達のスキルにはがっかりデス

2022/02/02(水) 14:36:33.27

プロシージャの中身も全部、シートにコピペして
変数の一行を100個挿入してやれば
１０分かからないね。

2022/02/02(水) 14:38:34.78

くれくれ乞食がうぜえな

お前が書けよ

2022/02/02(水) 14:59:23.76

そもそも、IF文100コってなんだよｗ
無能が書いたのか？

2022/02/02(水) 19:16:31.19

vbaでieの操作に成功しました
そして目的の通知バーを出してキー操作をさせるためにsendkeyを入力しているのですがExcelの方がキー操作されてしまいます
これは待ち時間がないからですか？

2022/02/02(水) 19:27:47.16

そう思うならタイマとか入れてどうなったか書けよ

2022/02/02(水) 19:32:10.25

みんなは過去に作った関数ライブラリって、標準モジュールで
管理(インポートorエクスポート)しているかんじ？
クラスモジュールで管理したらだめ？

2022/02/02(水) 19:42:36.70

>>897
もしライブラリの追加が可能な環境ならSeleniumbasic使った方が簡単で確実に動作するぞ

2022/02/02(水) 20:08:51.32

>>897
そりゃ、IEに送らないとだめだわなw

2022/02/02(水) 20:31:24.68

>>887
ありがとうございます。
まさに理想通りのやつです。助かりました

2022/02/02(水) 21:08:49.40

>>899
やり方は色々あると思うけどその方法なら
用途によって標準モジュールでもクラスモジュールでも使い分けで管理すればいいと思う。

別の方法としてはツールとしてスケルトンのブックを作っておいて
その中に色んなモジュールを入れておいてコピーして必要なもの以外は削除して使う方法、
アドインブックを作っておいて参照を切って使う方法とかもある。

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-IClH) · 2022/02/02(水) 21:12:04.30

めんどくさいから win+vでピン留めしてるわ

2022/02/02(水) 21:53:01.49

>>899
googleスプレッドシートに書いておいて、そこからコピペ
vbaの場合、関数というよりも、
高速化や最終行の取得など、関数よりも細かい部分で欲しいものが多い

2022/02/03(木) 00:25:24.67

>>903-905
なるほど。結構、人によってやり方が違うもんなんだな。
勉強になります！

2022/02/03(木) 00:38:31.96

そんなん、メモ帳でよくね？

2022/02/03(木) 00:41:32.16

いつもの奴だぞ

2022/02/03(木) 03:56:49.74

>>897
VBAならスクレイピングを組むのに視覚的に動作確認できるけど、

慣れてきたらぜひpythonでchrome環境で同じような処理を再現してほしい

事務職の現場でもieだと対応してないサイトとかあったりしてクローリングはchromeの方が重宝されるんだ

2022/02/03(木) 09:21:08.30

メモ帳で思い出したが、秀丸エディタってどうなの？？
知人が秀丸使え使えってうるさいから

2022/02/03(木) 09:30:09.86

>>910
VSCodeが一般化した昨今ではオワコン化が進んでる気がする。
未だにテキストエディタとしては使ってるけど、コードエディタとしてはちょっと厳しいのではないかと思ってる。

2022/02/03(木) 10:19:29.46

>>910
閉じてもそのまま再開できる＋タブ表示＋シンタックスハイライト（文字色）が出来るものなら何でも良いと思う
メモ帳に比べたら秀丸は普通に便利
俺はsublimetext、atom、eclipce使ってるけど、全部オワコン臭が凄い

VScodeはプラグイン多くて使いやすいと思う

2022/02/03(木) 12:04:33.95

うーん。とりあえずメモ帳でいっかな。
なるべく無料のアプリ使いたいし。
ケチが一番！

2022/02/03(木) 12:06:23.06

サクラエディタ使いやすいね

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-IClH) · 2022/02/03(木) 12:11:30.24

Notepad++だな
タブでもやれるけど左枠に文書一覧表示が自分には合ってた
縦タブやお気に入り機能のようにファイルを扱える

2022/02/03(木) 12:31:17.48

若い連中にはOneNoteが流行りなのかなと

2022/02/03(木) 13:12:28.58

>>913
VCcodeはタダだよ
メモ帳は多分一番難易度高いんじゃないかと思う焦

2022/02/03(木) 13:49:08.79

>>917
VScodeな

>>915
実は俺も使ってる。そんな便利な機能あったんだ！
https://i.imgur.com/AGCZICl.png

メモ代わりに使ってるワイ、無事死亡

2022/02/03(木) 13:54:30.19

VSCode入れていいような環境でわざわざVBAなんか使う必要なくね？自由が利くなら他にいくらでも選択肢あるじゃん
拡張機能で得体の知れないOSSがモリモリ入る超危険ソフトウェアだぞ

2022/02/03(木) 13:59:55.10

>>919
中小企業はやっぱりエクセルになってしまうので・・・・
使わずに基幹ソフトだけで済めば、どれだけ良いことか

＞超危険ソフトウェア
これ言い出すとあらゆるソフトが、ね

2022/02/03(木) 14:44:10.97

VBA使う理由の半分はエクセルスプレッドシートとの連携だし

2022/02/03(木) 15:12:55.32

まあそうだね
Excel上でアウトプットしないならVBA以外がいいと思うは

2022/02/03(木) 15:39:55.47

EXCEL VBAのスレでスレ違いで悪いんだけど
話ついでに、VS.codeってトレースも出来るんだっけ？

**915** (ｽﾌｯ Sd0a-IClH) · 2022/02/03(木) 16:14:10.02

>>918

そうこれ
他に同じ事が出来るエディタも有るかもだけど軽いし今んとここれ一択だわ

2022/02/03(木) 16:15:44.17

>>923
馬鹿は消えろ

2022/02/03(木) 16:28:13.06

自己解決。出来るね。

>>925
いきなりどうしたの？高齢期障害？

2022/02/03(木) 16:52:05.79

VSCode
https://i.imgur.com/qTVwaIg.png

2022/02/03(木) 17:47:56.55

超危険と言えば昔のExcelってそうだった記憶ある
確かExcelを狙ったウィルスがあったような？？

2022/02/03(木) 18:15:38.24

>>926
自分の書き込みを読み返せ、馬鹿

2022/02/03(木) 18:24:46.05

>>928
マクロウイルスのことかな

2022/02/03(木) 18:37:27.74

>>929
なんだやっぱりちょっとした話の流れに便乗した質問も許容出来ない高齢期障害の爺か
そんなにイライラしてると高血圧で脳溢血になるぞ

2022/02/03(木) 19:16:08.09

マクロだけだっけ、覚えてないわ

2022/02/03(木) 21:24:18.10

マクロウィルスはラルーだっけな？
それもあったけど、なんかのウィルスだった覚えがあります。
入力した値や文字列が文字化けするウィルス

2022/02/04(金) 17:29:19.29

10弱ほどの複数のシートの同じ行を、まとめて選択してDeleteしているのですが
シート1枚につき18秒ほど掛かるようになって、シート全体で3分以上Excelが固まった状態になります
行では無く範囲をUnionで選択しても速度は変わりませんでした
Clearcontentsすれば速いんですが、その後CSVにして読み込ませる必要があり
ただ消しただけだと、Deleteされた行までデータが存在する事になってしまっていて、支障があります
Clearcontentsした後、VBA側で空欄の行をDelete以外で詰める方法は無いでしょうか

2022/02/04(金) 17:34:09.06

↑コピペ

2022/02/04(金) 17:49:25.28

コピペって何が？

2022/02/04(金) 18:12:14.30

>>931
読み返しても問題に気付かない馬鹿か？

2022/02/04(金) 20:33:02.02

諸先輩方に質問です。
VBAの勉強を始めたばかりで的外れなところはご容赦ください。
BeforeRightClickで記述するということはわかりました。

シート3のE4:H14とN4:Q14の範囲において、
セルを右クリックで黄色く塗る、もういちど右クリックすると塗りつぶしを無色にする
ということをやりたいのです。
同時に右クリックのメニューも表示しなくなるようプログラムしたいです。
塗りつぶすセルは毎回異なるセルです。

日々の作業で特定の範囲内でセルを黄色く塗る作業が多くあります。
これをペンキボタンを使わずにできると作業効率があがるかと思います。
皆様には簡単すぎるかと思いますがどうぞよろしくお願いします。

2022/02/04(金) 20:40:52.99

直の回答で無くてすまんがショートカットキー使った方が便利な気がする

2022/02/04(金) 21:30:10.84

>934
実際のコードはどんな感じ？
シート選択して該当行を削除してるなら、当然遅い。