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/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オブジェクトのプロパティの設定値を変えるだけで修正が終わる

2017/05/25(木) 23:49:52.88

俺なら正規表現とか難しいのわかんないからこれで済ませちゃうな
スマートさのかけらもないけど

Function isRL(str) As Boolean
　isRL = str Like "*[, ][RL][, ]*" Or str Like "* [RL]"
End Function

2017/05/25(木) 23:53:17.40

>>270
それだと
,R_
みたいなのも反応しちゃうような
_はスペースね
これも全角半角スペース区別とか不明だからまあ

2017/05/25(木) 23:57:37.38

>>271
日本語がどっち指してるかわからなかったからそれも含まれると解釈したんだけど
それ入らないならOrいっこ増やすだけだし

もちろんもっと複雑さが増してくれば正規表現調べようって気にもなってくるけどね

2017/05/26(金) 00:01:53.74

>>272
>>263と同じで突っ込みたかっただけ、めんごめんごｗ

あとLikeだと大文字小文字区別しないよね、だから
RLもrlも混同してしまうマッチだけにｗｗｗ

2017/05/26(金) 00:08:29.13

>>273
おまえいいやつだな
それでも突っ込むとOption Compare Text書いてなければ大文字小文字区別するよ

2017/05/26(金) 00:09:45.41

>>274
勘違いしてたすまん、女だから許してｗ

2017/05/26(金) 00:15:45.66

女だから許してで草
今度から俺も使おうw

2017/05/26(金) 00:16:58.01

>>276
だってせっかくこれ言いたかったら間違えたのに
誰も突っ込んでくれないからさ
>RLもrlも混同してしまうマッチだけにｗｗｗ

2017/05/26(金) 00:24:41.93

Option Compare Gender

2017/05/26(金) 00:48:48.42

混同でマッチで喜ぶとかババァで草

2017/05/26(金) 06:10:08.78

>>257
そんなのただの推測に過ぎないだろ

2017/05/26(金) 08:11:41.20

>>257
そりゃそうだが、たまに意味わからん形式のログあったりするし
説明のしやすさに直結するだろ

**255** (ﾄﾞｺｸﾞﾛ MM3f-fCG8) · 2017/05/26(金) 08:38:47.74

いろいろな意見ありがとうございます
釣りではないですが正規表現で良さそうとは感じていました
ただ正規表現の書き方がわからなかったのと本当に正規表現が一番適した書き方かわからないのでああいう聞き方になりました
なんか混乱させてしまったようですみません

2017/05/26(金) 09:24:25.07

すまん俺も女だわ
髭そって会社いくか・・

2017/05/26(金) 09:50:48.59

正規表現が良いとは限らんよ。
構造を元にした固定の場所の方が良い場合もある。
だからデータの中から取り出したい値がどの様に配置されてるかが重要。

質問する時に出来ればそれを示して欲しかったね。

2017/05/26(金) 09:52:42.09

>>282
ごめん。
>>255で書いてあったか。
正規表現だね。

2017/05/26(金) 10:23:01.77

初心者です。
ユーザーフォームを最近覚えて作成中です。
中身はとりあえずメッセージBOXで工事中にしてユーザーフォームを凝ってみようと思うんですけど
いい見本とかありませんか？
アプリっぽく作ってシートへのハイパーリンクで満足しようかと思います。

**デフォルトの名無しさん** (JP 0H7f-/6qz) · 2017/05/26(金) 11:05:39.54

>>250
> 例えばUTF8の読み書きとか。
それは、ADODB.Streamを使うということであって、SQL（クエリ）を使うということじゃないよね。
故意になのか無意識なのかしらないけど、それを混同させてどうしたいのか。

2017/05/26(金) 19:27:53.93

>>286
イマイチ何がしたいかわからんが、
よく使われるもの、googleかamazon辺りを参考にしてみては

2017/05/26(金) 19:40:01.56

昨日正規表現で質問したものです。
リファレンスブックを読みながら正規表現で[,\s]R[,\s$]ってな感じで検索して
マッチした数値＞０で分別ってプログラムを組んだのですが、一つ問題が…
取得した文字列の最後が,Rとなっていたときに反応しないです…
正規表現としてはこれであっていると思うのですが何か勘違いしてるんでしょうか？

2017/05/26(金) 20:03:21.45

>>289
こうだとうまくいく
[,\s](R[,\s]|R$)

[]内に$はダメなんかね

2017/05/26(金) 20:07:54.29

>>289
文字列の最後としての $ は文字じゃないから [ ] の中には入れられない
（入れると文字としての $ と見なされると思う）

> 名前の判別でRかLのはいったやつを分けるマクロが書きたいんですがRとLは,かスペースに挟まれてるか最後一文字です

これちょっと曖昧
",R," とか " R " はいいとして " R," とか ",R " もいいのか？
とりあえずいいとしてスマートかどうかを問わなきゃ
"(?:[\s,][LR][\s,].*|\s[LR])$"
辺りでどうか

2017/05/26(金) 20:08:59.71

>>289
勘違いしてます

([,\s][R][,\s]?$)

あとそれだと、,R,だけじゃなくて,R_みたいなのも反応するけどいいの？
って聞いたんだけどお前全然人のレス読んでないのなｗ

2017/05/26(金) 20:19:12.02

質問者　>>255　(ﾄﾞｺｸﾞﾛ MM3f-fCG8)　ID:iQOaaYC+M
回答者　>>291　(ﾄﾞｺｸﾞﾛ MM3f-ijLw)　　ID:I1+YwiguM

やはりお姉さんの言った通り（>>266）釣りだった感

2017/05/26(金) 23:27:30.93

回答ありがとうございます
[]内に$は受け付けないんですね…
,R_は信じがたいことにそう入力されてるデータを見つけてしまったので分別に必要です。
なんか荒れに荒れてる感じですいません…
とりあえず私は質問しかしてません

2017/05/26(金) 23:32:22.16

荒れてないから大丈夫
ただそろそろスレから退散した方が、不愉快な思いをしなくて済むとは思う

2017/05/27(土) 01:01:00.58

>>294
もう解決したんでしょ？バイバイ

2017/05/27(土) 01:04:32.39

嘘つきは泥棒の始まり

2017/05/27(土) 01:37:01.15

ほらねｗ

2017/05/27(土) 11:48:01.37

>>287
ああ、すまん。
俺は>>233でADOの観点で絡んでた。
確かに元々の話は何故SQLって話だね。

2017/05/27(土) 16:06:04.75

では次の方どうぞ

2017/05/27(土) 21:40:12.40

>>253
使えるってだけだよ。
Schema.iniを使わないと、
勝手に型を決めやがるから、物凄く使い勝手が悪い。

2017/05/27(土) 22:24:03.65

マの特技：あらさがし

2017/05/27(土) 22:53:30.64

当たり前だ
その技術がなければバグだらけのコードになる

2017/05/27(土) 23:19:58.15

だがならない

2017/05/29(月) 06:22:57.97

$$$4.3$$$
"V"="1.3335412","0","1","3Q",

2017/05/29(月) 19:34:45.91

マクロ初心者ですが質問させてください。
Sheet1のB1-B16000の文字列を同じファイル内の新規シートに
699列毎コピーしたいです。

ググって下記まで作ったのですがエラーが出ます
いかんせん知識が無いため、何が間違っているのか分からないです。
どこを修正すればいいのかご教示いただけますでしょうか。

Sub マクロの記録改()
　 Dim n As Long '変数の定義
　 For n = 1 To 15206 Step 699
　　 Sheets("Sheet1").Select '元シートの「Sheet1]を選択
　　 Application.Goto Reference:="R" & n & ":R" & n + 699
　　 Selection.Copy 'コピー
　　 Sheets.Add 'シートを追加
　　 ActiveSheet.Paste '貼り付け
　 Next n
　 Application.CutCopyMode = False 'コピーの解除
End Sub

2017/05/29(月) 19:48:29.74

>>306
とりあえず走らせたけどエラーでなかったよ
どこで出るの？

そもそも何をしたいの？
元々あるのはsheet1だけとして
sheet2のA1にB1-B699貼り付け
sheet3のA1にB700-B1399貼り付け
ってこと？

2017/05/29(月) 19:59:34.93

>>307
699毎なのでB700-B1398じゃね？

2017/05/29(月) 20:27:18.52

失礼しました
説明が間違ってました。
エラーではなくて、A行もコピーしてしまうのでB行をA行にコピーしたいです。
まさに、>>307-308さんの言ってることをやりたい形です！！

ちなみに別bookにコピーする場合は、
どういった記述にすれば良いのでしょうか？

2017/05/29(月) 20:40:52.02

>>309
A列に貼るようにするなら
"R" & n & "C2:R" & n + 699 & "C2"
に変えるだけかな

2017/05/29(月) 20:52:28.37

>>309
こんな感じかねぇ
http://www.dotup.org/uploda/www.dotup.org1264912.zip.html

Sub foo()
'setで参照を作成しておく
Set コピー元シート = ThisWorkbook.Sheets("main")
Set コピー先ブック = Workbooks.Open("./copy.xlsx")
'何行ごとか
処理行数 = 699
'ループ
For i = 1 To 21
Set コピー先シート = コピー先ブック.Sheets.Add(After:=Sheets(Sheets.Count))
'コピーでもいいけど、あえてvalueで処理。どっちでもいい
For k = 1 To 処理行数
コピー先シート.Cells(k, 1).Value = コピー元シート.Cells(k + (i - 1) * 699, 2).Value
Next
Next
End Sub

2017/05/29(月) 20:53:24.05

そういや昔はsetがさっぱり意味不明だったな
今は普通に使えるけど、なんだったんだろう

2017/05/29(月) 21:01:49.00

>>312
ま、やらしぃ

2017/05/29(月) 21:12:47.40

>>313
sexじゃないよ＞＜

2017/05/29(月) 21:15:07.23

>>314
今は普通に使えるsexとか

2017/05/29(月) 22:00:26.21

>>311
だからfooを使うんじゃねえｈｇ

2017/05/29(月) 22:02:15.89

>>316
理由教えてくれよ
理由がなければ使い続けるぞ。名前考えるの一番めんどくさいからな

2017/05/29(月) 22:15:25.36

毛を吹き飛ばされるかんじがするんじゃないの？

2017/05/29(月) 22:23:14.52

俺ルールに違反してんだろ？スルーしろよ

2017/05/29(月) 22:31:37.50

俺ルールかっけー！

2017/05/29(月) 22:34:37.05

>>317
>名前考えるの一番めんどくさいからな
代わりにわたしが考えたよ
hogeでよろ
これでもう考える必要ないよ

>>318
そうです
>>319
生理的に無理

2017/05/29(月) 22:38:31.20

ピリピリしてるハゲってなんていうか、微笑ましいよな
ハゲ好きだわーオレ、なりたくねーけど

2017/05/29(月) 22:56:21.54

>>321
hogeがfooにまさるメリットとは？
先にfooのメリットを書くと、
・文字数が少ない
です

2017/05/29(月) 23:01:15.36

>>323
じゃあ　f　だけにして
・文字数が少ないよ