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/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…

2021/08/12(木) 11:37:28.29

言葉の変化を認めないやつはRight関数も500年前の発音でアルァイギーエッテー関数と読めよ

**デフォルトの名無しさん** (JP 0H85-Z6Ah) · 2021/08/12(木) 11:39:34.06

次の質問どうぞ

2021/08/12(木) 12:31:29.35

ファンクション(Function)
↓
ファンスウ
↓
ハンスウ(函数)
↓
カンスウ(関数)

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

万葉仮名も太古の昔はそのまま読んでたらしいしな

2021/08/12(木) 15:14:57.51

ナイフはそのうち
「ナイ」になるのかな

2021/08/12(木) 15:16:18.65

サイフはサイか
日本語やんけー

2021/08/12(木) 15:21:53.11

>>454
ネットは大分マシ。すぐにそれは変ですよって指摘できるからな
昔は大名が変な言い間違いをしていたらそれが臣下に広まって、地域一体のおかしな方言になった
ワクチンの誤情報もネットがなかったらもっとひどいことになっていただろう

2021/08/12(木) 17:42:00.13

ひとのコードにケチをつけるつもりはまったくないけど
上にあった「名前分解=split（名前,"\"）（ubound（split（名前,"\"））」ってのを実際に書きたい場合
自分は他人が見る見ないにかかわらず「a = split（名前,"\"）」と「名前分解=a(ubound(a)）」の
2行に分けるような感じで書いてるけど1行にする人がおおいのかね？

2021/08/12(木) 17:53:53.44

そっちのほうがいいね

2021/08/12(木) 18:01:08.04

1ヵ月後の自分は他人なので…
丁寧に書けるなら絶対その方がいい

**289** (ｽﾌｯ Sd33-RGvM) · 2021/08/12(木) 18:29:35.92

前スレ848です
最後の報告です
スレ汚しすいませんでした

その後
マクロ廃止後業務量が増えまくってあほがヒステリーを起こし
スラックで延々とケンカを売られ続けた
あまりにもブーメランを投げてくるので華麗に避けてたらあほ激怒
仕事を辞めると言い出した

課長はその言葉お嬉々として受け止めていた

結局のところ仕事が終わらず、マクロを使うことになったよ

あほが辞めるのは嬉しいけど、本当に自分が正しいのかよくわからなくなり
ちょっと鬱気味になっている

結論はマクロお人に共有すべきじゃなかったと思う

2021/08/12(木) 18:58:40.91

>>466
もうvbaと関係ないからこなくていいよ
そんなにリアルでかまってもらえないの？w

2021/08/12(木) 19:09:35.66

>>466
本当にお疲れ様
むしろそのあほを辞めるように持って行った功労者ｗ

>>467
上の流れには突っ込まずそれかｗ

2021/08/12(木) 19:30:26.41

>>466
お疲れ様
あんまり気にしすぎるなよ？
もっと肩の力抜いてこうぜ

2021/08/12(木) 19:36:16.05

>>466
死ねよ

2021/08/12(木) 19:43:55.65

>>468
>>451は自分ですよ

2021/08/12(木) 23:17:39.27

>>466
いつもの流れだから気にすんな

2021/08/13(金) 02:15:07.67

>>466
まだ終わってない

2021/08/13(金) 03:37:00.81

>>466
こういう人ってたかがマクロを少し作れるだけで自分が会社を経営してると思い込む馬鹿ばっかだよ

2021/08/13(金) 09:23:59.80

すみません
VBA初心者です
下記プログラムはB１とB2に任意の数値を入れると
A5～A100に数値から数値の間の数字が打ちあがります
一度入力したら２回目はA5からA100の数値を手動で削除
しなければなりません
B1に数値を新たに入力したら自動でクリアされれば
手動で削除しなくていいのですがコードが書けないで困ってます
どなたか詳しい方いましたらご教授ください

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$B$2" Then Exit Sub
If Range("B1").Value = "" Then

Exit Sub
End If
Range("A5:A100").Clear
Dim cnt As Long
Dim i As Long, j As Long
j = 0
cnt = Target.Value - Target.Offset(-1).Value
For i = 5 To cnt + 5
Cells(i, 1) = Target.Offset(-1).Value + j
Cells(i, 1).NumberFormatLocal = "@"
j = j + 1
Next i
End Sub

2021/08/13(金) 09:29:56.69

>>474
噂の同僚もこんなこと言ってそうだな

2021/08/13(金) 09:40:28.79

VBAで数値計算をやらないといけないから、VBAの仕様を一通り学ぼうと思って書籍で勉強しているんだけど、
VBAで数値計算する意味がわからんわ

VBAで数値計算するメリットってファイルの入出力くらいしかないだろ・・・