Excel VBA 質問スレ Part76

■ このスレッドは過去ログ倉庫に格納されています
2022/05/01(日) 02:23:41.78ID:2t63WK/jM
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2022/05/29(日) 12:08:27.47ID:+JwoCmYYD
そこマウント取ってどうするの？って話題で盛り上がるよねこのスレ
2022/05/29(日) 12:18:30.79ID:6qc9k+Up0
質問スレなんて基本的に初心者の来る場所なのに、そこで初心者はマクロ使うなと言われてもね
304デフォルトの名無しさん (ﾜｯﾁｮｲ 915f-yO3c)
垢版 |
2022/05/29(日) 12:25:41.24ID:G+XUYeIa0
VBAがExcel内の機能しか扱えないよう制限された設計になってるのならわかるが
実際にはファイルやデータベース操作、
やろうと思えばHTTP通信やUI Automationだって「できてしまう」以上、
危険な挙動は常に発生しうるでしょ
2022/05/29(日) 12:29:48.36ID:Orp1XQOd0
表の左にラジオボタンを配置、表をリボンのフィルタ機能で絞り混むと、ラジオボタンが大集合してしまう。
これを何とかしようとセル移動しても一緒に移動しない設定にしたら今度は絞るとラジオボタンが残ったままになる。

フィルタで絞ったところの左のボタンだけ表示させる方法教えてください。
2022/05/29(日) 12:30:57.02ID:+JwoCmYYD
しうるから使うなではなく、
使うなら気を付けろでいい話でしょ
本人のやらかしの責任を負うわけではないんだしさ
なんならVBAもしくはム全般でのやらかしスレでも作ってそこでやる？
2022/05/29(日) 12:36:51.39ID:+JwoCmYYD
>>305
ここで聞くとスレタイにちなんだ回答になるけど良い？
2022/05/29(日) 12:50:30.05ID:Orp1XQOd0
>>307
先生お願いします！
2022/05/29(日) 13:49:12.25ID:82tDbVM80
>>303
何という結論 笑
2022/05/29(日) 14:16:13.78ID:43IRGv4Ka
てか、初心者云々は別にしてマクロ書かない人が来るスレじゃないでしょ
2022/05/29(日) 14:22:21.96ID:Tyr7S/P60
どんな層がきてるのかな？
事務員さんばかり？
312デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm)
垢版 |
2022/05/29(日) 14:27:51.93ID:Ocf930r70
ハゲて層な人かへ来ています
313デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm)
垢版 |
2022/05/29(日) 14:28:07.01ID:Ocf930r70
ハゲて層な人が来ています
2022/05/29(日) 14:47:38.40ID:tM27peK8d
むしろ剛毛で困ってるstep 3でdeleteしたいわ
315デフォルトの名無しさん (ﾜｯﾁｮｲ 934f-XmKI)
垢版 |
2022/05/29(日) 18:08:08.67ID:Mw5w5FDK0
>>301
そうか
破綻したブラック企業に勤めているのか
大変だな
2022/05/29(日) 18:28:41.40ID:hxkiJ2jHa
>>315
もう定年退職したけどうちの会社は普通に存続してるけど？
いろいろな部署があることも知らないとか零細にお勤めなのかな？w
2022/05/29(日) 18:47:14.53ID:Tyr7S/P60
禿と白髪だらけってどっちが印象悪い？
318デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm)
垢版 |
2022/05/29(日) 18:53:36.06ID:Ocf930r70
ハゲです
319デフォルトの名無しさん (ﾜｯﾁｮｲ b902-CQbZ)
垢版 |
2022/05/29(日) 19:01:01.21ID:5/KWOkVq0
>>317
眉毛なし
2022/05/29(日) 19:43:11.20ID:EFc1zn8HM
エージェント47の見た目が悪いようには見えないからハゲはセーフです
2022/05/29(日) 20:10:27.98ID:AWvveSwHa
それはいつもの「ただしイケメンは除く」って奴だからお前らはアウトだよ
2022/05/30(月) 08:08:23.93ID:OyYzutpm0
白人様ならスキンヘッドが似合うから許す
2022/05/30(月) 08:22:04.62ID:5eMIb3Vrd
イッピーカイエー、マザファッカー
2022/05/30(月) 08:49:54.54ID:6bPCzkava
Excelできるヤツは禿が多い噂
2022/05/30(月) 10:02:36.84ID:9WWLvtDBM
なんでわかった？
2022/05/30(月) 10:14:24.43ID:Yd1KWPfN0
……君のような勘のいいガキは嫌いだよ
2022/05/30(月) 10:46:02.07ID:111npCAX0
ハゲに関する英国法廷の判決と
Calling a man ‘bald’ is sex-related harassment, employment tribunal rules
(男性を「ハゲ」と呼ぶのはセクハラ、雇用法廷の裁定)
https://www.theguardian.com/world/2022/may/13/calling-a-man-bald-is-sexual-harassment-employment-tribunal-rules

米イェール大法学部教授の反論
It’s Not Sexual Harassment to Call Someone ‘Bald’
(誰かを「ハゲ」と呼ぶのはセクシャルハラスメントではない)
https://www.bloomberg.com/opinion/articles/2022-05-17/calling-someone-bald-is-not-sexual-harassment

後者の日本語訳論
https://courrier.jp/news/archives/288609/

スレチ、お粗末。
2022/05/30(月) 11:31:07.50ID:pTyzyEGo0
ユーザーフォーム上のボタンをクリックすると、

Private Sub CommandButton1_Click()

End Sub

のように挿入されますが、この挿入位置には法則性はありますか？
2022/05/30(月) 12:13:30.87ID:OyYzutpm0
じゃあ今度からこのスレのみんなの事を禿って呼んでええか？
2022/05/30(月) 12:20:22.39ID:wDXjGZuh0
俺はExcel全然できないんだけど
2022/05/30(月) 12:20:41.12ID:Yd1KWPfN0
毎回豊田真由子口調で言うなら許す
2022/05/30(月) 13:30:00.03ID:0Z9/8mJh0
>>328
自分で試すことってできませんか？
2022/05/30(月) 14:03:07.86ID:OgQlhvU6M
この、は♥げ♥
2022/05/30(月) 14:03:43.38ID:OgQlhvU6M
>>328
あります
335デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm)
垢版 |
2022/05/30(月) 16:13:01.26ID:ytFfApAu0
STAP細胞はありますか？
336デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-2OYr)
垢版 |
2022/05/30(月) 16:27:46.26ID:Z6OL71NLa
>>330
https://www.youtube.com/watch?v=VctFTEm1XTE
2022/05/30(月) 19:45:13.20ID:pTyzyEGo0
何か変な奴が増えたな。
前はまともな回答が得られたんだけど。
無職か
2022/05/30(月) 22:28:34.36ID:U5Ze+/Ia0
このハゲー
2022/05/31(火) 05:25:49.12ID:qZPc3K6R0
この禿げぇぇぇ！！
2022/05/31(火) 12:16:40.12ID:e8W8kp4L0
剃ってますが、何か？
2022/05/31(火) 15:23:45.24ID:qZPc3K6R0
ツルッツル！
2022/05/31(火) 17:25:59.49ID:1k2p4OCO0
頭が守られなくなるから剃らない方がいいのに
2022/05/31(火) 23:09:32.48ID:rnWQ7LEg0
サマータイムめんどくせぇな…
今サマータイムかどうか表示したいんだけど誰か式作って笑
VBAでも数式でもどっちでもOK
2022/05/31(火) 23:14:34.97ID:0qvYGG5m0
サマータイムは国によって違うし年によっても違う
あと自分で作らなくてもあるからぐぐれ
2022/06/01(水) 10:31:55.12ID:LqJbFkjG0
ググるでググれ
何回言われたか
2022/06/01(水) 18:42:16.08ID:4MDL/f8zd
2022年のサマータイムはいつから？ 【開始】2022年3月27日（日）午前1時 → 午前2時へ1時間進める【終了】2022年10月30日（日）午前2時 → 午後1時へ1時間戻す（遅らせる）※スイスはUT1の国なので、上記時間にプラス1時間足した時間を基準とする。

ぐぐったらこれがでてきたからこれで計算すればいいのでは
2022/06/02(木) 01:00:25.06ID:ww3inSB20
VBAでやる意味がわからん
348デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-G2Bm)
垢版 |
2022/06/02(木) 11:08:01.45ID:MPFVtYTLa
>>342
+1

いろんなものにぶつけやすいよなωωωωωωωωω
349デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm)
垢版 |
2022/06/02(木) 13:37:12.88ID:wjg1CkCV0
会社ではVBAしか使わしてくれんのじゃ。
アルツハイマーでもこれくらい分かる。
2022/06/03(金) 01:37:10.45ID:d1WjLs5X0
時刻の書かれたセルの編集するのか？
351デフォルトの名無しさん (ｽｯﾌﾟ Sdb3-95+F)
垢版 |
2022/06/03(金) 02:52:19.32ID:mOQ1024Gd
>>350
その程度の発想しか出来ない人は書き込みしなければいいのに
2022/06/03(金) 05:47:43.61ID:d1WjLs5X0
>>351
自力でサマータイム求められない奴に言えよ
2022/06/03(金) 07:19:45.45ID:XQuJ+afhD
>>352
このスレの多くの人が当てはまってしまう
2022/06/03(金) 11:29:40.66ID:pHjmbkhpM
夏が来れば思い出す
2022/06/03(金) 15:31:03.54ID:726WZH160
サマーソルトキック
2022/06/04(土) 05:59:25.84ID:nF/95LMud
海外ネトゲでサマータイムに苦しめられてるから
VBAじゃないけどC#でちっこいの作ったわ
2022/06/04(土) 06:14:22.15ID:nF/95LMud
Application.OnTime　使えば、一分ごとに表示変えるとかできるね
あとは面倒だけどサマータイムに入る日時と出る日時計算する関数作って・・と
2022/06/04(土) 07:08:46.25ID:wpuL0IDQD
サマータイムこれから実装なんて何回車輪の再発明するつもりだろう
2022/06/04(土) 14:35:11.71ID:2NGB/tgF0
>>356
やってることruby厨と一緒だな
2022/06/04(土) 15:02:27.19ID:a2v34LYj0
VBAで自分自身のファイル名を持ってくる場合て、
エクセルVBAなら
Debug.Print ThisWorkbook.Name
パワポVBAなら
Debug.Print ActivePresentation.Name
だけど、
そもそも自分がエクセルなのかパワポなのかを判断することてできる。ActiveDocument
2022/06/04(土) 16:08:31.18ID:a2v34LYj0
Excelとワードで同じVBAを流してみたんですが、挙動が異なる。
これってバグ？
https://i.imgur.com/oKs1K0l.jpg
office2013です。
Set myDocument = ActiveDocument
'Set myDocument = ActiveSheet
x = 110: y = 10: r = 100: h = 100
a = 0.3
Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y + r * (1 - a), r, r * a)
With shp
.Adjustments.Item(1) = -180
.Adjustments.Item(2) = 180
.Line.DashStyle = msoLineDash
.Line.Weight = 2
End With
Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y, r, r)
With shp
.Adjustments.Item(1) = -180
.Adjustments.Item(2) = 180
.Line.DashStyle = msoLineSolid
.Line.Weight = 2
End With
2022/06/04(土) 16:13:58.10ID:tUjUVaiz0
>>361
単に円の中心をどこにおいて描画するかって違いでしょ
仕様としか
2022/06/04(土) 18:56:04.34ID:a2v34LYj0
>>362
確かに違う。
でも、なぜWordとExcelで仕様を変える必要がある？
どっかに明記してあったけ？
2022/06/04(土) 19:07:16.56ID:tUjUVaiz0
>>363
考え方が逆
エクセルとワードのオブジェクトが全然別物なのに、vbaのコードが似てる事が奇跡なんだよ
俺からすれば、よくぞ無修正で動いてるなってのが素直な感想。結果が同じなんて微塵も期待しない
エクセルvbaをワードvbaに移植しようなんてそもそも思わない
2022/06/04(土) 21:44:29.71ID:a2v34LYj0
>>360
自己解決した。
Application.Caption
でなんとなくわかる
366デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/04(土) 22:59:19.25ID:6tY8trDcd
>>365
馬鹿は日記を書くな
Application.Versionだろうが
2022/06/05(日) 00:15:07.27ID:LBKd1m9qd
ファイル名がわかってるんなら拡張子を見れば？
368デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-QyWa)
垢版 |
2022/06/05(日) 05:39:30.94ID:exW/DWN40
どっちも極端
Objectが別物だって理解していれば
使い回しが効く部分は使いまわせる
EXCEL VBAの使える部分をACCESSで使ったり
VBSの挙動確認のためにEXCELのVBAに
落とし込むなんてザラにあること。
2022/06/05(日) 06:24:20.21ID:VDGjTDhq0
>>366
バカはお前だろ。
Application.Versionで何が区別がつく。
全部同じ値だ。
2022/06/05(日) 07:45:08.95ID:vTlNlLry0
バカって言う方がバカなんですーの典型的な例
371デフォルトの名無しさん (ﾜｯﾁｮｲ 892f-M86+)
垢版 |
2022/06/05(日) 09:11:03.70ID:VKHbv3il0
ハゲって言う方がハゲなんですーもよく当てはまる例
2022/06/05(日) 09:42:13.57ID:GrqOyp5w0
いいから仲良くしろください
2022/06/05(日) 10:32:25.90ID:5rczsPhbD
セルの書式を配列に保存しておきたい場合、
Rangeオブジェクトの配列を使わなきゃダメですか
2022/06/05(日) 10:55:59.24ID:vTlNlLry0
設定の情報を文字列化すればstring型でもいけるんじゃないかな？
保存したい情報が複数あるならカンマで結合してsplitで取り出せば良いだけだし
2022/06/05(日) 11:47:56.31ID:eL6jNkf4d
表示形式と背景色なら文字列にできるけど、書式って文字列に変換可能か？
罫線って文字列で取れたっけ
2022/06/05(日) 13:43:06.66ID:vTlNlLry0
罫線の有無をTrue/Falseで判定すればいけない？
2022/06/05(日) 14:12:04.89ID:MGWqyCtZ0
>>375
> 罫線って文字列で取れたっけ
数値（列挙値）で取れるんだからテキトーに文字列化すればいいやん

>>376
太さ、線種（鎖線とか）や色もあるから
2022/06/05(日) 14:15:50.06ID:x/GFG4oyM
罫線はRangeオブジェクト(のプロパティ)ではなくてBorderオブジェクト
379デフォルトの名無しさん (ｱｳｱｳｳｰ Sa11-fRoS)
垢版 |
2022/06/05(日) 15:54:50.02ID:udiiYXiVa
// n = 1, 2, 3 or 4
b = sheet.Cells(r, c).Borders(n)
b.Weight 代入&参照
b.LineStyle 代入&参照
2022/06/05(日) 16:38:39.08ID:MGWqyCtZ0
>>379
斜め線もあるしそもそもXlBordersIndexは1〜4じゃないぞ
https://docs.microsoft.com/ja-jp/office/vba/api/excel.xlbordersindex
2022/06/05(日) 20:07:10.90ID:dqA2RGZhd
結局Rangeで格納した方が早いわな
配列が嫌ならコレクションとかでも行けるけど
2022/06/05(日) 20:27:14.52ID:GrqOyp5w0
書式を保存するシートを別に作っておいたほうが楽じゃない？
2022/06/05(日) 23:49:37.17ID:YrlocrIV0
禿達ってなんですぐ喧嘩になるの？
お互い譲り合えば良いじゃん。
384デフォルトの名無しさん (ﾜｯﾁｮｲ 892f-M86+)
垢版 |
2022/06/06(月) 00:12:23.49ID:RB7fKeqq0
おたがいハゲましあっていますよ
385デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/06(月) 00:18:34.67ID:fgz41eYud
>>383
みるみる毛が減るようになればわかるよ
2022/06/06(月) 01:40:02.35ID:CD+x4MGM0
禿鷹のくせに
2022/06/06(月) 01:45:08.65ID:LVkl0QQt0
そこをなんとか、Excelでwebview2を使うことは出来ませんか?
388デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/06(月) 03:13:52.17ID:fgz41eYud
>>386
馬鹿にするな！うっすらとまだ残っているわ！
389デフォルトの名無しさん (ﾜｯﾁｮｲ 892f-M86+)
垢版 |
2022/06/06(月) 05:44:12.69ID:RB7fKeqq0
>>388
このハゲ！
2022/06/06(月) 10:06:09.33ID:JILrjNOSM
>>387
無理、素直に.net使え
2022/06/06(月) 13:21:31.23ID:4DEc3eXi0
>>383
> お互い譲り合えば良いじゃん。

「ネコと和解せよ」
https://youtu.be/52fdqGMawwc

(逆再生という指摘もあるが・・・)
2022/06/07(火) 22:41:43.65ID:mgVGi2C30
'Word,Excel,Powerpointどれでも動くようにする
Select Case True
Case Application.Caption = "Word"
Set myDocument = ActiveDocument
Case InStr(Application.Caption, "Excel") > 0
Set myDocument = ActiveSheet
Case Else
Set myDocument = ActivePresentation.Slides(1)
End Select
'あとはmyDocument.なんとかで操作すればどれでも動く。
393デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/08(水) 00:49:01.93ID:cIjXs1I0d
>>392
馬鹿の日記はお断り
394デフォルトの名無しさん (ﾌﾞｰｲﾓ MM2e-M86+)
垢版 |
2022/06/08(水) 00:54:12.05ID:jfy5wCdsM
ハゲの日記なら大丈夫？
395デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/08(水) 00:55:55.27ID:cIjXs1I0d
今日は毛が341本抜けました

とか読みたい？
396デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate)
垢版 |
2022/06/08(水) 01:01:21.01ID:cIjXs1I0d
唐突ですが、30歳を過ぎて頭皮を去っていく髪の毛が増えてきました。

今までは粘着力の強いコロコロで定期的に取っていましたが、これが厄介で、頭からからは簡単に抜けるくせにカーペットからはなかなか離れようとしません。
また、いくら自分の髪とはいえ、毛の大群がまとわりついたコロコロを剥がすあの瞬間が最高に嫌いでした。

勿体無いかな…でも欲しいな…など思いつつダ〇ソンのハンディタイプを買おうと迷った事もありましたが、1/5のお値段で高評価のこちらの商品でとりあえず様子見することに。外箱が思っていたよりもかなり小さく、最初は失敗したかと思いましたが、開けてみると質感も良く、これなら部屋のどこに置いても邪魔にならなそうです。

そして肝心の吸引力ですが、あんなにコロコロで取れなかった脱走兵どもが綺麗に吸い込まれていくではありませんか！

ついでにいつぞやの晩酌の際に食べこぼしたクルミの欠片など、多少大きさのある物でも綺麗に吸い込んでくれます。もしかしたらダ〇ソンはもっと強力に吸ってくれるのかもしれませんが、私と同じような悩みをお持ちの方でしたら、これで十分でしょう。アタッチメントも布団用や狭いところ用のものもついていますので便利です。

もういっそ、頭に直接この掃除機をかけた方が早いんじゃないかと思ってしまう程です。
2022/06/08(水) 02:36:31.18ID:3hgKnM3d0
ち○毛や脇の下まで薄くなった俺は？？
398デフォルトの名無しさん (ﾜｯﾁｮｲ 6905-Apbd)
垢版 |
2022/06/08(水) 07:20:52.11ID:fAskgOC50
ここはHGのあつまりでつね
2022/06/08(水) 08:24:09.17ID:0P23HUlSM
MGかPGが良いなぁ
2022/06/08(水) 09:48:44.91ID:pnJSpG8Od
はげもげぱげ
2022/06/08(水) 17:24:59.25ID:C2b/Gc96H
以前こちらでお世話になったものですが、うまくファイルに転記できないためまたお力をお借りしにきました。。

２つのブックがあって、別のブックにエリアごと（B列で判定）のデータをぺたぺた貼って保存すればOKなんですが
元データが10万行くらいあって、なぜかブックはエリアごとに保存は出来るのですが、あるはずの半分くらいのデータしかコピペできてないのです。

コピペで切り貼りしたコードで見づらいくて申し訳ありませんが、おかしいところがあれば教えていただけないでしょうか？？（H列が最右の列でTOTALにあたります）

■データのイメージ　延々と下に10万行くらいあります。

A列 B列　　　　C列　　　　　D列　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　TOTAL
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Distribution (PCW; Sales value) 0.01
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Market size (Value) 339,651.60
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Sales per store selling item (Unit) x1,000 5,744.20
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Sales per store selling item (Value) x1,000 573,148.54
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Distribution (PCW; Sales value) 0.05
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Market size (Value) 697,424.54
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Sales per store selling item (Unit) x1,000 6,850.74
業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Sales per store selling item (Value) x1,000 871,208.64
業態合算 東海 大容量 PKS SOYBIO ｿｲﾋﾞｵﾄｳﾆﾕｳY ﾌﾟﾚ-ﾝﾑﾄｳKP400 4589850822179 Distribution (PCW; Sales value) 41.70
業態合算 関東 大容量 PKS SOYBIO ｿｲﾋﾞｵﾄｳﾆﾕｳY ﾌﾟﾚ-ﾝﾑﾄｳKP400 4589850822179 Market size (Value) 197,839,014.22
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況