Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けるナリ

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

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

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

2022/02/19(土) 17:37:22.02

>>155
それ俺なんだけど、
・「=」の売り間違えが嫌い
・「+」は絶対に打ち間違えない
ので、
数式は
+A1-B1
と入力してる
excelの仕様上、+で始まっている数式には更に＝が追加される模様

2022/02/19(土) 17:56:27.92

世の中に絶対など無い・ある　どっち？

2022/02/19(土) 17:59:47.25

ない

2022/02/19(土) 18:11:04.25

たまに+で入力している人見るから。ちょっと思い出して

**ハノン** ◆QZaw55cn4c (ﾜｯﾁｮｲ 6f66-864q) · 2022/02/19(土) 18:48:24.57

>>148
私はドロップボックスに RCS のレポジトリを置いていたのですがユーザー認証が厳しくなったときにレポジトリ全部がおじゃんになってしまいました、これは痛い、痛すぎる…
もう懲りてバージョン管理システムを使わなくなってしまった…

そろそろ git をはじめようかと思案中です

2022/02/19(土) 18:58:23.53

絶対など絶対にない！

2022/02/19(土) 21:45:46.48

絶体絶命でも死なない

2022/02/21(月) 01:45:01.56

絶対領域ならある

2022/02/21(月) 02:37:10.15

絶対可憐

2022/02/21(月) 02:52:14.84

絶対音感の自分が通りますよ

2022/02/21(月) 06:15:17.92

絶対運命黙示録

2022/02/21(月) 08:43:58.11

絶体絶命

2022/02/21(月) 09:01:35.23

絶対なんて言葉、VBA上では絶対値くらいちゃうの？
複数Shape並べる時とかの座標を絶対値にするかLoop中の計算追い寸にするかいつも迷う

2022/02/21(月) 10:12:19.05

絶対参照⇔相対参照ってのもあるぞ
現実に「絶対」はないとされてるけど、コンピューターの世界では割とよく出てくる言葉の一つ

2022/02/21(月) 13:18:00.34

>>169
その絶対は意味合いが違うと思うぞ

2022/02/21(月) 13:31:12.92

絶対零度を超えると時間が巻き戻るからな

2022/02/21(月) 13:49:17.52

絶対値、絶対音感、絶対領域は形容詞
絶対参照、絶体絶命は形容動詞

区別する方法は、後半が動詞になるかどうか、つまり「参照する」「絶命する」はあるけど「音感する」「領域する」とは言わない

2022/02/21(月) 14:04:18.08

>>169
言葉や概念としての「絶対」があるかといえばある

2022/02/21(月) 14:40:29.16

>>172
なぜ有能がここに迷い込んできたのか

2022/02/21(月) 14:41:00.68

>>172
すごい（語彙）

2022/02/21(月) 16:13:18.73

全部名詞やん

2022/02/21(月) 20:31:11.80

絶対に負けられない戦いに負けたらどうなる？

2022/02/22(火) 00:40:55.58

それが今の日本です

2022/02/22(火) 16:24:40.19

Excelコンテストで勝つ！

2022/02/22(火) 16:51:35.21

なんぞ？　と思ったら一昔以上も前のぢゃねーか！
https://xtech.nikkei.com/it/pc/article/knowhow/20090109/1011183/
こういうことやり続けてきたから間違ったExcelerが繁殖しちまったんぢゃねーのか？
なあにが　営業成績表彰システム　ぱかぱかだっつーの　　遊んでんぢゃねぇよ！

2022/02/24(木) 14:20:26.28

同じpcに開かれている別のエクセルのプロシージャを実行することてできる？

2022/02/24(木) 14:23:40.68

同じプロセスなら普通にできるだろ

2022/02/24(木) 18:15:16.40

普通のExcelの質問していいですか？

2022/02/24(木) 18:16:27.79

どうぞ

2022/02/24(木) 18:33:03.41

ありがとうございます！
日付だけを縦にずっと入力していくのですが、じょうごマークで絞り込みを開くと
「2022年」「1月　2月…」とあり、「1月」の「+」マークを開くと更に日付が「1日　2日　3日…」と
入力したものがでてきますよね。その「+」マークを開かなくても2022年と同じ左詰めで「1月3日」というのがあって
1/3だけ半角で何度入れ直しても「2022年」「1月」の中に入らないんです。
しかも「1月」の「+」マークを開いても「3日」があり、絞り込むと左詰めの「1月3日」と同じ項目が出てきます。
意味が分からなかったらすみません。分かる方いらっしゃったら教えてください。

2022/02/24(木) 18:48:46.05

>>185
文字列になっている
・他の日付セルをコピーして、その左詰め1/3に貼り付け
・もう一度2022/1/3と打ち直す
それでもう一度試すとどうなるか

2022/02/24(木) 20:31:45.10

>>185
スレタイ読め
消えろ

2022/02/24(木) 20:51:03.24

うーわ！　余裕無えー　よっぽどストレス溜まってんだなあ　追い詰められてんだろうなあ、社内で

2022/02/24(木) 21:02:21.44

>>186
おおおー！文字列になってるんですね、なるほど！明日会社でやってみます！
ご親切に教えていただきありがとうございました。

このスレの方すみませんでした。ありがとうございましたm(_ _)m

2022/02/24(木) 21:22:25.12

>>187
おまえなんか話題振れよ

2022/02/24(木) 22:13:31.53

さっき電車の中で向かいに若い女性の二人組が座っててさあ

2022/02/24(木) 23:52:39.32

>>188
リアルすぎて草

2022/02/25(金) 03:22:55.08

それで2人の会話を盗み聞きしたらさー
「職場にExcelマニアいるけどキッショいよねーwww」って言っていたよ～

2022/02/25(金) 14:17:15.60

そして、Excelマニアが退職したあと、Excelが壊れたとマニアに鬼電するまでがテンプレ

2022/02/25(金) 17:06:35.52

Excelマニアってなんぞ

2022/02/25(金) 21:30:18.25

関数式でif文書くだけでExcel詳しい人扱いされる国

2022/02/25(金) 22:44:14.64

シートに写真をおいて，そこにマクロを登録するのですが，
クリックしている間は処理を継続させるようにするにはどうしたら良いでしょうか？

2022/02/25(金) 22:51:14.84

アルミ箔とリード線使うといいんじゃないか？

2022/02/25(金) 23:08:55.89

イベント時で MouseOver とかか　クリックし続けって無かったような　MouseMove だっけ　なんかその辺

2022/02/25(金) 23:33:04.48

Excelはマニアで済むけれど
Rubyなんて宗教だもんな

2022/02/26(土) 00:20:17.83

単なるあだ名だろw

2022/02/26(土) 03:20:22.62

お前はカルメンか

2022/02/26(土) 07:13:12.65

>>200
rubyが宗教って言われるのはrubyの製作者が熱心なクリスチャンだからだよ
まさかガチの狂信者が出てくるとは思わなかったが・・・ｗ

2022/02/26(土) 10:24:59.15

>>199
ありがとうございます！

2022/02/26(土) 18:17:50.12

Excelマニアとデータ分析マニアは違うみたいね

2022/02/26(土) 18:30:22.44

>>205
「分析」が「統計」だとすると、
最終的に中間処理やアウトプットはExcelでなくてRなんかに行っちゃうかも。
Excelは統計関係の関数がアレだし。

2022/02/26(土) 19:53:05.77

それでも昔からみんなExcelで無理してきた感

2022/02/26(土) 20:05:05.05

そこでPython

2022/02/26(土) 20:10:28.10

言語ならRやPython
パッケージならSPSSやSAS

2022/02/26(土) 20:19:26.32

今思えば256列の60000行でよくやってこれたなと思う

2022/02/26(土) 20:43:17.30

今でも256列や60,000行を超える処理ならDBMSにするわ

2022/02/26(土) 21:51:16.00

ワークシートに読込ませず、
Power Queryの「接続」(他所からクエリー)だけにしておくと
行数最大：1,048,576行
列数最大：16,384列
まで扱えるみたいだけど、なんか別の入れ物は必要・・・

Accessを入れ物にしようとすると
テーブルはフィールド数最大255、
行数はファイル全体で2GBまでということか。

2022/02/26(土) 22:05:30.45

Pythonは途中から
数学で出てくる数式が分からないとキツくなるからちょっと保留してRust

2022/02/26(土) 22:10:39.56

理系向きなのね？

2022/02/26(土) 22:16:53.94

営業でも重回帰分析だの相関係数だのやってるところもあるから・・・
統計に使う数学は
もはや文系/理系に関係ない時代の模様

2022/02/26(土) 22:23:53.97

ID:ZAxvZ+Mc0

また知ったか馬鹿か

2022/02/26(土) 22:31:17.36

平均とグラフが作れればうちの所は余裕だ…

2022/02/26(土) 22:35:46.73

>>216
知ったか？
そうかね？
デカいデータを四則演算だけで済ませられるのは
財務会計くらいやん。

2022/02/26(土) 23:12:20.49

ダントツで扱い易いのは偏差値かな
相対的な指標としては良く使う

2022/02/26(土) 23:12:53.14

って営業は作らんやろ
さすがにそこは営業事務が作ってあげると思う

2022/02/26(土) 23:51:35.28

>>218
言い訳すればするほど馬鹿さらけ出し

2022/02/27(日) 00:09:08.97

うちの営業はExcelの使い方すら知らん
Excelなんて使わないよなー、Wordの方が使うわって会話聞いて戦慄した

2022/02/27(日) 03:40:18.89

Executeexcel4macroでwindowsapiを使う場合、
戻りがオブジェクトだったらどうするの?

2022/02/27(日) 03:54:20.37

祈る

2022/02/27(日) 06:03:46.97

>>223
どうするもこうするも、setして使うしかないじゃろ
以下だってsheets関数に引数1入れて、sheetオブジェクトが返ってきてるわけだし、同じです
Set ws = Sheets(1)

2022/02/27(日) 06:07:27.75

>>223
おまえが作ったコードは見たくないな

2022/02/27(日) 06:10:51.70

>>226
まぁまぁ・・・
setは最初はとっつきにくいので・・・

2022/02/27(日) 07:03:43.76

そうじゃなくて2JNとか指定するやつ。
オブジェクトが無くて絶望的なんだけど。

2022/02/27(日) 07:22:28.14

>>228
あぁHWNDとかの奴か。ごめん、これは昔諦めた。他の人お願い。
やりたいことを先に書けば、それっぽいコード書いてくれる人がでてくるかも

2022/02/27(日) 11:02:51.91

すみません。　半日つぶしてもできない。ダメ男です
なんとか協力してもらえませんか？
単純に「特定文字」のある行を削除したい（その行をその下の行の二行削除したい）

'まず、獲得ポイントを削除
Dim row_po As Long

row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row

Range(Rows(row_po), Rows(row_po + 1)).Delete

この書き方でとりあえず消えるのですが、[ 獲得ポイント ]が無かった時にエラーになり止まってしまいます。
で、スルーしてほしいのですが、なにをやってもスルーしてもらえません。
なにもしないことがこんなに難しいとは思いませんでした。
ほっといて欲しいだけなのに

どうするとアホでもわかりますかね？

2022/02/27(日) 11:09:42.41

On Error Resume Nextを頭に入れるだけ

2022/02/27(日) 11:27:49.32

>>230
Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
Else
'ここに見つからんかったときの処理
MsgBox "見つからんかった"
End If

End Sub

>231
それやると今度はrow_po でエラーが起きる可能性絶大

2022/02/27(日) 11:30:41.33

>>231
おおお神よ
なぜあなたは神なのか
私は知恵熱っぽくまでなったのに
ちなみに検索するとエラーが全部キャンセルされるみたいなんですが、一応範囲を決めるとして

'まず、獲得ポイントを削除
On Error Resume Next
Dim row_po As Long

row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row

Range(Rows(row_po), Rows(row_po + 1)).Delete

On Error GoTo 0

で大丈夫な感じですか
動作はしました。（他の命令のエラーはちゃんと出るかな？と）

2022/02/27(日) 11:31:51.84

>>232
あれ？　まじですか
ちょっとわからない

ちなみにMsgBox を出したくないんです。
そのままスルーしてほしいのです

2022/02/27(日) 11:40:19.04

>>233
onerrorはなるだけ使わない方が良いと思う。俺は使わずに書いてるよ
>>233でもいいけど、なるだけ少ない方が後々の変更が楽になる

Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
End If

End Sub

2022/02/27(日) 11:42:39.74

>>234
動いたんならまず一旦良しとしていいと思う
良いやり方が他にもあるから今後更に知識が付いたその時に改良していけば良いさ

2022/02/27(日) 11:53:19.82

どうもありがとう

ただ、なんかわからないのだが、ほかの所がエラー吐いてしまっています。
ちょっと死にそうですが、悩んでみます。
多分、また来ますw

2022/02/27(日) 12:19:45.80

どうぞ～がんばって～

2022/02/27(日) 14:32:58.22

>>235
おま、これすごい

これにしてみたら他に出たエラーもピシっと消えた
On Error　は動いたけど、イレギュラーなパターンだとなぜか他でエラーになった
これも試したらイレギュラーでもバッチり

つーか、俺が昨日の夜中からずううとやっていてもこんなの作れないありがとう
ホント君らすげーよ
これ作るのに寿命を迎えるレベルだわ

2022/02/27(日) 14:49:32.88

>>239
笑った
影響が最小限になるように、ちゃんと書く方が楽なんだよ
onerrorとかですっ飛ばすと、後で余計に大変になる

2022/02/27(日) 17:57:55.85

関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
知人が、「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」とか言い出しているから

2022/02/27(日) 18:04:55.19

VBAなら関数って自作が基本じゃないの？知らんけど

2022/02/27(日) 18:06:25.05

>>241
＞関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
ないよ

2022/02/27(日) 18:28:40.28

https://forest.watch.impress.co.jp/docs/news/1293471.html

2022/02/27(日) 18:34:38.78

そら作れば無限に出来るわいな

2022/02/27(日) 18:39:37.90

>>241
EXCELが（凄く）できる人かEXCELが（初心者だけど）できる人では違うんじゃね

2022/02/27(日) 18:47:42.24

>>241
その知人に認めたくない人がいてExcelできる人で通ってるけど
関数はマスターしてないから言ってるだけ説

2022/02/27(日) 18:50:42.59

知ってる関数の数なんて誇る奴がいたら失笑もんだわ

2022/02/27(日) 18:55:10.53

標準の関数は少ないよな
俺はSUM CONCATENATE IFくらいしか覚えてない（ヘルプが必要）がその知人よりは多分出来ると思う

2022/02/27(日) 18:58:34.59

>>247
多分合ってるんだろうけどメッチャ理解し難いぐちゃぐちゃ関数式の様な日本語

2022/02/27(日) 19:18:55.52

>>241
その知人が馬鹿なだけだぞ

2022/02/27(日) 19:50:11.71

知人ぼろかすで草

2022/02/27(日) 19:54:03.00

Excelにどんな機能がある＝関数
ってしかいえない人の戯言では

2022/02/27(日) 20:40:55.89

>>241

If 友人が「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」と言った　then
　　throw 友人　どこか
End If

以下正常処理

2022/02/27(日) 20:51:03.99

If 友人が Then
　Yo! Yo! ﾁｪｹﾗYO!
　Go To YoYo
End If
YoYo:
Oh! Oh! 皆で楽しくﾁｪｹﾗYo!