Excel VBA 質問スレ Part49©2ch.net

2017/06/26(月) 02:15:14.60

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

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

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

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

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

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

2017/08/05(土) 08:53:42.25

>>667
エラーの出たコードを書いてみて。
あとバージョンも。2016？

2017/08/05(土) 09:48:36.05

2010でも時刻の割り算できたけど？

2017/08/05(土) 10:09:48.61

じゃあ、この話題はこれで終わりだな。

2017/08/05(土) 11:28:42.39

エラーコードは51
データ型が日付時刻の除算はエラーでる

2017/08/05(土) 12:58:50.71

Sub foo()
bar = Date / 2
Debug.Print bar
End Sub

2010、win7だけどエラーでない

2017/08/05(土) 13:00:51.75

>>675
時刻同士で割って見て

2017/08/05(土) 13:07:29.37

ダブルにキャストしてから計算したら
ずれるのかな？

2017/08/05(土) 13:08:47.84

>>676
Sub foo()
bar = Date / Date
Debug.Print bar
End Sub

普通に1になったけど

2017/08/05(土) 13:35:11.02

https://www.youtube.com/watch?v=h_iMHmwQpR8

2017/08/05(土) 16:53:51.52

質問者からのエラーコードの提示がないので無駄な回答だな。

2017/08/05(土) 18:06:14.68

時刻を時刻で割る意義は？　どんな分野で必要と成るんだ？　それは知りたい

2017/08/05(土) 18:54:05.96

バージョンが上がって…
とか言いながらバージョンを書かない馬鹿
指摘されても書かないという

2017/08/05(土) 18:58:41.09

>>681
8時間の就業時間の間に25分掛かる作業を何回できるか見積るとか

2017/08/05(土) 19:00:17.07

しょうもない質問はほっとけばいいんじゃ？
それとも答えたくてウズウズしてる感じ？

2017/08/05(土) 19:45:20.37

>>683
無理くり理由をこじつけてもその程度だよな…ほんと何がしたいんだろうな

2017/08/05(土) 20:31:20.41

質問するのにバージョンも書かない
ID変わってるのに名無しのまま
環境書けと言ってるのに無視
こんな処理する理由は？と聞かれても無視

こんな人間の生産物を現場で使う恐怖

2017/08/05(土) 20:47:12.34

それは時刻で無くて時間だろ　と

2017/08/05(土) 23:20:40.34

>>686
何のためにここで質問したのかわからないよね。

つか、俺たちが釣られただけ？

2017/08/05(土) 23:56:01.89

質問者が軌道修正のために必要な情報を提供しないってのはここではザラにあることだろ。
そんなのによく付き合ってられんなー

2017/08/06(日) 00:12:38.56

質問室じゃねえんだよ

2017/08/06(日) 12:22:25.32

また教えたがりの無能が暴れとるのかｗ

2017/08/06(日) 16:09:44.69

暴れているのはただの煽り

2017/08/07(月) 16:41:33.18

>>678
dim a as date
dim b as date
dim test as date

a = time
b = time
test = a / b

でエラー出た

2017/08/07(月) 16:59:56.15

>>693
地域オプションで先頭が数字以外になるような書式だったとか？

2017/08/07(月) 19:35:32.88

>>693
環境書けよ
なんでエラー出たとか言うやつは環境書かないの

VBAの日付型は原則数値として扱えるはずので
日付型である事が原因でエラーが出るとは考えにくいけどなぁ

ちなみにエラー51のヘルプ(2007)には
>このエラーが Error ステートメントまたは Raise メソッドで生成されたものでなければ、Microsoft 製品テクニカルサポートに連絡して、メッセージが表示されたときの状況を知らせてください
ってあるから、ホントにエラー51出たならEXCELのバグの可能性もないではないな

2017/08/07(月) 20:09:27.70

excel2010 win7
エラーが起こるのは除算の分母側がdateだった時
longにキャストするか、variantで宣言していれば問題ない（もちろん宣言してない場合も問題ない）
バグくさい挙動だなぁ

Sub foo2()
Dim a As Time
Dim b As Time
Dim test As Date

a = Time
b = Time
test_long = (a * 1) / (b * 1) 'ok
test = a / (b * 1) 'ok
test = 1 / b 'error
test = (a * 1) / b 'error
test = a / b 'error
End Sub

Sub foo()
Dim a As Variant
Dim b As Variant
Dim test As Date

a = Time
b = Time
test = a / b 'ok
End Sub

2017/08/07(月) 20:36:42.78

Cdbl()で分母をDoubleにキャストすればいいだけじゃね？

2017/08/07(月) 20:39:22.17

>>697
まぁ解決法としてはそれでも何でもいいし、そもそもdateで除算って事をやらないんだけど
根本的な原因が分からないと、変なとこで悪影響受けそう

2017/08/07(月) 20:54:07.86

Time って
DateTime.Time プロパティのことだよな
Property Time As Variant
だからもともとVariant型

dim a As Time がエラーになるんだが

2017/08/07(月) 21:05:47.61

Date型はVBAのデータ型で"21:02:32"みたいな文字列なんじゃね？
だから計算するとエラーになる
分子にDate型を持ってきたときはDoubleに自動的にキャストされてると予想

2017/08/07(月) 21:13:12.34

>>699
ごめんなさい訂正前の送ってしまいました
定義部分は以下に変えてください

Sub foo2()
Dim a As date
Dim b As date

2017/08/07(月) 23:25:10.55

>>695
2007じゃエラーでないよ

2017/08/07(月) 23:33:20.74

データベースのDATETIME型の値がそのままVBAのDate型変数にマップできれば楽なのに、
1900年以前だとうまくいかないのが残念だ。

2017/08/07(月) 23:39:54.26

>>702
2010とかだとエラーになる

分母にDate型を持ってくるときは
明示的にCdblでキャストすればエラーにならなくできる

MS側にバグレポートしたところで修正するかどうかはMS側次第
仕様変更したと言うかもしれない

2017/08/07(月) 23:59:58.12

そろそろ日付時刻での除算の意味を教えて

2017/08/08(火) 00:39:23.26

>>705
>>683
全くない需要ってわけでもないと思う

2017/08/08(火) 00:57:18.12

キャストしてできるんならなんの問題もないだろう
キャストできない理由があるんじゃないのか？
まさか発想になかったわけじゃないだろうし

2017/08/08(火) 05:17:42.76

つーか質問者本人どこいったんじゃ

2017/08/08(火) 07:26:59.16

>>693
つか、dateをdateで割った答えがdateっておかしくね？

たとえば、60分を15分で割ったら答えは「4分」ではないよね。

なので、

Dim test as Long

とすべき。

2017/08/08(火) 07:52:46.37

>>709
そこはエラーとは関係ない
debug.print a/b
でもエラーになる

意味的に間違いでも形式的文法的には正しい

2017/08/08(火) 07:57:39.53

これエラーにならん
Debug.Print 1 / Time

これはエラー
foo = time
Debug.Print 1 / foo

意味わかんねぇmsに聞くか

2017/08/08(火) 08:15:13.81

>>711
型が関係してるとしか思えないんだけど…

2017/08/08(火) 08:17:59.56

>>706
>>683は時間÷時間の話で時刻÷時刻じゃないだろ
時間を演算するならシリアル値に変換して演算すればいいだけ
日付時刻に対する加減算以外の演算なんて意味ない

2017/08/08(火) 08:18:45.83

>>711
TimeはDaterime.timeでvariantだからエラーにならないのはわかる

fooもvariant？それともDate型？

2017/08/08(火) 08:21:04.55

>>713
時刻を基準日時刻からの時間以外で定義できるんだっけ？

2017/08/08(火) 08:24:56.85

>>713
＞日付時刻に対する加減算以外の演算なんて意味ない
除算も乗算も意味あるんだが、一体何を言ってるんだ

2017/08/08(火) 08:24:58.32

今のとこ試した範囲では、2010で割る方の方がDate型だとエラー51だすな
バリアントだとVarType 7(vbDate)でも平気
どうにもバグくさい。だれかインシデント余ってるやつMSに聞いてくれ

>>711
だからエラーになるやつは環境かけよ
Win7 2010ではそれだけではエラーにならんぞ
どっかでfooをDateで宣言してんじゃねえのか

2017/08/08(火) 08:31:46.30

>>713
VBAでは時間と時刻の型は区別されてないから、その議論に意味があるかは微妙だな
Date型を時刻ととらえるか基準時点からの時間ととらえるかの問題だろ

>>716
時間と時刻の違いわかってる？
一般的な会話での時間って言葉はほとんどが本来だと時刻の間違いだぞ
時刻の除算にどんな意味があるんだ？

2017/08/08(火) 12:35:05.88

除算は1900/1/1からの経過日数の比
って認識で良いのかな

2017/08/08(火) 17:34:44.63

>時間の就業時間の間に25分掛かる作業を何回できるか見積るとか

（終了時間ー開始時間）を分単位に直して25で割るってことじゃないですか。
これは10000円を100円単位に分けたらいくつになる？ってのと同じ数量の問題だよね？

時刻の除算ってのは例えば
A = "2017/04/11 16:54:00"
B = "2017/08/15 10:45:48"

で A / B （Aは日付型でなくてもいいんだろうけど）ということでしょ？
これにどんな意味があるのよ

2017/08/08(火) 18:14:01.43

単純な操作のはずなのによくわからん

0. .xlmxファイルを(パス:\A)に作成しておく

1. フォルダ(パス:\B)内のすべてのCSVファイル(データは1列のみ)を、先ほど作成したファイルのSheet1の2列目から順次マージする

データを繋げるところで詰まるので助けてください

2017/08/08(火) 18:15:20.46

>>715
日時が先か時間が先かは知らんが今の議論には関係ないと思う

>>716
どういう意味があるのか書いてからほざきない

>>718
言語で区別してないから使う人が意識しなきゃねって話

2017/08/08(火) 19:18:53.44

>>722
Date型で割るとエラーになると言う点と
あとどうでもいいんだが時刻で割ると言う点の
2つの論点が並行している

Dateで割る時はdoubleにキャストすればいいだけ

2017/08/08(火) 19:20:53.27

>>720
Bを1とした時にAを数値で表した値
どんな価値があるかはその時によるが
全く価値がないとも言い切れない

2017/08/08(火) 19:33:26.34

>>721
君が書いたコードのどこが拙いのか検討しようぜ。

まずはコード書いて。

2017/08/08(火) 19:36:48.60

Excel総合に間違って投下してしまったので、こちらに再投稿します。

以下のマクロをボタンに登録し、印刷範囲をhtmで保存しようとしています。
しかし、このブックを一度上書き保存等しないと正常に動作しません。
見よう見まねでこうなったコードなのですが、どうすれば良いでしょうか？
アドバイスお願いします。

Sub SAVE()
'
' SAVE Macro
'
'
With ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, _
Range("AT1").Value & ".htm", "Sheet1", "", xlHtmlStatic _
, "", "")
.Publish (True)
.AutoRepublish = False
End With
ChDir "C:\Users\admin\Desktop"
End Sub

2017/08/08(火) 21:36:34.68

複数ステップのOLE DBの操作でエラーが発生しましたとか言われて、
adOpenKeyset, adLockOptimisticで対策したら、
今度はUpdateで怒られるんですが、どうにかなりまんせん?

2017/08/08(火) 21:50:18.55

>>727
エラーとカーソルタイプやロックタイプは関係あるの？

2017/08/08(火) 22:02:37.25

>>728
わからないんですが、
他にも、adUseServerでエラーになるので、
adUseClientに直すと、違うエラーが出たり、
何かを直すと違うエラーが出る、もぐら叩き状態です。

2017/08/08(火) 22:06:10.50

sqlのエラーならそこらへんは関係ないんじゃないの？
なんのエラーか知らんけど

2017/08/08(火) 22:12:27.27

DB操作はClose通らない処理を挟んでしまって二重にOpenするとかで苦労した事があるなぁ。
それが原因ならクラス作ってデストラクタにClose書いておけば忘れなくて便利。

2017/08/08(火) 23:58:40.83

>>723
> Date型で割るとエラーになると言う点と
俺はそんなことは問題にしてない
意味のない演算ができてしまう言語なんて珍しくないし

> あとどうでもいいんだが時刻で割ると言う点の
どうでもいいなら放置しておけば？

2017/08/09(水) 09:22:17.50

>>726
保存先をパス付きで指定したらどうかな
ｃｈｄｉｒは自分のパスだろうし

2017/08/09(水) 10:44:54.73

>>727
こいつもそうだけど、ソースも示さずエラーが出ると言ってどんなエラーかも示さず

アホか
大方SQL単体でも失敗してんだろ

2017/08/09(水) 13:14:09.12

Sexel-VBA

2017/08/09(水) 13:28:47.67

>>734
たぶん、『解答』が欲しいのではなく、『レス』が欲しいんだろうね。

つまり、雑談したいだけなんじゃね？

2017/08/09(水) 13:56:39.55

>>733
ありがとうございます。帰宅後、やってみます。

2017/08/09(水) 18:28:18.83

>>737
いいってことよ(´・ω・｀)b

2017/08/10(木) 22:43:19.50

>>734
一般的でなく、同じ目にあった経験者しか答えを知らなそうな内容なので・・。

ググって出てきた例が全滅なので、
多分、AccessではなくExcelでやってるのが原因だとは思うのですが。

2017/08/10(木) 23:14:30.24

ちなみに、EOFがtrueじゃありませんとか、
IZAMが有効じゃありませんとか、
そんなやつです。

2017/08/10(木) 23:22:56.42

>EOFがtrueじゃありません

俺もmysqlにアクセスするのを作ってる段階でそういうのを出すことはあるよ。けど、そういうのここで
チンタラチンタラ言っててもソースがない以上こちら側ではどうしようもないわけで。

2017/08/10(木) 23:45:49.59

>>740
もしかしてEXCELで直接開いてるのにAccessと同じ文法のSQL使ってない？
ワイルドカードとか色々と違う点があるんで、もしかしたらSQLが失敗して空のレコード開いてるのかも。

2017/08/11(金) 04:12:54.28

そもそも何のDB（ドライバ）かすら書いてないし
どうやってレコードセット開いてupdateしたのか書いてないし
レスするだけ無駄な気がするぜ

>EOFがtrueじゃありません
そんなエラー見たことないな。EOFがFalseなら普通にデータ取れてるってことじゃねえの？
EOFがTrue前提の操作が浮かばんが、何しようとしたらそんなエラーになるんだよ

>IZAMが有効じゃありません
IZAMって何さ？ビジュアル系バンドメンバーかよ

2017/08/11(金) 07:44:16.53

>>743
> レスするだけ無駄な気がするぜ

いいんだよ、それで。雑談が目的なんだから。
答えを出す必要はない。

>> EOFがtrueじゃありません
> そんなエラー見たことないな。

ADOでレコードセットを操作していると、ときたま現れるエラー。
クエリ結果にレコードが１件もない場合とかに出たりする。

2017/08/11(金) 11:24:22.86

初心者ですがご教授下さい
クラス内にTRが９ありそのうちの１～４を取得したいと思っています。
現在は１しか取得できません。どう書き換えればいいでしょうか？
Sub shisaku()
Dim objIE As InternetExplorer
Set objIE = CreateObject("Internetexplorer.Application") '
objIE.Visible = True '
objIE.navigate "http://www.aaa/aaa";
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim colTR, colTH, colTD, colImg As IHTMLElementCollection
Set colTR = htmlDoc.getElementsByClassName("first")
Dim el As IHTMLElement
For Each el In colTR
Set colTH = el.getElementsByTagName("th")
Set colTD = el.getElementsByTagName("td")
Debug.Print colTR(0).innerText
Next el
End Sub

2017/08/11(金) 11:47:54.41

>>745
なんでcolTRをclassnameで取得してんの？

2017/08/11(金) 11:50:59.38

あと並べて書いた場合でも変数一つずつ型指定してかないとvariantになるよ、vbaの場合

2017/08/11(金) 13:07:34.65

吉岡美穂のカキタレ

2017/08/11(金) 13:38:42.84

>>747
vbaでieを操作を読んでもググってもあり理解出来なくてとりあえず作りながら覚えようと
コピペしたものを一部変えました
tr、tdは特定出来ずclassが特定出来るのですがどのように書き換えればよろしいのでしょうか?

2017/08/11(金) 13:56:55.44

>>749
処理対象によってどうすればいいか変わるから
対象が判らないとなんとも言えないのではないと思う

クラスで全部のTRを取れてるのかも判らないし

2017/08/11(金) 14:32:36.47

>>749
trがほしいならgetElementsByTagName("TR")で取るのが普通じゃね
その後のfor eachの中の処理もよくわからんが

2017/08/11(金) 14:42:02.39

例えば下のように文字と数字が並んでいて、文字を数字の横に持って行くにはどうしたらいいですか？

12
q
15
b
10
c
↓
12 q
15 b
10 c

2017/08/11(金) 14:45:37.73

>>745
生のjsそのまま使うのはめっちゃめんどくさいから、ラッパーを探したほうが良い
で、探した。以下のサイトのラッパー使えば多分すぐに出来ると思う
http://language-and-engineering.hatenablog.jp/entry/20090710/p1

2017/08/11(金) 14:51:25.70

>>752
必ず数字と英語が入れ替わりで来るなら以下のマクロ

Sub foo()
For i = 1 To 100
行 = Int(i / 2)
If i Mod 2 = 1 Then
Cells(行 + 1, 2) = Cells(i, 1)
Else
Cells(行, 3) = Cells(i, 1)
End If
Next
End Sub

2017/08/11(金) 15:01:16.16

>>754
ありがとうございます。
でもすみません、2連続で文字のパターンもあります
正確には下のような感じです

○
q
r

○
d

○
c

↓
○ qr（セル内改行）
○ b
○ c

2017/08/11(金) 15:12:27.50

>>755
まず数字か文字列か判別すればいいんじゃね？
if a like "[0-9]*" then
って感じでできる様なきがする

2017/08/11(金) 15:23:36.72

>>756
今考えてるのは以下の感じです
VBAもプログラミングも初心者のため全然コードがわかってなくてすみません

loop (i)
if instr(cell(i,1),"○")<>0
sw=1

if sw=1

sw =1の時それより下のセルの情報を切り取り

　loop(n)
　n=i+1
　if instr(cell(n,1),"○")<>0
　sw=0

　else n=n+1
　loop end

else i=i+1
loop end

2017/08/11(金) 15:32:45.42

>>755
こう
Sub foo()
行 = 1
'一行目は数字
Cells(行, 2) = Cells(1, 1)
tmp = Cells(1, 1)
For i = 2 To 100
If IsNumeric(Cells(i, 1)) Then
'数字
Cells(行, 2) = tmp
Cells(行, 3) = 文字
行 = 行 + 1
tmp = Cells(i, 1)
文字 = ""
Else
'文字
文字 = 文字 & vbCrLf & Cells(i, 1)
End If
Next
End Sub

2017/08/11(金) 15:33:16.05

>>756
なんでlikeなんだよ
isnumericでいいだろｗ

2017/08/11(金) 15:48:56.25

>>759
数字を含む文字列をどっちに判別するかによるんじゃね

2017/08/11(金) 16:02:01.36

>>749
追記でおせっかいついでに、ie操作覚えたいなら軽くhtml勉強したほうがいいよ
エクセルのオブジェクト理解せずにvbaで扱うなんて無理なのと一緒

2017/08/11(金) 16:32:57.50

Ruby で書いた
https://paiza.io/projects/HhNVuMxF20bU1t4-GMp0VQ

ary = []
File.open("File1") do |file|
# 1行ずつ処理する
file.each_line do |line|
# 0～9
if /^\d+$/ =~ line.chomp!
ary << line + ' '
else
ary[-1] = ary[-1] + line
end
end
end

puts ary

入力
01
a
b
12
c
23

出力
01 ab
12 c
23

ただし、23 の後ろに、半角空白が入っているけど

2017/08/11(金) 20:25:45.30

>>742
普通にCopyFromRecordsetするだけなら出来るんです。

Do Until rs.EOF
　rs!項目=何とか　←ここで何かしようとすると、Debug.Print以外は全て失敗します。
　rs.MoveNext
Loop

諦めて、GetRowsして編集してから出力しようとしたら、
縦横入れ替わってるし(Excelで使うのに何故こんな仕様にした?)、
Transposeで直そうと思っても型が違いますとか言われるし・・。

>>743
I-zamはサポートしてませんだったかも?

2017/08/11(金) 20:45:51.85

>>763
>rs!項目=何とか　←ここで何かしようとすると、

rs.項目に何か代入しようとしてんのか？

2017/08/11(金) 20:48:59.91

>>744
>クエリ結果にレコードが１件もない場合とかに出たりする。
それ普通はEOFがTrueになるはずだけど
MySQLのドライバでそうならなかったりするのか？ドライバのバグじゃねえの？
それどうやってゼロ件かどうか判定するんだ？

2017/08/11(金) 21:03:31.05

>>763
だからDBとドライバ何で、どうやってそのレコードセット作ってるんだよ

そもそもレコードセットを更新する必要があるのかどうかも疑問だけどな
レコードセットは常に更新できるとは限らんのだぞ

2017/08/11(金) 21:18:12.65

>>764
そうです。
SQL上だと難しい内容があるので、後から入れようかなと。

>>766
CsvとMicrosoft.Ace.OLEDB.12.0です。
元のCsvの方は、多分更新出来ないだろうとは思ってたのですが、
出力結果の方に、編集した内容が反映されればいいかなと。

2017/08/11(金) 21:29:48.64

>>767
CursorTypeがどうなっているのかとかいちいちこちらから聞かないと情報を出さないのか？
で、延々と続ける気？

2017/08/11(金) 22:03:13.38

>>764
rsに代入できるんだっけ？
debug.print出来るならrsから読み込むのは出来るんじゃね？
別変数にコピーしてから変更したら？

2017/08/11(金) 22:06:37.63

Excel（VBA）でデータベース接続ってどういうのが一般的なんでしょうか？
自分は専ら生ODBCを叩いているので他人のことが気になってる。