Excel VBA 質問スレ Part72

2021/07/18(日) 08:42:15.37

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/07/31(土) 01:07:37.07

配列大好きなphpにも無いし諦めて

2021/07/31(土) 02:01:59.82

numpyじゃねーし

2021/07/31(土) 02:12:54.61

ありがとうございます
出来ないんですね
私の書き方が悪くてエラーになっているのかと思っていました

演算張り付けやスピルみたいなイメージで
似たようなことが出来るのかなあと考えていました

>>356.353.352.350.347.346

2021/07/31(土) 03:57:57.92

>>358
単にお前が馬鹿なだけ
行列計算とか言ってたのならわからんでもないけど

2021/07/31(土) 07:18:03.75

>>341
Valueの概念とか謎の箱理論とかは無視していいw
>>350の言うように言語仕様としてできないだけ
RANGEじゃないけどFORTRANみたいに配列同士の演算ができる言語もある

2021/07/31(土) 07:34:59.93

rangeは範囲だから2セルの範囲に4セル分は入らない

2021/07/31(土) 09:51:11.76

念のため言っとくがイキって煽り散らしたいだけのハゲは無視しとけな

2021/07/31(土) 13:09:56.95

バカバカバカバカ言わないでよ
もっと平和的にやりとりできないの？
こんなに優れた無料の質問スレなんだから品位を保つべき

2021/07/31(土) 13:15:16.77

ならまずは>>363がドレスコードを守ってくれ

**デフォルトの名無しさん** (JP 0Hf1-IKHw) · 2021/07/31(土) 13:26:23.66

当スレは頭の寂しい方はお断りしておりますので

2021/07/31(土) 13:26:59.26

>>363
なにか勘違いしているようだ
平和とか無料とか、どこかでコストがかかっている。それは誰かが負担している
「日本の平和」はアメリカの核の傘による米軍基地がコスト
掲示板の「無料」は広告。広告が実質ない5chなら、罵倒やマウンティング好きなアホが紛れる事がコストなんだ

君は
・「重火器が飛び交う戦場で無償で敵味方にその場で教えてもらう」
って事をしているんだ
もし平和的に回答がほしいなら、先に「おもしろ画像貼りますんでなんとか解決お願いします！」
みたいにすれば色々と有線して解決してもらえるんじゃないかな

2021/07/31(土) 15:03:38.39

>>363
マウントじじいが貢ぎもの差し出せって。
でもこんな頭のおかしい連中ばかりじゃないから気にしなくていいよ。

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-LW7E) · 2021/07/31(土) 15:37:59.04

power queryがなかなか覚えられない
みなさんLETは使ってる？

2021/08/01(日) 00:37:47.31

スレ間違ってないか？

2021/08/01(日) 16:26:51.08

バカって言うヤツがバカなんだよ！

2021/08/01(日) 18:09:12.14

と、バカが申しております。

2021/08/01(日) 19:13:18.52

馬鹿ばっかりだな

2021/08/01(日) 19:46:33.48

むしろ寂しがり屋なのでは

2021/08/01(日) 20:59:52.11

ハゲばっかりやな

2021/08/01(日) 21:21:35.58

毛の話しろよ

2021/08/01(日) 22:28:03.58

不毛だな

2021/08/02(月) 01:09:21.06

そんなつもりは毛頭ないのですが

2021/08/02(月) 13:19:27.48

お前は頭髪がない

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-IKHw) · 2021/08/02(月) 13:22:42.78

俺の芋頭がこんなに頭髪ないわけがない

2021/08/02(月) 18:21:53.57

でもおまいらは禿げてるんでしょ？

2021/08/02(月) 23:15:41.33

>>358
クッソ亀だけどこれでいけない？
Range("C1:C2") = [A1:A2 + B1:B2]

2021/08/04(水) 00:57:35.42

>>370
バカって言うヤツがバカって言うヤツがバカなんだよ！

2021/08/04(水) 14:28:57.13

うるせーバカ！

2021/08/04(水) 15:03:01.69

相手を見下すというのはそれ相応の教育しかない方が行う所作であります故

2021/08/04(水) 15:54:39.96

アホだ

2021/08/04(水) 16:41:44.16

マウスで選択した範囲のハイパーリンクを自動で開きたいんですがどこを変更すればいいでしょうか？
Aにハイパーリンク　A2からA4をマウスで選択　
A1 B1 C1
A2 B2 C2
A3
A4
・
A99 B99 C99

Sub Macro1()
' Keyboard Shortcut: Ctrl+Shift+P
Dim SelectionArea As Range
Set SelectionArea = Selection
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
A5

2021/08/04(水) 17:04:08.48

>>386
SelectionのRangeをFor Eachで回してひとつひとつ開いていく
のがVBAの一般的な回答になるかと

2021/08/04(水) 17:16:32.22

変数に入れてる意味なくて草

2021/08/04(水) 17:19:31.98

>>388
変数に入れるかどうかは「わかりやすさ」が関係してくるよ
個人開発が大きいVBAでその度合いを嘲笑するのは良くないと思う

ただ、386は俺も何やってるかよくわからん

2021/08/04(水) 18:15:11.64

テーブルで、フィルタしたあとの行削除をマクロの記録でやりたいけどうまくいかない。
フィルタして出たのが1行だとうまくいくけど、複数だとエラー。

テーブルがある。ある一つの列の、特定の文字をフィルタする。(その文字がないときはマクロ押さないつもり)
その列の上の下矢印で全選択、可視セルのみ選択。タブの行削除。フィルタ解除。
この流れってマクロの記録じゃﾑﾘ？
1行
で1004エラー？

2021/08/04(水) 18:44:53.04

マクロで処理するならフィルター要らないかな
記録だけでコード書くのは無理がある処理かな

2021/08/04(水) 18:51:01.89

ムリ

2021/08/04(水) 20:15:52.27

マクロの記録だけで業務改善する職場って未来あるよな

2021/08/04(水) 20:43:15.85

未来は僕等の手の中

2021/08/05(木) 14:48:49.27

390ですがインストラクターのネタ帳ってとこの改造してみたらできるようになりました(毎回エラーでるけど成功してるので気にせず😌)。

p.s.
印刷時の見た目だけがいい、セル結合された表テンプレで作業を求められる同士が救済されますように…。。

2021/08/06(金) 16:13:36.56

ドの付く初心者です、というよりこういうのを作るのも初めてです

Findで任意の文字列が入ったセルを取得して、A1からそのセルまでを削除するマクロを作りたいのですが
Findの返り値がRangeなので削除するときの範囲指定がうまくいきません
たぶん基礎的なところを理解してないのでダメなんだとは思うんですが、とっかかりが欲しいです
お力をお貸しください

Dim rng As Range
Set rng = ThisWorkbook.Worksheets(1).Range("A1:A10000") _
.Find(What:="SUGOI", LookAt:=xlWhole, SearchOrder:=xlByRows)
これでrngに任意の文字列の座標を取得

この後ろでRange().Delete使って消したいです

2021/08/06(金) 17:02:36.53

.range（.cells（1,1）,.range（適当な範囲））.delete

2021/08/06(金) 20:18:49.98

削除して無くなったセルを詰めるのだろうか

2021/08/06(金) 20:58:11.36

マクロの記録で、、、

2021/08/06(金) 20:58:32.58

どういう範囲指定か分からんけど返り値のRange.Rowで行数も取れるよ
FindはExcel上のCtrl+Fにも影響するからForEachで検索するようになったな

2021/08/07(土) 13:00:42.96

>>397-400
皆様アドバイスありがとうございます

この土日はPCに触れられないため、助言をすぐ実践！とはいきませんが
いただいた助言、ありがたく試させていただきます

2021/08/07(土) 16:23:06.08

Range("A1",rng).clear
Deleteじゃなくてクリアしたいならこれ

2021/08/08(日) 08:21:09.95

クラスでメインコードがすっきりとしていると機能追加も楽だね

2021/08/08(日) 10:53:34.69

コード書いてる時ってどんな気分ですか？

2021/08/08(日) 10:59:34.31

パズル解いてる気分

2021/08/08(日) 11:24:54.00

めんどくせー
結果だけ欲しい

2021/08/08(日) 11:53:06.78

外注すればいいんじゃね

2021/08/08(日) 15:58:39.73

たしかにパズルだな

2021/08/08(日) 16:26:56.76

美少女パズルRPG「パズルガールズ」
https://cdn.amz.appget.com/c/wp-content/uploads/2021/07/pg_8142870_1.jpg

2021/08/08(日) 16:30:40.54

VBAなんて所詮操作の

2021/08/08(日) 16:31:53.22

失礼
VBAなんて所詮操作の自動化なんで、慣れたらパズルというより手順書書くようなもんだ
どっちかというとワークシート関数を使いこなすほうがパズル

2021/08/08(日) 23:30:31.22

ActiveWorkbookが入っているフォルダの名前の先頭に
ActiveWorkbookのSheets(1).Range("A2").Valueを付けたいです。
しかしフォルダ名の取得に失敗しています。
ActiveWorkbook.Path(フルパス)を\で区切った最後の文字列だと思いますが
もっと手短に取得する方法があったら教えてください。

2021/08/09(月) 00:14:13.54

名前分解=split（名前,"\"）（ubound（split（名前,"\"））

2021/08/09(月) 00:43:14.90

あっカッコが足りない

2021/08/09(月) 17:35:43.32

ださっ

2021/08/10(火) 18:56:58.22

FileSystemObject使えばいいんじゃね？
ファイルそのものを操作しないならちょっと面倒に感じるかもだけど

2021/08/10(火) 21:44:06.51

やや冗長だけど、fsoは使って損は無いと思う。￥とｓｐｌｉｔは頭が疲れる

Sub foo()

Set fso = CreateObject("Scripting.FileSystemObject")
Set mybook = fso.getfile(ThisWorkbook.FullName)

Set mybook_parent = mybook.parentfolder
Header = ActiveWorkbook.Sheets(1).Range("A2").Value
Debug.Print Header & mybook_parent.Name

End Sub

2021/08/10(火) 23:53:30.63

splitが楽だと思うが、、、

2021/08/10(火) 23:57:50.14

>>404
締切のある「数独」

2021/08/11(水) 02:05:15.42

>>413
ubound（split は禁じ手って言われてる

2021/08/11(水) 02:19:37.21

>>420
なんで？
同じ処理を2回やってるから配列変数に入れたくなるけど、禁止するほどの理由でもないし

2021/08/11(水) 04:35:09.41

InstrRevじゃだめなん？

**デフォルトの名無しさん** (JP 0H73-tV31) · 2021/08/11(水) 05:55:28.37

文字列として取得したいだけならまだしも、フォルダ名変えたいんでしょ？
普通にFileSystemObject使った方がいいよ

2021/08/11(水) 12:03:15.14

なんにしても、開いてるエクセルのあるフォルダの名前とか変えれんと思うのだがのう

2021/08/11(水) 12:29:18.95

フォルダ作って、開いてないファイルは移動して、開いてるファイルは新しいフォルダーに名前を付けて保存ってして、
最後に要らんフォルダとファイルを消せばリネームしたように見える(見えるだけ)

2021/08/11(水) 12:30:50.00

20180811_フォルダ名
みたいにバックアップつくル目的かと思ってた

2021/08/11(水) 13:00:28.54

リネームすらできないのに、どうやって自分自身を含むフォルダを削除できるんだ？

2021/08/11(水) 13:04:20.40

名前をつけて保存

2021/08/11(水) 13:08:03.81

非同期でスクリプトを実行してから
自分を閉じる
スクリプトの動作は一定時間スリープしてからフォルダごと削除
で、できる？

2021/08/11(水) 13:19:34.76

基本的にはそれでできるだろうけど、
権限の問題とか、ファイルがルートに置かれてたりしたときとか、考慮点はいっぱいある

2021/08/11(水) 13:24:26.65

自分が書いたコードを公開すればいいのに、みなさんよくこの質問を答える気になるね

2021/08/11(水) 15:19:39.84

そう思うなら自分が書いたコードを公開すればいいのに

2021/08/11(水) 16:01:47.79

的外れ

2021/08/11(水) 18:18:12.44

答える方もテキトーだから気にするな

2021/08/11(水) 22:13:22.02

的を得る？的を射る？

2021/08/11(水) 22:20:07.30

今は両方正解とも言われてるな

2021/08/11(水) 23:18:26.09

射的場では、景品が的です。
射貫けば、ば的が得られるのです。
というムチャクチャな言い訳で、得るもOKになったらしいですぞ。

2021/08/11(水) 23:51:27.40

教養ないやつのせいで誤用が標準化されるのか

2021/08/11(水) 23:57:08.62

「新しい：あたらしい」
も、
元々は「あらたしい」が正しい
今更これに対して教養がどうとか思わんでしょ。そのうち慣れる

2021/08/12(木) 00:28:12.75

「全然」の用法は一周して元に戻ったけどな

2021/08/12(木) 00:36:07.89

>>439
新しいは、英語の不定冠詞が母音の前で変化するのと同じで、単純に言いにくいからですよ。
当然の成り行きなんです。
翻って的を得るは、小賢しい屁理屈じゃないですか。

2021/08/12(木) 00:44:37.62

>>441
さすがにあの言い訳は後付だろう
みんなが間違えてるけど意味が通じるからok

2021/08/12(木) 00:46:04.06

いや、それも
「をいる」
より
「をえる」
のほうが言いやすいからと解釈できますよ
「い」は口を横に広げないといけないかど
「え」ならそれほど広げる必要もなくその後の「る」にも移行しやすいからね

2021/08/12(木) 01:26:40.50

「こんにちは」と書いて「こんにちわ」と発音するのも、knifeをナイフと読むのも、言いやすいように変化しただけ
言葉ってのはそういうもん

2021/08/12(木) 01:30:00.55

>>438
世界中の言語、習慣、伝統や文化のほとんどは、教養のないやつが作り上げた物なんだぜ

**デフォルトの名無しさん** (JP 0H73-tV31) · 2021/08/12(木) 02:58:07.28

的もらえたとして、もらうやついるの？

2021/08/12(木) 07:17:08.83

>>446
縁日の射的

2021/08/12(木) 08:25:03.59

じゃあknifeは昔
クゥナイフとか言われてたのか

**デフォルトの名無しさん** (JP 0H85-NW/4) · 2021/08/12(木) 09:03:50.69

>>448
そうだよ
発音しない子音は口を動かすのが面倒で言わなくなっただけで、間違いがどんどん定着してった

**デフォルトの名無しさん** (ｽﾌｯ Sd33-Lto6) · 2021/08/12(木) 09:08:47.23

「延々と」を「永遠と」と書いたり言ったりする間違いが増えてて気になる

2021/08/12(木) 10:25:30.66

スレと全く関係ない話で

2021/08/12(木) 10:31:28.13

fightとかどう読んでたんだよ
ファイグフトかよ

ハードルが敷居に変わりつつある
フンイキがフインキに変わりつつある

2021/08/12(木) 11:06:43.36

>>452
そのとおり。昔は全て表記通りの発音だった。
欧米圏内は色々な言語が複雑に混じり合った経緯があるので、「なんで？」と考えるとキリないぞ

更に言うとネットやテレビが台頭してからは言語は固定されるだろう、と学者は予想していたけどあんまりそうでもないようだ

**デフォルトの名無しさん** (ｽﾌｯ Sd33-Z6Ah) · 2021/08/12(木) 11:29:35.78

ネットで声の大きいバカが目立てるようになったおかげで、間違いの広がる速度がむしろ加速してる
ウィルスやワクチンの誤解もひどいもんだし

2021/08/12(木) 11:32:55.00

あの…VBA…