Excel VBA 質問スレ Part64

2019/12/02(月) 23:43:54.18

!extend:checked:vvvvv:1000:512

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

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

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

**546** (ﾜｯﾁｮｲ ffcc-VM48) · 2020/02/08(土) 16:59:25.90

>>550
ありがとうございます。
エラーはなくなりましたが、"集計"の文字列を含む行も消えてしまいます

2020/02/08(土) 17:09:00.05

D列セルに「*集計*」と入れてみるべし。

**546** (ﾜｯﾁｮｲ ffcc-VM48) · 2020/02/08(土) 17:20:57.16

>>552
*集計* の行は残りましたが"*集計*"で、指定した文字列を含む（指定した文字列の前後に他の文字列がある場合）
ではないのですか

2020/02/08(土) 17:22:19.30

つまり、確認結果の通りです。
ワイルドカードが使えないので、LIKEかInstrを使ってください。

**546** (ﾜｯﾁｮｲ ffcc-VM48) · 2020/02/08(土) 17:27:20.54

>>554
分りました。ありがとうございます

2020/02/09(日) 13:06:00.86

いつのまにかテレビでスギちゃんみなくなったな

2020/02/09(日) 23:14:06.46

auto_openでユーザーフォームを開きます。
テキストボックスにデータを入力してエンターキーを押すとコマンドボタンに進んで
コマンドボタンでエンターキーを押すとデータがシートに入力されて
テキストボックス内がクリアされてテキストボックスにsetfocusします。

またデータを入力して、の繰り返しなんですが
1回目は上手く行くのに２回目に入力した時にエンターキーを押しても進まない現象が多々起こるんです。

そんな時は一度シートを適当にクリックしてユーザーフォームのテキストボックスに戻るとそれ以降はその現象は起きないんですが、正直シートには触らせたくないんです。

エンターキーで進まない現象は必ずマクロを起動させた一回目で発生します。

同じ様な現象で悩んでいる人は居ませんか？
解決策があれば知りたいです。

2020/02/10(月) 00:37:21.85

カーソルが消えて見えないだけで、実は進んでるんじゃないの?
そういう現象なら知ってるが。

2020/02/10(月) 06:52:30.10

小さい再現ソース出すのが早いかも

2020/02/10(月) 08:44:50.58

最少構成のソース試行錯誤してる間に解決するのもあるあるだしな

2020/02/10(月) 08:53:02.50

対処療法になるけど、起動直後に1回だけ自動でダミーのデータを送り込むマクロを仕込んでおくとか

2020/02/10(月) 22:45:50.30

>1回目は上手く行くのに２回目に入力した時に
>必ずマクロを起動させた一回目で発生
どっちだよ

2020/02/10(月) 23:11:08.64

>>562
えっ？
後者の一回目は脳内変換で見なかったことにしたけど

2020/02/11(火) 05:10:09.38

させたー回目？

2020/02/11(火) 07:49:44.54

昔は最小構成ソースを美しいコードとか言ってた時代もあったけど今じゃ可読性の悪いコードの見本
やっぱ誰でも見やすくないとね
自己満じゃダメよね

2020/02/11(火) 08:34:22.59

>>565
昔は少ないメモリがゆえのことで自己満なだけではないし、可読性の悪いコードになるとも限らない

2020/02/11(火) 09:16:55.47

知る限り一番縛りがキツイのはポケコン
昔は変数が一文字だけ。変数26種類で終了！って時代があって
可読性が悪いと死ぬ時代があった
オブジェクトももちろんなし

今は多少可読性が多少悪かろうが余裕で読める

2020/02/11(火) 09:17:00.76

>>565
最小構成でなぜ可読性という言葉が出るのか
文字数じゃないんだぞ

2020/02/11(火) 09:37:10.38

そもそも最小構成ソースってなに？

2020/02/11(火) 10:38:55.72

最初はトラブルシューティング話をしていたのに、565がいきなり関係ないことを言い出した

2020/02/11(火) 23:45:05.58

integerとlongについて教えてください
今までは数値によりこの二つは使い分けた方がいいと思っていました
しかし、ネットで調べるとintegerも結局longに変換？しているためlong型で統一した方がいいといったことが書かれています
となると、integerの使いどころはどこになるのでしょうか？

2020/02/11(火) 23:51:45.85

>>571
昔の名残と言い切っていいと思う
今は使い分ける意味があんまりなくなってしまった
強いて言えば大きい配列にするとメモリの使用量が変わってくることぐらい
バイナリファイルの読み書きでも結果が変わるけど、そもそもバイナリデータの処理はVBAに向いてない

2020/02/11(火) 23:53:50.82

メモリの使用量が目に見えて変わってくる
にしといて
突っ込まれそうだから

2020/02/12(水) 00:34:42.09

1048576行だから縦はLong。
16384列だから横はInteger。

異論ある?

2020/02/12(水) 02:07:44.57

仕様変更に備えてlong一択

2020/02/12(水) 02:23:22.72

縦はともかく、横が拡張されることなんかあるんかいな。

2020/02/12(水) 07:15:12.66

過去に拡張されたことあるから今後もあるかも
って思うのは不思議じゃない

2020/02/12(水) 14:43:59.70

Ａ列に今日の日付が入っている行であれば、同じ行の"Ｂ"cnt～"ＡＡ"cnt＋２を水色でぬりつぶす
（対象はＡ列の４行目から最終行）
と
Ｂ列に数字の１が入っている行であれば、同じ行の"Ｂ"cnt～"ＡＡ"cnt＋２を赤色でぬりつぶす
（対象はＡ列の４行目から最終行）
というのをしたくて書いたのですが、エラーなどはなく、何も起きません
原因を教えてください。

Sub tes()

Dim cnt As Long
Dim buf As String
Dim cnt2 As Long
buf = Date

For cnt = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step 2
If Cells(cnt, 1) = buf Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(173, 242, 249)
End If
Next cnt

For cnt2 = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step 2
If Cells(cnt2, 2) = 1 Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(255, 0, 0)
End If
Next cnt2

End Sub

2020/02/12(水) 16:42:09.14

>>578
Forの条件が逆
For cnt = 4 to Cells(Rows.Count, 1).End(xlUp).Row
For cnt2 = 4 to Cells(Rows.Count, 2).End(xlUp).Row

2020/02/12(水) 17:49:54.70

VBA学びたいんだけど、office以外でVBA出来るところってない？

2020/02/12(水) 17:53:09.88

LibreOfficeで使える。
インテリセンスが使えないからだれも使わないしそれでもLibreOfficeつかうならpythonで動かす。

2020/02/12(水) 18:16:19.33

今から学ぶなら>>414かGoogleスプレッドシートのGASにしとけば？
どっちも無料だしVBAはレガシーでもうすぐ無くなるよ

**578** (ﾜｯﾁｮｲ 16cc-sg8N) · 2020/02/12(水) 18:20:25.60

>>579
ありがとうございます

2020/02/12(水) 19:23:16.28

>>580
MS Office以外でという意味ならLibre OfficeのマクロでVBAが使えるがMS Officeとの互換機能のための物だから完全ではない

2020/02/12(水) 20:30:50.73

>VBAはレガシーでもうすぐ無くなるよ

10年後も余裕で残ってると思うが・・。

2020/02/12(水) 20:51:59.56

別に先端の言語、例えばスカラーやハスケルを使ったとしてもやってることはVBAを使ってやることと同じじゃね。
それがオンプレやウェブを通じてデータを共有するかエクセルで個人でデータを扱うかの違いだけでさ。
目的がデータ共有じゃなくて個人のデータ分析・見える化なら簡素なVBAのほうが優秀に決まってるとおもうが。

2020/02/12(水) 20:58:51.98

他の言語ならGUIやらグラフ作成のプログラミングが必要なところがエクセルならなしでいいし自分用に簡単にカスタマイズできるとかチートだろ。
その便利さが分からないってちょっとかわいそうだと思うが。保持できるデータ量が少ないっていう人がいるかもしれないけど
それこそDBと接続すれば解決だろ。なんで他言語信仰があるのか俺にはようわからんがー

2020/02/12(水) 20:58:54.89

Haskellって最先端なんか？
凄い古い言語って印象だけど

2020/02/12(水) 21:04:01.64

>>587
ゲーム作成には不向きだったな。ありゃーキツかった
あと機械学習にもまるで向いてない。vbaは内部的にシングルコア臭い。

通常の事務用途なら普通に最強なのは言うまでもないので、あえてそれを言ってないだけではないんだろうかね

2020/02/12(水) 21:16:37.85

関数型言語だから最新ではなくとも先端だと思うけどな

2020/02/12(水) 21:22:44.30

あぁ先端か、最新とごっちゃになったよスマン

2020/02/12(水) 22:17:27.48

>>582
馬鹿は死ねよ

2020/02/13(木) 00:45:56.80

>>580
vbsでよくね
ちょっと遅い以外はVBAより使い所あるよ

2020/02/13(木) 03:14:24.86

VBAの利点なんてExcelに標準で載ってる以外にないだろ
まあその利点が大きすぎて他ので代替できないんだけど
はやくTypeScriptあたりが標準にならねーかな

2020/02/13(木) 07:45:49.49

Excelが起動してない状態ならどんな言語でも良い。
そもそもVBA使えないし。
でも、Excel起動した状態で、わざわざ別言語呼び出すのは糞だろ。

VBAが使える環境ってのは競合がいない。

2020/02/13(木) 11:47:37.56

Excel は、web プログラミングに対応していないから、
ウェブアプリでは、データベース・CSV の方がよい

そうすると、Ruby, Python, Julia で、
VSCode, Jupyter Notebook で処理できる

ローカルPC 内だけで処理できない場合は、他の言語がよい

2020/02/13(木) 15:06:53.86

>>595
>でも、Excel起動した状態で、わざわざ別言語呼び出すのは糞だろ。
別に糞ではない

2020/02/13(木) 15:35:27.13

専用アプリがたくさん出てきた今じゃエクセルなんてメモ帳くらいしか使わなくなった
この先もなるならんと思うけど用途は縮小されるだろうな

2020/02/13(木) 19:19:57.68

スレ違いかもしれませんが、VSTOってどうなんでしょうか
よく使われているのですか？

2020/02/13(木) 21:34:00.53

>>596
ｒｕｂｙだけはないかな
もう完全に更新停止しちゃったし

2020/02/14(金) 03:17:43.34

いつものruby厨が糞なのはわかるが年末にメジャーアップデートしたばかりだよ！

2020/02/14(金) 12:24:19.36

>>599
使う人は使うだろう

2020/02/14(金) 13:53:47.99

PHPでいいのにRuby
JavaでいいのにKotlin
余計なもの作りすぎてやしないか？
学習しないといけない選択肢や実際に学習しないといけないリスクが増える。

OSにおけるWindowsに対抗したMac
ワープロのWordに対抗した一太郎
スマホにおけるAndroidに対抗したiPhone
にも同等のことが言える

2020/02/14(金) 14:24:36.22

>>603
自由競争社会ってのはそういうもん
選択肢が多くて選ぶのが嫌なら共産国にでも行けばいい

2020/02/14(金) 14:55:02.63

PHPでよくないしJavaでよくなかったから新しいものが作られるのは当然

**596** (ﾜｯﾁｮｲ 122c-LiuO) · 2020/02/14(金) 15:48:59.78

未だに、Webサイトの最高速度は、Ruby on Rails。
他の言語は複雑だから、高コストで低品質になるw

表示速度が“異常な”Webサイト「dev.to」とか
https://dev.to/

元乃木坂46 の川後陽菜のWebサイト、SKIYAKI とか
https://kawagopro.com/

2020/02/14(金) 19:06:02.89

日本語不便だから簡素化しよう　　→　わかる
日本語不便だからZ国語を作ろう　→　意味不明

2020/02/14(金) 19:36:15.93

おれ今は何でもpowershell
.NETやWin32API呼べるしね

2020/02/14(金) 19:39:20.92

>>606
WEBサイトが重くなる原因って、外部サイトから取り込む広告バナーやアイコンが原因なことも多いよな
そういうケースでは自分のサーバーをいくらチューンしても無駄だし

2020/02/14(金) 20:40:36.45

>>606
何の機能も無いんだからそりゃ早くて当たり前だ

2020/02/14(金) 22:25:32.83

>>603
Wordよりも一太郎の方が先じゃなかったか？
少なくとも国内では

2020/02/15(土) 11:21:56.89

>>597
そんな手間、普通はしないし、そんな汚いコード書きたく無いのが普通。
レガシーコード嫌ってもっと酷いコード書いて何とも思わないのは害悪だね。

2020/02/15(土) 11:25:02.18

>>599
それはアリだ。
会社内で使える環境、積極的に使っていく環境なら大いに活用すべし。

ただ、VSTOって名前は今でもその名前で良いのか?
もはや、名前なんて無くなった感覚だな。
俺も個人的に使ってる。

2020/02/15(土) 14:20:57.52

>>612
別に普通
コードも汚くならない

2020/02/15(土) 17:13:03.49

>>614
例えば、VBSからVBAを呼び出し、VBA経由でWin32APIを呼び出す。

VBAからShell関数で別exeを呼び出し、そのexeはtxtファイルを残すように作成されており、そのtxtファイルの内容を見て連携する。

あるフォルダを常に監視するプログラムが動いており、そのフォルダにファイルが置かれると其れを読んで動作するプログラムがある。別のプログラムがそのフォルダに指示するファイルを置いて連携する。

どれも、仕方なくそういうプログラムを書くことがある。
しかし、こういうピタゴラスイッチのようなシステムは汚い。
1言語で完結する方が良いのは明らかだ。
そんなこともわからない奴は素養が無い。
動けば良いなんて考えの奴とは組みたく無いね。
スパゲッティで炎上案件必至だ。

2020/02/15(土) 17:32:31.69

>>615
そういうシステムの場合は1言語で完結する方がいいって？
1言語でもやりたくないな
プロセス毎に担当とかならいいが

2020/02/15(土) 17:34:00.99

そのプロセス毎に言語が違って余計な手間が増えるのも非効率だな

2020/02/15(土) 18:20:20.91

>>615
>どれも、仕方なくそういうプログラムを書くことがある。
そんなプログラム仕方なくでも書くな
たからそんな頓珍漢なシステムしか作れないんだよ
素養なさすぎでしょ

2020/02/15(土) 18:27:08.22

>>618
だから>>597が正にそれだろw
バカがwww

2020/02/15(土) 18:27:51.31

こっちの主旨も伝わらないとはねw

2020/02/15(土) 18:33:14.64

ググルのスプレッドシートってまだまだだねぇ・・・
Excelの完成度の高い操作性に慣れると、あんなの使ってらんねーわ・・・

2020/02/15(土) 19:16:30.13

あれはGoogleのAPIを使いたい時用。

2020/02/15(土) 19:16:36.07

>>619
>>594は糞ではないが>>615は糞
極端なものしか語れない/作れないの？
素養無いね。いやマジで

2020/02/15(土) 20:04:11.40

>>623
まだ伝わってね―のかよ。
>>615は糞の例だっちゅうのw

Excel起動した状態で、わざわざ別言語呼び出すのも基本的に同じだ。

2020/02/15(土) 20:27:26.64

ちなみに、俺は実際には>>615のようなものを仕事で書いたことは無い。
しかし、世の中には>>615のような腐ったのはあったりする。
>>615の内の1つは俺がネットワーク系のコード書いてた時にある技術的課題をすぐにクリア出来なかった時に上司や他のメンバーから提案されたものだ。

結局、Win32APIで何とかしたが。

2020/02/15(土) 20:46:44.54

自分でも書かないような極端な事例を勝手に出してそれに対してマウントとるオナニー気持ちいい？
コミュニケーションの素養も無いね

2020/02/15(土) 21:00:26.03

>>626
プッw
話を変えようとしても無駄。

Excel起動した状態で、わざわざ別言語呼び出すのも糞。

2020/02/15(土) 21:02:22.67

ちなみに、極端でも無いのは上司や他メンバーが提案したことからも明らかだが。
糞だけど実際にはそんな事例は結構ある。

2020/02/15(土) 22:00:26.34

>>627
それは糞ではない

2020/02/15(土) 22:13:15.78

>>629
プッ
センス無いなあw

2020/02/15(土) 22:30:05.36

>>630
素養って言葉使うのやめたの？

2020/02/15(土) 22:51:41.05

>>631
プw

2020/02/15(土) 22:54:09.55

横からだけど
VBAでは足りないことが多いし、言語も冗長でできれば書きたくない言語
けど、気持ちは分かるわ。自分もエクセル神、VBA最強と思ってた時期があったw

2020/02/15(土) 23:04:02.01

よろしくお願いします。

A1からA500まで順に走査し、セルの値が「あ」「い」「う」「え」「お」のいずれかなら同行のB列に「OK」と書く
↑
こういう命令を書きたいのですが、
if ws.cells(row,1)="あ" or ws.cells(row,1)="い" or ws.cells(row,1)="う" or ws.cells(row,1)="え" …　then
という書き方しかしりません。

たぶん、
「セルの値が「あ、い、う、え、お」のどれかの場合は、」という書き方があるんじゃないかと思います。
ひとつひとつORで並べるんじゃなくて、そのように書くにはどうすればよいのでしょうか？
教えてください。

2020/02/15(土) 23:28:52.14

select case a
case "あ","い","う","え","お"
cells (i,j) = "OK"
end select

2020/02/15(土) 23:41:20.13

>>635
ありがとうございました！！

2020/02/16(日) 01:36:16.88

そもそも他言語使うのにエクセルシートを開くのがダサい

2020/02/16(日) 05:43:51.26

pythonでもjsでもいいからさっさとVBA廃止して欲しいわ

2020/02/16(日) 06:57:36.74

使わなけりゃいいのに

2020/02/16(日) 07:30:58.53

VBAを使ってるって人に言うのが恥ずかしい

2020/02/16(日) 09:18:13.09

VBAアレルギーがこのスレにいるのが恥ずかしい

2020/02/16(日) 09:39:35.57

VBAよく使うし便利なんだけど嫌われている理由って何？

2020/02/16(日) 10:08:05.95

>>642
出来る人が多くなると自慢にならない

2020/02/16(日) 11:01:43.69

>>642
いつ切り捨てられるかわからないストレスの反動

2020/02/16(日) 13:09:01.06

>>642
アンチがうるさいだけ

2020/02/16(日) 13:21:44.77

最先端を追っかけて一般に広がったらダサく見えちゃう人のパターン？

2020/02/16(日) 13:46:18.68

使いこなせないけどとりあえずスカラー使っとけばマウント取れるという風潮

2020/02/16(日) 13:54:18.04

スカラーってなぁに？

2020/02/16(日) 14:33:37.03

オナラを音を出さずにする人のこと

2020/02/16(日) 14:49:07.22

>>642
言語仕様が古臭すぎる
モダンな便利な仕組みが使えないしデフォルトの関数やライブラリも貧弱
Excelっていう表を使うのにリスト周りの機能が劣悪なのが個人的に最高に糞
sortやfilter、mapぐらいは用意しといてくれ

2020/02/16(日) 17:03:22.19

Excelは神じゃないし、VBAも別に古くないなんて言わない。
でも、VBAを使う場合では他に選択肢が無い。
他のモダンな言語使ってダサさ極まりないプログラムを書くことになる。

Excelを介さずにExcelのファイル作る場合ではVBAはお呼びじゃ無いし、Excelを介して何かする場合はVBA以外がダサイプログラムとなる。