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/23(月) 08:53:51.78

>>609
初心者にはそれしか解法がわからない場合もあるかなと思って
プロシージャ分割とかも理解できない場合は、とりあえず動くプログラム作れたらなと

2021/08/23(月) 10:54:22.12

goto finaly

2021/08/23(月) 23:10:58.58

ちょっとスレ違いで恐縮ですが知ってる方がいたら教えてください　3D CAD(catia v5、ソリッドワークス、NXなど)のVBAについて話題にしてるスレとかご存知の方いれば教えてください

2021/08/24(火) 01:04:28.30

そんなものはない

2021/08/24(火) 01:15:14.20

>>612
これらの3D CADにVBAが載ってるの？

**デフォルトの名無しさん** (JP 0Hc3-FcIJ) · 2021/08/24(火) 04:11:27.55

エスパーするとマクロのことだろ

2021/08/24(火) 05:20:46.31

>>612
馬鹿は死ね

2021/08/24(火) 08:13:34.81

>>612
そんなスレは存在しないし立てたとしても誰もレスしないだろう。
質問があるならこっちで聞けばひょっとすると誰か答えてくれるかもな

スレ立てるまでもない質問はここで 157匹目
https://mevius.5ch.net/test/read.cgi/tech/1624024239/

2021/08/24(火) 08:30:12.55

調べたら、SolidWorksはAPIでVBAとかC(++)とかから呼び出せるみたいだから、Excel VBA で呼ぶ範囲ならこのスレでも良いんじゃない？
CAD ソフト側の特有の動作は答えられる人少ないか居ないだろうけど

2021/08/24(火) 09:09:24.64

>>618
そんな質問してないだろ

2021/08/24(火) 12:58:36.89

SolidWorksのAPI呼んでなにかしようとするような奴がこんfなスレでVBAの質問なんてしないだろw

2021/08/24(火) 13:07:40.15

でも、3D CADのVBAって言っちゃうレベルの質問者さんだし...

2021/08/24(火) 15:14:02.93

馬鹿には無理

2021/08/24(火) 18:59:28.08

最悪go toもありだろ

2021/08/24(火) 20:36:36.02

おまいら、質問者を馬鹿にするのやめろよ

2021/08/24(火) 21:11:06.89

「貴方には無理」と言ってあげるのも親切
馬鹿が諦めず無理してるおかげで周囲は迷惑してる

2021/08/24(火) 21:17:10.14

dllやAPIアリならもうなんでもｖｂａのような

2021/08/24(火) 21:17:46.98

知ってたら答えるけど、あまりにも知ってる人が少なすぎる
メーカーに聞いた方が早いとおもう

2021/08/24(火) 22:24:25.02

>>612
話題になってませんが聞くならこっちのスレかな？

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

https://itest.5ch.net/mevius/test/read.cgi/tech/1432173164

0001 デフォルトの名無しさん 2015/05/21 10:52:44
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

2021/08/25(水) 00:31:39.65

VBEの入力支援で「WorksheetFunction」って邪魔ですよね。
「Worksheets」が第一候補に表示されればいいのに。

2021/08/25(水) 01:55:37.60

辞書順だから仕方がないよね

2021/08/25(水) 07:25:33.24

客先のお偉いさんにコンテンツの有効化を行わずにマクロを動かせと無茶振りされるなどした

決してデジタル署名云々をなどという話ではなく
既存のツールのコードをいじらずにWorkbook_Openのイベントを回避せよとのご指示を頂いたのだ
どうしたものか

2021/08/25(水) 07:35:04.03

>>631
他のブックにマクロを書いて
・イベント停止
・ブックopen

Sub foo()
Application.EnableEvents = False
Workbooks.Open (ThisWorkbook.Path & "\book1.xlsm")
Application.EnableEvents = True
End Sub

2021/08/25(水) 07:39:39.81

あ、他ファイルの新規作成も一切ダメだそうです

2021/08/25(水) 07:50:37.91

じゃあ基本イベント停止にしてマクロを動かしたい時だけ
Application.EnableEvents = True
だな

2021/08/25(水) 08:12:30.95

既存のツールのコードに手を加えるのはNG、別のファイルを作成するのもNG、数百人ほどいる作業員に配布してるツールだからExcelの設定を変更して回るのも現実的ではない
要するに作業工数を発生させずにイレギュラーに対応出来る特殊仕様用のツールを作れって事みたい

2021/08/25(水) 09:17:10.78

なんか話おかしくね
そのイレギュラー対応ツールはどこに置いて誰が使うことを想定してんだ

2021/08/25(水) 09:40:43.13

相手すんなよ偉いさんに振られた内容を盛って語ってるだけだろ
そもそも客先からの要請なら普通にできないって断ればいいだけだし

2021/08/25(水) 10:21:16.42

いやまぁ断るんだけどさ
逐一ネットワークドライブのファイルとやりとりをしてるツールを社外の下請け業者にも使わせたいんだと
まぁ当然ながら下請け業者からはネットワークドライブに接続はできないんよ
だから何するにしてもエラーが出ます。なんならファイルを開いた時にコンテンツの有効化を押した時点でエラー出ますよ。って言ったらコンテンツの有効化を押さずにマクロを動かせば良いじゃないかって怒鳴りながら台パンされたのが昨日の話

2021/08/25(水) 10:33:09.92

それで金もらうんでしょ

2021/08/25(水) 13:39:00.29

>>638
断るという方針を決めているなら解決だな

2021/08/25(水) 14:41:15.54

ユーザーフォームのコンボボックスでドロップボタンをおすと実行され、リストができるのですが、項目を選択しても反映されず空欄になってしまいます。
反映されるにはどうしたらいいでしょうか

Private Sub ComboBox3_DropButtonClick()
Dim LastDay As Long, MyYear As Long, MyMonth As Long, r As Long

With UserForm1

.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))

'来月１日の１日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス３に今日の日付リストを入れる
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r

End With
End Sub

2021/08/25(水) 14:45:50.68

しらんけど
月の変更時にやるもんじゃね？

2021/08/25(水) 15:11:25.13

知らんけど変数の頭によくMyとかmyとか付ける人いるけど私の年とか私の月なの？

2021/08/25(水) 15:32:21.08

mousedown でやるとか？

2021/08/25(水) 15:50:44.79

ComboBox3のイベントでやることじゃないんじゃね

2021/08/25(水) 17:16:17.54

DropButtonClickが発火していない可能性をまず見る

Combobox1とCombobox2の頭に「.」が付いていないことが原因か調べる

来月1日の1日前から今月の対象月の終了日…の日本語がよくわからんが、仮にMyMonthが12ならどうなるの？というのは気になる

そもそもDay関数で0日を指定しているんだから、どうやってもLastDayって0になるんでは？

最後のが原因かとは思うが、とりあえず気になったところを

2021/08/25(水) 17:19:41.69

>>646
どうやら0日を指定すると前月末になる仕様なのね
誤った理解で申し訳ない
https://vbabeginner.net/find-number-of-days-in-month/

2021/08/25(水) 18:17:55.62

>>419

「100点取らなきゃいけない数学のテストが延々と続く」って
表現したことあるけど、あんたの表現は簡にして要を得てるな。

2021/08/26(木) 01:04:55.66

>>641
まぁなんでもいいんだけどこういうテストしてみる
TextBox1を設置してプロパティのmultilineをtrueにしておく
んでコンボボックスのイベントの下の方にちょい付け加えてこうする

Private Sub ComboBox3_DropButtonClick()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月１日の１日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス３に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
TextBox1.Text = TextBox1.Text & Now & vbNewLine'←これ
End Sub

すると、combobox3でリスト開いた時だけじゃなくて、アイテム選択したときもイベントが発生していることがわかる

2021/08/26(木) 01:06:07.22

そもそもcombobox3は結果表示のコントロールだから、ここに余計なもの置くべきじゃないわ

Option Explicit
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
AddItemToComboBox3
End If
End Sub
Sub AddItemToComboBox3()
Dim MyYear As Integer
Dim MyMonth As Integer
Dim LastDay As Integer
With UserForm1
.ComboBox3.Clear
MyYear = Val(Replace(ComboBox1.Value, "年", ""))
MyMonth = Val(Replace(ComboBox2.Value, "月", ""))
'来月１日の１日前から今月の対象月の終了日を算出する
LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0))
'リストボックス３に今日の日付リストを入れる
Dim r As Integer
For r = 1 To LastDay
.ComboBox3.AddItem r & "日"
Next r
End With
End Sub

2021/08/26(木) 01:06:23.79

>>650続き

Private Sub ComboBox3_DropButtonClick()
'空にする
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "2021年"
ComboBox2.AddItem "8月"
End Sub

2021/08/26(木) 01:08:23.20

Option Explicitつけないのがはやりなんかね
宣言しねぇのがはやりなんかね

2021/08/26(木) 10:50:03.92

質問には必要だが
回答には不要

2021/08/26(木) 14:29:16.05

VBAのコードを書くウインドウが何かのタイミングで個別ウインドウ表示に切り替わり、バラバラになって元に戻らなくなってしまったのですが、
プロジェクト一覧などが左側にある初期状態に戻すにはどうすれば良いのでしょうか？

**デフォルトの名無しさん** (JP 0Hc3-FcIJ) · 2021/08/26(木) 14:59:17.57

>>654
KYCU\SOFTWARE\Microsoft\VBA\7.1\Common\Dockを削除
完全な初期状態だと使いにくいから、自分流にカスタマイズした後Common以下を保存しとくといい

**641** (ﾜｯﾁｮｲ 1fcc-zH/y) · 2021/08/26(木) 17:19:31.21

皆様ありがとうございます。年と月の変更時に組み替えてできるようになりました

>>642
それに変更しました

>>644
試しましたが、リストの表示すらされませんでした

>>645
その通りでした

>>650
ありがとうございます。

2021/08/26(木) 19:24:12.66

>>655
ありがとうございます！リセット機能が無いのですねぇ

2021/08/28(土) 02:17:56.45

請求書つくってて1行ごとに仕切り線を挿れたいです
入力があるセルのセルの下に、オートシェイプ（0.75ptなどの線）を引くことはできませんか？

規定の線では太すぎて表がごちゃごちゃになってしまいます（細線では複数のプリンターでかすれて出ませんでした）

Excelでは線の種類が少ないので望みの書類をつくれない、力技でオートシェイプで引きたいけど手作業では大変
請求書データをコピペしてボタンおしたらオートシェイプの線がセルに沿ってしかれる、としたいです

**デフォルトの名無しさん** (ｽﾌｯ Sd22-U7Lh) · 2021/08/28(土) 02:53:29.63

>>658
できます

2021/08/28(土) 02:57:38.41

条件付き書式で罫線を引いて
線の太さは色をグレーにしてごまかす

VBA使わないなw

**デフォルトの名無しさん** (JP 0H4d-U7Lh) · 2021/08/28(土) 03:20:48.79

>>658
'何か入力済のセルにオートシェイプで下線を引く
Sub Macro1()
　　For Each c In ActiveSheet.UsedRange
　　　　If c.Text <> "" Then Call セルに下線(c.Row, c.Column)
　　Next
End Sub

Sub セルに下線(r, c)
　　x1 = Cells(1, c).Left
　　x2 = Cells(1, c + 1).Left
　　y1 = Cells(r + 1, 1).Top
　　y2 = y1
　　ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2).Select
　　With Selection.ShapeRange.Line
　　　　.ForeColor.RGB = RGB(0, 0, 0)　　'黒
　　　　.Weight = 0.75　　'太さpt
　　End With
End Sub

2021/08/28(土) 03:32:32.93

>>660
それだとモノクロプリンタに対応できません
あと太いのは太いのでやぼったいですよね
>>661
休み明けに頑張ってみます
オートシェイプで選択できる太さはすべて指定出来ますよね？

2021/08/28(土) 03:44:32.68

Shape系って使うのはいいんだけど削除してもオブジェクトが残るバグってない？
以前苦しんだ記憶が

2021/08/28(土) 05:22:31.37

モノクロプリンタでもグレーぐらい印刷できるやろ

2021/08/28(土) 11:23:58.24

グレーはやめとけ

2021/08/28(土) 11:34:50.96

なんで？

2021/08/28(土) 12:05:27.22

目がアーモンドになる

2021/08/28(土) 12:37:46.09

>>664
一般的ではないですよね

2021/08/28(土) 13:21:54.79

今時エクセルで請求書を作る会社って

2021/08/28(土) 13:26:28.47

>>669
なにでつくるの？
Accessは古すぎたしファイルメーカーは高すぎであきらめた
売上額月に600万程度だからExcelでも十分なんだよね

2021/08/28(土) 13:29:02.28

今時〇〇ってとか言うアホはスルーでいいよ

2021/08/28(土) 13:34:29.23

>>671
こういう馬鹿こそスルーだろ
請求書発行ソフトとか販売管理とか沢山あるだろ

2021/08/28(土) 13:41:02.22

と、馬鹿が申しております。

**デフォルトの名無しさん** (ｽﾌｯ Sd22-GwXH) · 2021/08/28(土) 13:41:56.34

>>672
市販のあわないだろ

2021/08/28(土) 13:50:09.98

なんでそこで経理ソフトって出てこないんだろう・・・

2021/08/28(土) 14:11:22.66

>>672
Excelで間に合ってるならそれでええやん
外野が何言ってんだかって感じ

2021/08/28(土) 14:15:33.19

まあ間に合ってるってならエクセルでいいけど
シェイプで線引くような帳票が間に合ってるといえるのか

俺なら罫線で間に合わせるけどな

2021/08/28(土) 14:39:40.62

EXCEL帳票って多いよね
請求書に限らず

2021/08/28(土) 14:43:17.47

うちみたいな零細は帳票の枚数も少ないしExcelに罫線で十分なんだワ
専用ソフトは従業員が2桁人数になってからだな

2021/08/28(土) 14:50:21.30

請求書の罫線にこだわるって何の意味があるんだろうと思う

2021/08/28(土) 16:39:25.21

>>680
ぶっといの気にならない？
単なる美的センス的なこだわりだからとくに意味はないんだけどね
ぶっとい枠線だらけの表とかみるとデザインセンスというか旧時代的な印象うけてしまう

2021/08/28(土) 16:40:04.12

>>677
Excelで0.75とかひければ問題ないんですけどね

2021/08/28(土) 16:49:11.38

そもそも罫線レイアウトが旧時代的だよ

2021/08/28(土) 17:01:08.85

>>681
さすがに旧時代的な印象だからって理由だったなら
なぜExcelで？ってなるぞｗ

2021/08/28(土) 17:03:13.47

>>683
でも印刷だと最低限は必要じゃない？
数十行ならんでるととくに

交互に色変えるのはモノクロやプリンタによって大きくかわるからねえ

2021/08/28(土) 17:04:05.90

>>684
線以外は不満ない
Accessも線選べないから細い四角をかいてならべてる

2021/08/28(土) 17:15:47.71

そこまで帳票にこだわるならCrystal Reportsとか使えばいいのに
https://www.sap.com/japan/products/crystal-visual-studio.html

2021/08/28(土) 17:21:15.10

>>687
クリスタルレポート、アクティブレポート、PDFも別言語では使うけどEXCEL使う場合も多いからやっぱり抑えておくべきだよ。
特にここ、EXCEL VBAのスレだし。

2021/08/28(土) 17:23:01.48

>>687
>>688
はじめて聞きましたが世界標準なんですね
日本語ではあまり情報がないみたいですね

2021/08/28(土) 17:27:11.56

>>689
今は特に気にしなくていいよ。
そもそもVBAから使ったことないから
VBAから使えるか分からんし。

2021/08/28(土) 19:16:34.16

VBA使って作るぐらいだから大げさなものではないと思うから正直なところ明細の罫線はなくてもかまわないのではと思う
罫線信仰については日本は細かいと思うわ
それなら偶数行の背景に薄いグレーの背景色をつけたほうがきれいに見えるかと

2021/08/28(土) 19:21:46.63

帳票とかでも罫線レイアウトしてるのはただ単に四角く収まってるだけで別に使いやすくともなんともないんだよな
項目の意味より見た目の収まりでレイアウトしてるから意味不明だし書き込むスペースが足りなかったりするし

2021/08/28(土) 19:22:16.12

>>691
モノクロレーザーだと濃淡でないのでスクリーントーンみたいになるんですよね

これみてたけど線があったりなかったり色付きだったり
なんか世界的な基準とかあるんですかね？
https://i.imgur.com/GQyzXam.jpg

2021/08/28(土) 19:51:56.00

どんなプリンタ使ってるか不明だけど印刷品質とかでモノクロレーザーでもそれなりな背景色つけられると思うから
プリンタ側の設定みなおしてみたほうがよいのでは

基準なんて別にないでしょ作り手（提供者）のセンスだけかと

2021/08/28(土) 20:04:28.62

濃いグレーと薄いグレーがどう印刷されるかな

**デフォルトの名無しさん** (JP 0H4d-U7Lh) · 2021/08/28(土) 20:16:48.82

Excelの設定でも解像度が指定できるしモノクロレーザーの設定でも濃度や網点の細かさぐらい変更できるのに

2021/08/28(土) 20:45:50.31

>>696
300dpiだと文字がガタガタ
600dpiだと一番細いとされる点線が印刷されませんね

2021/08/29(日) 10:34:22.30

任意のセルを選択(飛び地あり)→数式の入っているセル全て値貼り付けしたくて作成しました
動くのですが100万を超えるデータで動かすと1分以上かかってしまいます
2次元配列？を使えば高速化できますか
配列は使ったことがなく説明を読んでも難しく混乱していしまいました
よろしくお願いします

Dim Sc As Range

Application.Calculation = xlManual

Selection.SpecialCells(xlCellTypeFormulas, 23).Select

For Each Sc In Selection
Sc.Value = Sc.Value
Next Sc
…

2021/08/29(日) 10:45:24.11

>>698
selectionしなければ早くなるかも

Sub Macro2()
Application.Calculation = xlManual
For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23)
Sc.Value = 5
Next Sc
End Sub

2021/08/29(日) 10:45:44.98

>>698
Selectionは極力使わない方がいい

数式の入ったCellsをUnionしていって、最後にUnion範囲に対して値貼り付けすれば？

2021/08/29(日) 10:46:46.41

違った、こうか

Sub Macro2()
Application.Calculation = xlManual
For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23)
Sc.Value = Sc.Value
Next Sc
End Sub

しかし選択してるのは定数なのに、valueをvalueにするの？
あんまり意味ない気がするんだけど

2021/08/29(日) 11:23:08.03

>>701
ありがとうございます
試してみます

コピペを繰り返すより代入した方が早い、と出たので上記のようになりました
Range一辺倒だったのでUnionも調べてみます

2021/08/29(日) 11:34:43.22

>>698
> Selection.SpecialCells(xlCellTypeFormulas, 23).Select

>>701
> For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23)
> しかし選択してるのは定数なのに、valueをvalueにするの？
> あんまり意味ない気がするんだけど

…

2021/08/29(日) 12:40:07.80

>>698
数式セルだけに限定しないで
全部貼り付けちゃえばいいんじゃないの

Sub Macro3()
Dim temp()
temp = Selection
Selection = temp
End Sub

2021/08/29(日) 13:20:16.41

>>698
あー選択が飛び地か　
飛び地のRangeを順に取得する関数ってあったっけ　
思いつかないので以下のように修正版。
splecialcellsを使う必要がない気がするが尊重して入れておいた
//
Sub Macro4()
Application.Calculation = xlManual
Application.ScreenUpdating = False
myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",")
Dim temp()
For Each EE In myAddress
temp = Range(EE)
Range(EE) = temp
Next
End Sub

2021/08/29(日) 13:22:53.01

>>704
ひとつずつ処理するよりもこういう考え方が正しい

**698** (ﾜｯﾁｮｲ c95f-K0XX) · 2021/08/29(日) 13:24:14.88

698です
色々と案をありがとうございます

>>701は構文エラーとなってしまいました
たしかにSelectionを使わなければ早くなりそうではあるのですが…

またUnionでまとめる方法は飛び地がなければ良さそうですが、左に詰めて貼り付けされてしまい欲しい結果が得られませんでした

>>704
こちらも隣接セルのみであれば問題なさそうなのですが複数セルだと1番左の列は問題ないものの他のセルが元データとは異なるデータがペーストされてしまいました

私の理解不足であれば申し訳ありません

ちなみに列選択をした際に少しでもループを減らしたかったため数式セルに限定してみただけなので選択部分まとめてでも問題ありません

**698** (ﾜｯﾁｮｲ c95f-K0XX) · 2021/08/29(日) 13:25:52.00

>>705
更新せず書き込みすみません
試してみます

2021/08/29(日) 13:34:12.51

>>701だけどスマン、間違えてた上にすげーアホなことやってたわ

>>698
＞任意のセルを選択(飛び地あり)→数式の入っているセル全て値貼り付けしたくて作成しました

Sub tgggMacro2()
Range("a1:z100").Value = Range("a1:z100").Value
End Sub

これでアカンのか
※cells.valueだとメモリ不足になる

**698** (ﾜｯﾁｮｲ c95f-K0XX) · 2021/08/29(日) 18:40:28.03

>>705
試してみました
成功する時と途中でオブジェクトの型が一致しない、とエラーになる場合があるようです
配列を理解できておらず、なぜエラーになるのか解決策にたどり着けていません
単独セルを選択している箇所でエラーになるように思います
実際に使用する際は1セルだけを選択することはまずないとは思うのですが…

>>709
せっかく書いていただいたのですが求めている内容ではなさそうです
全て代入していいならほんとラクなんですけどね