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(土) 12:56:41.71

Test(ByVal a As String)
Test(ByRef a As String) ← こっちって型指定する意味ある?

Test(ByRef a) か Test(a) だと何かまずい?

2020/02/01(土) 12:57:29.84

>>462
そりゃvbaなんてどう書いてもベタ書きにしかならんよ
ラムダ式やコールバック関数ほかなーんにも無い、順番に読むだけ

2020/02/01(土) 13:02:40.39

>>463
型が違う場合、コンパイル時点でエラーに出来る
けど型がふわふわのvbaでやる意味は薄いとは思う

Sub foo()
a = 1
Debug.Print Test(a)
End Sub

Sub Test(ByRef a As String)
End Sub

2020/02/01(土) 13:06:17.87

まあ、たまにタイプミスを発見できるとか、時間が経ってからコードに手を入れたい時に型が書いてあれば確認しなくてすむとか、そういう薄いメリットはあるかな

2020/02/01(土) 13:21:19.67

パスワードかけてるのにどうやって見るんですかねぇ、犯罪者さん。

2020/02/01(土) 13:22:06.87

>>465
型定義してないコードなんてよっぽどだな。
そんな所は碌なもんじゃねえw

2020/02/01(土) 13:23:10.13

>>467
VBAのパスワードは基本的に解除できる筈だが。
俺の知識が古い?

2020/02/01(土) 13:25:52.77

技術的に可能だから不正アクセスするのか
犯罪者は発想が違うな

2020/02/01(土) 13:31:03.95

>>470
俺のまわりでは普通はパスワード掛かってないがw
お前が自らの知識の無さを披露したから指摘しただけだよ。

2020/02/01(土) 14:50:58.68

まぁ3流プログラマじゃ数字の流れは盗めてもその数字が意味するところまでは汲み取れないのが現実
相手がプログラミングができないと思い込んで知識窃盗を試みて数値の流れを盗んだところで自己満足
それをどう使うかなんて役員に対して説明もできんだろ
そんな奴はプログラミングできるぼくちゅごい！で思考停止してるアホだな。

2020/02/01(土) 15:24:51.88

>>467
プログラムは会社の資産だから別に不正アクセスでもなんでも無いよ？
自分の家の鍵を自分の鍵で開けてるだけだよ
それにvbaのパスワードとか秒で破られるもので防ごうってのも変な話

2020/02/01(土) 15:27:07.32

>>472
そんな誰にも分からないような高等な知識をわざわざパスワードかけて、毎回パスワード解除してるの？なんの意味があるの？手間なだけでは？

2020/02/01(土) 15:40:01.24

凄くなくてもお前には無理だよ

2020/02/01(土) 16:05:04.46

負け惜しみが酷い。
パスワード解除出来ることも知らない程度の奴の高度なプログラムなんて、こっちにとっては初心者コードじゃねーの?
精々、中級者までだろうよw

2020/02/01(土) 16:20:23.93

で、コードがかけたから何？
結局実務からseが要件定義しないとお前らは何もできないし、要件定義された内容を分割して指示通りにコード化してるだけだろ。
それのどこが偉いの？偉いのは実務だよ。
それにパスワードは外せて簡単に内容見れるとか言うなら俺が自分で計算やDB用ののdll書いてブラックボックス化を進めればいいのか
いくらでもブラックボックス化はできるけど信用の上に立って簡単なvbaで処理してるにすぎんよ
プログラマーが偉そうにするなら俺は協力しないし、会社命令でも手を抜くね
まるで属人化排除が印籠かなんかで相手の気持ちも考えず従えとか言ってくる勘違い馬鹿に協力するわけねぇわ

2020/02/01(土) 16:45:45.26

>>477
あぁ、何か変と思ったらこのスレの人をプログラマーと思っていたのか
このスレの大半は事務の人間だよ
俺は両方の経験者だけど

あんたは自分でレベル高いと思っているかもしれないけど、それほどでも無いって自覚だけはしておいたほうが良いぞ

2020/02/01(土) 16:48:36.87

教養レベルのことを書いたらレベル高いって主張してるように見えるならお前も大したことないな
気をつけろよ

2020/02/01(土) 17:08:00.96

虚空に向かって喧嘩してるアホに言われたくないわｗ

2020/02/01(土) 17:09:16.56

あれれ～>>460でからんできてそれ言うの？頭大丈夫？

2020/02/01(土) 18:04:50.41

他人のエクセルファイル盗み見るとか公然と言うカスは教えてくんにも劣る犬畜生だという自覚すらないからな
教えてくんならググレカスで済むけどおしえてくれないならファイル盗むわとかほんと頭いかれてるわ

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