Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

92:デフォルトの名無しさん
19/04/29 06:00:11.68 atpu4K080.net
>>89
取り敢えずエラーになった時のTextfileは確認したの？

93:デフォルトの名無しさん
19/04/29 08:59:53.28 3KqibFAl0.net
>>87
www
説得力が無くて良いならお前はもう反論出来ないということだよ。
俺の主張に説得力が無くても良いと表明したんだからなw
俺は説得力が無くても良いとは思わないから、お前は騙り確定だw

94:デフォルトの名無しさん
19/04/29 09:02:43.11 3KqibFAl0.net
>>91
だから必要なのは正式ではないと決めつけたお前なんだよwww
バカだなあw

95:デフォルトの名無しさん
19/04/29 10:26:14.89 atpu4K080.net
>>93
説得力が無い？
> 説得力の有無なんて関係ないだろ
> お前が根拠を示せてないと言う「事実」があるだけ
って書いてあるんだが、ひょっとして違いがわかってないのか？w

96:デフォルトの名無しさん
19/04/29 11:05:38.54 3KqibFAl0.net
>>95
バーカwww
根拠は示せてるで確定だwww
お前は「根拠は示せてる」に反論出来ないwww

97:デフォルトの名無しさん
19/04/29 11:07:23.49 3KqibFAl0.net
>>95
お前自ら、反論出来ないと表明しちまったんだよw

98:デフォルトの名無しさん
19/04/29 11:18:46.73 3KqibFAl0.net
>>95
根拠は示したという俺の主張が「事実」であり、それにお前は自ら説得力が無くても良いと言ってしまった。
一方、根拠は示されていないというお前の主張に説得力が無くても良いとは言わない。
従って、お前は反論出来ないが俺はいくらでも反論させて貰うw

99:デフォルトの名無しさん
19/04/29 11:30:15.17 3KqibFAl0.net
そもそも根拠は何の為に必要なのかと言えば、主張に説得力を出すためだ。
相手に求めるのも説得力が無いから説得力を出すために根拠を提示しろということだ。
そんなこともわからないんだから全く意味不明。

100:デフォルトの名無しさん
19/04/29 11:46:18.60 atpu4K080.net
>>96-99
> 根拠は示せてるで確定だwww
ほう、どこで示せてるんだ？
レス番示して引用してみな
まあ、どうせまたごまかすんだろうけどw

101:デフォルトの名無しさん
19/04/29 12:16:53.98 4bYMRVF+0.net
そろそろ、無意味な言い争いやめたら、だんだん何したいかわからん

102:デフォルトの名無しさん
19/04/29 12:55:19.18 3KqibFAl0.net
>>100
お前の理論によればもはや示す必要もないwww
残念でしたwww
説得力無くて良いんだろw

103:デフォルトの名無しさん
19/04/29 12:57:44.87 3KqibFAl0.net
説得力無くても良いと言ったんだから不必要なものを求めるな。
バカがw

104:デフォルトの名無しさん
19/04/29 13:04:31.07 atpu4K080.net
>>102
> お前の理論によればもはや示す必要もないwww
はい、想像通りでしたw
>> まあ、どうせまたごまかすんだろうけどw
> 説得力無くて良いんだろw
そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
常識が通じない相手とはやり取りが困難って言うだけのこと
 >>101
スレ跨いで粘着するような人なので察してやってくださいなw ⇒ >>7
まあ連休で暇だからと言って相手してる俺も悪いんだけどね

105:デフォルトの名無しさん
19/04/29 13:10:55.90 3KqibFAl0.net
>>104
www
バーカwww
本当にバカだな。
説得力が必要なければ、ここは意味が無い。
それどころか全ての議論は意味が無い。
MSに確認は説得力を増すための十分条件だが、必要条件では無いから必ず必要なわけじゃ無い。
しかしお前は何－つ説明をしていない。
その上で説得力を必要無いなどとバカを晒した。
それじゃ議論の意味が無いからお前がここで何かを主張するのも意味が無いと自分で表明したことになる。
本当にバカだ

106:デフォルトの名無しさん
19/04/29 13:45:41.26 5oVU+kiox.net
>>89
テキストボックスが空だったときのテキスト出力に問題がありそう
エラーが出たときのテキストボックスの入力状態を再現できるなら、個々の値の転記処理が終わる箇所にブレークポイントを設定して、テキストファイルの区切り文字の数とかをダンプして確かめるといいよ

107:デフォルトの名無しさん
19/04/29 13:54:02.85 atpu4K080.net
> その上で説得力を必要無いなどとバカを晒した。
まず日本語のてにをはからやり直せよ…
頭に血が上りすぎだろw

108:デフォルトの名無しさん
19/04/29 14:14:07.86 KquSHPZdd.net
>>107
不必要なことをするなw
バカがwww

109:デフォルトの名無しさん
19/04/29 14:33:48.02 ctIEF5n7F.net
だいたい、てにをはを分かって無いのはどっちだよ。

110:デフォルトの名無しさん
19/04/29 14:37:09.09 atpu4K080.net
指摘されてアタフタw

111:デフォルトの名無しさん
19/04/29 14:46:16.98 KquSHPZdd.net
>>110
反論出来なくて悔しいのうw

112:デフォルトの名無しさん
19/04/29 14:55:19.39 atpu4K080.net
>>111
既に結論出してるからね
>> 説得力無くて良いんだろw
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
> 常識が通じない相手とはやり取りが困難って言うだけのこと

113:デフォルトの名無しさん
19/04/29 15:21:29.32 KquSHPZdd.net
お前が自ら反論出来ませんと宣言した結論がなwww

114:デフォルトの名無しさん
19/04/29 15:22:16.26 KquSHPZdd.net
>>112
自分がアホなことを言った責任を取れw

115:デフォルトの名無しさん
19/04/29 15:23:08.17 KquSHPZdd.net
常識が通じないことを言い出したのは自分じゃねーかw

116:デフォルトの名無しさん
19/04/29 16:08:31.29 atpu4K080.net
バカが何か喚いてるなw
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない

117:デフォルトの名無しさん
19/04/29 17:26:09.94 KquSHPZdd.net
>>116
反論出来なくなって議論を放棄したバカはお前だろw

118:デフォルトの名無しさん
19/04/29 17:33:18.07 wwUmbZI/M.net
>>117
バカが何を喚いても
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
という事実は変わらない

119:デフォルトの名無しさん
19/04/29 17:45:24.31 5oVU+kiox.net
ここの人達を見てるとVBAがなぜオワコンなのか分かるね

120:デフォルトの名無しさん
19/04/29 17:55:06.77 TTZW3SJd0.net
>>119
逆だろ
敷居が低すぎて誰でも使えるから荒れる

121:デフォルトの名無しさん
19/04/29 18:58:21.22 leSwRXLe0.net
何で最新版の2019でも使えるのにオワコンなの?

122:デフォルトの名無しさん
19/04/29 19:23:57.77 tJZYnaZY0.net
当時はすぐにVBA.NETがでると思ったんだけどなぁ

123:デフォルトの名無しさん
19/04/29 19:41:52.72 lSCWRZH10.net
>>89
取り出し方を間違ってるかTextfileの中身が実際に足りてないかのどっちか

124:デフォルトの名無しさん
19/04/29 20:01:58.83 b0/Q+dtd0.net
>>92
エラーになったTextfileは確認しました。
もちろん配列格納時に足りなくまります。
>>106
print #fileNo,txtA.Text ＆vbTab;
print #fileNo,txtB.Text ＆vbTab;
・
・
print #fileNo,txtG.Text;
今コードないからあれですけど、こんな感じだったと思うんですけど何か起きそうですかね？

125:デフォルトの名無しさん
19/04/29 20:17:29.34 atpu4K080.net
>>124
> エラーになったTextfileは確認しました。
> もちろん配列格納時に足りなくまります。
だ・か・ら、Textfileの中身はどうなってるんだよ…

126:デフォルトの名無しさん
19/04/29 20:37:36.75 8I96H2WZF.net
>>118
お前は既に敗北宣言してるんだから今さら何言っても無駄だw
説得力が無くて良いと言うのは敗北宣言に等しい。
俺がお前に対して何も説得力が無くても良いと言ってしまったんだからなw

127:デフォルトの名無しさん
19/04/29 20:53:34.07 atpu4K080.net
また痴呆症の再発かよw
>>95
説得力が無い？
> 説得力の有無なんて関係ないだろ
> お前が根拠を示せてないと言う「事実」があるだけ
って書いてあるんだが、ひょっとして違いがわかってないのか？w

128:デフォルトの名無しさん
19/04/29 21:29:45.18 KquSHPZdd.net
>>127
今さら、ひっくり返そうとしても無駄w
お前の言によれば俺の主張に説得力は必要無いということだからな。
お前は無条件に俺の主張に同意すると言ったに等しいw

129:デフォルトの名無しさん
19/04/29 21:31:38.71 KquSHPZdd.net
>>127
お前の言う「事実」なんて無いのも確定だw
「事実」なんて無いという俺の主張に説得力は必要無いとお前が言ったんだからなw

130:デフォルトの名無しさん
19/04/29 21:34:44.44 5oVU+kiox.net
アスペ vs アスペ
ファイッ！

131:デフォルトの名無しさん
19/04/29 21:43:17.66 mVsN4is2F.net
なぜ、こんなアホなことになったのかは容易に想像できる。
このバカは自分と相手の主張の整合性や論理というものを考えずにその場で反論出来れば良いと不用意な発言をしたんだろう。
全くどうしようもないバカ者だ。
発言を続けていれば論理が無くても勝てると思ってるのだろうw

132:デフォルトの名無しさん
19/04/29 22:03:44.78 atpu4K080.net
痴呆症のうえに妄想まで出てきたか
末期症状だなw
１つだけお前のレスで正しいところがあるよ
> それどころか全ての議論は意味が無い。
「基地外との」って言う言葉を前置すればねw

133:デフォルトの名無しさん
19/04/29 22:35:55.60 KquSHPZdd.net
>>132
勝手に省略するなバカw
説得力が必要ないというならという前提がつくんだよ。
お前の主張によればという前提でも良い。
全ての議論は意味が無いというのはお前の主張が正しければだ。
バカ者がw

134:デフォルトの名無しさん
19/04/29 22:50:43.48 atpu4K080.net
意味のない議論（と本人は思ってる独り言）を延々と続ける痴呆老人w

135:デフォルトの名無しさん
19/04/29 23:07:30.74 KquSHPZdd.net
>>134
本来、何かを主張するということは、自らの説得力を持って相手に納得させる行為なんだよ。
ぐうの音も出ないというのは、相手の説得力に対して抗しきれずに納得させられたという状態だ。
お前は説得力が無くてもかまれないんだから、相手がどんなアホなことを言ってもぐうの音も出ないと表明してしまったわけだw

136:デフォルトの名無しさん
19/04/29 23:17:56.44 atpu4K080.net
あと念の為に言っとくけど、普段はこんなアホなことは言わんよ
「MSに確認」を執拗に要求するアホがいるから、人に要求するなら自分も根拠を示せというだけのこと
できない時点で単なるつぶやきでしかない

137:デフォルトの名無しさん
19/04/30 10:29:21.50 B8o2e8qC0.net
あると断定するよりないと断定するのは難しいよね
単に自分が見つけられなかっただけでは断言なんてできないし
 >>136
確認しなくても、ない根拠を示せば相手も黙るのでは

138:デフォルトの名無しさん
19/04/30 11:58:35.51 Cm5pFeJF0.net
まだやるの？
それとも別人？

139:デフォルトの名無しさん
19/04/30 15:31:13.13 GJKpnzP30.net
まだやるも何も完全に論理破綻してるけど自ら白旗挙げたことに気付いて無くて悔しいから、最後まで何か言ってれば負けたことにならないと信じてるアホがいるだけ。
MSに確認しなくても説得力ある話をすれば良かったのに、今となってはそれも手遅れ。
説得力が必要無いなんて、じゃお前は何でここに居るんだよwというくらいのアホ。

140:デフォルトの名無しさん
19/04/30 15:32:27.45 GJKpnzP30.net
>>138
前から、怪しい奴が横から沸いてたw
アホらしいから取り合わんけどね。

141:デフォルトの名無しさん
19/04/30 15:34:04.83 Op13jVvhx.net
別スレ立ててやれ

142:デフォルトの名無しさん
19/04/30 15:42:55.36 Cm5pFeJF0.net
>>139-140
>>134
>>141
前スレから粘着するぐらいだからもう無理でしょw

143:デフォルトの名無しさん
19/04/30 15:48:48.77 GJKpnzP30.net
>>142
論理無しでも最後まで口を出せば負けないと思ってるアホw

144:デフォルトの名無しさん
19/04/30 16:55:50.87 eh3I/jd8M.net
言いたいことは >>136に書いてある

145:デフォルトの名無しさん
19/04/30 19:10:51.36 S6hYz9760.net
よし、わかった。
ここをExcel VBAスレにするのは平成までにして、
令和からは、ドキッ!丸ごと水着女だらけの水泳大会スレにすれば、
すべて解決する。

146:デフォルトの名無しさん
19/04/30 19:18:15.59 R0S1ON6+M.net
ネーミングの昭和感

147:デフォルトの名無しさん
19/05/01 01:54:30.18 MPaYicsf0.net
なあもういい加減やめようぜ

148:デフォルトの名無しさん
19/05/01 08:45:56.07 R08QdVRL0.net
止めつつ上げるとかネタやん

149:デフォルトの名無しさん
19/05/01 13:34:20.87 XHmxZYyQ0.net
最初の質問者は問題解決したのかな？

150:デフォルトの名無しさん
19/05/01 19:19:03.05 xlz/SFXed.net
戯れ事を指摘したことの根拠は戯れ事を否定する根拠が無かったことなのにな。
何にも根拠が無かったら発言しなければ良かったのに。

151:デフォルトの名無しさん
19/05/03 19:41:21.80 o4X+Dt2l0.net
1 安倍晋三アベシンゾウ
2 麻生太郎
3 小泉純一郎
4 白石麻衣
・
・
・
全員にフリガナをふりたい
今手動で名前をカット→貼り付けでフリガナをだしてます
それを自動でやる方法
または違うやり方があれば教えてください
ち、ちなみにjkです！

152:デフォルトの名無しさん
19/05/03 19:52:09.99 7e1y8fXo0.net
「あべしんぞう」じゃなくて「あべしんさん」で変換されてたら
ふりがなもそうなるし並べ替えでも読みで並べ替えされるし

153:デフォルトの名無しさん
19/05/03 19:54:51.80 gB5i9xO70.net
>>151
SEXしよう！
・関数
=PHONETIC(A1)
・vba
Sub foo()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2).Value = Application.GetPhonetic(Cells(i, 1))
Next
End Sub
・その他
A1セルにカーソル併せてshit+alt+上でふりがなの設定が出来る

154:デフォルトの名無しさん
19/05/03 19:56:40.51 gB5i9xO70.net
書き忘れた
関数とｖｂａで挙動が変わる
関数は入力した時のふりがなデータを引っ張ってくる。漢字をコピペした場合、ふりがなデータが無い事がある
vbaはIMEのデータを引っ張ってくる。
どちらが良いかは無いが、基本的にはvbaの方が良い

155:デフォルトの名無しさん
19/05/03 20:52:09.59 o4X+Dt2l0.net
神様ありがとう！！
やっぱりここのおじさんたち凄い
 >>152
それはあきらめてるw

156:デフォルトの名無しさん
19/05/04 06:46:34.61 TSubnBAw0.net
おばさんもいるよ！

157:デフォルトの名無しさん
19/05/04 10:24:42.71 4Z9Ig80ax.net
すげー加齢臭するなこのスレ

158:デフォルトの名無しさん
19/05/04 10:33:10.59 qNitGapX0.net
平均30-40ぐらいじゃないか。余裕で50代もいると思う

159:デフォルトの名無しさん
19/05/04 13:15:20.53 mcZWq4mnM.net
5chとしては普通でしょ

160:デフォルトの名無しさん
19/05/04 14:27:39.19 eVIwB2YR0.net
むしろ50代とかの方が多いんじゃね？

161:デフォルトの名無しさん
19/05/05 01:42:39.48 PgstIp0W0.net
windows3.1時代には既に有ったからね
dos版にもvbaって有ったの?
流石にそこまでは知らないんだけど

162:デフォルトの名無しさん
19/05/05 07:29:37.96 25zG6vKA0.net
>>161
> dos版にもvbaって有ったの?
ないでしょ
VBAはExcel 5.0からでそのバージョンにDOSはなかったはず

163:デフォルトの名無しさん
19/05/05 20:27:43.58 BF8MV8/50.net
指定する番号の行に
行を新規に追加するには
どう記載すれば、良いですか？

164:デフォルトの名無しさん
19/05/05 20:41:12.12 XON7SXZQr.net
row(n).insert
nは数値

165:デフォルトの名無しさん
19/05/05 20:42:27.10 AcwGW1cm0.net
>>163
Rows(123).Insert

166:デフォルトの名無しさん
19/05/05 20:45:05.57 XON7SXZQr.net
sが抜けてましたね
すまんかった

167:デフォルトの名無しさん
19/05/05 20:45:39.14 IK0uVtFC0.net
Dim i As Integer
i = InputBox("数字を入力してください")
Rows(i).Insert Shift:=xlDown

168:デフォルトの名無しさん
19/05/05 21:40:51.68 BF8MV8/50.net
皆さん、ありがとう
試して報告させていただきます。

169:デフォルトの名無しさん
19/05/05 21:45:41.48 BF8MV8/50.net
>>164
nをfor next
で指定しても、動きますか？
エラーとなり、理由がわからず２日ここで止まってます。

170:デフォルトの名無しさん
19/05/05 22:22:12.93 jSkSyCW+d.net
コードも無いしエラーメッセ－ジも無いからエラーはよく分からんが、気になる点を1つ。
n行目に挿入されると、その行は何行目になるのかな?

171:デフォルトの名無しさん
19/05/05 22:29:34.83 pOOjaEue0.net
>>169
具体的に何行目に追加したいか書いたほうが良いと思う
一行だけじゃないのか

172:デフォルトの名無しさん
19/05/05 22:52:12.35 AcwGW1cm0.net
>>169
たぶん For に Step - が必要な案件と見た

173:デフォルトの名無しさん
19/05/05 22:56:04.02 AcwGW1cm0.net
>>169
いっぺんに何行も挿入したいときは
Rows("6:15").Insert
この例では5行と6行の間に10行いっぺんに入れて、元の6行が16行に移動してる

174:デフォルトの名無しさん
19/05/05 22:59:30.01 oCrXkNbC0.net
>>172
初めて挿入やった時に上から順に挿入してってぐっちゃぐちゃになったわｗ

175:デフォルトの名無しさん
19/05/05 23:12:10.31 BF8MV8/50.net
ありがとう、皆さん。お言葉に甘えて
Sub 行の挿入()
dim k As Integer
dim i As Integer
dim j As Integer
dim h As Integer
Set obj基本データ = Thisworkbook.Worksheets("基本データ")
h = 7
Do while obj基本データ.Cells(4,h).Value〈〉""
For i = 1 To obj基本データ.Cells(5,
h).End(xlDown).Row
k = obj基本データ.Cells(4,h).Value
j = obj基本データ.Cells(i+4,h).Value
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
next i
h = h + 1
Loop
End Sub
回すと、
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
のところで、実行時エラー'1004'
となります。

176:デフォルトの名無しさん
19/05/05 23:52:28.10 pOOjaEue0.net
>>175
構文はあってるけど、存在しないセルを参照している
多分jに0か、kに-2が入ってるとかそんな感じ

177:デフォルトの名無しさん
19/05/05 23:53:17.22 pOOjaEue0.net
変数の中身を確認して
確認方法はウォッチ式、イミディエイトウィンドウなどいろいろあるけど
msgbox j
msgbox k
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
でも良い

178:デフォルトの名無しさん
19/05/06 00:20:05.87 50ISOOVP0.net
>>176
遅くにありがとうございました。
ご指摘のとおり、iに0が入るため、エラーになっていることがわかりました。
後は、空白セルを0と読み取らせない方法を調べてみます。
丸二日、エラーの理由がわからずに悩んでいました。
見ず知らずの方に助けてもらえて感謝です。ありがとうございました。

179:デフォルトの名無しさん
19/05/06 00:33:06.01 50ISOOVP0.net
>>178
j
でした。訂正します。

180:デフォルトの名無しさん
19/05/06 00:51:29.40 50ISOOVP0.net
>>176
IF j=0 then GoTo L1
を追加して、
エラーになるところを飛ばして解決しました。
ありがとうございました。

181:デフォルトの名無しさん
19/05/06 10:29:14.43 ZwYgATzZd.net
>>178
初心者は、問題がどこにあるのかに勘所が無いからこういう悩んで時間を使う経験をたくさんすると良い。
慣れれば5秒で気付く。
あと、Do～Loopはいらない気がする。
hの代わりにiを使ってどうにかできると思うね。

182:デフォルトの名無しさん
19/05/06 10:30:20.40 ZwYgATzZd.net
>>178
間違えた。
hは列方向か。

183:デフォルトの名無しさん
19/05/10 16:54:45.46 SsAAf7AE0.net
VBA勉強中の者です。
Setステートメントを勉強しているのですが、オブジェクト型についてお聞きしたいです。RangeオブジェクトとかWorksheetオブジェクトなど、いろんなサイトなど見ても使いどころがよくつかめてないです。
どんなときに使うのか、教えてもらえるとありがたいです。

184:デフォルトの名無しさん
19/05/10 16:57:57.46 /nmPTcfU0.net
>>183
数値と文字列以外は全部オブジェクト

185:デフォルトの名無しさん
19/05/10 17:04:22.66 /nmPTcfU0.net
どんなときに使うのか、は一言で言うのは難しいが、基本的には保守のため
・何の変数か分からない時に名前をつける
range("a1:b2")だと何の範囲かはワークシート見ないと分からない
set 転記元 = range("a1:b2")
とすることで、そのrangeが何か一発で分かるようになる
ちなみに「何をするか」ではなく「何が入ってるか」を基準に命名すると後で分かりやすい
「何をするか」はfunctionの名前がそうなっているはずだ
・ある変数が2回以上登場する場合、最初に変数に入れておけばそのコードを変更する時に一回で済む
まぁこれは説明せんでもええわな
・保守しないならめんどくさいだけじゃん
そう、合っている
ちゃんと保守できるように書いて置いた方が、長い目で見ると楽なんだ。プラマイプラス

186:デフォルトの名無しさん
19/05/10 19:25:57.30 ZL9lN1sfd.net
>>184、185
レスありがとうございます。
185さん
感覚ですが、すごく単純な感じがします。そんな認識でよいです？
ただ184さんのいう
数値と文字列以外は全部オブジェクト
これがひっかかるんです。
range("a1:b2")がオブジェクトという認識でよい？
そのなかに文字があった場合は？
文字列じゃない？と思ってしまうが、それは違うんですよね。
仮に
range("b2").valueだった場合は値で、range("a1:b2")はオブジェクトという事？
はなしがまとまってなくて、すみません。

187:デフォルトの名無しさん
19/05/10 19:27:02.31 ZL9lN1sfd.net
↑183が書き込みしました。

188:デフォルトの名無しさん
19/05/10 19:40:34.80 tGc5sWC60.net
Ｅｘｃｅｌのシート内部の表位置とかカラム位置とかデータ末尾とか特定するベストプラクティスってどんなんですか！
何十年前からある言語でこんだけ普及してるのにいまだに決まった答えがないとか

189:デフォルトの名無しさん
19/05/10 19:44:21.41 tfYAY6pzM.net
>>188
あのね、A1から使うのがExcelの正しい使い方なの
枠やらタイトルやら付けるのはバカジャップの間違った使い方なの

190:デフォルトの名無しさん
19/05/10 19:52:43.30 tGc5sWC60.net
一瞬で理解した

191:デフォルトの名無しさん
19/05/10 20:14:31.04 /nmPTcfU0.net
>>186
range("a1:b2")はオブジェクト。この中にプロパティとしてvalueやwidth、heightなどがある
もちろんrange("a1:b2").valueは文字列。
range("a1")に1が入っていて
range("a1")+2が3になるのは、range("a1:b2").valueが自動的に呼び出されて
range("a1").value+2になっているため
MSDNじっくり読んだほうがいいかもな
URLﾘﾝｸ(docs.microsoft.com)(object)

192:デフォルトの名無しさん
19/05/10 20:16:01.36 /nmPTcfU0.net
>>188
最強はこのページの
<S6> 書式付きセルを除外する（UsedRange）
URLﾘﾝｸ(www.niji.or.jp)
ケツから検索して見つかった奴が最後

193:デフォルトの名無しさん
19/05/10 21:34:51.98 ZL9lN1sfd.net
>>191
レスありがとうございます
誘導もありがとう！
じっくり読んでみます。
わからない所があったらまた聞くかもです。
中途半端な理解は嫌だし。さっかりと理解したいし。

194:デフォルトの名無しさん
19/05/10 22:33:38.03 Mw5h8bh90.net
プログラミングを理解するには、読むだけでなくとにかく実際に動かしてみることが大事

195:デフォルトの名無しさん
19/05/11 03:15:11.68 04x+b6lna.net
さっかりなw

196:デフォルトの名無しさん
19/05/11 08:20:45.16 0TYDlcnk0.net
>>194
そうですよね
やらないとわからないがほとんどです(T-T)
>>195
脳内変換ヨロシクです

197:デフォルトの名無しさん
19/05/11 19:56:32.57 C94O1bx/0.net
ADO使うと突然落ちるようになった。
何が原因J?

198:デフォルトの名無しさん
19/05/11 20:45:20.04 Y1ZlGg0p0.net
>>197
プロバイダはなに？

199:デフォルトの名無しさん
19/05/11 21:32:42.45 C94O1bx/0.net
>>198
Microsoft.ACE.OLEDB.12.0
PCによっては普通に実行できるので、原因がわからん。

200:デフォルトの名無しさん
19/05/11 21:36:03.53 pbKNvvnGa.net
質問です。
NumberFormatLocal = “yyyy””年””m””月””d””日””(aaa)”で書式の定義を変更しています。
NumberFormatLocal = ●“yyyy””年””m””月””d””日””(aaa)”
●の箇所に文字列を入れたいのですが”●”を入れるとエラーになります。解決方法はありますでしょうか？

201:デフォルトの名無しさん
19/05/11 21:40:16.93 C94O1bx/0.net
>>200
わからんけど、自動記録でやったものをコピペするとか。

202:デフォルトの名無しさん
19/05/11 21:46:39.70 VQwnSTgG0.net
マクロの記録取ってみたわ
ダブルコーテーションで括った中で、更にダブルコーテーションがいるっぽい
具体てt機にはこう
Selection.NumberFormatLocal = """あ""yyyy""年""m""月"""

203:デフォルトの名無しさん
19/05/11 21:46:58.83 pbKNvvnGa.net
>>201
解決しました。ありがとうございました。

204:デフォルトの名無しさん
19/05/12 02:13:17.21 anQ1bE+S0.net
もしかして、Access2016が入ってると、
Excel2013ではADO接続使えない?
Excel2013からAccess2016の参照で落ちるケースはググって見つけたけど、
ウチのはExcel2013からExcel2013で落ちる。

205:デフォルトの名無しさん
19/05/12 02:35:46.96 0u/cIV/f0.net
>>190
データとしてExcelを使う場合と、ドキュメントとしてExcelを使う場合とで、考え方がかわる。

206:デフォルトの名無しさん
19/05/12 08:45:07.80 OK9Y1i2P0.net
>>204
win下をdll検索して、複数見つかったらそれぞれ直接参照設定してみるとか
（単体で動いてるわけじゃない気もするから、期待薄かもしれんけど）

207:デフォルトの名無しさん
19/05/12 12:05:15.73 anQ1bE+S0.net
>>206
それもダメだったから、諦めてExcel2019買ったわ。
それだと普通に動いたから、
やっぱりExcel2013とAccess2016の組み合わせがダメだったみたい。
ありがとう。

208:デフォルトの名無しさん
19/05/12 16:17:36.32 UM6bazI+0.net
32ビット版だったとか？

209:デフォルトの名無しさん
19/05/12 17:19:48.24 anQ1bE+S0.net
>>208
Excel2013　・・・　ADO接続OK
　　　↓
Excel2013　+　Access2016　・・・　ここで突然落ちるようになる
　　　↓
Excel2019　+　Access2016　・・・　直った!
全部32bit。
本当は64bitにしたかったけど、ListViewとか、
一部使えなくなる機能があるので諦めた。

210:デフォルトの名無しさん
19/05/12 17:21:42.38 anQ1bE+S0.net
あ、Excel2013　+　Access2016って、インストールの組み合わせ。
別に、Excel2013からAccess2016に接続しに行ったわけじゃない。
落ちたのは、Excel2013からExcel2013へのADO接続。

211:デフォルトの名無しさん
19/05/12 17:23:44.21 0u/cIV/f0.net
なんの話をしているのか他人にはさっぱりわからないw

212:デフォルトの名無しさん
19/05/12 18:10:56.69 w16fcO4J0.net
時刻がマイナスの場合
とは、if文でどうやってつくりますか？

213:デフォルトの名無しさん
19/05/12 18:20:18.19 O1RPDIWFM.net
>>212
マイナスの時刻など存在しない
If 1 = 2

214:デフォルトの名無しさん
19/05/12 18:23:52.94 w16fcO4J0.net
A－B＝C
時刻の差のCがマイナス表示されるセルを
if文で
00:00:00
に直したいです

215:デフォルトの名無しさん
19/05/12 18:30:53.16 O1RPDIWFM.net
>>214
=TEXT(MAX(0, C), "hh:mm:ss")
VBAは要らん

216:デフォルトの名無しさん
19/05/12 18:33:52.80 w16fcO4J0.net
セルの設定ですね。
ありがとうございます。

217:デフォルトの名無しさん
19/05/12 20:06:16.73 0u/cIV/f0.net
プログラミングの初歩は大事なんだと思ったよ。
ある値のときは00時00分00秒にするという分岐を思いつかないんだから。

218:デフォルトの名無しさん
19/05/12 20:51:34.11 JDMVXB4ua.net
まあMIN/MAXを使って値をキャップするのは正統なプログラミングでは非常によく使われる方法だけど、
事務屋さんには意外と思いつかないかもね

219:デフォルトの名無しさん
19/05/12 21:54:23.80 UM6bazI+0.net
普通に時刻どうしで比較できるから、3分前とかそういうことかと思ってた

220:デフォルトの名無しさん
19/05/12 22:49:25.28 0u/cIV/f0.net
>>210
Office製品は基本的にバージョン違いを混在させられるようにはできていない。

221:デフォルトの名無しさん
19/05/13 07:47:02.77 J0xiSM4lM.net
>>220
そんなことはなくて条件満たせば使えるよ
URLﾘﾝｸ(www.microsoft.com)

222:デフォルトの名無しさん
19/05/13 09:04:58.38 bJahx30bM.net
>>219
時間と時刻

223:デフォルトの名無しさん
19/05/13 09:19:29.85 OGTR1ISy0.net
その前にいきなり時刻とか言い出した辺りでダメダメ。
人間が時刻と思ってるだけの可能性がある。
セルの書式や変数の型を元に説明しないのは、人間の目線で時刻と言ってる証拠。

224:デフォルトの名無しさん
19/05/13 13:56:52.37 p6Zrf1zY0.net
シャープで囲んでる人はちょっと

225:デフォルトの名無しさん
19/05/13 14:34:08.69 /2MppI/1M.net
VBAでは時刻と時間を Timeでずっとやり繰りしてたのに、c#で TimeSpan発見したときは叫んだわ

226:デフォルトの名無しさん
19/05/13 16:36:40.35 N0Eopnbu0.net
え？エクセルをADOでデータベースみたいに扱うこともできるの?

227:デフォルトの名無しさん
19/05/13 17:03:08.67 P7TvqqIDM.net
>>226
ちゃんと形式を整えておけば単純なSELECTなら使える
WHEREが機能するだけでOKってことならまあまあかな
JOINとかは当てにならないような気がする
DELETE, INSERT, UPDATE はもっと当てにならない

228:デフォルトの名無しさん
19/05/13 19:21:33.24 t89inGVt0.net
あてにならないってなんやねん

229:デフォルトの名無しさん
19/05/13 20:44:43.21 /95lNMvTM.net
>>228
他人だけど、ExcelのSQL操作はおまけ機能だから、標準SQLに対応してないから、やってみないとわからない。

230:デフォルトの名無しさん
19/05/13 21:00:39.75 N0Eopnbu0.net
まぁできちゃったらアクセスの立場ないわな

231:デフォルトの名無しさん
19/05/13 21:02:14.05 icbU5YOt0.net
SQL自体もう色々派閥が分かれすぎて

232:デフォルトの名無しさん
19/05/13 21:06:25.95 adbFFiEz0.net
>>229
馬鹿は死ねや
Accessのエンジンと同じだろ

233:デフォルトの名無しさん
19/05/13 21:10:27.82 /95lNMvTM.net
>>232
バージョンを気にしてくださいw

234:デフォルトの名無しさん
19/05/13 22:16:41.75 ErXZ/V3c0.net
>>226
出来るよ。
普通はやらないだろうけど、会社のPCにAccessが入ってないとか、
Accessは入ってるけど、事務のおばちゃんがExcelにしがみついて、
意地でも離さないとか、そういう状況で使える。
>>227
JOINは普通に使える。

235:デフォルトの名無しさん
19/05/13 22:42:40.28 ATfYCMP60.net
>>234
そうか、JOINも普通にできるのか...
「Excelもデータベースとして有効に使えるよね」なんて方向に行って欲しくない、という願望が
俺の心の中にバイアスを生んだようだ

236:デフォルトの名無しさん
19/05/13 23:05:59.93 RqskJpspx.net
というかPowerQueryやDAXでデータベース的な使い方が出来てしまうからな今のExcelは

237:デフォルトの名無しさん
19/05/13 23:39:26.70 N0Eopnbu0.net
エクセルでできるってすごい！
そこで疑問に思ったんですが以下のVBA書いてみましたが
Dim adoCn As Object
Dim adoRs As Object
Dim strSQL As String
Dim DBpath As String
DBpath = ThisWorkbook.Path
Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DBpath & "\SampleData.xlsx;"←①
strSQL = "select A,B,C from シート名 order by A desc" ←②
adoRs.Open strSQL, adoCn
＊何か処理
adoRs.Close
adoCn.Close 'コネクションのクローズ
Set adoRs = Nothing 'オブジェクトの破棄
Set adoCn = Nothing
①について
プロバイダーとファイル指定の記述の仕方はあってますか？
②について
列の指定とfromの方法は？
教えてください<(_ _)>

238:デフォルトの名無しさん
19/05/13 23:43:46.08 4/CDP/BQ0.net
秀和システムでいいから、古本を買って読めよw
ちゃんとサンプルが書いてある。アマゾンの古本は激安だぞ。

239:デフォルトの名無しさん
19/05/13 23:45:48.17 N0Eopnbu0.net
エクセルをデータベースとして使う記述があるのがどの本なのかさっぱり・・・
できれば本教えてもらえませんか?

240:デフォルトの名無しさん
19/05/13 23:47:08.95 adbFFiEz0.net
>>233
馬鹿は死ね

241:デフォルトの名無しさん
19/05/13 23:49:20.76 4/CDP/BQ0.net
>>239
Google検索でもサンプルは山のようにあるぞ。

242:デフォルトの名無しさん
19/05/14 00:09:21.56 XEzOoRRL0.net
ちょっとググって見ます

243:デフォルトの名無しさん
19/05/14 00:15:14.20 a29jNOd40.net
>>237
何通りかあったと思うけど、
その書き方だと[Sheet1$]かな。
プロバイダーも、adoCn.Providerにも、adoCn.Openにも書ける。
ブック名をFromの後に書く方法もある。
組み合わせは忘れたけど、どこかで指定していれば、
別の部分では省略できる感じ。

244:デフォルトの名無しさん
19/05/14 05:07:41.34 XEzOoRRL0.net
>>243
なるほど、勉強になります

245:デフォルトの名無しさん
19/05/14 19:07:26.92 wEGsmpoqp.net
URLﾘﾝｸ(dotup.org)
東京・大阪・北海道の各出発時間・到着時間を黄色い部分に「sendkeysで」、「それぞれ東京・大阪・北海道の順序を守って」入力したいです
実際にsendkeysでキーを送るのはブラウザ上のフォームであり、東京の時刻入力→tabとenterをsendkeyしつつ次のページに移動→大阪を入力、という風に処理するため、順序等が変更できません
また入力するのが東京・大阪・北海道だけでないかもしれないので、記載がある行すべてというイメージでお願いします
excelスレでも質問してみてますが、vba専門スレがあることに気付かされたのでこちらでお世話になります

246:デフォルトの名無しさん
19/05/14 20:14:46.00 Bsz/IupB0.net
だから、Sendkeysはやめろって。
これはお手軽にその場だけデータを取りたい時なんかに使うけど、制御出来ないから普通は使うべきじゃない。

247:デフォルトの名無しさん
19/05/14 20:18:43.38 wEGsmpoqp.net
もちろんそうなんですが自分には IE操作は敷居が高くて、愚直も愚直にsendkeysしか手段が思いつかないもので・・何か代替案ございますか？

248:デフォルトの名無しさん
19/05/14 20:22:02.95 9TMbmfYm0.net
どう考えてもIE操作の方が敷居が低いんだが

249:デフォルトの名無しさん
19/05/14 20:23:00.65 9TMbmfYm0.net
inputに文字列入れるだけだろ？
ソース見てidだかclassだか取得してポイって入れるだけじゃん

250:デフォルトの名無しさん
19/05/14 20:25:50.88 wEGsmpoqp.net
それがよーわからんのです・・
とりあえずググってすぐ見つかるサイトで特に初心者にわかりやすい解説してるサイトでも教えていただけませんか？

251:デフォルトの名無しさん
19/05/14 21:33:16.75 wEGsmpoqp.net
IE操作で頑張ってみてるんですが、リンクオープンして開いた別窓を操作するにはまたhtmldocにobjIE.documentを代入して・・ってしないといけないんですか？

252:デフォルトの名無しさん
19/05/14 21:59:36.21 IyB4HHSk0.net
>>251
別窓にしちゃう（なっちゃう）とそのウィンドウを探して、html取ってくることが必要になるので、できるなら避ける。
IE VBA
でググれば、参考サイト出てくる。あとは応用しだい
IEでは F12で開くやつも有用
がんばれ

253:デフォルトの名無しさん
19/05/14 22:06:13.16 wEGsmpoqp.net
>>252
社内システムなので必ず別窓になっちゃう仕様です
htmlの取り方教えてもらえませんか？

254:デフォルトの名無しさん
19/05/14 22:31:09.98 a29jNOd40.net
>社内システムなので
多分、このスレ見てる全員ズコーだわ、そのオチ。
システム部門の人に聞いちゃダメなんかい。

255:デフォルトの名無しさん
19/05/14 22:36:33.89 s0Vi/y5R0.net
CreateObject("Shell.Application").Windows() から探す

256:デフォルトの名無しさん
19/05/16 11:39:56.68 a1IyAHl+r.net
excelマクロでのバージョン管理てどうすればいいん
言われるがままに集計マクロ作ったら担当者毎に持ってるマクロのバージョン違ってあの機能が無いとか特殊な状況でエラー出る→それ先月直しましたよ
が頻発してる

257:デフォルトの名無しさん
19/05/16 12:20:32.52 5BGNguvP0.net
>>256
サーバー上にマクロ専用のエクセルファイルを置いて、
個々に配っているファイルからはそのマクロを参照させる

258:デフォルトの名無しさん
19/05/16 12:51:40.47 YRbGgWK/M.net
>>257
基本それだが、ずっと掴んでるやつがいるとバグ修正や機能追加のときに困る

次ページ