Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/04/21(土) 10:14:56.03

>>853
VBAでシートから配列に変換してdllに渡す
計算結果は配列でVBAに返す

dll側はシートなどのExcelオブジェクトと切り離す

**デフォルトの名無しさん** · 2018/04/21(土) 10:15:29.17

>>855
そんな事言うためにこのスレに留まってるの？

**デフォルトの名無しさん** · 2018/04/21(土) 11:33:54.73

フォルダAにある現在開いているファイル以外のファイルをフォルダBにコピーし、
その後、フォルダAにある現在開いているファイル以外を削除する方法を教えていただけますでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · 2018/04/21(土) 12:13:41.84

>>858
Dim fn as String
fn = Dir(ThisWorkbook.Path & "\")

Do While Not fn = ""
　If Not fn = ThisWorkbook.Name Then
　　Name ThisWorkbook.Path & "\" & fn As "フォルダBのパス" & "\" & fn
　End If
　fn = Dir()
Loop

これでどうかな
実験してないのでこけるかも知れない

**デフォルトの名無しさん** · 2018/04/21(土) 12:20:05.75

>>859
ありがとうございます。
理想としていたことができました。

**デフォルトの名無しさん** · 2018/04/21(土) 12:28:03.91

>>848
ヴィーバアーって読むん？　それともビーバー？

**デフォルトの名無しさん** · 2018/04/21(土) 12:55:33.20

ブック1のシート1とブック2のシート2を開いてシート2がアクティブの時、
シート1の選択範囲を取得する方法はありますか？

**デフォルトの名無しさん** · 2018/04/21(土) 14:20:03.89

切り替わるタイミングでアクティブなセルの番地を拾っておけばできるんじゃないか。

**デフォルトの名無しさん** · 2018/04/21(土) 17:05:31.81

>>862
同一EXCELアプリケーション内なら

**デフォルトの名無しさん** · 2018/04/21(土) 22:31:31.47

エクセルのことわざわざ英語でEXCELって書くやつなんなん？

**デフォルトの名無しさん** · 2018/04/21(土) 22:34:09.27

そこはさすがにエクセルのほうが違和感あるわ

**デフォルトの名無しさん** · 2018/04/22(日) 04:13:47.20

地味な違いだけど
ローマ字綴りの方がタイプしやすいと感じてる

**デフォルトの名無しさん** · 2018/04/22(日) 04:46:55.12

ekuseru

**デフォルトの名無しさん** · 2018/04/22(日) 05:22:32.39

ブイビーエー

**デフォルトの名無しさん** · 2018/04/22(日) 05:56:17.23

ヴィービーエィ

**デフォルトの名無しさん** · 2018/04/22(日) 09:06:19.18

あーあー　Eきもーちー♪

いや、思い出したんでついな(´・ω・｀)b

**デフォルトの名無しさん** · 2018/04/22(日) 09:21:51.06

JIS(？)っぽい思想だとカタカナでエクセルなんだろうなぁ、とか

**デフォルトの名無しさん** · 2018/04/22(日) 09:46:56.02

>>865
こういうつまらないことにこだわる奴って気持ち悪いよね

**デフォルトの名無しさん** · 2018/04/22(日) 10:20:16.74

複数シートの中で売上という文字列が入っているシートがいくつかあり、
そのシート内のB列にデータがないシートのみを削除する方法を
教えていただけますでしょうか。
宜しくお願い致します。

**デフォルトの名無しさん** · 2018/04/22(日) 10:21:28.91

なんか質問する人、同じ人ばっかり？？

**デフォルトの名無しさん** · 2018/04/22(日) 10:23:26.90

>>862
マクロの記録でどう出るか確認したら？

**デフォルトの名無しさん** · 2018/04/22(日) 10:24:40.29

>>875
宿題か何かだろうね。

**デフォルトの名無しさん** · 2018/04/22(日) 10:25:45.97

>>874
そのまえに、そんな乱暴にシートを削除してよいのか？

**デフォルトの名無しさん** · 2018/04/22(日) 11:37:43.72

>>874
ディテールの書き方が少し甘い
売上という文字列はシート名に入ってるの？
それともシート上のどこかのセルとかコメントに入ってるの？

**デフォルトの名無しさん** · 2018/04/22(日) 12:07:27.96

>>879
わかりづらくてすみません。
シート名に「売上〇〇月」と入っております。

**デフォルトの名無しさん** · 2018/04/22(日) 12:15:10.53

その程度も書けないようじゃマクロ使わない方がいい。特にシート削除は理解してないと危険。

**デフォルトの名無しさん** · 2018/04/22(日) 12:26:25.19

「B列にデータがない時」ってマクロの記録じゃ無理と違うか？

**デフォルトの名無しさん** · 2018/04/22(日) 12:29:32.98

マクロの記録でヒントでも掴んでみろって事じゃないの
みんなトライエラー繰り返してる中、トライもせずに質問投げるのは印象良くない

**デフォルトの名無しさん** · 2018/04/22(日) 15:01:52.07

>>874
・for each で全シートをなめます。
・シート名に「売上」が含まれている場合、さらにＢ列の値を数えます。
・条件に合致したらシートを削除します。

上２つはGGればいくらでも情報でてきます。
一番下はマクロ記録でわかります。
動作上不都合な挙動があれば、その挙動を潰す方法を調べます。
基本的な動作の羅列なので、がんばって。

**デフォルトの名無しさん** · 2018/04/22(日) 15:40:59.16

シートを削除するのではなく、新しいファイルを作成する方向でやってくれないかな？

こういう素人が増えると困るんだよ。

一般人はファイルのバックアップもしないし、削除してゴミ箱まで空にして、ファイルを復元しろと言い出すから迷惑。

**デフォルトの名無しさん** · 2018/04/22(日) 16:15:38.56

フォームやら速度が必須でない処理はVBSとかでやった方がいいね

**デフォルトの名無しさん** · 2018/04/22(日) 16:20:44.69

コレクションのforeach処理内で
コレクション削除したらヤバイんじゃないの

**デフォルトの名無しさん** · 2018/04/22(日) 16:30:45.70

>>874 を見直すと「売上」という文言が入っているシートと解釈した方が自然。

各シートのどこかに「売上」と入力されていたらという条件は不自然。

**デフォルトの名無しさん** · 2018/04/22(日) 16:39:52.54

そうだね
一旦配列とかのコンテナに入れといて
for　each アイテム in コンテナ
Worksheets(アイテム).Delete
next
が安全かな

**デフォルトの名無しさん** · 2018/04/22(日) 16:44:25.17

>>887
あらそうだっけ？　じゃぁアプローチ方法かえないとね。
削除の度に再評価とか？
ワークシート数で回せばOK?
先に調査して配列格納したシート名で削除しにいくのが安全か。
どんな方法がスマートだろう？

>>885
ファイルのバックアップはそりゃやっておいた方が無難でしょうね。
それは作り手本人が実際に困ってその必要性を痛感した時点で
学べばいい。
元データが何かのシステムからExcel形式で何度でもサクッと出力
できるもので、その一次加工の工程ならなくてもいいと思う。

**デフォルトの名無しさん** · 2018/04/22(日) 17:48:00.30

質問者がいないのに、

**デフォルトの名無しさん** · 2018/04/22(日) 18:19:48.56

B列にデータがないのを効率よく判定する方法はなんだ？
背景色とかついてても空白セルならデータがないとすべきか
数式が入ってても結果が空白セルならデータがないとすべきか
半角スペースはデータがあると判定するのか
NaNやError Valueはデータがないとみなすか
考え出すと思ったより難しいなこれ

**デフォルトの名無しさん** · 2018/04/22(日) 18:22:08.85

>>892
そもそもお前が悩む必要が皆無な件w

**デフォルトの名無しさん** · 2018/04/22(日) 18:34:56.15

>>892 B列最終行から上に向けてxlupして
データがあったら何行目か分かるから、
それで判定したらいいんでない？
と、俺は思った

**デフォルトの名無しさん** · 2018/04/22(日) 18:47:49.33

>>894
それで大丈夫かどうかは質問者にしか分からないので

**デフォルトの名無しさん** · 2018/04/22(日) 18:56:09.26

そんな自動化しなくてはいけないほど、シートの数が多いExcelファイルがあるなら、B列に値が入っていると決めつけているのも怖いよな。

そんなExcelファイルを作る職場だとExcelファイルのフォーマットが変更されていないかどうかのチェックも必要。

**デフォルトの名無しさん** · 2018/04/22(日) 19:09:33.32

>>896
だからお前が心配する必要が皆無な件w

**デフォルトの名無しさん** · 2018/04/22(日) 20:10:15.74

条件が曖昧ならここでうだうだ考えずに質問者に明確に書くよう言えば良いだろ。
それが出てこないなら質問の体をなさないということで却下するもよし、回答したい人間が自分の想像で
回答するもよしで。
質問に書かれていないバックアップがどうこうってのも、そんなもん質問者が考えれば良いことであってこっちが
どうこう考えることじゃない。

**デフォルトの名無しさん** · 2018/04/22(日) 20:39:48.94

countaで対象範囲拾うだけだと思ったけど、データ有り無し判定。

**デフォルトの名無しさん** · 2018/04/22(日) 21:42:52.36

>>898
下手な回答を書かれると第3者が参考にしてしまう。

**862** · 2018/04/22(日) 22:40:57.74

>>864
同一EXCELアプリケーション内でも良いので教えていただけますか

>>876
Activeではないシートの選択範囲を取得するには、どのように記録を取ればいいでしょうか

**デフォルトの名無しさん** · 2018/04/23(月) 00:55:13.87

>>900
頭がおかしくて草
そんなもん参考にする奴の責任だろw

**デフォルトの名無しさん** · 2018/04/23(月) 02:23:36.29

>>901
やったことがないけど、ワークブックオブジェクト変数を使えばできるかな。

**デフォルトの名無しさん** · 2018/04/23(月) 13:20:01.73

ちょっと教えて下さい
列挙型の項目に数字が先頭に来ると表示が変になるのですが、なんとかなりますか？

**デフォルトの名無しさん** · 2018/04/23(月) 13:49:02.96

何がどうなってるか具体的な事一切説明せずにおかしい！おかしい！って言うのがこのスレの質問者のデフォ w

**デフォルトの名無しさん** · 2018/04/23(月) 16:09:56.14

>>901
アクティブなシートをコードで切り替えていけばSelectionで取れる
たとえば

Workbooks("Book1.xlsx").Worksheets(1).Activate
Debug.Print Selection.Address

Workbooks("Book2.xlsm").Worksheets(2).Activate
Debug.Print Selection.Address

これで両方ブックの選択中のセルアドレスが出力されるはず

選択範囲という概念はActivateされているシートにしかないので
これ以外の方法でやるなら>>863のようにどっかに書き出しておく必要があると思われる

**デフォルトの名無しさん** · 2018/04/23(月) 20:16:07.45

>>906
それだとAddressプロパティを持たないオブジェクトがSelectされてるときにエラーにならないか？
TypeName(Selection)で"Range"が返ってきたときだけ番地を拾うようにするとか、Shapeオブジェクトの場合はTopLeftCell.Addessを拾うようにするとか

**デフォルトの名無しさん** · 2018/04/23(月) 22:29:47.83

>>907
たとえばーなので、あとは>>862の好きにしてってことで

そもそも2つブックを開いてセルを選択するという操作を人間がやる必要性があるのか
自分だったらそこも自動化したいと思いましたとさ

**デフォルトの名無しさん** · 2018/04/24(火) 01:52:45.14

興味本位で触り始めて面白かったから本腰入れて勉強してるんだが
教本レベルから実務までのハードルが結構高いな
これ、基本的なコード覚えてしまえばほとんどパズルだよね？
上手になるとまた別の見え方ができるんかね

**862** · 2018/04/24(火) 04:06:55.23

>>908
ありがとうございます。
ひとまず、ワークブック切り替えで対応してみます。

**デフォルトの名無しさん** · 2018/04/24(火) 06:45:33.52

>>909
実務レベルで使えるようになってから自分で作ったプログラムを見てみると確かに基本的なコードや基本的なアルゴリズムのパズルでしかないと思えるが、教本を読まないとコードが書けない初心者のうちからそのように侮っていても実務レベルに到達することはない
パズルの組み方そのものが問題になるからだ
実務で行いたい処理があるという前提で、そのためにVBAで実現する機能はどのようなものか、どのようなコードを書けば安全かつ確実に期待通りの機能を実現できるか、というベクトルの思考を繰り返して試行錯誤する以外に近道はないぞ

**デフォルトの名無しさん** · 2018/04/24(火) 18:46:56.86

現在、入力ファイルAの体裁を整えてファイルBとして出力するツールをVBAで作成しています。
その中で、入力ファイルAではS-JISになっている文字コードを出力ファイルBではJISにしてほしいと頼まれています。（先方でのファイル取り込み時の都合のようです。）
自分で調べたところ、文字列を1文字ずつVBAのAsc関数でS-JISコード(10進数)にして、さらにHex関数によりS-JISコード(16進数)に変換するところまではたどり着きました。
さらに、ここからS-JISコード→JISコード変換のアルゴリズムに当てはめればJISコード(16進数)までは取得できると思います。

そこで質問なのですが、JISコード(16進数)から日本語文字列を復元する方法はあるのでしょうか？
Chr関数ではS-JISコード(10進数)には対応していてもJISコードには対応していない？ようでした

**デフォルトの名無しさん** · 2018/04/24(火) 19:07:17.90

JISって色々あるんだけど

**デフォルトの名無しさん** · 2018/04/24(火) 19:42:22.62

>>912
16ビットのJISコードに変換したら上位8ビットと下位8ビットに分けてChrB関数で1バイトずつ出力すればいい

**デフォルトの名無しさん** · 2018/04/24(火) 19:43:52.16

>>912
文字コードなんか自分で変換するより既製品を使った方が早いよ
変換ツールや変換関数は無数に公開されてる

**912** · 2018/04/24(火) 19:50:39.85

>>913
そうなんですか？不勉強でした

>>914
ありがとうございます
今日はもう帰宅してしまったので明日試してみようと思います

>>915
それはそうかもしれないですが、どうせ他にも色々とツールを介して値やフォーマットをいじったりするので、別のツールを使わずについでに直せるならその方が楽だなって思いまして
繰り返し使うものなので、一手間増えるだけでもヒューマンエラーを呼び兼ねませんし

**デフォルトの名無しさん** · 2018/04/24(火) 20:12:06.67

Get-Content ./Input.txt -Encoding ([Text.Encoding]::GetEncoding('Shift-JIS')) |
Out-File ./Output.txt -Encoding ([Text.Encoding]::GetEncoding('ISO-2022-JP'))

**デフォルトの名無しさん** · 2018/04/24(火) 20:50:34.67

>>916
そのひと手間のヒューマンエラーよりお前さんがバグを作り込む確率の方が高いと思われ

**デフォルトの名無しさん** · 2018/04/24(火) 21:27:53.13

>>912
なんでADODB.Stream使わないのか理解に苦しむ

**デフォルトの名無しさん** · 2018/04/24(火) 21:42:34.24

ADODBに入ってるのが気にくわないから使わない

**デフォルトの名無しさん** · 2018/04/24(火) 22:00:23.87

日本語の方言の違いなんて、自分で調べられない

Ruby を使え

**デフォルトの名無しさん** · 2018/04/24(火) 23:00:27.91

>>916
そもそもなぜExcel VBAでやるのか？

**デフォルトの名無しさん** · 2018/04/25(水) 00:24:09.38

PowerShellなら1行で終わり
VBAは金とって無駄ばかりなんだから参っちゃうよ

**デフォルトの名無しさん** · 2018/04/25(水) 06:51:43.78

ちょっと待てオイ、kanjiコード変換機能ぐらい標準で提供されていないのか。
何かの参照を有効にする程度で実現できないと、VBA、幾らなんでも使えないんじゃ。

**デフォルトの名無しさん** · 2018/04/25(水) 07:38:44.95

なにをいまさら
配列のソートすらないんだぞ

**デフォルトの名無しさん** · 2018/04/25(水) 07:41:12.84

VBAは子供のオモチャ
幸い日本のビジネスマンは子供レベルしかいないので重宝されてる

**デフォルトの名無しさん** · 2018/04/25(水) 07:47:41.06

日頃の鬱憤を「VBA使えない」と喚くことでしか発散できないってのもなかなか可哀想だなｗ
本当に使えなかったら普及してないんだけどそこまで頭回らない辺りが不憫

**デフォルトの名無しさん** · 2018/04/25(水) 07:49:03.35

>>924
つ ADODB.Stream

**デフォルトの名無しさん** · 2018/04/25(水) 08:23:50.15

使える・使えないが普及率に直結するとか世界観チープすぎるだろ
VBAはチープな言語だからお似合いっちゃそうだが

**デフォルトの名無しさん** · 2018/04/25(水) 08:44:24.36

「直結する」なんて言ってないんだけどｗ
お人形遊びが好きだねぇ図星を疲れたのがそんなに悔しかったんだな

**デフォルトの名無しさん** · 2018/04/25(水) 08:52:17.08

な？
幼稚だろvbarrってさ

**912** · 2018/04/25(水) 09:56:12.06

>>919>>928
ありがとうございます
ADODB.streamを調べていて気になったことがあったので重ねて質問させてください
いくつかのウェブページを見たところ、ADODAを利用するときには参照設定Microsoft ActiveX Data Objects 2.8をチェックしろと書いているページがいくつかありました（書いてないページもありました）

自環境で試したところ、特にチェックしなくてもADODB.streamは動作するみたいなんですが、この参照設定はどういうためのものなんでしょうか？

**デフォルトの名無しさん** · 2018/04/25(水) 11:31:08.53

>>931
煽るならせめておのれのスペルチェックぐらいしろ、と
あんたのインテリセンスを疑うぞ、と

見たり読んだりする前に、指が違和感感じねえの？
フィジカルセンスも疑っとけよ

**デフォルトの名無しさん** · 2018/04/25(水) 11:47:13.44

>>932
Object型で使うなら参照設定はいらない
その代わりエディタの補完機能は使えないけど、動作に支障はない

**デフォルトの名無しさん** · 2018/04/25(水) 12:31:44.15

>>934
あー、そういうことなんですね
ありがとうございます
スッキリしました

**デフォルトの名無しさん** · 2018/04/25(水) 12:43:28.06

VBAでHTMLに入っているJavaScriptのオンクリックを配列に入れたいのですがヒントを下さい

**デフォルトの名無しさん** · 2018/04/25(水) 17:57:57.64

>>933
タイポ指摘でドヤ顔って子供でも恥ずかしくてできないことをようやるねぇ

**デフォルトの名無しさん** · 2018/04/25(水) 21:28:29.48

タイポ指摘されて顔真っ赤の図？ w

**デフォルトの名無しさん** · 2018/04/25(水) 21:58:11.30

タイポタイポのシューリンガン

**デフォルトの名無しさん** · 2018/04/25(水) 22:55:18.79

>>909
亀レスだけど、多分最初に「何言ってたんだろ俺・・・」となって
その後しばらく続けた後に
「あれ？パズルって違った意味で正しいじゃん」ってなって
更に少ししてから
「最初に言った意味と後で考えた意味って違うと思ってたけど実は根本は同じだったんだ。
やっぱり俺は正しかったんだ！！」
・・・ってなると思う。多分。

君の言ってることは正しいから
そのままの考えでやって行けばいいと思うよ。

**デフォルトの名無しさん** · 2018/04/25(水) 22:59:37.34

発言をリファクタしたいが
そもそも意図がわからない
まさにＶＢＡメンタル

**デフォルトの名無しさん** · 2018/04/25(水) 23:02:51.00

VBAエンジニアの鑑

**デフォルトの名無しさん** · 2018/04/25(水) 23:30:05.36

なぜここにいる者がみなVBA「だけ」やってると思ってるような発言している人がいるんだろう。
何かと便利だからVBA「も」やっている人もいるというところまでの考えに至らないのかな？

**デフォルトの名無しさん** · 2018/04/25(水) 23:40:48.35

何かと便利？
そもそもまずこれVBAじゃなくてよくね？じゃ？
仕方なくVBA使うはめになるんだが

**デフォルトの名無しさん** · 2018/04/25(水) 23:54:38.70

おれはここ数年VBAなんてやってないよ
Excelに関する処理はVBSやPS

**デフォルトの名無しさん** · 2018/04/26(木) 00:34:59.65

VBAはマジで他になにも使えない厳しい環境にいる人かなんかこじらせた人が使うもの
でも標準でPSあるから他になにも使えない環境ってのは今は滅多にないんだよね

**デフォルトの名無しさん** · 2018/04/26(木) 00:58:31.77

PSがVBAより便利とかいうやつはそもそもVBAの用途がわかってないとしか思えん

**デフォルトの名無しさん** · 2018/04/26(木) 01:02:16.31

ここはVBAのスレだからVBAの話をするんじゃないのか
別に他の話題を出すなとは言わんが、なんでVBAなの？みたいな話は流石に空気読めてないかと

**デフォルトの名無しさん** · 2018/04/26(木) 01:18:15.87

なんでVBAなの？は一つの案としてアドバイスでもあるだろ

100キロの道案内をチャリで行くにはどうしたらいいですか？
って聞いてきたら、まずなんでチャリなの？ってなるやろ

**デフォルトの名無しさん** · 2018/04/26(木) 01:26:45.61

「なんでチャリなの？」をサイクリングスレで言い出すクソバカはどんな脳みそしてるんだって話題でしょ
海を渡りたいとかいう話なら別だけどチャリで行けそうだからチャリの話題を出してるのに
「チャリは疲れるから車で行け」とか「これだからチャリンコ乗りは」とか言い出すのは場違いに決まってるだろ

**デフォルトの名無しさん** · 2018/04/26(木) 03:17:03.33

他の言語使えるオレ様エライ！ってしたいんだよ

**デフォルトの名無しさん** · 2018/04/26(木) 06:24:38.62

>>927
VBAが普及しているの(か?)なら、その理由は単にExcel付属だから。
VBAが使える言語であるという証左にはならない。
VBS見りゃ分かることだと思うが、そこまで頭回らない辺りが不憫。

**デフォルトの名無しさん** · 2018/04/26(木) 06:34:18.55

>>947
逆だろう
このスレにはVBAの用途がわかってない奴ばっかり
文字コード変換とかバカなことを言い出す

**デフォルトの名無しさん** · 2018/04/26(木) 07:58:00.08

>>952
だから全言語を比較検討した結果の使える使えないが普及に直結してるなんて話じゃないし
どんなに否定しようが実務において使えるから普及してんだよ
むしろ碌な知識の無い事務員ですら使える言語が使えないお前の脳みそを嘆け

**デフォルトの名無しさん** · 2018/04/26(木) 08:40:15.59

ここに居る奴は賢いのかもしれないが、スレチな役立たずの無能なレスする対人関係拗らせてる奴しか居ないのか…