Excel VBA 質問スレ Part79(ワッチョイあり)

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ワッチョイ aaa4-I2zm)
垢版 |
2023/01/28(土) 12:12:12.41ID:UjlIZ1Ov0
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2023/03/10(金) 16:24:00.66ID:vz26ACYYd
そんなもん使い難いだけだわ
UIを良く考えよう
2023/03/10(金) 16:26:19.41ID:uJ3azY/w0
正直1桁ならコンボボックスより直接入力のほうが効率いいと思うが
2023/03/10(金) 16:56:09.67ID:fVzcNxhh0
日付も商品もマウスで選択するようなUIなら理解できる
マウスから手を放したくない みたいな
2023/03/10(金) 17:10:02.40ID:Q4TOUEdVM
>>187
自分なら基本テキストボックスで直接入力
ただマウスで操作したい要望に対してはボックス横にスピンボタンを追加することで対処する
初期値を1、増減分も1にしておけば1桁程度の値ならコンボボックスと大して変わらないと思う
2023/03/10(金) 19:08:43.64ID:q/TVliTR0
回答:無理、諦めろ。で満場一致
2023/03/10(金) 20:38:33.64ID:iWPdLzMM0
回答2:何でそんな事やりたいのだろう…
2023/03/10(金) 23:47:02.61ID:Qa3px4vn0
今時PCが殆ど使えない、新しい事覚えようとしないオバさんに使わせるのでなるべくキーボード入力をしないよう、パッと見で簡単に見えるように作りたいのです。
本来ならこのオバさんクビにして新しい子雇うのが早いと思うのですが…
ありがとうございました。もう一度UI考え直してみます。
2023/03/11(土) 00:19:36.43ID:Khcebysn0
数字くらい入力できるだろう
197デフォルトの名無しさん (スップ Sd7a-P/R7)
垢版 |
2023/03/11(土) 00:27:12.35ID:dLGlL2PJd
質問者も頭が悪い
わからない人になぜ標準と異なるインターフェースを使わせようとするのか
こういう人が現場に混乱をもたらす
2023/03/11(土) 02:08:47.98ID:WLmR0Ocq0
わざわざ個数をドロップダウンリストから選ぶとか面倒くさすぎるだろ
規則入力で制限して直接入力させろよ
2023/03/11(土) 04:45:31.59ID:ZWvVNp1O0
回答3:何でそんな事やらしてるのだろうか、
2023/03/11(土) 12:35:58.60ID:QVD3K1L30
いや、昨今のWebアプリ(というかWeb入力)画面は、そういうの多く成ってるぞ
和暦、年、月、日、数量なんかもそのたんびドロップダウンしてスクロールしてクリック
一月一日生まれならスクロール不要だけど、十二月三十一日生まれだと毎回面倒臭い とか
おぢさんおばさんのUIと「新しい人」向けのUIも変わって来るんだろう、たぶん
社会に出た時にそういうUIが当たり前 なんてぇ連中にとっては「何で?」の疑問符も湧かないんだろ
タッチパネルUIがメインに成ってくと、やむを得ないとかなのか知らんけど(工夫が足りないだけ?)
2023/03/11(土) 13:08:52.71ID:M3BsWLaP0
左にラジオボタン用意して
●10以下 [ ドロップダウンで数を選択 ]
○直接入力 [ テキストボックス直接入力 ]
みたいにしたらどうかな。
直接入力したければできるようにどれが最適かわからなければ手段を複数開放しとけば許されるかも
2023/03/11(土) 13:20:16.65ID:QVD3K1L30
そういう小手先のお節介機能が、後々鬱陶しくなって属人化と揶揄されて忌避されてく元
シンプルイズベストに徹してみるのも、使い続けるためには必要 なのかも
2023/03/11(土) 14:59:28.59ID:ifuXB3L30
UIだけじゃなくて入力デバイスのことも考える必要があるって話だな

ところで入力させるのはどこなんだよ?
シートなら>>188で解決だから、シートに入力させればいいんじゃねえか
2023/03/11(土) 15:12:26.79ID:ifuXB3L30
>>187-188
ちょっと気になって試したが

Private Sub UserForm_Initialize()
Dim i
For i = 0 To 10
ComboBox1.AddItem (i)
Next
End Sub
Private Sub CommandButton1_Click()
MsgBox ComboBox1.Value
End Sub

普通にできるじゃねえかよ
2023/03/11(土) 20:57:24.16ID:ZWvVNp1O0
あらまw
なんだったんだここ2~3日のやりとりはw
2023/03/12(日) 11:03:12.50ID:cLh0uqXM0
初心者がよく確認しないで先走っただけのこと
207デフォルトの名無しさん (テテンテンテン MMee-Cjjx)
垢版 |
2023/03/14(火) 22:17:45.06ID:XoNyGxquM
ttps://my.au.com/cmn/WCV009001/WCE009001.hc
のようなサイトにおいて、ボタンのid属性などが不明の場合、
どのようにすれば
objIE.document.getElementById(“nav-search-submit-text”).Click
のようにクリック処理が記述できるのでしょうか?
2023/03/15(水) 00:41:25.72ID:1KS7hC690
他のgetElementなんちゃらを使えばいいんでねーの?
2023/03/15(水) 01:44:42.30ID:gRjLR93x0
>>207
まずhtmlソース全部見る
タグとかクラス名とかinnerHTMLとか、そこを一意に識別する方法を考える
210デフォルトの名無しさん (テテンテンテン MMee-Cjjx)
垢版 |
2023/03/15(水) 19:59:06.05ID:kKwjf9a5M
>>208,209
ありがとうございます。
2023/03/22(水) 19:26:33.26ID:K2J+yUPS0
VBAをやらざるを得なくなってしまい、半月ほど初心者向けサイトをざっと見したんだけど、復習しながら練習するのにいいサイトとかないですかね??YouTubeとかでもいいです。
212デフォルトの名無しさん (アウアウウー Sa95-XfdO)
垢版 |
2023/03/22(水) 20:16:54.25ID:imBU3GyRa
教えてもらうくせに上から目線でサイト探しているの?
2023/03/22(水) 20:27:03.12ID:dusedFZ60
え?どこが上から目線?
全然普通の態度だと思うが。
2023/03/22(水) 20:35:07.68ID:7ng/morp0
できないと言う勇気
2023/03/22(水) 21:02:59.43ID:jPt3JN/N0
VBA やりたい事でググれば大抵出てくるOffice田中のサイトでいいんじゃないの
2023/03/22(水) 21:57:37.59ID:PR1CLsM8r
俺も別段上から目線だとは思わんな
vba100本ノックでググればいいよ
2023/03/22(水) 23:19:15.71ID:K2J+yUPS0
>>215
>>216
ありがとうございます。
218デフォルトの名無しさん (アウアウウー Sa95-XfdO)
垢版 |
2023/03/22(水) 23:32:19.46ID:7f9FP/voa
半年探していいサイトが無かったように聞こえたな
219デフォルトの名無しさん (アウアウウー Sa95-XfdO)
垢版 |
2023/03/22(水) 23:32:43.87ID:7f9FP/voa
半月だ
2023/03/23(木) 00:54:29.33ID:RkaYGDJV0
ここ最近は神髄というサイトが人気あるらしいね。
例の老舗さんはネタ切れ感あるとか??
2023/03/23(木) 03:04:12.23ID:0YnebeJA0
いいサイトが見つからないから勉強ができないって言い訳はするなよ
2023/03/23(木) 08:19:59.99ID:rqWr880TM
いうほどいいサイトってなくね?
コード書く練習したいなら100本ノックくらいしか思いつかんわ。
サラッと目通しただけじゃ難易度高いだろうが
223デフォルトの名無しさん (ワッチョイ 89f9-lgPN)
垢版 |
2023/03/23(木) 09:53:16.93ID:B+OiUivh0
その都度ググればよくね?
俺はそうしてる
2023/03/23(木) 11:11:45.25ID:8DIiCOGWM
ChatGPTに聞きまくり+ネットのコピペまくりでごまかしてるわ
コメントつけて何とか弄れるようにはしてあるけど
無駄だったり重複する処理を消したりはしない、というか下手に出来ない
225デフォルトの名無しさん (スプッッ Sd73-LK7t)
垢版 |
2023/03/23(木) 12:55:45.78ID:c5DGLB5Nd
>>224
こんなのが作ったVBAを使わされる方がかわいそう
2023/03/23(木) 13:23:54.81ID:0YnebeJA0
不具合が起きてもコピペだから原因がわからず自分が作ってないから直せませんとか言うのが見えてる
2023/03/23(木) 16:13:34.30ID:RkaYGDJV0
今注目してるのはOffice 春だな。
なかなか痒いところに手が届く技を紹介してくれている。
2023/03/23(木) 18:42:46.38ID:0YnebeJA0
興味を持つのは自由だが専用スレでやれよ
2023/03/25(土) 17:09:50.33ID:zf3m1D9l0
恐ろしいぐらいめんどくさかったけど複雑な処理をするマクロが完成して改善の部門賞で去年3万貰えたけどそれを超えるマクロが完成しそう
こりゃ社長賞狙えるかな
230デフォルトの名無しさん (スプッッ Sd62-sLGM)
垢版 |
2023/03/25(土) 17:16:33.67ID:JIVU3ZWvd
典型的な頭の弱い社畜の書き込み
井の中の蛙
2023/03/25(土) 17:20:16.80ID:zf3m1D9l0
だよな、ここの人らって本当に井の中の蛙だわ
異動してpythonに移行する前に作り上げて10万かっさらうわ
232デフォルトの名無しさん (ワッチョイ 8619-+msU)
垢版 |
2023/03/25(土) 20:39:39.60ID:1snJqDno0
まぁEXCEL VBAはEXCEL扱うのはめっぽう強いし
ちょこっとした処理を作るのに長けているから
プログラマ主体でなくて業務側についてる人でも多く使っているからね。

他の言語使っててもUTとかの際に
エビデンス取るとき整合確認とかで
EXCELの数式やVBA知ってると
かなり時間短縮出来たりするし。
2023/03/26(日) 02:18:50.58ID:Vzczu/7L0
ちょっとした処理に適しているのがExcelマクロだい。
2023/03/26(日) 21:50:17.38ID:XuHk6gkC0
VBAはネットに転がってるのがいいよね
2023/03/26(日) 22:54:45.65ID:Vzczu/7L0
VBA基地外が転がってる
2023/04/01(土) 10:04:12.82ID:UPkZGiTza
VBAでゼビウス作りたいです
2023/04/01(土) 10:41:21.61ID:Fre5vyIa0
まず許可とらないと
2023/04/01(土) 19:42:02.16ID:Fre5vyIa0
https://xtech.nikkei.com/it/pc/article/NPC/20080321/296775/
もう15年も前の記事だが
2023/04/04(火) 05:43:03.68ID:gM2C6lf70
Excelの罫線が太すぎるので
ある範囲の入力済セルの下に
例えば0.5ptのオートシェイプを引きたいです
どのようにしたらできますか?
2023/04/04(火) 11:13:58.48ID:H3UIOgUM0
入力済セルの下にオートシェイプの線を貼り付ける
線の書式の幅を 0.5pt にする
2023/04/04(火) 16:48:55.55ID:gM2C6lf70
>>240
VBAで自動でやりたいです
2023/04/04(火) 17:42:01.18ID:7A3Dl4jZd
ほんとにオートシェイプでやるの?
あら手の嫌がらせかな
2023/04/04(火) 19:06:27.39ID:gM2C6lf70
>>242
どうしても細い線が引きたいけどないのでそうするしかないんです
2023/04/04(火) 19:29:11.09ID:S7HWOC1cd
>>243
ダイアログの「なし」の下の破線が一番細い実線だよ
0.5ptって訳じゃないけどこれで代用はできない?
https://i.imgur.com/FI2RhpR.png
2023/04/04(火) 19:40:07.41ID:CrO9FoIt0
やりたければやればいい
何がわからないのかわからない

丸投げしたいなら初めからそう言っとけ
2023/04/04(火) 19:57:30.78ID:renXLxQ5r
流石に何も調べず「こうしたいんです」って言われてもね
調べた上で質問しろよ流石に
2023/04/04(火) 19:57:38.37ID:gM2C6lf70
>>244
プリンタの問題なのかその破線だと印刷されません
ブラザーのモノクロレーザーなんですが
色々と調べたところインクジェットだと滲むから印字されるけどレーザーだと細すぎて印刷できないみたいです
2023/04/04(火) 20:11:18.91ID:5YvJO7dSd
>>247
レーザーでも印刷はできる
プリント解像度が合ってないから変えて試せ
要件としてはプリンターで細い罫線を出力したいが正しいのに、
情報小出しにするのはなぜ?
249デフォルトの名無しさん (スプッッ Sd1f-j25d)
垢版 |
2023/04/04(火) 20:27:01.14ID:6BEiQs1Sd
馬鹿は馬鹿な頭で馬鹿な方法を考えついて馬鹿な質問をする法則
例の零細企業の馬鹿でわかったはずだろ?
2023/04/04(火) 21:06:09.03ID:gM2C6lf70
>>248
考えた結果、オートシェイプで線を引くしかない、となったのでそれのやり方を聞きました
ブラザーのサポートにも問い合わせたけどそういうものみたいです
2023/04/04(火) 22:10:24.26ID:gM2C6lf70
ちなみに点線は印刷業界でいうヘアラインというやつでプリンタの一番細い線を出すという命令なので
いいプリンタほどほぼ印字されないそうです
なので設定は無関係です
300dpiにすれば印字されますが文字が汚いです

印刷のアドバイスを聞きたいわけでも情報を後出ししているわけでもなく、
オートシェイプで線を引くコードが知りたかっただけです
2023/04/04(火) 22:16:45.73ID:KVvIoDM70
絶対に自分で調べたほうが早いし楽だし拡張性あるのに、頑なに人に聞くやつっているよな
ggrks
2023/04/04(火) 22:33:10.85ID:zXZGFdaS0
Sub Macro1()
Dim rr As Range
Set rr = Selection
rr.Parent.Shapes.AddLine(rr.Left, rr.Top + rr.Height, rr.Left + rr.Width, rr.Top + rr.Height).Select
With Selection.ShapeRange.Line
.Weight = 1
.ForeColor.RGB = RGB(0, 0, 0) '255,255,153 薄いイエロー 204,255,255 薄いブルー
End With
rr.Select
End Sub

Sub Macro2()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline 'xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Macro1が直線を引く場合 Macro2が罫線を引く場合 Weight = 1を0.5にしても変わらない xlHairline細線xlThin極細
直線を引くと消す作業が必要に成る
2023/04/04(火) 22:57:58.66ID:H3UIOgUM0
下線を付ける場合って普通はアンダーライン機能使うし、空欄の下線なら___ (シフト+「ろ」)
~~~~~~~~~~ (半角波線) ^^^^^^ (ハット) で上行の強調みたいな書き方したり
───── (罫線文字) ━━━━━ (罫線文字太い)  でたいていは済むと思うが
2023/04/04(火) 23:21:59.65ID:gM2C6lf70
下線というのはセル毎の仕切り線という意味でした
わかりにくくてすみません
256デフォルトの名無しさん (ワントンキン MMdf-QXPF)
垢版 |
2023/04/04(火) 23:30:14.47ID:khpg5U9yM
>>249
馬鹿は馬鹿な質間の後に後出し条件を付けるも追加で
2023/04/05(水) 00:53:07.23ID:ab4hIo8m0
>>256
別に全然後出しとは思ってないけどね
細い線が出したいです、ではなくて
自動でオートシェイプで線を書く方法を教えてください、なんだから
2023/04/05(水) 00:54:17.99ID:ab4hIo8m0
ろくなやついないみたいだからよそいくね
259デフォルトの名無しさん (ワンミングク MM03-5SDg)
垢版 |
2023/04/05(水) 01:00:51.04ID:XcJibMPkM
何が問題なのかわからない馬鹿ばっかのところが見つかるといいね
2023/04/05(水) 01:20:39.85ID:Yfsd/RuOd
知恵遅れ袋があるじゃないか
2023/04/05(水) 07:58:24.80ID:nt1BQkgU0
>>257
それは自分が思う解決方法であって目的は細い線を印刷することだろ
2023/04/05(水) 08:35:05.20ID:xBlgsSX7d
罫線文化は日本特有だからそろそろ辞めよう
2023/04/05(水) 11:17:22.11ID:hwWjK5am0
そういい続けてもう何年になるだろうか
2023/04/05(水) 11:34:30.61ID:Pachb7xx0
>>258
オイオイw 提示したコード試したンか?w オートシェイプの線と罫線と両方をサンプルして
尚且つ、線種や色を改良しやすいように例示もしたってのに 
出力できる太さに限界があるなら色を変えることで改善させるのもひとつの解決策だろうに
265デフォルトの名無しさん (スプッッ Sd9f-j25d)
垢版 |
2023/04/05(水) 14:48:49.66ID:RBswHKfYd
>>264
そういうまともな発想が通じない自分の馬鹿な解決方法とやらに拘るのが馬鹿の馬鹿たる所以だ、残念なことに
2023/04/05(水) 19:37:02.68ID:/dmeuB+9M
どこが日本特有だよ
タイやら中国やらアメリカやらからデータ来るけど罫線なんて普通に使いまくりだぞ
文化じゃねーよ無職知ったかかよ
2023/04/09(日) 10:12:35.57ID:RxxIHycr0
さて、そろそろ書けますか?
2023/04/09(日) 10:34:21.92ID:RxxIHycr0
うおおw またどっかに吸い込まれたw なにがイカン?
 tps://www.post.japanpost.jp/img/int/use/writing/pic_invoice.jpg 日本郵便のサンプル
 tps://learn.microsoft.com/ja-jp/dynamics365/finance/localizations/media/apac-tha-tax-invoices-tax-invoice.png
 tps://templates.invoicehome.com/invoice-template-en-neat-750px.png
各国のインボイス画像何枚か貼り付けたレスだが、取り敢えずアタマ削って書き込んでみるw

現地の駐在員が日本人の可能性もあるぞ と書きたかったw それらの国でもイージーな書式でも通用するから
敢えて日本向けに罫線書式で送り付けてきてる可能性だってある 何かに憑り付かれたように「これでなきゃだめ」
なのは、使う側が融通効かない石頭揃いなせいが大 容易に使えてそれを容認するような文化 が無い(劣ってる)とは言える
2023/04/09(日) 12:18:38.23ID:xFg640up0
部署で唯一VBA使える人が異動しそうなので
なにか力になりたいけれども、マイクロソフトのVBAスタンダードの
勉強をするよりはその人のコードを見て調べて…の方が良いでしょうか。
資格は実務に役立たないとよく聞くので。
2023/04/09(日) 12:44:54.33ID:IMhUrj1Nd
>>269
VBAスタンダードなんかのVBAエキスパート資格とMicrosoftは無関係
だからVBAスタンダードより異動する前にコード見て、聞けるところを聞いておく方が有意義
2023/04/09(日) 12:49:57.62ID:I9Qf3W7D0
何も知らないやつが仕事で力になりたいけどとか簡単に言っちゃいけないよ
他人のVBAコードは不条理の塊と見なせるから、担当が自分に振られたのでなければ下手に関わらない方がいい
異動なら連絡は付くだろうし、君が心配しなくとも引継ぎ担当が面倒見てくれるよ
2023/04/09(日) 12:59:51.78ID:xFg640up0
>>270 >>271
ありがとうございます。よく分かりました。
ちなみに引き継ぎを受ける候補は私なので
自分でもコツコツ勉強プラス異動後も聞くことにします。
2023/04/09(日) 13:03:59.67ID:fQMTK17W0
こっそりYouTubeで解説動画見て、簡単なの自分で作って、実務のVBA眺めて意味を考えてググって分からなかったらここで聞いて勉強してからじゃない?
最初は使い方だけ聞けばいいし、中身変更なんて頻繁にないでしょ。
2023/04/09(日) 17:34:38.52ID:VccS8NQy0
>>268
交互色もよくみる
2023/04/09(日) 18:28:02.92ID:SycmVm660
>>280
Listobject使うと自動で交互色テーブルになるんですが他国言語版はならんのか?
276デフォルトの名無しさん (アウアウウー Sa05-MV9R)
垢版 |
2023/04/09(日) 21:15:17.28ID:/EJLPp0Da
おちつけ
277デフォルトの名無しさん (ワッチョイ c619-5xw/)
垢版 |
2023/04/11(火) 06:32:54.99ID:2FEVzV7Z0
>>269
VBAの試験なんて
適当にVBA組んでれば
その内何も勉強しなくても
エキスパートいきなり受けても受かる試験だから
そん時受ければいいよ。

EXCELの試験の方が難しいらしい
2023/04/11(火) 10:56:35.96ID:muoUIQjV0
日商表計算1級は自慢してもいいレベルらしい。
mosは…察し。
279デフォルトの名無しさん (ワッチョイ 7f33-S3w6)
垢版 |
2023/04/15(土) 17:32:15.76ID:m9DY7U8S0
エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルB2に入る文字を変えたいです
https://jsfiddle.net/07ed2ajc/
2023/04/15(土) 17:39:31.98ID:iq3ZlEDB0
セル チェックボックス 連動
で沢山出てくるよ
2023/04/22(土) 08:24:42.08ID:Ir4lduVSd
A列の「作業結果」ごとに振り分けたいんだけど良い方法ない?
ピポッド組んだ方がはやいかな?

A列     B列
作業結果 氏名
不備なし 田中
不備あり 佐藤
不備なし 佐々木
不備あり 加藤

↓別シートに転記したい

A列
不備なし

田中
佐々木

不備あり

佐藤
加藤
2023/04/22(土) 08:27:50.42ID:Ir4lduVSd
フィルタかけて 「不備なし」、「不備あり」ごとに転記

作業結果  氏名
不備なし 田中
不備なし 佐々木

不備あり 佐藤
不備あり 加藤

「作業結果」列で重複データのみを削除
Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes

作業結果  氏名
不備なし 田中
     佐々木

不備あり 佐藤
     加藤

ここまではイメージしたのだけれど、
そもそもとして、A列の属性ごとにまとめたいから、上記ではうまくいかないような…
2023/04/22(土) 08:29:37.58ID:Ir4lduVSd
氏名はありきたりなのを使用したので大丈夫かとw
2023/04/22(土) 08:31:58.26ID:EkSMf2Yw0
あかん不倫ありに見えた・・・
2023/04/22(土) 08:52:52.45ID:Ir4lduVSd
自己解決

ピボット組んだ方が説明しやすいような気がした
2023/04/22(土) 08:56:33.28ID:EkSMf2Yw0
今月に入って勉強し始めたわいはフォームからの操作で使ってるけど、
ある結果に該当するデータを For ~ Next と If ~ Elseでふりわけてコピーしてる。
2023/04/22(土) 09:16:50.26ID:0F5tuW810
>>281
Excel2019以後や365版ならVBAでなくワークシート関数のFilter関数使った方が楽かと。
こんな感じ。
=FILTER(B:B,A:A=“不備なし”)
2023/04/22(土) 09:43:24.98ID:Ir4lduVSd
>>287
これいけそうだね。

毎日集計ださなければならないんだけど、
日付で絞るのは楽勝だとして、

不備なし
不備あり

ごとにFILTERかければいいんだね。
なるべく誰でも分かるものにしろ、
とのお達しなので来週ためしてみるよ。
どうもありがとう。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

ニューススポーツなんでも実況