Excel VBA 質問スレ Part68

2020/08/30(日) 11:55:27.33

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/09/17(木) 00:09:43.18

>>267
その場合、
hogeは文字列として認識してください
という命令を出している
つまり
文字列(”A”) と(＆) 文字列(hogeという変数に入っている文字列) を繋ぎ合わせて表示してください
というのが”A” & hoge

2020/09/17(木) 00:09:48.11

ダブルクォートには引数の囲むような意味はない
引数を囲む記号は丸括弧になる
たとえば　X = msgbox("a" & hoge)　みたいな書き方になる
返り値をとらない場合は()が省略可能ってだけ

2020/09/17(木) 00:11:18.08

リテラルと変数について調べると理解できるかも

2020/09/17(木) 00:13:09.47

>>267
hoteの型は何なんだ

2020/09/17(木) 00:21:16.12

値に型ってのがあるのを理解しよう
表示したいのは、"A"という値と変数hogeの値（を連結したもの）だろ

&演算子でつなぐと文字列扱いになるってのは、演算対象を文字列に変換して結合するってこと
この場合、hogeの値が文字列以外でも文字列に変換して評価するってことだ

基本を理解したいなら、なんの説明もなく&でつなぐと文字列扱いとかいう教え方するところは避けたほうが良いかな
とりあえず動けばいいってならまあすきにすればいいけど

2020/09/17(木) 02:20:25.53

MsgBoxの第1引数は文字列型の値である必要があり、文字列型の値を表す式として典型的なのは、①文字列リテラルか、②文字列型の値が格納されている変数（文字列型変数）の参照。二重引用符は、文字列リテラルの表記方法に過ぎない。
&演算子は、本来、2つの文字列型の値を被演算数とする演算子だが、被演算数が文字列型の値と数値型の値であるような場合等は、適宜数値の方を文字列型の値に自動変換した上で本来の演算を行う……ということかと。重複になるが。

2020/09/17(木) 04:55:16.59

数値を文字に変換するなら CSTR がある

2020/09/17(木) 07:47:55.65

>>267
法則を暗記するからそうなる。
法則の仕組みを覚えるんだ。

2020/09/17(木) 11:44:40.11

同じフォルダにある"〇〇"というＣＳＶを開いて、そのシートの最終行を取得したいのですが
「インデックスが有効範囲にありません」というメッセージでとまります

Sub salegrp()
Workbooks.Open ThisWorkbook.Path & "\〇〇", ReadOnly:=False
MsgBox Sheets("〇〇").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

他のブックの最終行を表示する方法を教えてください
（Ａ列には最終行まで値が入っています）

2020/09/17(木) 11:54:47.91

csv開いたてからActiveWork ook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Rowすれば

2020/09/17(木) 12:14:37.64

>>276
必要なのは最終行に入ってるデータの内容？行数を知りたいだけ？
全データをワークシートに入れる必要がなければテキストファイルとして開いた方が早いかも

2020/09/17(木) 12:24:52.75

Workbooks.Openの返り値をとってそれを操作する

なおRows.Countも省略せずにシート指定する

2020/09/17(木) 13:03:15.94

>>277
できました。

2020/09/17(木) 16:10:59.23

>>267
Sub tessstttt()
Dim str1 As String
Dim str2 As String

str1 = "あいうえお"
str2 = "かきくけこ"

MsgBox str1 & str2 '結果「あいうえおかきくけこ」

MsgBox str1 & "かきくけこ" '結果「あいうえおかきくけこ」

MsgBox "あいうえお" & "かきくけこ" '結果「あいうえおかきくけこ」
End Sub

2020/09/17(木) 16:17:02.54

>>279
↑
VBA続けるつもりならこっちでやれるようにした方が

2020/09/17(木) 16:44:05.17

他のbookやsheet絡むととたんに冗長になるんだよなぁ
Range(.Cell(a,b))とか .Cellの前にもブックやシート指定しないとならんし

2020/09/17(木) 17:02:14.36

>>283
むしろ1シートだけしか使わない場合でも、実効中に人がシート変更とかしても大丈夫なようにブック明記した方がいい

2020/09/17(木) 17:07:16.63

ブックとシート明示してworksheetオブジェクトの変数作ってそれ経由でアクセスさせるのが鉄板かね～

2020/09/17(木) 17:41:26.80

csvの最終行だったらテキスト形式でEOFまで吸い上げてってやった方が動作時間的には良さそうな気がした

2020/09/17(木) 18:04:52.95

CSVの読み込みをしっかりやるならPowerQuery使おうみたいな話もあったりなかったり

2020/09/17(木) 18:51:11.07

>>285
てか、基本でしょ

2020/09/17(木) 18:59:48.75

>>288
鉄板と基本の違い教えて

2020/09/17(木) 19:13:46.34

シート明示してないコードほんと多い
よくやるわ

2020/09/17(木) 19:55:58.19

>>279
俺なんて、必ずBookから書くぜ。
WithとSetを多用することになるが。

2020/09/17(木) 19:56:59.36

>>283
その例ならRangeの前にも"."が必要。

2020/09/17(木) 19:58:31.27

>>286
うん、CSVはLine Inputで1行ずつ+Splitで分解にすることが多い。

2020/09/17(木) 20:23:48.98

VBA覚えたての頃はいちいちアクティブシート切り替えてシート指定省いてたけど
Sheet1.Cells(a,b)って書く癖は絶対つけといた方が良いって今は思ってる
可読性が段違いだもん
暫く同じシートのセルをいじくりたおすならWithで目立つように囲ってやりゃあ良いし

2020/09/17(木) 20:32:12.03

>>286
項目中に改行含むcsvとかも存在するからなぁ
汎用的なcsvを真面目にパースするとかなり面倒
そしてEXCELは最強のCSVパーサ(笑)

2020/09/17(木) 20:38:51.87

なんつーレベルの高い話だよ
初心者が覚えようと思ってどんなもんかとスレを見たのが大間違いか

2020/09/17(木) 21:39:36.45

この先いつまで初心者を名乗るつもりか知らないがいちいちアピールしない方がいいよ

2020/09/17(木) 21:45:39.26

>>294
可読性以前に怖いんだよな。
アクティブシートが切り替わっちゃったらどうしようって。
実行中の操作とかで。
DoEvents挟まなきゃ絶対切り替わらないってならいいんだけど。

2020/09/17(木) 22:36:46.26

可読性も考慮するならオブジェクト変数に入れたりWithで囲んだり、頻出する構文なら別Functionに飛ばすという手もある
めんどくさいけどバグを出すよりはマシ

2020/09/18(金) 01:50:57.23

そもそもオブジェクト指定のないCellsがいつでもActiveSheetを参照すると思うなよ

シートモジュールに書いたCellsはそのシートを参照するんだぜ

**デフォルトの名無しさん** (JP 0Hdf-iZ3/) · 2020/09/18(金) 10:32:05.02

VBAというよりVBSかもしれませんが
いろいろ試したのですが正規表現の(肯|否)定(先|後)読みに対応していないようなのですが認識に相違ありませんか？
また、擬似的に(肯|否)定(先|後)読みに対応させたコードを誰か公開していませんか？

2020/09/18(金) 14:09:52.14

>>301
多くのアプリで、正規表現はWindowsに標準で内蔵されてるDLLを使ってる
独自の仕様やバグがあるのは既知だから、それが気に入らない時は別のライブラリを見つけてくるしかない

2020/09/18(金) 17:55:04.61

VBSはスレ違いになるんだろうけどさー
今、仕事でそれで書かれたコード見てるんだよねー
VB.NetからVBAに戻るとそのインテリセンスの効かなさに辟易するけど
VBSで書かれたものはその比じゃないねー

参照もなーんも効かないところに持ってきて
インデントも正しく書いてないし
綺麗にスパゲティーコードになってるの見ると
殺意を覚えるわー

まぁVBS自体は同じファイルの中に
複数のクラスが書けたりするところは
VBAよりいいのかな？

2020/09/18(金) 20:53:29.32

見てるだけで殺意はないだろ
自分で分かりやすく直していけばいい

2020/09/18(金) 20:57:08.45

どんな人が書いたコードでも理解できるのがプロ

2020/09/18(金) 20:57:17.16

C列に"2007/3/26"などのような書式で年月日が入っていますが
それをＣ＝年、Ｄ列＝月、Ｅ列＝日にしたいのですが

↓だと年が１９０５,月が１、日が２６日のように変換されてしまいます。

Dim r As Long, dt As date
For r = 2 To 435
dt = CDate(cells(r,3))
Cells(r, 3) = Year(dt)
Cells(r, 4) = Month(dt)
Cells(r, 5) = Day(dt)
Next r

2020/09/18(金) 21:01:25.47

>>306
最初date型で取ってやれば確か年や月や日を取る関数が有ったと思うよー
じゃあねー

**デフォルトの名無しさん** (JP 0Hdf-iZ3/) · 2020/09/18(金) 21:05:10.29

>>302
私が気に入りそうなものはありますか？
肯定先読み肯定後読み以上に高度な機能は求めていないのですが

2020/09/18(金) 21:10:13.79

ていうかそうしてんじゃん
出力先のセルの書式はどうなってるの？
コードを見た感じじゃ少なくとも3列目は
日付型みたいだけど

2020/09/18(金) 21:14:07.50

>>306
year、month、dayの引数のdtの中身は2007/3/26ではない

2020/09/18(金) 21:16:37.69

または3、4、5列目の表示形式をそれぞれy、m、dにしてる

2020/09/18(金) 21:29:41.49

>>306
考えなしに書くからセンス皆無なコードだけど3列目の日付が文字列で入ってるならこんなんどうよ

Dim Ary(2 to 435,1 to 3) As Long,r As Long, a As String
For LBound(Ary,1) to UBound(Ary,1)
a = Sheet1.Cells(r,3).Value
Ary(r,0) = Split(a,“/“)(0)
Ary(r,1) = Split(a,“/“)(1)
Ary(r,2) = Split(a,“/“)(2)
Next

Range(Sheet1.Cells(2,3),Sheet1.Сells(435,5)) = Ary

2020/09/18(金) 22:40:09.47

>>306
Sub Macro1()
　　Range("C2:C435").Copy
　　Range("D2:E435").Select
　　ActiveSheet.Paste
　　Range("C2:C435").NumberFormatLocal = "yyyy"
　　Range("D2:D435").NumberFormatLocal = "m"
　　Range("E2:E435").NumberFormatLocal = "d"
End Sub

2020/09/18(金) 22:48:07.19

>>313
くそこーどを貼るのはやめてあげて

2020/09/18(金) 23:02:36.64

>>306
セルに表示されている文字とセルの値は別だって理解が必要

おそらく
C列の表示形式が日付になっているが、そこの値を数値の2007にした
数値の2007は日付にすると1905/6/29　その年だけが表示されている
同様に数値の3は1900/1/3、数値の26は1900/1/26

まあ、想定とは違うかもしれんが正しく動いてると思われるな
解決策は、表示したいのは数値なのか日付なのかちゃんと決めて然るべき値と書式を設定しろ

2020/09/18(金) 23:05:29.99

つヵ、C列の値でC列に書き換えるとかしないで
元の値を別の列にもっとけば、VBAなしで関数だけで出来るだろうけど

2020/09/19(土) 04:14:23.53

C,D,E列に表示させたいのは「数値」であるにも関わらず
「日付」の表示形式になっているからおかしくなる

C,D,E列の書式設定→表示形式を日付から標準にする
こうするとC列は39167のような形で表示されることになるが
お構いなしにマクロを動かせば、意図した通りの動きになる

でどう？

2020/09/19(土) 07:38:40.10

>>305
理解出来るからこそ腹立たしいこともあるよー
例えばaとbとcってBooleanの変数を定義して
a = b = c とか書いてるやつ

まぁbとc が同じならaにTrueが、
違えばFalseが入るってことを期待して
書いてるなら見づらいけどまだ許せるよ
でもcにbが代入されてそのままaにbが
代入されるとか思って書いてたらしく
システムバグらせてそのままにしてたりとか
テストどうしてたんだとか思うよねー

正直こんなのに関わりたくないけど
仕事だからやるって感じだねー

2020/09/19(土) 07:43:05.72

あ、逆だった
bにcが代入されてaにbが代入されると
思ってたらしいってことね

まぁこの4日間は連休だし
そうじゃなくてもテレワークだから
気楽に適当にやるつもりだよー

2020/09/19(土) 07:51:21.74

仕事の内容でそのソースを直せってことなら書き直せばいいんじゃねーの
そのまま残すと後任者に同じように思われるんだぜ

**257** (ﾜｯﾁｮｲ bf90-W2Jb) · 2020/09/19(土) 10:25:54.04

>>259
遅くなってしまいましてごめん。自分の欲しかった情報がこれで取れる
事ができました。

ありがと！

2020/09/19(土) 15:00:02.54

>>320
その判断は結構難しい。
今動いてるものは、そのままにしておくというのが通常だ。

Accessでレコードセットループで回してる最中にその値でもって別のレコードセット開いたりを7、8回やって10分かけてデータ作ってるプログラムが有るんだけど、コレ、クエリ1つで出来るんじゃね?と思って試しに作ったら一瞬で出来る。

それでも、正式に変更することになるかと言えばならない。
こっちだってその辺は分かってる。
何かの時に、きちんと作り直しましょうという話になるまで置いとくもんで、むしろそんな話にならずにずっ―とそのままというのが殆ど。

2020/09/19(土) 15:56:27.98

>>322
なら
> でもcにbが代入されてそのままaにbが
> 代入されるとか思って書いてたらしく
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
とか書くなよ
どうせ盛々で語ってるだけだろw

2020/09/19(土) 15:59:42.46

>>323
いやいや、俺はその人じゃないから。

2020/09/19(土) 16:24:18.56

>>322
重要な変更とは別で、こまかい高速化や最適化として変更するんだよ
それができないなら他人のコードを悪くいってはいけない

2020/09/19(土) 18:06:32.97

そうかーみんなそんな具合に考えてるのかー
でも悪いけどその場でチャチャっと直すことはしないよ
もちろん上に話を通すのは当然だけど
こんなぐちゃぐちゃな行き当たりばったりのコード書いてんだから直すんなら他への影響調査の時間貰う
まぁ当たり前だよねー

2020/09/19(土) 18:37:26.04

>>324
本人でもないのに
> でもcにbが代入されてそのままaにbが
> 代入されるとか思って書いてたらしく
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
に対して
> 今動いてるものは、そのままにしておくというのが通常だ。
って言うの？
アホの上塗りにしかなってないけど… w

2020/09/19(土) 18:39:28.33

>>319
実際にそういう動きをする言語もあるからな

>>325
それは開発方法とフェーズによる
いつでも好き勝手コード弄れるような環境ばかりではない
まあ、VBAではあまりないだろうけど

2020/09/19(土) 18:41:22.13

>>326
お前の会社のレベルが低いだけだろ
まあそんな会社にしかいられない自分を省みたほうがいいなw

2020/09/19(土) 20:51:03.26

>>329
ふーん
そっちの会社ではそういうの見つけたら
調べないでチャチャっと直しちゃうのかー
よっぽど優秀なんだねー
俺みたいな無能にはとても怖くて出来ないやーw

2020/09/19(土) 21:40:33.28

>>326
お前以外にチャッチャッと直すなんて言ってる奴いないんだけどw

レベルの話は
> こんなぐちゃぐちゃな行き当たりばったりのコード書いてんだから
の部分な

2020/09/19(土) 22:13:23.39

>>325
いや、そうじゃなくて…
そうか、確かにVBAはそれでメシ食ってる奴は少ないから分からんかもしれんな。

ウォーターフォールでやってて、プロジェクトの目的が決まってるのに、いくら高速化しても余計なことすれば怒られるのが当然なんだよ。
それが原因で不具合が出てみろ。
大変なことになるんだから。

確かに、思いつきでどんどん改変してく仕事も結構やったことある。

2020/09/19(土) 22:16:29.20

>>327
開発全般によくある話として言ったまで。
cとかbとかの話に参加したわけじゃない。

動いてるなら、触らないというのはよくあることだ。

2020/09/19(土) 22:21:26.21

>>328
確かに少ないかもね。
考えてみれば俺も今の職場で初めて。

でも他言語じゃよく聞く話だよな。

2020/09/19(土) 22:26:15.60

>>333
話の流れが読めないバカということはよくわかった

2020/09/19(土) 22:48:23.19

どんなに簡単な修正でも、思い込みやミスは誰にでもある
うっかりエンバグする可能性があるから、先方から高速化などの要求がない限りは動いてる物を勝手に修正はしないのが基本かなあ

2020/09/19(土) 23:01:33.58

修正するか確認してからじゃないとしないな

2020/09/20(日) 01:28:31.38

>>332
それは逆だ、今のコードが悪いかのを直したせいで不具合がおきるのは直し方が悪いせい
自分できちんと直す能力もない奴が今のコードが悪いとか語るなよ

2020/09/20(日) 01:34:05.40

というのは言い過ぎなのかもしれんな、直せる自信がないなら直さないでいいんじゃね

2020/09/20(日) 01:38:55.36

俺から見れば細かい変更もできない人が重要な処理を変更する方が不具合が起きるだろって思うが

2020/09/20(日) 03:34:03.51

なんで動いてるものの話になってるのかわからんけど元々の話は
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
だから、修正ありきだろ
修正の手順はその組織で違うだろうけど

2020/09/20(日) 08:02:49.76

ここの会話見てると仕事してる時に戻ったみたいでイヤになる

2020/09/20(日) 08:29:09.75

技術的に可能（can）なのと
プロジェクトとして可能（may）なのはべつだって言ってるんだが

VBA使いを悪く言う気はないが
まともなプロジェクトでやってないから理解できないんだろうな

2020/09/20(日) 09:11:52.63

内製なら結構気軽に弄るもんだよ
俺は以前はSIにいて今は自社サービス兼社内SEだから両方の立場がわかるけど、
システムって君のような外の人が思ってるほど重要なものでも神聖なものでもない

2020/09/20(日) 09:13:39.89

だれも技術的に可能かどうかなんて言ってないのに意味不明なことを言い出してて笑う

2020/09/20(日) 10:58:42.70

企業や仕事がどういうものかを理解していない馬鹿ばっかりで草

2020/09/20(日) 11:39:55.26

内製でも気軽に弄らないなぁ

2020/09/20(日) 12:04:24.67

自分とか周りの数人しか使わないとかならリファクタリングで弄るケースもあるし全社レベルのシステムとかなら影響調査からってケースもあるわな
そのプログラムがおかしくなった時の影響度とかも関係するし
要はケースバイケース

2020/09/20(日) 16:05:38.71

>>338
>>339
先のAccessの話なら直せる自信ならある。
というか、ここにいる奴で俺が出来ないんだったら出来る奴はいないと思うぜ。
それぐらい自信ならある。

ただし、まとも奴なら誰でも言うがバグを出さない自信は無い。

2020/09/20(日) 16:13:52.61

ふと、

日本人のできません
韓国人のできます
中国人のできました

を信用しちゃダメ
って言うのを思い出した… w

2020/09/20(日) 16:52:11.86

>>348
だよな、さすがに自分とか周りの数人しか使わないとかなら
時間見て許可取ってリファクタリングするわ
自分が作ったツールやシステムなら空き時間見て少しづつリファクタリングだな

さすがに全社レベルのシステムで勝手にリファクタリングはないな
そもそも許可取るのが大変

2020/09/20(日) 20:23:41.76

VBAの後継言語がExcelに標準搭載されると知識も勉強時間も無駄になる
と考えてしまいVBAの学習が捗らないのですが、どうしたらよいでしょうか

2020/09/20(日) 20:29:51.63

開発する能力と言語の習熟は別と考えた方がいいと思うよ
弘法筆を選ばずって言うし

2020/09/20(日) 20:39:12.03

>>352
そんな風に考えたことは無いなあ。
その時に必要だから覚えるんだよ。

2020/09/20(日) 20:46:14.34

VBAなんて勉強するもんじゃなくて使っていくうちにわかるもんだし

2020/09/20(日) 20:55:59.15

セルの中身が
--------------------------
あああ３２５ｇｓｄｓが|
aaaojgwe |
33333 |
|
いいｋｓが |
bbb93502g |
^^^^^^^ |
|
|
８８８っふぁふぁ |
aaawopfjw |
ｆ－ｂｇんｌｓｇさ |
-------------------------|
のような感じの際、「あああ３２５ｇｓｄｓが」や「aaaojgwe」のように１行づつ取得する方法はあるでしょうか？

2020/09/20(日) 21:02:07.06

vblfで分割

2020/09/20(日) 21:04:12.62

セル内の改行コードはCRとLFとCRLFがあるのでどれかに統一して
統一した改行コードでsplitすれば

**デフォルトの名無しさん** (JP 0Hdf-iZ3/) · 2020/09/20(日) 21:09:38.60

VBAやっててもオブジェクト指向が全然身につかないんだけどどうしよう

2020/09/20(日) 21:30:48.40

>>358
セル内の改行はLFだよ。
キーボード入力ならの話だけど。

2020/09/20(日) 21:31:49.13

>>359
VBAとは別にオブジェクト志向に親和性のある言語勉強すれば?

それがVBAにも役に立つよ。

2020/09/20(日) 21:35:54.17

>>360
よそからコピペしたりするとLF以外も混じるよ
念のため統一する方が安心

2020/09/20(日) 22:02:19.77

>>359
オブジェクト指向を身につけるためにVBAをやっているのか？

**デフォルトの名無しさん** (JP 0Hdf-iZ3/) · 2020/09/20(日) 22:16:21.98

>>361
>>363
フローチャートは書けても
オブジェクト指向というものがあるということがなんとなく判っていても
じゃあオブジェクト指向できっちり設計しようという発想が浮かばないというかまだ怖さがあるんだよね
MVCって言葉もネットサーフィンをして先週巡り合ったくらいの素人だから
とりあえず新たな設計手法を試そうと思っても
何に手をつければいいかわからん

2020/09/20(日) 22:48:07.21

=EVALUATE()を使ったらマクロだよって保存するときに言われた。
見た目関数なのに実はマクロっていうものが他にどんなのがあるか知りたいんだけど、こういうのなんて言うの？
検索ワードが思い付かないんだけど知ってたら教えて。

2020/09/20(日) 22:53:39.67

>>364
いや、VBAはあまりオブジェクト志向とは親和性がないんだよ。
VBAそのものの根幹はオブジェクトそのものを扱うし親和性も有るんだけど、それで何かを作る時には俺はあまりオブジェクト志向で作らないな。

それでも、感覚的にピッタリ来るときもある。
そういう感覚の為にも他言語の経験が役に立つ。

でも、VBAでオブジェクト志向って上級者じゃないとピッタリ来ないんじゃないかな。

2020/09/20(日) 23:22:55.87

>>365
Excel 4.0 マクロ