Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!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/10/11(水) 12:24:39.89

つくったとこじゃね

2023/10/15(日) 13:46:37.05

VBA使えなくなるんですか？？？
https://gigazine.net/news/20231012-microsot-kill-off-vbscript/

2023/10/15(日) 13:55:09.75

YES

2023/10/15(日) 14:15:54.32

>>852
馬鹿

2023/10/15(日) 14:24:09.38

VBSとVBAは別物なのでまだ当面使えなくなることはないだろうけどそろそろ別の手段を考え始めた方が良さげな感じではある

2023/10/15(日) 15:28:22.49

セキュリティリスクだからVBA使うなって会社もそろそろ増えてきてるだろうしな

2023/10/15(日) 17:42:26.62

excelが悪い

2023/10/16(月) 09:17:56.44

もう今はExcelとVBAではなくモダンExcelとPowerPlatformの時代

2023/10/16(月) 09:59:53.14

>>856
同じ理由ならpowershellも廃止すべきでは

2023/10/17(火) 07:51:58.43

自分が使わなければいいだけでしょ

2023/10/18(水) 10:45:13.63

なんでやねん、説明して

2023/10/18(水) 11:05:14.43

>>861
スレチなので当該スレでやって

2023/10/19(木) 20:33:49.11

ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？

2023/10/19(木) 20:36:45.56

ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？

2023/10/19(木) 20:37:04.09

ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？

2023/10/19(木) 20:37:18.34

ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？

2023/10/19(木) 23:17:38.32

Excelのセルを使ってVBAソースを作る
似たような式をフィルでズズーと作ると気持ちいいぞ

2023/10/20(金) 03:27:46.40

>>867
狙ったとこだけ変えるテクを教えてください

2023/10/20(金) 18:26:19.01

これを参考にしてみて、この程度でいいならいちばんシンプル
https://forest.watch.impress.co.jp/docs/serial/exceltips/1208637.html

もっと深く踏み込んだのが欲しければ、ここで在庫管理とかを解説してる　
真似するだけで、かなりのものに仕上がる
https://www.minizaiko.com/entry/ZaiSis102

2023/10/21(土) 03:50:37.64

>>866
RowSourceとかControlSourceとか
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/listbox-control-boundcolumn-controlsource-rowsource-properties-example

>>869
今のエクセル、入力用フォーム自動生成してくれるのか
もう無茶苦茶な機能追加だな
でも自分でそのフォームカスタマイズできないのは魅力半減だな

2023/10/21(土) 03:54:30.35

設定ファイルを書き換えればカスタマイズできる

2023/10/25(水) 10:36:26.65

Excelなのですが、複数セルに条件付き書式を一括で追加したいです。（条件は各行変化する）
FomulaとFormatConditions.addを組み合わせる様な事をしたいのですが、
実際やるとエラーで通りません。

例えば
FormatConditions.Add(2,3, '=A2TRUE')
と言った具合で、範囲で追加したときAの値A2,A3,A4と変化させたい感じです。

また別言語（Powershell）から呼び出しているのでWith構文は使えないと思います。
Forで回しても良いのですが、１０００行近くあるので時間が結構かかる為避けたいです。

2023/10/25(水) 12:26:50.69

もっとよく考えたほうがいいと思う

2023/10/25(水) 20:06:44.00

>>872
1000行なんてパソコンにとっては全然多くない
どうやろうが一瞬で終わる程度の量
そんな作業はどう考えてもForで回した方が速い

2023/10/26(木) 11:27:43.31

VBA内なら1000行すぐ終わるかも知れませんが
Powershellから呼び出しだと結構時間かかります
試しにComObject作成して確認してみて下さい

2023/10/26(木) 11:37:44.62

最初の質問から24時間以上経過してるけど、その間にパソコンを動かしてたら遅い方法でもとっくに終わってたやろうなあ

2023/10/26(木) 11:38:24.30

実際のセルの処理は時間がかかる
描画を止めてから処理すれば多少早くなるから、
Application.ScreenUpdating=Falseしてから処理をはじめ、
終わったらApplication.ScreenUpdating=True
計算処理も同様に
Application.Calculation = xlCalculationManual
やってからはじめて、
Application.Calculation = xlCalculationAutomaticでおえる

2023/10/26(木) 11:39:48.79

>>876
何度も使うつもりなら速いに越したことはないでしょ
一回切りなら尤もな話だけどさ

2023/10/26(木) 12:19:58.33

質問取り下げます
まともに回答するつもりの方いない様なので
書き込む前から雰囲気悪いなと思ったけどやっぱりか・・

2023/10/26(木) 12:46:23.38

変化する条件を一括設定したい
これだけ聞いたら「もう少し考えたら？」の回答しか出ないよ

2023/10/26(木) 14:25:49.72

>>879
与えられた条件で速くなりうる手段を考えて回答したのに、
まともな回答じゃないって判断されたんだね
考える時間もレスする時間も無駄にしたわ

2023/10/26(木) 14:46:30.23

> VBA内なら1000行すぐ終わるかも知れませんが
> Powershellから呼び出しだと結構時間かかります

これよくわからない
時間がかかってるのはExcelの起動やらとかであって、Forの実行はVBA内で行われるんじゃないの？

2023/10/26(木) 14:51:50.68

取り下げたんだからもう良いんじゃねw
自分の恥ずかしいところとか見つかったんだろうよw

2023/10/27(金) 15:12:43.55

>>883
> また別言語（Powershell）から呼び出しているのでWith構文は使えないと思います。
これもよくわからないし

Powershellって人がプロシージャに書いてある文章を一行ずつ読みにいって、自己解釈の元で自分で実行するみたいな発想だったのかね
ここまで意味不明な解釈してる人がどこで何に気がついたのか知らないけど>>879の捨て台詞は必要だったのかね
そして何よりもID:ewuxy2JXdが不憫で仕方がない

2023/10/27(金) 17:17:23.69

これからこういう人多く成るんだよ？　高学歴が邪魔するのか何だか知らんけど
プライドだけは変な方向に高い　実務に即さない解決策を講じる　選択肢が間違ってても突っ走る

2023/10/27(金) 18:21:28.41

ChatGPTでしらべたけどよくわからん、みたいな？

2023/10/27(金) 21:02:38.87

馬鹿が考える解決方法はそんなもの
馬鹿ほど己の間違え方法にこだわる

2023/10/28(土) 00:17:29.34

やっている本人しかわからない可能性があることなんていくらでもあるだろう。

2023/10/28(土) 06:04:48.34

セルに○○と打ち込んだ
これを.Valueで取ったら"○○"
.Textで取ったら" ○○ "になった
その前後のスペースはどこから来たんじゃい?

2023/10/28(土) 08:55:39.42

>>889
再現しない
https://i.imgur.com/6cSraSv.png

2023/10/28(土) 11:13:55.25

>>889
朝から寝ぼけたんじゃね

2023/10/28(土) 11:19:53.47

だよなあ
20年やっててこんなこと初めてだわ

2023/10/28(土) 15:22:33.56

馬鹿馬鹿って頻繁に書き込んでる人はよほど優秀なんだろうね。
Excelマクロ教室でも開けば良いのに。

2023/10/28(土) 20:44:15.82

>>889
セルの書式

2023/10/29(日) 01:44:54.53

>>894
標準か文字型
○○は漢字で、
Cells(1, 1).Text = "○○" がFalseで、
Cells(1, 1).Value = "○○" がTrueになったので、
んなわけあるか!と思ってDebug.Printしたら、
.Textには前後に変な空白があったのよ

2023/10/29(日) 10:01:38.54

とりあえずトリムっとけばおｋ

2023/10/29(日) 10:54:39.06

同じやん
https://i.imgur.com/ULDMIE0.png

2023/10/29(日) 12:32:43.45

>>895
問題のセルがA1だったとして、A1の表示形式を"標準"にする。
(一旦別の表示形式にして"標準"にするのがよい)
その状態からF2で一旦入力状態にして、Enterで確定。

これで同じになれば値をどうやって入れたかを調べる。
同じ列の別の行で同じことが起こるか、などいろいろ。

動けばいいんだったら、違うことを前提にして回避策をいれればいい。

2023/10/30(月) 00:45:58.32

1セルだけ書式が会計になってたわ
>>891の言うとおりだった
すまん

しかし、なんで会計だと空白が付くのかという新たな疑問が

2023/10/30(月) 01:23:46.28

>>899
セルや罫線の中で見やすくするためかしら？
桁区切り付き数値にしても、値の後に空白が入る。

2023/10/30(月) 10:34:02.92

Textはあくまで見た目のデータだからね
書式設定のウインドウでも位置がズレることが確認できるはず
何故かはしらん、マイナスとかついたときの位置を固定するためとかやろ

2023/10/30(月) 11:27:34.15

標準で入ってる書式にもスペース入ってるのあるはず（前はあったが…）
あれみた時、見えない爆弾仕込んでるな…と思った

2023/10/30(月) 12:07:45.37

前の空白は数値で付くのはわかるが後ろの空白は謎

2023/10/30(月) 12:28:45.35

おそらく非表示の書式文字はアンダーバー+半角スペース1文字

2023/10/30(月) 15:52:04.09

会計を設定した場合に隙間が空くのは、次のような表示形式が行われるからです
_ \* #,##0_ ;_ \* -#,##0_ ;_ \* "-"_ ;_ @_
https://www.officepro.jp/exceltips/tips_format/index16.html
基本のキ

2023/10/30(月) 16:33:05.01

いやそれが何故かっていう疑問なんじゃないの・・・
（言い換えれば空ける理由、空けなくてもいいんじゃない？っていう疑問だと思う）

答え出るかわからんし闇っぽいから、はい次の方

2023/10/30(月) 16:45:21.41

闇って言いたいだけだろ

2023/10/30(月) 22:20:23.95

書式設定を変えた時、文字の位置が少し変わるのは知ってたけど、まさかそれを内部的には空白で表現してるとは思わなかったよ

2023/11/01(水) 01:09:45.26

【質問】
Excelのソートに関しての質問です。

①シートの１列目の文字列に基づいて昇順でソートする。
②シートの１列目の文字列の先頭に「○」や「☆」などの記号がある場合は、それらを無視して２文字目の文字に基づいてソートしたい。

そこで下記コードを実行したところ、
「実行時エラー '1004': 並べ替えの参照が正しくありません。」というエラーが出ます。
どこをどう修正すればよいでしょうか？

2023/11/01(水) 01:11:37.64

Sub CustomSort()
Dim LastRow As Long
Dim SortRange As Range
Dim SortKeyRange As Range
Dim i As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set SortRange = .Range("A2:A" & LastRow)
Set SortKeyRange = .Range("B2:B" & LastRow)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

2023/11/01(水) 01:12:11.61

For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = Mid(SortKeyRange(i, 1), 2, 1)
End If
Next i

With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortKeyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = "○" & SortKeyRange(i, 1)
End If
Next i
End Sub

2023/11/01(水) 03:09:14.48

>>909
何もかも違ってる気がするので丸ごと作り直してみたけど、これで希望の結果になってるかはわからない

Sub CustomSort()
　　Dim LastRow As Long
　　Dim SortRange As Range
　　Dim SortKeyRange As Range
　　Dim i As Long

　　With ActiveWorkbook.ActiveSheet
　　　　LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　Set SortRange = .Range("A2:B" & LastRow)
　　　　Set SortKeyRange = .Range("B2:B" & LastRow)
　　　　.Range("A2:A" & LastRow).Copy Destination:=SortKeyRange
　　　　For i = 2 To LastRow
　　　　　　If Left(.Cells(i, 1), 1) Like "[〇☆]" Then
　　　　　　　　.Cells(i, 2) = Mid(.Cells(i, 1), 2, 1)
　　　　　　End If
　　　　Next i

　　　　With .Sort
　　　　　　.SortFields.Clear
　　　　　　.SortFields.Add2 Key:=SortKeyRange
　　　　　　.SetRange SortRange
　　　　　　.Header = xlNo
　　　　　　.MatchCase = False
　　　　　　.Orientation = xlTopToBottom
　　　　　　.SortMethod = xlPinYin
　　　　　　.Apply
　　　　End With
　　End With
End Sub

**デフォルトの名無しさん** (ｽﾌｯ Sd33-wFsA) · 2023/11/01(水) 03:13:41.64

>>909
ほぼマルチんこ

2023/11/01(水) 07:02:30.74

>>912
ありがとうございます。
ただ、そのコードを実行してみたら、ちょっとセルの中身がずれたりしていたので、色々試した結果、下記のコードで解決しました。

Sub CustomSortWithSymbol()
Dim LastRow As Long
Dim ws As Worksheet
Dim i As Long, j As Long, k As Long
Dim sortKey As String
Dim originalValue As String

Set ws = ThisWorkbook.ActiveSheet ' アクティブなシートを設定
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最後の行を取得

Dim sortKeys() As String ' カスタムソートのため、ソートキーを一時的に保持
ReDim sortKeys(1 To LastRow)

For i = 2 To LastRow ' ○や☆の文字で始まる文字列の場合、次の3文字をソートキーとして設定
originalValue = ws.Cells(i, 1).Value
If Left(originalValue, 1) = "○" Or Left(originalValue, 1) = "☆" Then
sortKeys(i) = UCase(Mid(originalValue, 2, 3))
Else
sortKeys(i) = UCase(Left(originalValue, 3))
End If
Next i

2023/11/01(水) 07:04:31.49

For i = 2 To LastRow ' ソートキーを使ってソート順を決定
For j = i + 1 To LastRow
If sortKeys(i) > sortKeys(j) Then
Dim tempKey As String ' ソートキーの順序を入れ替え
tempKey = sortKeys(i)
sortKeys(i) = sortKeys(j)
sortKeys(j) = tempKey

Dim tempValue As String ' A列のセルの値も入れ替え
tempValue = ws.Cells(i, 1).Value
ws.Cells(i, 1).Value = ws.Cells(j, 1).Value
ws.Cells(j, 1).Value = tempValue

For k = 2 To 10 ' B列～J列のセルの値も入れ替え
tempValue = ws.Cells(i, k).Value
ws.Cells(i, k).Value = ws.Cells(j, k).Value
ws.Cells(j, k).Value = tempValue
Next k
End If
Next j
Next i
End Sub

2023/11/02(木) 01:34:57.09

めっちゃ解りやすい。上手ですね

2023/11/02(木) 10:47:14.24

いえいえ

2023/11/02(木) 12:10:56.31

swap関数作るともっと簡単に

2023/11/10(金) 14:54:35.91

VBAでスクレイピングをしてるんだが

これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class = 'next'] > a")
これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class *= 'next'] > a")
これはエラーになる
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class ！= 'next'] > a")

VBAのFindElementsByCssで!=を使う方法てある？
もちろん<>もだめ。

2023/11/10(金) 18:46:25.71

ソレってVBAではなくDriverさんの文法ですよね？

2023/11/10(金) 20:05:43.07

コレでどーなるか　ちょっと試してみてもらえるかぬ
Set o_elem = Driver.FindElementsByCss(“ul.M_pager > li:not([class = ‘next’]) > a”)

2023/11/10(金) 23:38:13.76

>>921
THX
それだとエラーはなくなるけど
<li class=next><a>も選ばれてしまう。
.

ul.M_pager > li:not([class]) > a
だとうまくいきました

2023/11/11(土) 00:16:15.21

解決オメだぬ

2023/11/12(日) 20:06:42.57

デスクトップに保存したhtmlファイルを、Shell ("エッジのパス\msedge.exe" & path, vbNormalFocus)で開いています。
んで、そのhtmlファイルには複数個のリンクがあります。
各リンクを自動的にonClick()でクリックするにはどのようにすればいいでしょうか？

2023/11/13(月) 01:56:20.78

知らんが、onclickするより、
そのhtmlをテキストで読み込んで、
アドレス調べて直接開いた方がはやい

2023/11/13(月) 07:48:09.28

>>924
ウイルスみたいなことは止めてね

**あぼーん** · NG

あぼーん

2023/11/13(月) 10:34:01.20

>>927
これは試す価値あるな

2023/11/13(月) 11:23:51.91

>>924
イベントハンドラ(onClick)を自動的にクリックとか表現してるあたり、なんか基本がわかってなさそうなふいんきだけど、大丈夫？

Edgeに限らず、Shellで開いたアプリをクリックするのは不可能じゃないけどかなり大変
APIを使わないと無理なんだけど、Shell以外の方法で開くのはだめなの？

2023/11/13(月) 20:01:33.22

そういうのは、Ruby, Selenium WebDriver で出来そう

2023/11/14(火) 05:23:36.97

アクティブブックを保存してBluetoothでファイル転送。の方法をお教えいただきたくお願いいたします。

上記についてはウェブサイトでも見つかりませんでした。今は手段をメール添付にして似た動作で行っていますが、ローカルPCでも自動ファイル転送するケースがでてきたため、Bluetooth転送方法をお願いいたします。

2023/11/14(火) 07:04:54.83

転送したいファイルを右クリックして　送る　で　ＢＴデバイスを選択するダケと思いましたケドぬ

2023/11/14(火) 13:08:23.76

>>931
BT通信の自動化はかなりめんどい
専門家に開発費を払って作ってもらうレベル
自分でやりたいなら、ここを参考にして
https://www.softech.co.jp/mm_170705_tr.htm

2023/11/16(木) 21:59:20.91

Microsoft 365 Excel バージョン2310 ビルド 16924.20124だけど、
name no
a 1
b 2
c 3
みたいなテーブル1を作ってワークシート上で
XLOOKUP("a",テーブル1[name],テーブル1[no],"")
ってやると当然1が帰るけど、
vbaで
With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]"), .Range("テーブル1[no]"), "")
End With
みたいにするとaだけ帰ってこない b以降はOK これは何でしょ？

2023/11/17(金) 00:30:19.09

With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]A1:A3"), .Range("テーブル1[no]"), "")
End With

こんなカンジで試してみてどーかぬ

2023/11/17(金) 05:58:28.92

>>934
そのコードで本当に動いた？エラーになるけど。
そのWithの指定だとテーブルの中身だけ持ってくるから .Range("テーブル1[name]") で参照出来ないと思う。

2023/11/17(金) 10:29:57.13

>>935
ありがとあとで試してみる
>>936
動いてるコードそのまま貼ったつもりなんだけど…動かなかったらすまん

2023/11/17(金) 12:35:58.54

商社から上司経由でシステムの売り込みとかよく来るしpython勉強すればもっと広い範囲で出来たりするんだろうけど
vbaで何とかしようと考えちゃう悪癖が無くならない
42歳だけど化石人種のまま定年になるんかなぁ

2023/11/17(金) 17:47:10.30

得意なツールでなんとかするのわ　ワルくわネエと思いますケドぬ

2023/11/17(金) 17:58:29.35

ではN88BASICとフロッピーでなんとかします！

**934** (ﾜｯﾁｮｲ ffbd-f7HJ) · 2023/11/17(金) 20:54:07.11

With ThisWorkbook.Sheets(1).ListObjects("テーブル1")
MsgBox Application.WorksheetFunction.XLookup("a", .ListColumns("name").Range, .ListColumns("no").Range, "")
End With

結局これでうまくいったおまえらありがとう

2023/11/17(金) 21:14:43.08

解決オメだぬ

2023/11/18(土) 09:48:39.54

ChatGPTのcursorとエクセルを連動することって出来ますかね？

cursorで作成したVBAコードをVBEに貼り付けて実行ではなく、
cursor内から直で実行したいです。

2023/11/18(土) 11:55:47.75

cursor ってpythonなので　python でエクセルを呼んでやれば可能と思いますケドぬ

2023/11/18(土) 15:43:14.57

ありがとうございます。
やっぱり難しいですよね。
そもそもVSCodeとVBAの相性もいまいちなことに気づきました。

2023/11/18(土) 18:44:14.80

コピー元.Copy : コピー先.Paste
はクリップボード経由なので遅いと聞きましたが
コピー元.Copy Destination:=コピー先
はクリップボード経由でしょうか？

2023/11/18(土) 18:45:57.90

ChatGPTの回答を貼ってくれるのでも良いです。

2023/11/18(土) 19:32:00.40

書いてる間に試せるだろうに

2023/11/18(土) 20:51:47.51

出先とかでVBA動かせない環境かもよ
copyメソッド＝クリップボードにコピー

2023/11/18(土) 23:37:15.79

フォームボタンから引数付きマクロ呼び出すとエラー出たり再度ブック開くときに壊れるね
これ改善されないのかな

2023/11/19(日) 17:49:55.03

意味わからんな、使い方が悪いんじゃね