Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!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/11/23(火) 22:13:21.88

高度な処理をするより見た目派手なことするほうが関心されるってのはあるわな

2021/11/23(火) 22:18:57.11

そら見た目の印象で判断してるからな
実際どんな事やってるのか踏み込む人には効果無し

2021/11/24(水) 17:35:27.48

動いてる感じを演出して見た目を楽しませるの結構大事だよ
書き込んだところをselectするようにしたら、嬉しそうにセルに書き込まれてる様子眺めてた

2021/11/24(水) 18:46:24.44

リアルタイムの進捗状況見れるしな
そういうの好きな人は懐かしのデフラグも好きそう

2021/11/24(水) 21:02:30.81

>>684
VBAがインターフェースだのクラスイニシャライザだのポリモーフィズムだの
実装してくれればいいだけじゃないのかな。

「卒業しなきゃいけない」ものでもないだろ、今の普及度見てると。

2021/11/24(水) 21:45:28.54

>>706
いらんいらん
vbaはあくまで今ぐらいの不便さでちょうどいい
下手にそんなもん実装されたら読みづらくなってかなわん

2021/11/25(木) 19:13:08.61

>>706
VBAにはインターフェースあるよ

2021/11/25(木) 23:19:56.43

>>708
あったっけ。俺の記憶違いならごめん。

あと、致命傷なのが実質グローバル変数化するエクセルのセルだと思う。
あれ、とてもやっかい。

2021/11/25(木) 23:31:25.24

>>691
ありがとうございました。
できました。

2021/11/25(木) 23:41:58.44

Open/Nameで開く/リネームするファイルの名前に
全角括弧や中黒、半角ピリオドが入っていると
実行時に「エラー53 ファイルが見つかりません」
が出ます。
ファイル名が長すぎるのかと思い短くしたが変わらず、
実行前に上記のような文字を削除しておくとと無事処理が終了します。
しかし手作業で削除するのが面倒なのでそれ以外の対処を知りたいです。
先生方ご教示ください。

2021/11/26(金) 00:05:14.55

うろ覚えだから動かなかったらごめんね
こんな感じにやるといけたかもしれない
Replace(対象のファイル名, "・", Chr(Code("・")))

2021/11/26(金) 17:57:21.05

質問です
所定の形式のシートAからデータを取り出し、数値の操作を行ったあと別の形式のシートBに記入すると言うマクロと逆にシートBからシートAに記入するマクロを作りたい場合に楽をする方法はないでしょうか?
今まではA→BとB→Aで2つマクロを作ってたのですが見るところが同じなのでまとめれるように感じたのです
プログラムについて詳しくないので無茶なことを言っているかもしれませんがよろしくおねがいします

2021/11/26(金) 18:18:33.57

またRuby馬鹿か

2021/11/26(金) 19:32:54.64

>>713
自分で考えないで他人に作らせるのが一番楽じゃないかな

2021/11/26(金) 20:39:32.12

>>713
Cを作ってそれで操作

2021/11/26(金) 20:40:23.50

>>715
まさに今やってるのがそれだな

2021/11/26(金) 21:24:20.33

>>713
その気づきが大事だよな
プロシージャを分けてCallで呼び出して引数はシートにする

2021/11/26(金) 21:29:44.76

もうRubyは飽きたから
VBAで書かないならせめて
今流行りのPythonとか
新たに注目されてるRustとか
いずれWebのExcelで必要になるJavascriptとか
VBAやってる人が次に進みやすい
VB.NetとかC#とかその辺で書けばいいのに
Rubyとかで書いて来るセンスないバカは
死ねばいいと思う

2021/11/26(金) 21:57:57.19

…落ち着けよ

2021/11/26(金) 23:05:04.12

>719
一応マジレスする
rubyにはとんでもないキチガイがいて、そいつが嵐回っている
そのおかげでrubyは総スカン、言語に影響するレベルで貶めされるようになった

キチガイ一人で言語一個潰せたのは割とマジですごいと思う

2021/11/26(金) 23:29:32.65

あわしろ氏が言ってたけど、ベンダーロックインされるから、特定企業の言語は使わないほうが良いよ。

2021/11/27(土) 07:12:17.07

>>713
値を取得したいセルの範囲をどっかのセルに書いといてその位置を引数で渡せばいいじゃん
複数範囲があるならその複数セルの位置を書いた範囲を引数で渡せばいい。

2021/11/27(土) 07:20:09.69

あのあわしろ氏とかいうのはアホだから
今はLinuxでさえExcelと似たようなソフトがあってそれでもVBAが動くことか考慮していないのだろう
Cなんか組込系はハードによってすらコードが左右されるのに、必要なときに必要な勉強をすればいいだけなのに変な固定概念を持っててそれを人に押し付けてる

2021/11/27(土) 08:52:39.21

>>713
取り出すシートと書き込むシートを引数で渡せばいいだけかと

Sub Hoge(取り出すシート As Worksheet, 書き込むシート As Worksheet)
Dim 値 As Variant
値 = 取り出すシート.Range(取り出す場所).Value
' なんかの処理
書き込むシート.Range(書き込む場所).Value = 値
End Sub

Dim SheetA As Worksheet, SheetB As Worksheet
Set SheetA = ActiveWorkbook.Worksheets("A")
Set SheetB = ActiveWorkbook.Worksheets("B")
' A ⇒ B
Hoge SheetA, SheetB
' B ⇒ A
Hoge SheetB, SheetA

2021/11/29(月) 11:44:05.96

やっと多態性の概要が分かってきた

**713** (ﾄﾞｺｸﾞﾛ MM4f-0CXU) · 2021/11/29(月) 11:52:31.66

範囲を別のところに書いたり引数指定でやればいいんですね
遅くなってしまいましたが色々なご意見ありがとうございます

2021/11/30(火) 12:14:18.10

>>726

VBの多態性？

2021/11/30(火) 12:24:36.07

ああ。CallByNameとかを使えば擬似的にできるんだ。へえ。

しかし、クラスイニシャライザと継承を普通に実装してくれれば
…くれないんだろうな、もう。

2021/11/30(火) 13:25:55.62

すいません質問させてください。
特定のエラーウィンドウが出たら実行するマクロを作りたいのですが
実行条件の指定の仕方がわかりません。
具体的には「データの入力規制」のエラーメッセージタブで指定した
ウィンドウの「はい(Y)」を自動で押したのちにマクロを実行させたいです。
ご教授お願いいたします。

2021/11/30(火) 16:33:24.70

え、そんなことできるの！？

2021/11/30(火) 17:17:34.47

>>731
エラーハンドラーでできないの？

2021/11/30(火) 18:33:56.15

できないから質問したんじゃないの？

2021/11/30(火) 18:53:53.22

730です。
vba内?で出たエラーを条件にした処理は探せたんですが、エクセルが出したエラーをトリガーにしたものが探せなくて質問させていただきました。もしあるならば知りたいなと思った次第です。

2021/11/30(火) 19:41:38.94

その入力規制をVBAにしたほうが手っ取り早い

2021/12/01(水) 04:06:37.80

なるほど、確かにそうかもしれません。
ありがとうございました。

2021/12/01(水) 09:01:08.50

Excelスレに書き込んだ後にVBAスレがあることに気付きました。

VBAでA1セルに入っている文字列を使ってA2セルに文字列を入れたいと考えています。
↓のように作ったときA1が数字だけかアルファベットだけならうまく入るんですが数字とアルファベットを組み合わせた文字列(例えば4A02とか)だと1004エラーとしてアプリケーション定義かオブジェクト定義のエラーがあると怒られてしまいます。
解決方法あるものでしょうか？

Range("A2").value = "=(1,2,3," & Range ("A1").value & ",5,6,7,8,9,""abc"",0)"

2021/12/01(水) 09:26:46.14

ありません

2021/12/01(水) 09:26:59.16

>>737
数式を変えるか、セルの書式を文字列にする
Range("A2").Value = "'=(1,2,3," & Range ("A1").Value & ",5,6,7,8,9,""abc"",0)"

2021/12/01(水) 11:09:46.49

>>729
クラスのコンストラクタ自体はあるよ。引数が使えないだけで。
VBAの場合は一般的に言う継承は使えないけども移譲が使えるのでクラスで多態性を持たせる場合は
テンプレートメソッドパターンを使うのではなくストラテジーパターンを使う。

2021/12/01(水) 11:40:27.26

ユーザーフォーム上でのハイパーリンクに関して教えて欲しいです。

エクセルで下記のようなデータがあり、各レコードをユーザーフォームで
表示できるようにしています。

レコード　氏名　　駅　　　地図(URL)
1　　　　山田　　新宿　　https://map.yahoo.co.jp/search?q=新宿
2　　　　鈴木　　渋谷　　https://map.yahoo.co.jp/search?q=渋谷
3　　　　木村　　池袋　　https://map.yahoo.co.jp/search?q=池袋
･
･

その際、「地図(URL)」のテキストボックスを使ってハイパーリンクの設定を、あるいは
「地図(URL)」のラベルを使ってリンクを開くをお教えていただけないでしょうか。

2021/12/01(水) 11:45:54.74

>>741
http://officetanaka.net/excel/vba/tips/tips01.htm

2021/12/01(水) 11:51:59.83

まぁその前にExcelのユーザーフォームは
スプレッドシートやグリッドビューや
HTMLでいうTableタグのようなものが無いので
擬似的に一覧を作る方法を考える方が
先だと思うけど。

2021/12/01(水) 11:57:47.33

Private Sub ラベル地図_Click()
Dim a
a = 地図.Text
ユーザーフォーム.FollowHyperlinks Address:="a"
End Sub

なんとなくこんな感じなかとやってみたのですが、エラーでした。
宜しくお願いいたします。

2021/12/01(水) 11:59:07.74

VBAって初学者はどうやって勉強すればいいんですか？

2021/12/01(水) 12:03:16.45

>>744
=a
だとどう？

2021/12/01(水) 12:12:34.05

>>745
変数の定義、ループ文の書き方、条件分岐の書き方が分かれば大体の言語はなんとかなる
あとは自分が何をやりたいかによってこんな動作はできるか？あんな動作は可能か？って一つ一つ調べていけばいい
処理速度が遅いと感じ始めたら最適化とかに手を出したり、シークバーを表示することで体感速度を早めたりっていう事を覚えていけば最低限はなんとかなるんじゃない？知らんけど

2021/12/01(水) 12:23:56.22

>>745
「～をやりたい」という目標を決めたら
後はGoogle先生とマクロ先生に聞けばいいんじゃないかな

2021/12/01(水) 12:31:06.77

>>744
そうだね、
まずは3行目の変数に代入している文字列を
ダブルコーテーションで囲めばいいんじゃないかな。
後、地図.txtってどこのフォルダに格納されているのかな？フルパスで書かないとダメだよね。
最後に>>746の人が言ってるとおり、それだとaという変数の中にある頭を見て飛んでるんじゃなくて、
aというリンク先に飛ぼうとしているよね。

2021/12/01(水) 12:33:40.85

ごめん誤表記
頭×
値◯

2021/12/01(水) 12:42:23.19

>>739
ありがとうございます
無事にできました！

2021/12/01(水) 13:31:12.78

Range　ってテキストボックス内の文字列(アドレス)指定できたでしょうか？？

テキストボックスのオブジェクト名を間違ってた･･･

Private Sub ラベル地図_Click()
Dim a
a = "txt地図"　’テキストボックス(txt地図)内表示の文字列
ユーザーフォーム.FollowHyperlinks Address:=”a"
End Sub

･･･またエラーだ･･･。
「a」「”a”」ともに･･･。
.FollowHyperlinks　がダメなのかなぁ。

安易に質問してすみませんでした。
勉強しなおします。
他いろいろ試してまた分からなかったら来ます。

2021/12/01(水) 13:36:58.56

>>745
上の>>744初心者です。
マクロの記録使って、そのコード見てイジってます。

この方法って間違ってる気もしますが･･･。

2021/12/01(水) 13:40:49.74

フォームオブジェクトには.FollowHyperlinksというメソッドは無いね

WorkbookかApplicationのを使うとよろし

2021/12/01(水) 14:39:09.38

Sub マクロ保存したまま拡張子変換()
Dim bk As Workbook
Dim f As Variant
Dim gf , hf
Dim fro As Object
MsgBox (“変換するフォルダを選択して下さい”)
Set fso = CreateObject(“Scripting.FilesystemObject”)
With Application.FileDialog(msoFileDialogFolderPicker)
.show
gf = .SelectedItems(1)
MsgBox (“保存するフォルダを選択してください。”)
FileDialog(msoFileDialogFolderPicker)
. Show
hf = . SelectedItems(1)
End with
Set = fso.GetFolder(gf).Files
For Each f in fso.GetFolder(gf).Files
If LCase(fso. GetExtensionName(f.name)) =“xlsm” Then
Application.DisplayAlerts = False
Set bk = Workbooks.Open(gf & “\” & f.Name)
bk.SaveAs gf & “\”fso.GetBasename(f.Name) & “.xlsx” , 51
bk.Close
set bk = Nothing
End if
Next
fso.MoveFile “gf & \ *.xlsm,_ “hf”
set gf = Nothing
set hf = Nothing
set fso = Nothing
MsgBox “ finished”
End sub
元のマクロデータ結果が消えるのと、フォルダ移管がうまくいきません。誰かたーすーけーてー。

2021/12/01(水) 14:39:40.62

>>747
>>748
ありがとうございます

2021/12/01(水) 15:27:28.95

今日び小学生でも拡張子変更なんぞせんぞ

2021/12/01(水) 15:29:25.99

へぇー

2021/12/01(水) 15:37:37.70

拡張子なんてずっと前から非表示がデフォルト設定だもんな
表示してるのはIT技術者とマニアぐらい

2021/12/01(水) 17:45:16.35

>>745
解説本読んだら、やりたい事　vbaでググる

2021/12/01(水) 17:45:55.82

>>755
さっきの人もそうだけど、とりあえず変数を""で囲うのやーめーてー

2021/12/01(水) 18:55:24.01

>>755
せめてコード載せる時は
全角ダブルクォーテーションやーめーてー

2021/12/01(水) 20:04:07.09

スマホ使いにそんなこと言ってもしゃーないで

2021/12/01(水) 20:12:27.50

PCやけど

2021/12/01(水) 20:28:25.20

ExcelスレにはPCからアクセス出来ないからと
全部手打ちのお客さんが稀に良く来るんだよ
いつものひとって呼ばれているけど個体ではなく群体かもしれないね

2021/12/01(水) 21:12:48.54

なにそれ怖い

2021/12/01(水) 21:14:41.21

>>745
今やってる手作業を全部マクロで書いてみる
とにかくひたすら、
「入力を最低限に」
「出力を正確に」
を考えると、実用十分な面で腕が上がる

あとはオブジェクト、setなどを覚えると更に快適になるけど
まぁそこまで覚えなくてもいいことがほとんど

2021/12/01(水) 21:25:33.13

「助けて」と質問を書くのは馬鹿ばっか

2021/12/01(水) 21:42:33.27

タスケテ…

2021/12/01(水) 22:01:16.26

コロシテ…

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-f7fV) · 2021/12/01(水) 22:12:07.13

オコシテ…

2021/12/01(水) 22:19:52.19

excel vnaでパス区切りが入りません。
\マークの前に、変な文字が入ってしまいます。
a=“c:\tmp\”
が
a=“c: \tmp \”
みたいになります。
解決策をご存知の方いませんか？

2021/12/01(水) 22:22:18.62

>>772
どの時点で入るのか

2021/12/01(水) 22:22:56.56

VNAじゃ無理だな

2021/12/01(水) 22:28:54.98

>>773
パスを連結する所です。
次のようなコードです。

file = wsh.specialfolder(“Desktop”) & “\test.csv”

2021/12/01(水) 22:31:48.27

>>775
実行時なのか書いてるときなのかってこと

2021/12/01(水) 22:37:04.57

>>776
実行時です。
lenで長さを調べると、不明な文字分、長くなっています。

2021/12/01(水) 23:27:22.80

Ruby の文字列には、こういうメソッドがある

chomp は、文字列の末尾に改行コードがあった場合に、文字列の末尾の改行コードを削除します。
strip は、文字列の前後のホワイトスペース(空白類？)をすべて削除します

2021/12/01(水) 23:37:48.12

使用者の低下率ナンバーワンのrubyか

2021/12/01(水) 23:47:40.21

とりあえず、半角スペース？をRelaceしてその場は乗り切ればいいんじゃない
根本的な解決じゃないだろうけどVBAなんだからその場しのぎで十分

2021/12/02(木) 02:56:08.75

>>780
Ruby馬鹿に引っ掛かる馬鹿

2021/12/02(木) 05:50:03.53

>>780
半角スペースでは無い文字だったので、置き換え出来ませんでした。
結局、動的にパスを連結するのは諦めて、一つの文字列にして対応しました。
お騒がせしてすみませんでした。

2021/12/02(木) 09:23:36.17

絶対別のどこかにバグがあるパターンやな
ステップ実行しながら変数の中身をチェックしてみ

2021/12/02(木) 15:07:50.32

全角空白、CR、LF、ESC文字、TABコード、00H、のどれかに10ガバチョ
不明文字の文字コード調べればすぐわかるのになぜしないのか？

2021/12/02(木) 19:13:44.99

>>747
> 変数の定義、ループ文の書き方、条件分岐の書き方が分かれば大体の言語はなんとかなる

OOPからのパラダイムシフトすら起きつつある今、それだけでは
ソース見て、？？？？？にならないか。

2021/12/02(木) 19:16:51.76

基本を押さえれば何が出来るかとかどう調べればいいか分かるって言う話なのになんでそれオンリーで戦おうとするん

2021/12/02(木) 19:34:11.48

縛りプレイ？

2021/12/02(木) 20:00:04.69

ああ、なるほど。すまんかった

2021/12/02(木) 20:17:25.75

それがこのスレに集う人達のクォリティ

2021/12/02(木) 21:25:27.56

知らんけどって最後につけてるからセーフ

2021/12/02(木) 22:03:16.66

知らんがな

2021/12/03(金) 04:54:46.81

>>775
csvがユニコードだったのではなかろうかもう解決したみたいなのでどっちでもいいけど
自分の場合は、ウェブからコピペしたセル上の文字列がユニコードなのにそれをvbaで扱おうとしたらちょっと嵌まったまあなんとかうまく処理できたけど
vbaのエディタはユニコードに対応してないそうだから困っちゃうね

2021/12/03(金) 05:26:40.56

>>792
これ全く再現できないんだよな

っていうか質問者自身が
「\の前に文字が混入するバグ」であるとか、
原因が「a=“c:\tmp\”」や「file = wsh.specialfolder(“Desktop”) & “\test.csv”」にあると勝手に判断してて、
それがミスリードになってる気がする。

余計な文字が入った個所が偶々\マークの近くだっただけだったり、
実は後々変数を弄っていてそこで混入している可能性もある。

質問者は素直にコードを一部始終書いて、
「ここでこうなるようにしたい」とそれだけ書けばいいのにと常々思う。

2021/12/03(金) 07:05:37.24

＞「ここでこうなるようにしたい」とそれだけ書けばいいのにと常々思う。

禿げ上がるほど同意

2021/12/03(金) 08:32:26.43

また髪の話してる(´・ω・`)

2021/12/03(金) 11:57:05.48

IE操作をしてとあるページまで辿り着いて、そこのBASIC認証のポップアップにユーザー名とパスワードを入力した後、OKをクリックする、ということをやりたいです
詳しくないのですが、普通にリンクを辿っていく感じではなく、div要素にJavaScriptが埋め込まれていて、VBAでIdやClassを指定してクリックしてもページ遷移しません
BASIC認証を求められるページの先にあるデータが目的なのですが、そこへ直接行くURLは分かっていても、当然ながら先にログインしてないとデータが閲覧できないようになっています
直接URL先へ飛んでもBASIC認証のポップアップが出ないため、初めから順にページ遷移していって、BASIC認証を求められる特定の場所まで辿り着きたいのです
そのBASIC認証を求められるページのURLが分からないので、遠回りでもそういう方法しか自分には思い浮かびません
URLにユーザー名とパスワードを埋め込む方法はもうできないそうなので、どうにかJavaScriptによるページ遷移をVBAによるIE操作でやりたいです
必要な情報がなにかも分からないのですが、具体的にどうすればdiv要素に埋め込まれたJavaScriptを動かせますか？

2021/12/03(金) 12:53:21.83

>>796
認証している画面(ログイン画面)は分かりますか？
そもそもですが、一度ログインした情報をクライアントサイドで持ち回っているとは限りませんよ。

Webにはサーバー側でセッションというものがあり、セキュリティ上の関係で、ログイン画面で打ち込んだ、あるいはログイン出来た、という情報をそれで持ち回る手段も一般的に使われます。

クッキーやクエリストリングで持ち回る場合も有りますが、一般公開されているサイトであれば望み薄でしょう。

直接入るようにするのであれば、そのサイトも社内環境のような場所にあるのであれば、そういう口を作って貰うのが一番手っ取り早いでしょう。
そんなに簡単に入れるのなら内部の情報抜きたい放題ですよね？
だから認証というものがある訳です。

2021/12/03(金) 13:12:32.34

>>796
鯖によって使えるかどうか変わるけど、URLにIDとパスワードを埋め込んで認証させてしまうという方法がある
あとJavascriptでのページ遷移もURLにスクリプトを埋め込む方法で飛べてしまうケースがけっこうある
これ以上は具体的にそこのサイトを教えてもらわないと、何が使えるとかアドバイスは難しい

2021/12/03(金) 13:19:32.02

>>796
URLなんてパケットキャプチャすればすぐわかる
ただしURLにワンタイムキーが含まれてる場合はURLがわかってても直接飛ぶのは不可能
ポップアップウィンドウに文字列を入力する最終手段としてSendKeysというのもあるけど、安定動作させるのが難しすぎるのであまりおすすめしない

2021/12/03(金) 13:54:04.52

>>796
他のアプリ操作してネットワークにアクセスするのをVBAで作るのはやめなされ

2021/12/03(金) 14:27:04.84

>>797
詳細は分からないのですが、一度ログインした後ならば、その先のURLへ直接飛んでも閲覧できるんです
なので、とりあえず一度でもどうにかログインさえすれば、なんとかなるかなと思っています

>>798
外部サイトではないので直接見ていただくことはできないのです
URLに埋め込む方法を試しては見たのですが上手くいきませんでした
欲しいデータのある場所は、URLにパラメータを渡してなんとか飛べることはできたので、BASIC認証が求められるページもそうやって行けるのが一番なんですが、ソースを見ても分からなくてお手上げ状態です
BASIC認証を呼び出してるであろうそれっぽい場所は見つけたんですが、そこからどうも上手くいかなくて・・・

>>799
なるほど
パケットキャプチャ調べてみます
とにかくポップアップさえ表示できれば、最悪SendKeysでEnterしてやろうと思ってました

>>800
あまり良くないであろうことは分かってるんですが、できればすでにあるVBAコードの中に組み込みたいんです・・・

2021/12/03(金) 14:43:51.51

Authorizationヘッダを追加する方法は試したの？