Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

2017/05/16(火) 08:24:45.78

!extend:checked:vvvvv:1000:512

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

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

※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/

※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/

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

2017/05/23(火) 12:01:49.66

>>167
コミュ障技術者にありがちなバランス感覚の無さだな
VBAを理解する事が目的じゃないんだよ

2017/05/23(火) 12:06:29.03

Validationて何だ？
と思うくらいExcelのオブジェクトのことを知らない。
VBAばっかりだからなあ

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:08:14.56

>>167
> というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
お前のレベルなんか知ったこっちゃない。

> 多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
ケースバイケースだし、議論する価値ない話題だね。

2017/05/23(火) 13:09:17.49

友達じゃあるまいしな

2017/05/23(火) 13:19:37.53

>>168
それは答えが判ってる事にしか使えない
仕事では誰にも答えが判らない事を解決する事も多い

答え合わせができる問題で訓練した方が良い

2017/05/23(火) 13:26:08.31

答えが判ってることを効率的に片付けるには
答えを聞いたり調べれば良いけど

答えが判っていない新しいことを実現するには
その方法は使えない

自分で考えずに答えを求める事が
日本でイノベーションとかが比較的少ない原因かもな

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:29:05.48

新しい何かを始めるにあたって、入門書を読むとこから始めるのが「答えを求めること」なのか

2017/05/23(火) 13:36:08.12

そして、答えはひとつだけでは無い

2017/05/23(火) 13:40:08.67

>>176
答えは一つじゃないから
入門書にこだわる必要はないな

入門書は何のために読むの？
小説か何か？
自分が判らないことの答えを知るためじゃないのか？

2017/05/23(火) 13:47:15.75

>>168
>>169
>>171

>一生、...みたいなレベルを手探りで探し出すようなことやってろよ。

に対してのレスだからコミュ障はオマエラだよ。
そもそもの話のはじまりは>>128だから具体的な案件で期日が既にあるという話じゃない。

コミュニケーションの取れない奴はこれだから困る。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:56:20.46

>>178
この流れのそもそもの始まりは、>>128に対して>>132みたいなレスをしたからだ。

そもそも>>128は、おすすめの入門書を聞いてるんだよ。
それを本なんか不要とするからこうなった。

2017/05/23(火) 14:43:29.82

お勧めの本は知りません
をやたら回りくどくやるのなw

2017/05/23(火) 15:12:36.24

>>180
マは性格捻くれたクソ野郎が多いからｗ

2017/05/23(火) 16:36:03.71

たしかに>>132はクソレスだな
質問スレなんだから、素直におすす目入門書を挙げれば済む事

2017/05/23(火) 18:13:36.59

横レスだけど128の質問も少し違和感がある。
"詳しい入門書"というのはなかなかないんじゃないか。

128は少なくとも全然vbaが分からないわけでわなくプロパティやメソッドの使い方が難しいと言ってるわけだから求めてるのはもはや入門レベルとは思えない。
感覚としては優しく丁寧に書いてある、という意味かもしれないが。

2017/05/23(火) 18:22:11.37

>>173
それは設計の話だな
実装からスタートする案件だとしたら話は変わってくるけど、、、

2017/05/23(火) 18:45:32.25

早く教えて挙げて

2017/05/23(火) 18:53:06.25

>>131

2017/05/23(火) 20:04:53.74

逆引き系の本てやりたい事がズバリ書いてある事ってどんだけあるの？
本当に使えるのかいまいち信用できん

2017/05/23(火) 20:24:44.89

星君の業務改善でいいじゃん

2017/05/23(火) 20:25:40.01

逆引きは、逆引きがいらない事に気づかせてくれるありがたい本だよ

2017/05/23(火) 20:59:03.89

そう、誰も、
本を
読んでいないのである・・・

2017/05/23(火) 21:24:06.93

勤務表を作りたいと考えています
A1からの各セルにA1勤務開始時間、A2勤務終了時間、A3休憩時間と入れたら
A4からの各セルにA4割増無の勤務時間、A5８時間以上の勤務時間、A6休日労働時間、A7深夜労働時間
とVBAを使用して入れたいのですがA7に入れる深夜労働時間の求め方が思い浮かびません
深夜勤務は22：00～5：00の間なのですが21：00～4：00、18：00～6：00みたいな勤務の場合どうやって深夜労働時間を求めればいいのでしょうか？

2017/05/23(火) 21:35:35.13

>>191
就業規則をよめ

2017/05/23(火) 21:41:04.89

昔作ったなぁ

まず概念として、
0-5,5-22,22-29,29-46
と4つの区分に分ける。0-5と22-29を分けるのが味噌。一緒にするとややこしくなる
俺は甲時間　乙時間　丙時間　丁時間と名付けていた

入力は3項目じゃなく6項目。
出勤、退勤、甲乙丙丁それぞれいつ休み時間を取ったかわかるようにする

残業代は労働時間の合計-8時間になり、
休日は休日フラグを作り、勤務時間*割増分を別枠で付ける。

で、
21：00～4：00の場合の考え方は
開始時間が5:00以前なら5:00△開始時間が甲時間（仮）。終了時間が5:00以前なら更に5:00△終了時間を甲時間（仮）から引く。これが甲時間。今回は0
乙時間も似たような感じで、開始時間が5:00~22:00なら22:00△開始時間が乙時間（仮）。終了時間が22:00以前なら更に22:00△終了時間を乙時間（仮）から引く。これが乙時間。今回は1:00
あとは丙時間、丁時間も同じように求める

個人的には関数の方が修正しやすい、見通しも良いで作りやすいと思う

>>192
無能の自己紹介はいらないよぉ

2017/05/23(火) 21:41:20.14

>>193は>>191へのレスね

2017/05/23(火) 22:01:45.26

以前、ここでシフト表を作りたいって人がいて、んで別スレまで出来てあれこれ皆が頑張っていたけど、途中で多分本人がやる気なくしてw
アボンだったな

2017/05/23(火) 22:07:18.85

>>193
残業代(金額)が、労働時間-8時間(時間)
とかw

好意的に解釈して残業代じゃなくて残業時間だとしても
-8時間かどうかは就業規則を読まないと判らないだろ

2017/05/23(火) 22:34:24.97

>>191
timevalue関数はご存知かな？
日時の時間部分だけをDate型に変換してくれるけど、Date型の値は24時間(=1日)を1とした数値として扱える。
以下、日付を跨ぐ値は1(=24時間)を足してます。

深夜開始 = TimeValue("22:00:00")
深夜終了1 = TimeValue("5:00:00")
深夜終了2 = TimeValue("5:00:00") + 1
出勤 = TimeValue(Range("A1").Value)
退勤 = TimeValue(Range("A2").Value)
If 出勤 > 退勤 Then 退勤 = 退勤 + 1
休憩 = TimeValue(Range("A3").Value)

労働時間 = 退勤 - 出勤 - 休憩
深夜労働時間 = IIf(出勤 < 深夜終了1, 深夜終了1 - 出勤, 0)
If 出勤 < 深夜終了2 And 退勤 > 深夜開始 Then
深夜労働時間 = 深夜労働時間 + IIf(退勤 < 深夜終了2, 退勤, 深夜終了2) - IIf(出勤 > 深夜開始, 出勤, 深夜開始)
End If

たぶんこんな感じ。
出勤表なんて作ったことないからテキトーですw
おかしかったら誰か直して～

2017/05/23(火) 22:55:16.52

?cells(1,1).Address
で絶対参照の$A$1は取得できますが、
行のみ相対参照の$A1を取得する方法はありますか？

2017/05/23(火) 22:59:09.40

それくらいヘルプ見れ
https://msdn.microsoft.com/ja-jp/library/office/ff837625.aspx

2017/05/23(火) 23:08:02.98

>199
ありがとうございます、解決しました

2017/05/23(火) 23:10:34.50

Range.Address プロパティ (Excel)について質問です

AddressはRangeオブジェクト内の関数ですが、vbaだと、値を取得する場合はプロパティと呼ぶのでしょうか？
引数があってもプロパティと呼ぶのですか？

他言語ではオブジェクトのメンバを直接取得したり値を設定するのがプロパティ、式がメソッドと思っていたのですが、
vbaが特別なのでしょうか。それとも他にこういう区分けの言語はあるのでしょうか
http://piyo-js.com/01/keyword.html

2017/05/23(火) 23:39:33.41

プログレスバー使ったら値更新するたびにフォーカス奪うようになって別ウィンドウで文字入力とかスクロールしてると邪魔される
せっかくの長い処理中に別作業できるメリットが損なわれるようになってしまって困ってるんだけど何か解決策ないでしょか…？
プログレスバーないと処理中不安になって長く感じるのでできれば使いたいです
ちなみにWindows7上で使ってるExcel 2010です

2017/05/23(火) 23:44:33.10

>>201
Addressは要はgetterですよね
Rangeクラス内部から見ればメソッドのように見え、クラス利用側から見るとメンバ変数のように振る舞いますが、
実態はString型の変数を返すメソッドでふ
メソッドがパラメーターを持つのは普通のことじゃないですかね

2017/05/23(火) 23:47:22.57

でふって何だよ馬鹿かよ俺

2017/05/23(火) 23:52:40.77

>>191
暇だから作った
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html

>>203
そうそう、そうなんです
で、vbaではそれをプロパティと呼ぶの？という質問なんです
このリンク先ではaddressをプロパティと言っています
https://msdn.microsoft.com/ja-jp/library/office/ff837625.aspx

2017/05/23(火) 23:55:26.87

>>201
引数つきのgetter/setter（プロパティへのアクセサ）を作れるかどうかは言語仕様によります。
VBでは作れる、というだけの話

2017/05/24(水) 00:16:59.54

今日飲んだビール.TopValue

2017/05/24(水) 01:48:09.41

>>205
自作クラスで言うと、
property get/set/let で定義するのがプロパティ、
sub/function で定義するのがメソッド。

range.addressみたく、getだけ定義されているプロパティとfunctionは外から見たら同じようなものだし、気にする意味がないと思う。

2017/05/24(水) 07:02:03.86

>>206>>208
なるほど、ありがとうございました
色々な考え方があるのですね

>>207
韓国産でしたっけ？危険ですのでやめたほうが良いと思います
お金のために健康を捨てるのはもったいないです

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/24(水) 10:47:49.12

>>202
ステータスバーに進捗状況を表示するようにしたら？

2017/05/24(水) 14:14:59.56

VBA勉強中の初心者です。
最終的にやりたいのはテキストエディタから一部データを抜き出すのをしたいんですが抜き出し方がわかりません。
メモ帳にログが取り込まれてそこから必要なデータを取り除きたいです。

コンビニのレシートがデータしてるものと考えてください。
それでそのレジの最後の一台当たりの発売金額がわかるんですけど発売金額を抜き出したいのですが何をどうしたらいいのでしょうか？
まだ変数と制御構文くらいしか理解していません。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/24(水) 14:38:10.49

>>211
正規表現(RegExp)を使うと、指定したパターンに適合する文字列を抜き出せる。
以下は、"発売金額 \1,000"という文字列から"1,000"を抜き出すコード。

Sub foo()
　　Set regex = CreateObject("VBScript.RegExp")
　　regex.Pattern = "発売金額 \\([\d,]+)"
　　
　　Set res = regex.Execute("aaa発売金額 \1,000 bbb")
　　If res.Count > 0 Then
　　　　Set res2 = res(0).SubMatches
　　　　Debug.Print res2(0)
　　End If
End Sub

2017/05/24(水) 14:44:53.85

おお！ありがとうございます。
これを元に一つ一つググりながら理解していこうと思います。

2017/05/24(水) 14:53:05.51

>>211
VBAからADO使ってログファイル読み込みその際にSQL使って絞り込み

>>212
fooを使うんじゃねえｈｇ

2017/05/24(水) 18:37:48.65

なんでfoo使うのダメなの？

2017/05/24(水) 18:45:27.67

>>214
何でテキストファイルを読み込むのにSQLとかADO使うの？

2017/05/24(水) 18:52:32.09

>>216
適材適所

2017/05/24(水) 19:02:38.69

HYPERLINK関数(mailto:)を使って、メールを送信するシートを作成しました。
B2からB30セルまで、ハイパーリンクが設定されている状態です。
この、B列に並んだハイパーリンクを全てクリックして自動で実行したいのですが、どのようなコードを使えばよいのか分かりません。

Hyperlink.Followメソッドでは、関数によるハイパーリンクを開けないことは分かったのですが、何か代替手段はあるでしょうか？

2017/05/24(水) 19:18:29.39

>>218
マクロ4.0でいけるっぽい
https://oshiete.goo.ne.jp/qa/7192323.html

2017/05/24(水) 20:09:08.13

>>218
なぜハイパーリンクしてるの？
VBAでセルの文字列データを取得して、それを使ってふつうにメールアイテムを作成して送信すれば良さそうだが

2017/05/24(水) 20:17:47.99

>>220
それはあらゆる場面において最低の解法
なぜかは自分で考えてね

2017/05/24(水) 20:48:39.32

だから、ちゃんと教える気がないなら黙ってろと

2017/05/24(水) 20:49:24.31

>>221
横からだけどさっぱり分からない
教えてください

2017/05/24(水) 21:12:42.89

>>216
>>211見てなんで使わないと思ったの？

2017/05/24(水) 21:23:52.71

>>221
あらゆる場面で、というのは随分と強い主張だな
シートのUI上でハイパーリンクを設定すべきかどうか、コード側でメールアイテム作成を制御すべきかどうかは設計次第だろ

2017/05/24(水) 23:00:58.40

>>193
>>205
ありがとうございます。入力フォーマットが既に決まっていて変更できず休憩時間を手入力させるのは難しいです
21:00～6:00の場合、22:00～5:00の時間が何時間含まれているかわかればいいんですがいいロジックが思い浮かびません
今思い浮かんだのは１ヶ月間を0～744時と考えて、24(n-1)を足せば求められるんではと考えてしまいます

あと今日VBAでSQLのクエリ文を作っていたのですがString型って文字数制限があるんですか？
それにに引っかかったみたいで途中クエリが消えてしまい原因がわからずかなり苦戦しました

2017/05/24(水) 23:03:01.52

>>224
何でテキストをsqlで読もうとするの？

2017/05/24(水) 23:06:50.11

>>226
数式読みなよ、全部書いてる
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html

あとstringに制限は事実上ない
一旦varchar(255)辺りに入れてない？テーブルの制限に引っかかってる気がする

2017/05/25(木) 00:02:05.58

>>227
>>211見てなんで使わないと思ったの？

2017/05/25(木) 00:54:27.96

>>229
sqlって何する為のものか知ってる？

2017/05/25(木) 01:14:28.72

SQLはOracleに代表されるようなDBMSを制御するための言語　ExcelでもDMMSを相手にして使えるがそれはDBMSあってのこと

2017/05/25(木) 01:15:33.62

×DMMSを相手に ○DBMSを相手に

2017/05/25(木) 04:05:21.88

別にADOは便利なツールとしても使えるだろ。
けど、俺もテキストエディタだったらもっと単純にゴリゴリしたの考えるな。
LeftとかMidとかRightとかInstrとかInstrRevとかを使ったようなの。

2017/05/25(木) 04:15:26.23

あっ、テキストエディタ作りたいんじゃ無くて、テキストからデータ取り出したいだけ?

だったら、やっぱりMidとかInstrとか基本的な関数で十分な気がするね。

>>211
発売金額はテキストの中でどんな風に位置してるの?
例えば10行目の20文字目から10桁みたいな感じ?

2017/05/25(木) 04:18:03.03

>>211
あと、何でメモ帳使いたいのかな?
別にメモ帳上でいろいろ操作することも出来るけど、少しだけ高度になるんだよね。

2017/05/25(木) 08:42:10.69

>>219
ありがとうございます！
リンク先に記載のコードを試してみたのですが、残念ながら「指定されたファイルを開くことができません」のエラーが出てしまいました。
普通にセルをクリックするとメールが立ち上がるのですが、vbaを使うと、このようになってしまいます…

>>220
大変レベルが低い話なのですが、
滅多に触ることのない超初心者のため、作る労力とメンテナンスのことを考えて、できることは関数ですませ、vbaは最低限にしている次第です。

2017/05/25(木) 08:53:36.25

>>236
「ハイパーリンクをクリック」
逆に難易度が上がってるぞ

2017/05/25(木) 12:02:32.06

>>236

>>219の方法でやるなら
HYPERLINK関数の第二引数を省略した形で Evaluate しないとだめよん
よって
・元々の HYPERLINK関数で第二引数を省略してしまう
・VBAで HYPERLINK関数の第二引数をカットしてからの Evaluate
のどっちかにするしかない

がんばってね

2017/05/25(木) 12:10:08.17

>>238
第二引数を省略したら、無事にメール作成できました！
今の自分のレベルでは、仕組みが理解できていませんが、本当に助かりました。
ありがとうございます！

>>237
こちらの方がレベルが高かったのですか…
そういったことの判断すらできず、vbaでノーツメールを直接作るコードを調べてみて、複雑そうなので、諦めてしまっていました。
もう少し勉強しようと思います。

2017/05/25(木) 12:33:52.09

>>239
クリック等のイベントをトラップしようとすると、既定オブジェクトのモジュールやクラスモジュール等にコードを書いてハードコーディングしなきゃならなくやる
イベントの発生タイミングを考えてエラー回避の制御なども追加しなきゃならない
イベントはコードディングと保守の難易度を上げる、と認識すると良いよ

メーラーアプリのオブジェクトインスタンスを作成して操作するやり方は一見複雑そうだけど、やってることはエクセルの既定オブジェクトの操作と一緒
基本的には標準モジュール一個でコードが収まるから楽だよ

2017/05/25(木) 16:27:17.14

>>240
別にそんなにハードル上がってるわけじゃないでしょ。

こういう場合、自分はまずメールを作るプロシージャを作る。
それはメールに必要な宛先、タイトル、本文等の引数を元にしたプロシージャとなるだろう。
そして当然汎用的なものだから標準モジュールに書くことになるだろう。

後はそれをどのようによび出すかを考えれば良い。
B2からB30までのアドレスを元にメールを作るのだからメニュー(コマンドバー)から呼び出すとかシートに貼り付けたボタンから呼び出すとかが考えられる。

呼び出す処理ではB2からB30までのループ処理の中で標準モジュールに作ったメール作成プロシージャを呼び出すようにすれば良い。

尚、この場合ハイパーリンクはプログラムと関係が無い。
個別に開くために設定しても良いし、設定しなくても良い。

単純に空のメールを一度に複数開きたいだけならハイパーリンク使う方が簡単な気もするけど、そんな需要で完結するとは思えない。
だから自分だったら両方作って片方をコメントアウトしとくだろうな。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/25(木) 16:42:30.82

俺語りうぜぇ

2017/05/25(木) 16:44:23.96

>>242
お前の感想は
もっと要らない

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/25(木) 16:58:40.94

>>229
> >>211見てなんで使わないと思ったの？
なんでって普通使わないから。

2017/05/25(木) 17:43:48.64

>>241
メールアイテム作成が複雑そうと言ってるのは質問者なので、そこは間違えないでね

2017/05/25(木) 17:58:07.99

VBAに滅多に触ることのない超初心者になに難しいこと語っちゃってんだよｗ

2017/05/25(木) 18:04:11.11

データの取り出し方とか質問するならせめてデータ構造の例ぐらい出しておかないと返事のしようがないような

2017/05/25(木) 18:13:41.54

テキストファイルをSQLで扱うときってどのドライバを使うもんなの？

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/25(木) 18:18:45.36

>>248
> テキストファイルをSQLで扱うときってどのドライバを使うもんなの？
だから、普通はしないってば。
相手がCSVならかろうじてする場合もあるかもレベル。

2017/05/25(木) 19:08:00.44

いや、だから便利にADO使う場合もあるってば。
例えばUTF8の読み書きとか。

他にも色々利用できるものがある。

2017/05/25(木) 19:19:07.99

>>250
色々って例えば何？

2017/05/25(木) 19:35:14.21

曖昧だなぁ

2017/05/25(木) 20:12:54.49

テキストファイルにSQL使える事に驚き

2017/05/25(木) 21:35:50.77

>>251
例えばネットからファイルをダウンロードする場合、普通はURLDownloadToFileを使うと思うが認証付きの場合はADOが使える場合がある。

2017/05/25(木) 22:27:40.96

名前の判別でRかLのはいったやつを分けるマクロが書きたいんですがRとLは,かスペースに挟まれてるか最後一文字です
ただし最後一文字ならその前にスペースが入ってます
こういう場合スマートな判別ってどうしますか？

2017/05/25(木) 22:47:25.62

>>255
正規表現で解決じゃね

2017/05/25(木) 23:08:23.52

>>247
まぁそうだけど大体ログと言えば規則的に並んでいると推測できるよね
視野が狭い人多い
そもそも>>211と>>216をよく読んで理解せずに発言してる人多過ぎ

2017/05/25(木) 23:14:32.15

煽ってるわけじゃないが、>>211は全力で意味を理解しようと思って読んでも
どういう状態を説明しているのか、よく分からなかった（特に後半）
みんなスゴイね（まじで）

2017/05/25(木) 23:23:44.35

>>255
>>212のように正規表現がいいけど
細かい話をするとスマートが何を指しているのか
早さとかコードの見た目とかね

>>258
ド素人の言い回しって大体わかるじゃん？たまにぶっとんでるのいるけど
だいたいこういうのは、CSVで出力されたPOSデータの計行のみ抽出したいってぱとぅーん
だから>>214、もちろんその後でMIDとか使う必要はあると思う

2017/05/25(木) 23:24:53.01

>>258
分かってない奴の事を分かっていないで理解しようとしないから
タイヤブランコみたいなのが出来ちゃうんだよｗｗ

2017/05/25(木) 23:29:21.59

>>259
正規表現は何がスマートなのか
早さ？がスマートな例は
コードの見た目がスマートな例は

たった3種類なんだから答えてあげれば？

2017/05/25(木) 23:31:18.48

>>261
そういうのいいからｗ仲良くやろうぜ

2017/05/25(木) 23:33:20.64

>>262
お前がいじわるなつっこみするから俺もいじわるしただけだ

2017/05/25(木) 23:35:49.43

この件で言えばスマートなのはどう考えても正規表現だろう
ifやmidで無理矢理解決するのは力技ではなく、単に勉強不足だ

2017/05/25(木) 23:36:09.55

マにありがちな意地悪なｗ
突っ込まれたいとか>>263ホモ警報ｗ

2017/05/25(木) 23:37:26.93

>>255は多分釣り
分かってて書いてる感

2017/05/25(木) 23:40:28.47

>>265
あ？調子に乗りすぎだお前

2017/05/25(木) 23:43:35.70

>>267
255の正規表現を誰かが書くと、とたんに俺が書いた正規表現の方がスマートだ合戦開始の流れだよなｗ

2017/05/25(木) 23:45:17.90

midとかifだと、検索対象文字列のパターンが変更されたらいちいち検索処理の制御構造を変えなきゃならないかもしれない
正規表現だったら大抵RegExpオブジェクトのプロパティの設定値を変えるだけで修正が終わる