Excel VBA 質問スレ Part65

2020/03/17(火) 16:27:20.88

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

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

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

2020/03/22(日) 13:22:11.60

ここだけじゃなく5chはどこも似たり寄ったりです
貴方が来るような場所じゃありません

2020/03/22(日) 14:47:18.63

>>25
霊性？
馬鹿確定
原因としては正しかっただろうが

2020/03/22(日) 15:26:01.73

>>22
ソースコード書けないの?
君書いたのが本当にセルの指定をしてると信じる人がいるとでも?

2020/03/24(火) 17:30:30.61

よろしくお願いします。

数百行あるシートで、上から順に一行ずつ以下の操作を行いたいです。

(1)　C列の文章の中に、「一言コメント：」という文字が入っていれば2へ。なければ終わり、次の行へ
(2)　「一言コメント：」とそれ以下の文字列をC列の値から削除し、E列の、元々の値（文字列）の前に貼りつけ
(3)　E列の文字列の中から「「一言コメント：」という文字列を削除

以上です。
まず、（1）の検索がうまくいかず、（2）の文字列取得も、一文字ずつ数えてカウントし、あらためて「終わりから○文字」みたいな
やりかたをするしか方法が浮かびません。
たぶん、上級者ならもっとシンプルな書き方ができるのではないかと思い質問させていただきました。

どのように書けばよいでしょうか？よろしくお願いいたします。

2020/03/24(火) 17:42:47.48

For文をRowCntって変数で回していると仮定して
If Cells(RowCnt, 3).Value Like “*一言コメント：*″ Then
で引っかけるとか？

2020/03/24(火) 17:58:43.96

VBAなくても関数だけで目的達成しそう

2020/03/24(火) 18:33:24.09

>>29
Ruby で作った

text = <<"EOT"
ab一言コメント：12
あいうコメント：
xyz一言コメント：456
EOT

search_word = "一言コメント："
sw_length = search_word.length # 7文字

text.each_line do | line | # 1行ずつ処理する
line.strip! # trim

# 単語が見つかった時だけ、単語の前後を出力する
if pos_1 = line.index( search_word )
puts "#{ line[ 0 ... pos_1 ] } - #{ line[ pos_1 + sw_length .. -1 ] }"
end
end

出力
ab - 12
xyz - 456

2020/03/24(火) 18:34:45.78

>>15
どんな機能でもショートカットキー設定できるの？

2020/03/24(火) 19:30:25.33

>>29
VBAでないとだめなわけじゃないならExcel関数でやればいいと思う

2020/03/24(火) 19:56:22.25

>>33
Alt押してみ

2020/03/24(火) 22:01:18.60

>>29
Dim c As Range, e As Range
s$ = "一言コメント："
For Each c In Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
　　i% = InStr(c, s)
　　If i Then
　　　　Set e = c.Offset(0, 2)
　　　　e = Replace(Left(c, i - 1) & e, s, "")
　　End If
Next

2020/03/24(火) 22:44:45.47

ここは上級者向け？
ド素人が少しずついろんなサイトや動画見て覚えようとしてるレベルじゃダメかな

2020/03/24(火) 23:20:41.40

>>37
初心者も上級者もキチガイも見てる
みんなが毎日見てるわけじゃないから、タイミングが悪いと質問に答えてもらえないこともある

2020/03/24(火) 23:41:15.31

いろんなサイト見た方が早い

2020/03/25(水) 09:15:56.68

FileSystemObjectでFilesのコレクションょ取得したあと
それぞれにアクセスするにはどうしますか？
Files(1), Files(2)のようにするとエラーが出てエラいこっちゃとなります。
For each文ならできるのですがそこまでするほどのことではない時には？

2020/03/25(水) 10:04:11.68

コレクションょ

2020/03/25(水) 10:44:44.89

を

2020/03/25(水) 10:51:51.28

暇だし、見てみた

Const path = "c:\temp"
Dim fso As Scripting.FileSystemObject
Dim item As Object

Set fso = New Scripting.FileSystemObject
Set item = fso.GetFolder(path).Files.item("test.csv")

filesコレクションからの特定fileオブジェクトはitemプロパティでkeyをnameで指定すれば直接取れる
ExcelVBE上はitemでナンバリングされてるけど、配列みたいに番号指定は出来ないんじゃないかな(他の人知ってればいいな)

ファイル名特定できるならgetfileでもええね
個人的にはdirとか分かりやすいがね

2020/03/25(水) 12:51:44.52

itemでナンバリングされていないんじゃないか？
だからitem(1)やitem(2)で取得できないのでは。
それゃファイル名を()の中に書けば取得はできるけど。

2020/03/25(水) 15:03:09.95

for each でいいやん

2020/03/25(水) 15:55:41.50

「そこまでする」の考え方がまずおかしい
中身がたとえ1個でも2個でも普通はコレクションにはFor Eachを使うもんだぞ

2020/03/25(水) 16:09:28.13

>>45-46
このハゲー！
違うだろ！

最初にfor eachはやらないと言った。
コレクションの代表ということで任意の1個だけを選んでそのプロパティ等を調べる、
ということはプログラミング経験がある程度あればそういう状況に遭遇することはたまによくある。

2020/03/25(水) 16:14:59.17

fsoのfilesコレクションには通常のコレクションみたいにインデックス指定が出来ないのよね
countとitem(key)プロパティしかない
ファイルシステムの違いとか、歴史的経緯からかはしらんけど
だから基本for eachで他の形にする

2020/03/25(水) 16:19:47.29

>>48
そんなことはとおの昔に知ってるから
ここで質問をしたのだ。

2020/03/25(水) 16:24:52.66

ID:nn3rUaIL0
馬鹿は死ね

2020/03/25(水) 16:33:07.81

では次の方

2020/03/25(水) 18:54:52.80

インデックスが使いたいなら自分で配列でも作り直せばいいのに

2020/03/25(水) 19:07:44.86

不毛だな

2020/03/25(水) 20:08:34.34

Exit Forすればいいんじゃまいか

2020/03/25(水) 21:06:02.83

OpenDocumentスプレッドシートのデータをADOで取得する方法ある?
EXCELに変換しろってのは無しで。

2020/03/25(水) 21:06:24.91

>>44で自分で答だしてんじゃん

2020/03/25(水) 22:04:41.19

ドライバ自作しろ

2020/03/25(水) 22:39:59.43

プラスとマイナスはあるから丸ドライバー作るわ

2020/03/26(木) 02:21:13.92

ファイル入出力に使うopenやinputが何者か（関数？メソッド？など）知りたいです
これらの機能はなぜオブジェクトブラウザに乗っていないのでしょうか
マイクロソフトのウェブヘルプにはステートメントとして乗っているようですが
ステートメントというのは関数やメソッドなどの分類ではないですよね？
ご教示お願いします。

2020/03/26(木) 02:34:21.94

>>59
ステートメントというのは関数の祖先にあたる概念
コンピューター言語が発明された初期からある命令文の分類の一つ

2020/03/26(木) 10:58:51.71

馬鹿に馬鹿が答えている

2020/03/26(木) 13:11:56.44

VBAを覚えようとしてる初心者以前だが
まず何となくルールから覚えてる
=は同じじゃなくて←の意味ぐらいにとらえておく
あとはコードというか使いそうな単語を少しずつ
msgboxとかRangeとかactivecellとか
でもとっかかりがわからんわ
難しすぎですな…

2020/03/26(木) 14:44:13.99

覚えるのは結構だけど、普段やってる作業をVBAで再現するとこから始めると飽きずにやれるんじゃ

コピペ作業、シートコピー、ボタンで特定の計算とかね
だんだんCSV読みたくなったりして高速化したくなったりして、そうやって覚えていく

2020/03/26(木) 15:50:36.21

TEST

2020/03/26(木) 15:54:11.22

ユーザーフォーム上にあるボタン1を押すとボタン1を非表示にしてフォームのキャプチャを取得。
その後ボタン1を再び表示して終了。

みたいなものを作りたいのですが
SendkeyでAlt+Printscreenを送っても
素の状態ではボタン1が残った状態のものがキャプチャされ、
Waitをかけると今度は画面全体のキャプチャになってしまいます。

フォームをダイレクトに画像ファイルにする、とかでも良いのですが調べても中々応えに辿り着けなかったので皆様のお知恵をお借りしたいです。
何か良い手はないでしょうか。

2020/03/26(木) 15:56:47.70

以下RUNすると、"!ALARM()が見つかりません。”ってエラーになる。
何故ですか？

Public FLG As Integer
Private Sub CommandButton1_Click()
With Sheet1
　 Cells(2, 1) = Date
Cells(2, 2) = Time
If FLG = 1 Then
FLG = 0
CommandButton1.Caption = "ON"
Else
FLG = 1
CommandButton1.Caption = "OFF"
Call OnTimeStart
End If
End With
FLG = 0
End Sub
Sub OnTimeStart()
With Sheet1
Application.OnTime Now + TimeValue("00:00:05"), "ALARM"
End With
End Sub
Sub ALARM()
With Sheet1
Cells(2, 1) = Date
Cells(2, 2) = Time
End With
End Sub

2020/03/26(木) 17:09:13.21

すみません。
情報の伝達に齟齬がありました。
Sendkeyではなくkeybd_eventsでした。

Altのkeyeventをコメントアウトしたら何故かフォームだけのスクリーンショットが撮れました。
vbKeySnapshotはAlt+PrintScreenだったのでしょうか？

Private Sub CommandButton1_Click()

UserForm1.CommandButton1.Visible = False

'keybd_event vbKeyMenu, 1, &H1, 0
keybd_event vbKeySnapshot, 1, &H1, 0

Application.Wait [Now() + "0:00:00.5"]

keybd_event vbKeySnapshot, 1, &H1 Or &H2, 0
'keybd_event vbKeyMenu, 1, &H1 Or &H2, 0

UserForm1.CommandButton1.Visible = True

End Sub

2020/03/26(木) 17:44:04.29

MacでもVBA使えますか？

2020/03/26(木) 18:35:55.24

使えるけどwindowsと全く同じように動くかまでは知らん

2020/03/26(木) 19:05:03.32

新しい天啓が下った。私は馬鹿ですらなく、場であり、これが私の仕える神のような気がしたが違ったような気がした。
忠実に表現したらこうなった、つまりそういうことなんだろう。

2020/03/26(木) 19:41:20.92

>>66
標準モジュールに書いてるか

2020/03/26(木) 21:11:00.48

WEBクエリはhttpsだと遅いすか？
そうなったサイトが急に読み込み遅くなったんすけど

2020/03/26(木) 21:24:14.52

初心者はまずここ見とけみたいなサイトとかYouTubeの動画ありますか？
宣伝込みでも俺が踏むだけなので良かったら教えて欲しいです
本当に何から見てけばいいのかわからない
asとかretとか当たり前に出られてもわからない…

2020/03/26(木) 21:26:43.14

知らんがな入門書買え

2020/03/26(木) 22:06:31.47

>>73
動画でプログラミングを覚えるのはとても難しい
エクセルの使い方や開発環境の整備とかなら分かるけど
言語を覚えるのは本を読んでコードを書く方が早いだろう

2020/03/26(木) 22:19:37.89

>>73
https://www.sejuku.net/blog/6516

2020/03/26(木) 22:35:41.45

retって何？

2020/03/26(木) 23:38:44.50

>>75
>>76
ありがとう
とりあえず、マクロからあるURLやoffice系のソフトを呼び出すコードをネットから丸パクリしてみたんだけど結局これが良いのか悪いのかそもそもルールすらあまりわかってない
サイトや本で必死に勉強しますわ

https://i.imgur.com/Llw26vN.jpg
https://i.imgur.com/CEIjgGb.jpg

2020/03/26(木) 23:56:44.93

字で書けよ基地外か

2020/03/27(金) 00:31:59.82

図形のグループ化についてです。

ショート上に円が無数にあってその円の中にテキストがあります。

これを円と円の中のテキストをそれぞれグループ化してShapeの名前をテキスト名にするにはどうしたら出来ますか？

2020/03/27(金) 00:52:28.07

>>80
グループ化はGroupメソッドを使う
For Eachを使えば図形がいくつあっても関係なく同じようにできる

2020/03/27(金) 01:56:14.15

>>80
shapeオブジェクトでいじる

2020/03/27(金) 07:59:14.92

図形をVBAで複雑にいじろうとすると悲しみしか生まなさそう

2020/03/27(金) 14:44:48.55

Worksheets("min").Range(Cells(N, 2), Cells(N, 100)) = "999"
これで複数セルに一括入力したいのですが
アプリケーション定義またはオブジェクト定義のエラーです
と出ます。
何がいけないのでしょうか？

2020/03/27(金) 14:53:12.85

Nを定義してないんじゃない

2020/03/27(金) 15:00:54.33

cellの前にもシートがいる

2020/03/27(金) 15:04:48.30

With Worksheets("min")
.Range(.Cells(1, 1), .Cells(20, 2)) = "999"
End With

できました＾＾ありがとう

2020/03/27(金) 15:09:58.00

それでいい。

2020/03/27(金) 15:11:53.30

いえいえ

2020/03/27(金) 15:32:49.12

検索して違うシートから値を持ってくるマクロで持ってくる値が0以下（マイナス）ならば
違う列に転記させたいのですがwithエラーが発生してうまく動きませんでした。

Dim i As Long, c As Range, e As Range, wS As Worksheet
Set wS1 = Worksheets("明細1")
With Worksheets("data")
　　Set c = wS1.Range("D:D").Find(What:=.Cells(i, "B"), LookIn:=xlValues, LookAt:=xlWhole)
　　If Not c Is Nothing and wS1.Cells(c.Row, "Z").value < 0 Then ←ここでエラー
.Cells(i, "V") = wS1.Cells(c.Row, "Q")
　　ElsIf Not c Is Nothing and wS1.Cells(c.Row, "Z").value >= 0 Then
.Cells(i, "X") = wS1.Cells(c.Row, "Q")

またマイナス値をプラス値に変換したく
.Cells(i, "S") = abs(Cells(i, "S"))

としましたが小数点が消えてしまいます。
-77.00が77になってしまうのですが77.00としたいです。

2020/03/27(金) 15:39:00.45

cがnothingの時c.rowがエラー

バラせ

2020/03/27(金) 15:47:38.09

馬鹿がゾロゾロ出てくるのは何で？

2020/03/27(金) 15:50:59.76

春休みだから

2020/03/27(金) 15:54:33.36

>>91

If wS1.Cells(c.Row, "Z").value < 0 Thenでもエラーが出ます
With Worksheets("data")が邪魔をしてるとかですか？

2020/03/27(金) 17:17:35.05

"Z"で指定できたっけ

2020/03/27(金) 17:31:46.25

>>94
VBAは関数や演算子の引数は全て渡される前に値を計算するんだよ

だから Not c Is Nothing が真じゃないときは wS1.Cells(c.Row, "Z").value < 0 を評価しないように
if Not c Is Nothing then if wS1.Cells(c.Row, "Z").value < 0 then ...
としないといけない

あとCellsプロパティは見にくいんで範囲に名前つけるかテーブル化してRangeプロパティで呼んだ方がいい

2020/03/27(金) 21:24:53.87

>>92
答らえれない馬鹿以下の癖に？

2020/03/27(金) 23:01:00.96

範囲に名前はなぁ・・。
上手く使いこなせればいいが、
みんなで共有するファイルに使うと、
知らない間に#REFだらけになってるwwww

2020/03/28(土) 04:38:00.47

>>71

レスありがと

標準モジュールに書いてない。
しばらく、やってなかったんで忘れていた。
すみません

2020/03/28(土) 15:07:25.95

>>98
異常時に例外が投げられるように設計するのは普通だと思うんだが・・・

2020/03/28(土) 19:20:50.03

>>100
名前を付けるのは、コードと関係無い所で実装されるので個人的には絶対使わない。
というか、Cellsを使うよ。
2次元配列的にもぴったり来るし。
寧ろ、Rangeの方が使わない。
尤も、Cellsでも列を文字で指定するのはやらない。
AF列が何列目か分からないって?
イミディエイトで?Range("AF1").Columnとでも入れてみろ。

2020/03/28(土) 20:14:42.33

>>101
で、コメントで何列かとか、項目名とか書くわけ？

2020/03/28(土) 20:37:45.18

>>96
>>101
名前を付ける派
可読性が高い方が良い
VBAは見にくいコードが多い

2020/03/28(土) 23:45:34.04

>>101
名前定義が弄られるってことはロックしないで使うんでしょ
猶更、セル挿入なりで意図した場所とズレてても気づかずに成功し続ける方が危険だと思うんだが
で、セルを挿入したい時も一個一個数値をずらしていくの？

ワークシートの見た目が二次元配列である事とコード内容を一致させる必要性も感じないんだが、
もしかしてハードコーディングしてるのか？

イミディエイトウインドウで毎回インデックスを調べろっていうは面白すぎるから止めて欲しい

2020/03/29(日) 00:11:14.41

Shapeの当たり判定の計算方法を教えて下さい。

基準の円のShapeにTextBoxが当ってたらTrue、当たって無ければFalse
円は選択時の□の面積じゃなく実際の円の大きさ。TextBoxは選択時の□の大きさ。

2020/03/29(日) 00:41:59.73

なぜそんなことを

2020/03/29(日) 01:29:27.30

>>105
表示位置とサイズから比較したらいいんじゃね

2020/03/29(日) 01:42:07.54

当たり判定だからゲームじゃないの?
Corei世代でも60fpsでないから使いたくないけど。

2020/03/29(日) 08:29:34.23

>>105
専用の関数などは用意されてないので、TextBoxの頂点と円の座標を比較したり、円の中心からの距離を三角関数で計算して調べるしかない

2020/03/29(日) 09:06:15.85

VBAであえてゲーム作ったりするのは
芸ではあるけど開発効率的に筋は悪いよね
グラフィックにこだわるなら別言語推奨

2020/03/29(日) 19:07:35.84

>>102
普通は定数で行、列を宣言するわな。

>>103
見にくいコードは書いてる奴の力量次第だろ。

>>104
ロックはしない。
そんなもんは解除されるかもしれんし、当てにしない。
というか、作ってるもの次第だね。

ワークシートの見た目と二次元配列を一致させるとか笑わせるなあ。
少し慣れた奴なら列も数値で扱うのがぴったり来るんだよ。
何故なら、最初から二次元配列的に考えるから。

VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。
作る力量無い奴はイミディエイトで調べりゃ良いだろ。
VBEのCommandBerでイベント扱うのはクラスが必要だし、上級者の領分にはなるかもな。
VBE弄るVBAは会社じゃ使わないから通常のCommandBarでメニュー作ってやっても良いんじゃね?
どっちにしても時間は考えることに使ってるんで、毎回イミディエイトで調べても大した話じゃね―んだわ。

2020/03/29(日) 19:28:33.88

>>63
今の若いヤツらはそういう説明じゃ200％挫折する。普段の業務を自動化っていう感覚がわからないそう。やっぱスマホタブレット世代はPC=ワープロにしか思えんのかもな。

2020/03/29(日) 20:04:11.28

若いほうがわかりそうなイメージあるが

2020/03/29(日) 20:07:10.84

>>111
ロック外されたくないならパスワード付ければいいじゃん

2020/03/29(日) 20:28:31.63

>>114
パスワードwww

2020/03/29(日) 20:55:58.91

>>111
> VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。
まさか自慢じゃないよね？w
傍から見てたら馬鹿なことしてるなとしか思えんし

2020/03/29(日) 22:56:25.49

共有編集可能にしたら更新は5分間隔だけどVBAとかで1分以内にできないかな？複数のパソコンで映してる同じエクセルファイルの内容を別のパソコンから共有編集で編集して保存したら1分以内に複数のパソコンにも表示を反映させたい。

2020/03/30(月) 01:33:21.63

あ、どうせ、コピーしても意味ねぇよ。記憶してるのＰＣじゃねぇから。

2020/03/30(月) 01:33:39.62

考えまとめるためにＰＣ使ってるだけ、ただそれだけなんだよ。

2020/03/30(月) 09:44:28.26

>>116
君にできないからと言って、そんなもんが自慢になると思うかね?

2020/03/30(月) 10:45:50.00

>>96
それでも同じエラーが出ます…

2020/03/30(月) 10:57:15.53

>>120
日本語の理解力がないのかな？
自慢にもならないことをいちいち書くとかバカじゃね？
って言う事な

2020/03/30(月) 12:35:49.56

>>121
wS1.Cells(c.Row, "Z").value < 0
そもそもこれ必要？

2020/03/30(月) 13:30:25.60

いや、いらないのはそっちじゃなくて、ElseIf～のIf～Then

If Not c Is Nothing Then
If wS1.Cells(c.Row,"Z").value<0 Then
.Cells(i, "V") = wS1.Cells(c.Row, "Q")
Else
.Cells(i, "X") = wS1.Cells(c.Row, "Q")
Endif
Endif

でいいはず
エラーが出たのが実は一つ上の行で、i に代入してなかったってオチじゃないよね

2020/03/30(月) 15:51:59.33

>>122
悔しいからって一々反応しなくて良いんだぞwww