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

2020/02/06(木) 18:57:22.24

excelブックをメールで行ったり来たりさせてメールボックスパンパン
→消した後に悲鳴

何度見たことか

2020/02/06(木) 19:11:07.60

>>510
win32api使えるのかよ？

2020/02/06(木) 19:33:40.30

>>520
どうしてもWinAPI叩きたかったら、C#とか好きな言語で書いてWebAPIでスプレッドシートに反映させればよい
帳簿に手足は必要ない

2020/02/06(木) 19:38:03.11

面倒臭いじゃないか

2020/02/06(木) 19:43:08.95

普通はその結果をDBなりに同期させる仕組みを考える方が面倒臭いと思うけど、仕事したことないんだろうね

2020/02/06(木) 19:47:10.12

VBAとGASだとさすがにVBAの方が上かな
GASはローカルファイルへのアクセス権がなさすぎるのと、他スプレッドシート扱うのがかなり面倒くさい。まぁしゃーないっちゃしゃーないんだけど
さっとスクリプト組みたい時はVBA＋Excelシート以上にお手軽な環境は無いと思う

>>523
webに対しては確実にgoogleスプレッドシートの方が上だが・・・

どっちが上ってのは無いと思う。使い方次第だろう

2020/02/06(木) 20:18:44.88

>>523
DBならaccessとodbcでいいや

2020/02/06(木) 20:23:02.70

DB接続してないエクセルとか糞だろｗ
GAS?情報共有が楽なだけで話にならん

2020/02/06(木) 20:50:55.98

>>523
そもそもexcelやaccessならADODBで簡単にデータベース連携できるし

2020/02/06(木) 21:01:17.75

そもそもみんなどういう風に使っているんだ？
俺は・・・
・メインシステムはweb上にあり、ベンダーに開発してもらっている。csvを吐き出すシステムがある
・csvの元になるSQL部分は自作（しょっちゅう変わるから自分で作ったほうが早い）。
・後はそのcsvに対してvbaでちゃーっと加工して配布（順序変えたり見やすくしたり）
・ローカルネットワークにもファイルを置く

こういう使い方だとVBAの方が楽なんだよね。GASを使う理由があまりない。データが必要なら、都度csv落とせば良い
ODBCとかめんどくさくない？
php直接書いたほうが遥かに早いし楽だし、データの劣化を最小限に抑えられると思うんだけどなぁ

2020/02/06(木) 21:12:09.33

>>528
前のプロジェクトvbaのコード少し書くだけでDB連携してたぞ
そこのプロジェクトはなんでもできる系が多数いたけどな

2020/02/06(木) 21:31:53.31

>>529
Excelの仕様と、型付でデータが大変にぎやかになるのが辛かった
@が=記号の代わりになるとか知らんがな
番地データが日付になるのは勘弁しておくれやす～

2020/02/07(金) 07:38:57.80

>>517
同時編集できるよoffice365で
しかもデスクトップに切り替えも出来る

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-n9KO) · 2020/02/07(金) 11:47:05.80

社内のシステムへのログインをVBAで行おうとしたのですが、
特定の入力項目を小ウィンドの選択項目から選んででないとログインできません。
VBAを使って同じような入力内容に出来てるのですがダメです。

何かやり方があれば教えてください。

2020/02/07(金) 12:43:05.40

c++で自作したdllをシャドウコピーして呼び出したいんだけど、そんなことできますかね？
できるなら教えてください

2020/02/07(金) 13:44:00.60

社内システムへのログインでエクセル開くの？
キモくない？

2020/02/07(金) 14:23:11.44

うちもエクセルからだな
「え？URLのショートカットかなんかじゃなくそれ？」って思った

2020/02/07(金) 15:32:34.32

>>532
最後の手段はSendKeysとかWin32APIでマウス操作

2020/02/07(金) 17:44:09.47

社内のシステムへのログインが全世界どこも同じだと思ってる馬鹿は死ね

2020/02/07(金) 19:41:49.69

>>532
選択項目を選ぶと、非表示で隠れている部分にあるフラグが変わると見た。

2020/02/07(金) 19:45:33.80

あと酷いのになると、テキストボックスが2個重なっていて、
くそっ! 片方ダミーか! ふざけんな! とかさ。

2020/02/07(金) 19:57:32.82

>>539
まさに最近引き継いだものがその罠だった

2020/02/08(土) 09:50:54.70

セルA1に金額(例えば100)を入れて
セルA2にセルA1の金額の数値を入れた次の文章

代金はセルA1円になります。
↓
代金は１００円になります。

を表示させたいです。
自力で下記のまでは出来ました。

Range("A2") = "代金は(セルA1)円です"

ですがセルA1の値を文章の途中に組み込めず困っています。
A2に表示された文章は後でコピー貼り付けに使用します
(この部分は自分で出来ますが・・・)。
ご教授宜しくお願い致します。

2020/02/08(土) 09:57:09.44

>>541
1. VBAを忘れます
2. ="代金は" & A1 & "円です" をA2に入力します
3. (ﾟдﾟ)

**541** (ﾜｯﾁｮｲ ff63-tipF) · 2020/02/08(土) 10:12:44.92

>>542
有難うございます。わけ合って&関数は使えないのです。
私の説明が足りずすいません。
マクロを実行するとセルに直接文章を入力したようにしたいのです。

2020/02/08(土) 10:43:22.85

Cells(2, 1).Value = "代金は" & Cells(1, 1).Value & "円です"

**541** (ﾜｯﾁｮｲ ff63-tipF) · 2020/02/08(土) 10:47:03.25

有難うございます！そのやり方で今からやってみます！

2020/02/08(土) 11:24:39.88

Ｄ列に「集計」という文字が含まれていなければ、その行を削除して行間を詰めるために
↓のコードを使いたいのですが、Unionの.Rowのところで「参照が不正または不完全です」になります

Sub Delete_Rows()

Dim LastRow As Long '最終行の変数
Dim DereteRow As Range '該当する行を格納
Dim r As Long '処理の範囲を格納
Dim ws As Worksheet

Set DereteRow = Nothing 'オブジェクトへの参照を解除

Set ws = Worksheets("Sheet1")

' Ｆ列を基準にシートの最終行を取得
LastRow = Cells(Rows.Count, 6).End(xlUp).Row

For r = 2 To LastRow '２行目から最終行までB列のセルを対象にする
'Ｄ列のセルが"集計"を含まない文字列の行なら DereteRow に追加
If Cells(r, "D") <> "*集計*" Then
Set DereteRow = Union(DereteRow, .Rows(r).EntireRow)
End If
Next r

'DereteRowに行が代入されていれば一括で削除するが、なければ処理を終了
If Not DereteRow Is Nothing Then
DereteRow.Delete
End If
End Sub

2020/02/08(土) 12:09:16.53

>>546
そりゃWithもないのに
> .Rows(r).EntireRow
なんてされてもExcelは困っちゃうわな

ルーチン名はDelete_Rowsなのに変数名はDereteRowとか、wsは何に使うつもりなのかとか色々指摘したいところがありまくり

2020/02/08(土) 12:40:15.95

>>546
.Rows(r)の"."を消すかActivesheet.Rows(r)に切り替える

蛇足だが、コードにいろいろとおかしな点があるので指摘しておく

・DeleteRowを変数として宣言した直後、まだ何も代入していないのにSet DereteRow = Nothingとやるのは無意味

・ルーチン名をDelete_Rowsにするんだったら削除対象行の変数はDeleteRowではなくTargetRowsとかにした方が良い

・変数 r は「処理の範囲」ではなく「削除対象行判定のループで使用する行カウンタ」と説明しないと意味が通じにくい。「範囲ならばRangeオブジェクトじゃないのか？」と思うし、どの処理で使ってるかも分からない

・変数 ws は何のために宣言してるのか？

**546** (ﾜｯﾁｮｲ ffcc-VM48) · 2020/02/08(土) 13:46:03.51

>>547
>>548

ありがとうございます。
↓で
"Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)"
の部分が「プロシージャの呼び出し、または引数が不正です。」になります

Sub Delete_Rows()

Dim LastRow As Long '最終行の変数
Dim TargetRows As Range '該当する行を格納
Dim r As Long '削除対象行判定のループで使用する行カウンタ変数

' Ｆ列を基準にシートの最終行を取得
LastRow = Cells(Rows.Count, 6).End(xlUp).Row
For r = 2 To LastRow '２行目から最終行までB列のセルを対象にする
'Ｄ列のセルが"集計"を含まない文字列の行なら TargetRows に追加
If Cells(r, "D") <> "*集計*" Then
Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
End If
Next r

'TargetRowsに行が代入されていれば一括で削除するが、なければ処理を終了
If Not TargetRows Is Nothing Then
TargetRows.Delete
End If

End Sub

2020/02/08(土) 14:42:01.53

>>549
ちょっとググったらUnion(Nothing, ...)はダメみたいやね
> Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
↓
If TargetRows Is Nothing Then
Set TargetRows = ActiveSheet.Rows(r).EntireRow
Else
Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
End If

**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