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/01(土) 18:20:25.98

>>482
随分な言い様だな。
パスワード解除出来ることを知識として知っているかどうかの問題だろ。

俺の場合はかなり昔、といってもOffice2007が出て少しした頃だが、社内マクロのメンテナンスの仕事した時に、既に会社辞めた奴の作ったVBAにパスワード掛かってて、会社に了解を取って解除したことあるけど、実際に解除する奴なんてそんなにいないだろ。

だいたい、何が楽しくて解除なんてするんだよw
パスワード掛かってるコードが糞コードじゃないなんてこたあねーぞ。

2020/02/01(土) 18:23:48.41

>>482
教えて君てw
そんなレベルか?

2020/02/01(土) 19:30:50.72

他人のファイルって、、
勝手に個人のファイルを会社に持ち込むな

2020/02/01(土) 19:46:14.96

しゃべるほどアホが露呈してて草

2020/02/02(日) 06:03:03.69

イチゴの苗を盗んでうちのイチゴは世界一とか言う人たちがいたなぁ
他人のエクセルファイルを盗んで一般化して得意になるって同じ精神構造なんだろうなぁ
日本の民度もここまで下がったらもうブラックボックス化して自衛するしかないね

2020/02/02(日) 07:54:10.43

コモディティとしか言いようがないVBAでコードを盗むだの何だのと言ってることが笑える

2020/02/02(日) 09:18:18.30

公表してもどうせ誰も読めやしないから、パスかけてないわってのが殆どだと思う。

2020/02/02(日) 09:38:02.33

パスワードで保護する価値はないだろ
価値があると思ってるのは自分だけ
VBAは20年前に終わった古いコードでもう出尽くしてるから今更目新しいのはない
あると思ってるのは誰かがもう採用済み

2020/02/02(日) 10:05:41.35

パワークエリとかスピル関連でVBAのオブジェクトモデルにもどんどん新しい機能が追加されているぞ
目新しいものがないと言い切るのはおかしい

2020/02/02(日) 11:49:30.13

>>489
他人が作った、他人の仕事専用のコードなんか読む意味がない

2020/02/02(日) 11:55:17.84

>VBAは20年前に終わった古いコード

さすがにそれはないわ。
新しいバージョンから使えるコードがあるから。

2020/02/02(日) 19:10:02.86

>>490
コードをコビーされたくない財産と思っているのではなくて、書いた人の責任、管理を外れて、コードが勝手に変更されない為に保護するのが一般的。

2020/02/02(日) 19:14:37.59

他の言語では、変更可能な形で、実務者に配布なんてありえないからな。

2020/02/02(日) 19:26:59.62

オープンソースの歴史が示している通り、ケチケチするよりオープンにして仲間を増やしたほうが、自分の得になる。

2020/02/02(日) 20:14:04.59

列をコピーする際にクリップボードを使わずにコピーをする方法ってないでしょうか？
Columns("A").Copy
Columns("B").PasteSpecial (xlPasteValues)
こんな感じでコピーをするとwindows10標準の「クリップボードの履歴」という機能が使われるらしく、負荷がかかってエクセルブック自体が強制終了してしまいます
数行のデータなら何も問題ありませんが数十万行くらいあると落ちます
「クリップボードの履歴」機能をオフにすれば問題なく処理されるのは確認済みですがオンの状態で作業をしたいです
よろしくお願いします

2020/02/02(日) 20:21:49.04

>>497
Columns("B").Value=Columns("A").Value

2020/02/02(日) 20:22:47.88

Columns("B").Value = Columns("A").Value

2020/02/02(日) 21:11:52.76

Columns("B").Value = Columns("A").Value

より

buf = Columns("A").Value
Columns("B").Value = buf

の方がいいって本当かよ。

2020/02/02(日) 21:51:07.65

Columns(1).Copy Destination:=Cells(1, 2)

2020/02/02(日) 22:05:15.57

Destinationは厳密にはクリップボード経由だけど、履歴を残したくないって目的の>>497は達成できるな。

**483** (ｽｯｯﾌﾟ Sd0a-HEKX) · 2020/02/02(日) 22:06:50.74

>>494
俺がメンテナンスしてた時もこれに関してパスワード掛けてたな。
そこは、みんなVBAを弄るので勝手に改変されていって管理出来ないという問題があった。
それであるフォルダにあるブックのVBA全てに有効期限とパスワード掛けるコードとかをその時作った記憶がある。

2020/02/02(日) 22:08:48.13

>>498
多分、数式消えるよ。

2020/02/02(日) 22:35:10.30

>>504
ん？

2020/02/02(日) 22:56:08.65

返事が遅くなりましたが理想通りの結果を得られました
コピーしてからペーストという概念に捕らわれていましたがこんなこともできるのですね
ありがとうございました

2020/02/03(月) 07:20:26.91

>>500
特にそう書く意味は無いよ

2020/02/04(火) 22:29:38.52

ExcelのかわりにGoogle spreadsheetが台頭してきましたが
これにもマクロは使えるの？

2020/02/04(火) 22:37:40.55

>>505
ごめん。
元の質問が値貼り付けしてるから大丈夫だ。

2020/02/05(水) 00:55:11.04

>>508
GASがある
VBAよりは遥かに優れてるよ

2020/02/05(水) 15:59:16.28

なんかVBAの実効速度が今日から急に早くなったんだけどなんでだろう？

2020/02/05(水) 19:22:41.84

使うデータ同じで速度が変わったんなら裏でなんか重い処理でも動いてたんじゃないの

2020/02/05(水) 19:37:41.90

windowsのアップデートで妙に早くなることはたまによくあるな

2020/02/05(水) 20:42:09.91

>VBAよりは遥かに優れてるよ

言い過ぎ。
というか、シート内で出来ること以外は機能が殆どかぶってないと思うが。

2020/02/05(水) 22:14:16.66

>>510
Excelでいう「マクロの記録」みたいな機能ある？
だったら乗り換えたいかも

2020/02/05(水) 23:05:17.88

マクロの記録はあるが、乗り換えって・・。
使い分けだろう。

2020/02/06(木) 10:38:54.91

エクセルは多人数で同一ファイルの同時使用が出来ないからgoogleの方が遥かに便利

2020/02/06(木) 11:40:29.55

ローカルのExcelブックからDBに上げる・DBからブックに落とすだけのマクロは非常に多いからな
VBAマクロの代替以前に、Googleスプレッドシートに移行した時点で不要になるゴミはとても多い

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はレガシーでもうすぐ無くなるよ