[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
167(1): (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7) 2020/09/10(木)12:33 ID:l+lun8zfM(2/5) AAS
ひとつに絞りたいならお前がルールを決めればいい
お前に決定権がないなら保護者に聞け
168(1): (ﾜｯﾁｮｲ 7d01-pVuC) 2020/09/10(木)12:50 ID:/arv21np0(1) AAS
ExcelVBAのフレームワークってないんですか？
PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが
VBAだとそういうのが見当たらなくって・・・
169: (ﾌﾞｰｲﾓ MM81-m2CW) 2020/09/10(木)12:52 ID:sAyQhYLaM(1) AAS
見よう見まねで結構大掛かりなマクロを作った
情シスには程遠い事務の部署で
改善賞1万円
うーんもうちょい欲しかった
170: (ｽﾌｯ Sd0a-EJMP) 2020/09/10(木)13:06 ID:PB4qSPsyd(1) AAS
オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない
171: (ﾗｸｯﾍﾟﾍﾟ MM3e-ruyw) 2020/09/10(木)13:09 ID:4uvZuCuyM(1) AAS
フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク
さらに言えばExcel向けに特化したものがExcelVBA
他のOfficeソフトにもそれぞれのVBAがある
172(2): (ﾌﾞｰｲﾓ MMc9-4twR) 2020/09/10(木)13:11 ID:XKC0VKf0M(1) AAS
>>167
一つに絞りたいというか最も近しい値を知りたいのです
指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい
1万行は超えるから総なめはちょっと…
173: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)13:21 ID:4mlwjCSed(1/2) AAS
>>172
パソコンにとっては「たった」1万行だよ
総舐めが一番簡単だし、開発時間も含めれば一番早い
174: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)13:23 ID:4mlwjCSed(2/2) AAS
総舐めでもここでグダグタ言ってる間に結果が出る
175: (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7) 2020/09/10(木)13:38 ID:l+lun8zfM(3/5) AAS
>>172
は？ 質問は4と-4だろ？
もう俺が決めてやるよ
-4にしろ、はい解決
176: (ﾜｯﾁｮｲ 6aad-+eY2) 2020/09/10(木)13:41 ID:Yq3PJL3D0(1/2) AAS
セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう
指定した値aの近似値が欲しいなら
If a-x<=Array(i) And a+x>=Array(i) Then
とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い
177: (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7) 2020/09/10(木)13:43 ID:l+lun8zfM(4/5) AAS
あ、ごめん
俺が質問を勘違いしてたわ
178: (ﾜｯﾁｮｲ 6aad-+eY2) 2020/09/10(木)13:48 ID:Yq3PJL3D0(2/2) AAS
近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手
179: (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7) 2020/09/10(木)13:50 ID:l+lun8zfM(5/5) AAS
>>168
各オブジェクトに多数のイベントが設定されているでしょ
windowsのプログラミングはイベントドリブンが基本
ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する
180(2): (ﾜｯﾁｮｲ 3dad-sCec) 2020/09/10(木)18:35 ID:VdzBOqiR0(1/3) AAS
すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう
181(3): (ﾜｯﾁｮｲ 3dad-sCec) 2020/09/10(木)18:36 ID:VdzBOqiR0(2/3) AAS
画像ﾘﾝｸ[jpg]:i.imgur.com
これです
182: (ﾜｯﾁｮｲ 6a42-vvkI) 2020/09/10(木)19:09 ID:yo745YZ80(1) AAS
打ち込んだだけで実行してないからじゃね
183: (ﾃﾃﾝﾃﾝﾃﾝ MM3e-Krlo) 2020/09/10(木)19:30 ID:L0+T18/AM(1) AAS
どこに打ち込んだかも分からないしなんとも
184: (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7) 2020/09/10(木)19:46 ID:cO3BfNoWM(1) AAS
汚えコードだな
185: (ﾜｯﾁｮｲ 6d63-PnJR) 2020/09/10(木)19:55 ID:T9YJeJvx0(1) AAS
>>166
コードが汚すぎる
186: (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/10(木)20:10 ID:QatXFD490(2/5) AAS
>>181
セルの幅や高さは初期状態？
187: (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/10(木)20:12 ID:QatXFD490(3/5) AAS
あ、なんでもない
188: (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/10(木)20:17 ID:QatXFD490(4/5) AAS
普通に動いたんで入力ミスとか環境の問題かな
189(1): (ｽｯﾌﾟ Sdea-ah1O) 2020/09/10(木)20:49 ID:Rp5mNNXSd(1) AAS
パズルゲームを作ってます。
セルを奇数列から横2マス選択してドラッグさした場合に、移動先が同じ奇数列から始まる場所なら許可。偶数列から始まる場所に移動した場合は不可にして移動をキャンセルさせたいんですがどうしたら出来ますか？良いEVENTってあるんですかね？
190(1): (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)21:52 ID:WalExY5Hd(1/5) AAS
>>180
そのまま入力してちゃんと動いたから、問題文には間違いはない
画像ﾘﾝｸ[png]:i.imgur.com
それにしても学校の宿題だとしたらひどすぎるな
先生がこんなに汚いコードしか書けないとか生徒がかわいそう
191: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)21:54 ID:WalExY5Hd(2/5) AAS
ああ最後の方に入力ミスあったわごめん
192(1): (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)21:56 ID:WalExY5Hd(3/5) AAS
>>189
SelectionChange
193(1): (ﾜｯﾁｮｲ a95f-Sism) 2020/09/10(木)21:56 ID:a+RPoaYl0(5/8) AAS
>>181
コメント行の終わりにシングルクォーテーションが付いているのは初めて見たw
コメントというより、文字列リテラルに見えてくるw
194: (ﾜｯﾁｮｲ 3d3d-PnJR) 2020/09/10(木)21:57 ID:b8lNN7jK0(1/3) AAS
>>190
こんな意図がこんなに読みづらいコード初めて見たわ
195: (ｱｳｱｳｴｰ Sa52-v0oT) 2020/09/10(木)22:01 ID:qPrgFXQ2a(1) AAS
>>181
先生変数宣言しないの？
196: (ｱｳｱｳｶｰ Sa55-hUiG) 2020/09/10(木)22:06 ID:YMu2GFxia(1) AAS
教師は必ずしもコード書いてた人じゃないししゃあないんちゃう
197: (ﾜｯﾁｮｲ 668e-0TEw) 2020/09/10(木)22:22 ID:6Lj7sAI40(1) AAS
>>180
馬鹿過ぎる帰れ
198: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)22:28 ID:WalExY5Hd(4/5) AAS
>>193
HTMLみたいにコメントが改行で終わるとは限らない言語はまれによくあるけどな
それよりもインデントの汚さと、Cellsのパラメータにx, yを使ってるあたりがめちゃくちゃ気になる
199(1): (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/10(木)22:28 ID:QatXFD490(5/5) AAS
Kirakira1 のコードにそっくりなのが検索で見るかるけど
そっちでは変数宣言しているｗ
200(2): (ｱｳｱｳｳｰ Sa21-PnJR) 2020/09/10(木)22:31 ID:/qwml5cpa(1) AAS
これか
外部ﾘﾝｸ:my-tax-nology.com
>>マクロ（Excel VBA）を使えば、簡単なアニメーションを作ることができます。
>>アニメーションを作っていると楽しいだけでなく、プログラミングのスキルアップに繋がります。
なるほど？？
201: (ｱｳｱｳｴｰ Sa52-ndeh) 2020/09/10(木)22:37 ID:uWh6vQvPa(1) AAS
エクセルVBA は当分なくならないですかね
202: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)22:43 ID:WalExY5Hd(5/5) AAS
>>200
VBAを教えてるサイトでコメントをシングルクォートで閉じたりカッコを全角で書くやつなんて世界に一人しかいない
本人ならDimやインデントはちゃんと書くはずだし、完全にパクリだな
203(3): (ﾜｯﾁｮｲ 3dad-IT/D) 2020/09/10(木)22:59 ID:VdzBOqiR0(3/3) AAS
180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど
204: (ﾜｯﾁｮｲ 39e6-7JDO) 2020/09/10(木)23:10 ID:8/CQSYne0(1/3) AAS
すまん
wsfやhtaでvbs書くとき 'コメント' って書くわ
エディタの色付けがjs用だから
205(2): (ﾜｯﾁｮｲ 39e6-7JDO) 2020/09/10(木)23:26 ID:8/CQSYne0(2/3) AAS
>>203
「なんで乱数を整数化するのにRoundを使ってしまったんですか？」って聞いてみて
206: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/10(木)23:27 ID:a+RPoaYl0(6/8) AAS
他の言語でも行コメントで見出し風にするプロはそれなりにいる。
ただ、初心者に教える人間が行コメント構文を、ブロックコメント構文と同じ使い方をするのは、初心者を混乱させるだけで、何のメリットもない。
207: (ﾜｯﾁｮｲ 3d3d-PnJR) 2020/09/10(木)23:29 ID:b8lNN7jK0(2/3) AAS
>>203
なんで変数宣言しないんですか？
なんでx1とかわかりづらい命名するんですか？
なんでx1とかを上書きするようなわかりづらい変数の使い方してるんですか？
インデントの使い方に意図はありますか？
6の意味が説明されないとわからないのは不親切ですね
などなど…色々質問してみたらいいよ
208: (ｽｯﾌﾟ Sd0a-7JDO) 2020/09/10(木)23:31 ID:ewRWdYKCd(1) AAS
>>203
その先生は、少なくともVBAの知識だけは大したことないことは誰が見てもわかる
ほかの言語のエキスパートでVBAをバカにする人もいるけど、人に教えるんならちゃんとしろと思う
>>199
よく見つけたな
209: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/10(木)23:31 ID:a+RPoaYl0(7/8) AAS
>>205
それもなんか見ると気になるな。コードの順番も変だし、数値の精度やデータ型をわざとヘンテコにしているのかも謎。
210: (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)23:33 ID:ATM2a6JOd(1/2) AAS
>>205
Rndの定義から考えればIntを使うのが自然だけど、まあそこは100%間違いとは言い切れないからなあ
211: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/10(木)23:33 ID:a+RPoaYl0(8/8) AAS
その先生だと6は数値ではなく数字です！
マジックナンバーって何と言いそうw
212(2): (ｽﾌｯ Sd0a-7JDO) 2020/09/10(木)23:34 ID:ATM2a6JOd(2/2) AAS
コードのおかしさは、その先生よりコピペ元のサイトの責任だろ
213: (ﾜｯﾁｮｲ 39e6-7JDO) 2020/09/10(木)23:37 ID:8/CQSYne0(3/3) AAS
>>212
ドコモロは黙っててくれないか
214: (ﾜｯﾁｮｲ 3d3d-PnJR) 2020/09/10(木)23:43 ID:b8lNN7jK0(3/3) AAS
>>212
教える側の立場として教材として使うかどうか判断したんだから元のところに責任はねーだろ
なんか改悪もしてるし
215(1): (ﾜｯﾁｮｲ 7dda-SnFp) 2020/09/10(木)23:50 ID:Q3JELDTy0(1) AAS
ループの外でウエイトしてたら速すぎてキラキラしないんじゃ…。
紙に書いてある方。
216(2): (ﾌﾞｰｲﾓ MM8e-7JDO) 2020/09/10(木)23:52 ID:2cDIJpauM(1) AAS
>>200
こいつもかなり怪しいな
i, jを宣言してないし、変数をゼロクリアしてるのも謎
217: (ｱｳｱｳｳｰ Sa21-PnJR) 2020/09/10(木)23:53 ID:/1fuNzSOa(1) AAS
>>215
確かに言われてみれば
キラキラの意味
218: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/11(金)01:20 ID:66INGyZB0(1/2) AAS
>>216
本業が税理士なのに、詳しくもないことをひけらかすやつだから、税理士としてもいまひとつの癖のあるやつだと思う。
219: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/11(金)01:22 ID:66INGyZB0(2/2) AAS
>>216 彼も他人のパクリなのかもね
220: (ﾜﾝﾄﾝｷﾝ MM7a-nV8z) 2020/09/11(金)01:27 ID:iTcJm+RBM(1) AAS
ゆとり世代の馬鹿に教えるゆとりかよ
221(1): (ｽｯﾌﾟ Sd0a-4Ha4) 2020/09/11(金)08:33 ID:L6SxevYWd(1/2) AAS
>>146
そいつはバグだと思うよ。
Mougで質問してた人がいて、俺も試したけどTreeViewでのD&Dで座標がバグってる。
で、15ってのはそのバグを何とか実情に合わせたものだと思う。
俺もその時似たようなことやって15っていう数字には覚えがある。
222(1): (ﾌﾞｰｲﾓ MM81-+eY2) 2020/09/11(金)09:37 ID:mn04Qg6+M(1) AAS
>>221
>>146 です。色々調べた結果、TreeViewのMouseMoveやMouseDownのイベントで渡される座標が他のフォームとは異なりピクセルで渡される事が原因でした。
なのでGetDesktopWindow,GetDC,GetDeviceCapを用いてDPIを取得し、
取得した値で1440(1440twips=1Inch)を割り、
その値をピクセル数に掛ける事でポイントでの換算に成功しました。
標準の設定ですとDPIが96になるそうなので1440/96で15、となるようです。
223(1): (ﾜｯﾁｮｲ 6a2f-sa+Q) 2020/09/11(金)16:13 ID:qEgHhc430(1) AAS
VB6だとScreen.TwipsPerPixelXってあったんだがなあ
VBAだとPointsToScreenPixelsXとかあるなと思ってみてみたけど、これ、つねに72DPIで計算するっぽいな
224: (ｽｯﾌﾟ Sdea-ah1O) 2020/09/11(金)18:44 ID:+9zmYtvxd(1) AAS
>>192
それだと1回めの選択範囲で動いて、移動したら動きますよね？
1回目の行や列を記憶させて2回目で比較する感じですか？
225: (ｽｯﾌﾟ Sd0a-4Ha4) 2020/09/11(金)22:11 ID:L6SxevYWd(2/2) AAS
>>222
>>223
うん、その辺みんな知ってるけどTreeViewの問題って違ってたと思うんだが。
226: (ﾜｯﾁｮｲ 7910-lSnV) 2020/09/12(土)08:12 ID:cGm6fMBf0(1) AAS
動的配列に値を追加していきたいのですが要素番号を0ではなく1から始める方法はありませんか？
227: (ﾜｯﾁｮｲ ea01-/mq1) 2020/09/12(土)08:24 ID:OyGZa+nz0(1) AAS
Sub testtttt()
Dim arr() As Variant
ReDim arr(1 To 1)
arr(1) = 10
ReDim Preserve arr(1 To 2)
arr(2) = 20
ReDim Preserve arr(1 To 3)
arr(3) = 30
MsgBox arr(1) & " " & arr(2) & " " & arr(3)
End Sub
省2
228: (ﾌﾞｰｲﾓ MM8e-EZp5) 2020/09/12(土)08:28 ID:FkIM4E0+M(1) AAS
『[ VBA ]「Option Base 1」使うなよな！反論は聞かない！』
229: (ﾜｯﾁｮｲ 7d01-XADe) 2020/09/12(土)15:06 ID:X8G1U5XY0(1) AAS
アレイリスト使うほうがかんたんじゃね？
230: (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/12(土)20:26 ID:+6u/uPRn0(1) AAS
先頭を１にするのはセンスないね
231(1): (ｵｯﾍﾟｹ Srbd-o3hV) 2020/09/14(月)18:06 ID:YLQY1Qz5r(1/2) AAS
i++とか+=使えないのマジで不便だな
前置インクリメントもできないし一行でもend ifとかloop書かなきゃいかんしめんどくさくね？
この言語もうちょい進化しないの？
232(2): (ﾌﾞｰｲﾓ MMc9-+eY2) 2020/09/14(月)18:10 ID:CnoY9xmOM(1) AAS
１行でEnd If書きたくないならThenの後に半角スペースいれたら改行しないで処理書いてみ
++とかは禿同
233(1): (ｵｯﾍﾟｹ Srbd-o3hV) 2020/09/14(月)18:13 ID:YLQY1Qz5r(2/2) AAS
>>232
おおこんなことが、、、
ありがとう！
234: (ﾜｯﾁｮｲ 668e-0TEw) 2020/09/14(月)18:15 ID:LbAMjRkX0(1/3) AAS
>>231
馬鹿は死ねよ
235: (ﾜｯﾁｮｲ 7910-lSnV) 2020/09/14(月)19:51 ID:ZpzZ2vr50(1) AAS
ガイジ君ブチ切れw
236: (ﾜｯﾁｮｲ 6a42-vvkI) 2020/09/14(月)19:57 ID:lPVfhwtb0(1) AAS
ざわ・・ざわ・・
237: (ﾜｯﾁｮｲ 668e-0TEw) 2020/09/14(月)20:46 ID:LbAMjRkX0(2/3) AAS
+=使えるだろうが
238: (ﾜｯﾁｮｲ 0a4b-FgeY) 2020/09/14(月)20:54 ID:P2Bbq2Qk0(1/2) AAS
使えません
239: (ﾜｯﾁｮｲ 668e-0TEw) 2020/09/14(月)20:56 ID:LbAMjRkX0(3/3) AAS
あー、VB.Netスレだと思ってた。スマン、死んでくる。
240: (ﾜｯﾁｮｲ 0a4b-FgeY) 2020/09/14(月)21:01 ID:P2Bbq2Qk0(2/2) AAS
逝かないで
241: (ｻｻｸｯﾃﾛﾚ Spbd-jNRp) 2020/09/14(月)21:01 ID:K/D9SivKp(1) AAS
制御構造は、キーワードの選び方がやや独特だけど、基本的なものについては、概ね他の言語と同等のことはできると思う。
どちらかというと、変数の宣言・定義が一緒にできないとか、配列・コレクションの要素参照が角括弧でなく丸括弧だとか、プロシージャ呼び出しの丸括弧の要否とかの方が不便さを感じるかな。まぁ、これらも慣れと言われればそれまでだが。
242: (ﾜｯﾁｮｲ a95f-hUiG) 2020/09/14(月)22:06 ID:9LhT2bwK0(1) AAS
gotoとラベルでできるっちゃあできるけどcontinueとbreakが欲しい
243: (ﾜｯﾁｮｲ 393d-jNRp) 2020/09/14(月)22:20 ID:8aASiVNY0(1) AAS
breakは、一応Exit 〜が概ね対応しているのでは（While〜Wendでは使えないけど）？
脱出するループを明示的に指定するので、breakより便利な場合もごくたまにある。もっとも、二重のForループから抜ける場合などは結局GoToに頼ることになるので中途半端ではあるけど。
244: (ﾜｯﾁｮｲ 397c-bL/7) 2020/09/14(月)23:27 ID:EMg7ooaX0(1) AAS
俺もたまにラベルでcontinueするけどめちゃくちゃ見栄え悪くて嫌
245: (ｽｯﾌﾟ Sd0a-4Ha4) 2020/09/15(火)08:35 ID:Ny+/GOwEd(1) AAS
>>232
>>233
基本、それは使わないな。
読みやすさとか構造の分かり易さ優先。
勿論、時と場合による。
246: (ﾜｯﾁｮｲ 11cc-QmsY) 2020/09/15(火)09:16 ID:Ty4jOAMY0(1/4) AAS
ユーザーフォームの２つリストボックスで選択された値を変数に代入する方法を教えてください
■Module1
Public str As String
■ThisWorkbook
Sub tes1()
UserForm1.Show vbModeless
Range("A1").Value = str
End Sub
Sub tes2()
Range("A2").Value = str
省1
247: (ﾜｯﾁｮｲ 11cc-QmsY) 2020/09/15(火)09:17 ID:Ty4jOAMY0(2/4) AAS
■UserForm1
Private Sub UserForm_Initialize()
Dim r As Long
For r = Year(Date) - 1 To Year(Date) + 2
UserForm1.ListBox1.AddItem r & "年"
Next r
For r = 1 To 12
UserForm1.ListBox2.AddItem r & "月"
Next r
UserForm1.Show vbModeless
省6
248(1): (ﾃﾃﾝﾃﾝﾃﾝ MM3e-FgeY) 2020/09/15(火)09:33 ID:q5KWnXWXM(1/2) AAS
ボタン押してstrに代入するところModule1.strじゃないとダメなんじゃないの
249: 246 (ﾜｯﾁｮｲ 11cc-QmsY) 2020/09/15(火)09:45 ID:Ty4jOAMY0(3/4) AAS
>>248
試しましたがだめでした
追記
ブックを開いたまま、tes1を２回目に実行するとA1には書き込みますが、
ブックを開いて、１回目のtes1実行ではA1には書き込まれないようです。
250(1): (ﾃﾃﾝﾃﾝﾃﾝ MM3e-FgeY) 2020/09/15(火)09:57 ID:q5KWnXWXM(2/2) AAS
モードレスだから
ボタン押した時にUnload UserForm1する前にModule1.tes2を呼び出さないとだ
Sub tes1()
UserForm1.Show vbModeless
End Sub
Sub tes2()
Range("A1").Value = str
Range("A2").Value = str
End Sub
251: 246 (ﾜｯﾁｮｲ 11cc-QmsY) 2020/09/15(火)11:27 ID:Ty4jOAMY0(4/4) AAS
>>250
ありがとうございました。解決しました
252: (ﾜｯﾁｮｲ 799c-m1Uj) 2020/09/15(火)18:56 ID:Nzz3069/0(1) AAS
AccessVBAを使用しているのですが、標準モジュールを変数に格納する方法がわかりません。
フォームコントロールの様に変数に入れて扱う方法はありませんでしょうか。
253(1): (ﾜｯﾁｮｲ 6de5-Pwf7) 2020/09/15(火)19:29 ID:pZ4d9dfu0(1) AAS
ありません
254(1): (ﾜｯﾁｮｲ 97da-GUw/) 2020/09/16(水)00:02 ID:chmz5kZM0(1/2) AAS
Sub test()
MsgBox Me.TextBox1.Value
Me.Name="a"
Me.Name="Sheet1"
End Sub
1回目の実行 OK
2回目の実行 MsgBoxでエラー
3回目の実行 OK
4回目の実行 MsgBoxでエラー
なんでやねん!
255(1): (ﾜｯﾁｮｲ b7da-Cup9) 2020/09/16(水)01:13 ID:fUx+IXsk0(1) AAS
>>254
F8 でステップ実行してみ、あとエラーの内容くらい書いてもよくね？
256: (ﾜｯﾁｮｲ f79c-b3rt) 2020/09/16(水)10:04 ID:HoY0/Pv80(1) AAS
>>253
ありがとうございます。
フォームを格納できるなら標準モジュールも出来るのかと思って質問しました。
標準モジュール内に書かれた関数の引数として参照先の標準モジュールを渡したかったのですが、別の方法を考えてみます。
257(2): (ﾜｯﾁｮｲ bf90-W2Jb) 2020/09/16(水)18:43 ID:DJD3HHCL0(1) AAS
動画ファイル（拡張子 mp4,avi等々）の長さ（時間）をvbaで得ること出来ませんかね。
動画用のプログラムでは出ているから何らか手段はあると思うのだけど。
258: (ﾜﾝﾐﾝｸﾞｸ MM7f-7bR7) 2020/09/16(水)19:23 ID:u7LyhgECM(1) AAS
>>257
できる
はい、次
259(1): (ﾜｯﾁｮｲ b7e5-cmNC) 2020/09/16(水)19:55 ID:KOE6L/fW0(1) AAS
>>257
拾い物、動くかどうかは知らん
Sub ボタン1_Click()
Dim Shell, Folder
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.Namespace(Range("A1").Value)
Fil = Dir(Range("a1").Value & "\*.*")
Rows("5:65536").ClearComments
i = 5
Do While Fil <> ""
省9
260(1): (ﾜｯﾁｮｲ f7e6-W2Jb) 2020/09/16(水)20:18 ID:pG4LN1Ne0(1) AAS
手を抜くんじゃない！
まじめにヘッダー読み込んで解析しろよ
261: (ﾜｯﾁｮｲ f77c-5MQP) 2020/09/16(水)20:21 ID:0zA9ovKo0(1/3) AAS
ファイルのプロパティからは取れない場合もあるよ
262: (ﾜｯﾁｮｲ 97da-Cup9) 2020/09/16(水)21:31 ID:chmz5kZM0(2/2) AAS
>>255
今環境ないんだけど、
アプリケーションの定義何とかか、
インデックス何とかか、
オートメーション何とかのどれか。
何か変なものがSetされちゃってるのかと思ったけど、
MeじゃMeしかないよね?
263: (ｽｯﾌﾟ Sdbf-k5ub) 2020/09/16(水)22:10 ID:jvSIB85Td(1) AAS
>>260
昔、解析したことがある。
aviとかは割と簡単だね。
264: (ﾜｯﾁｮｲ 5701-Cup9) 2020/09/16(水)23:12 ID:dsrVDQ5Z0(1/2) AAS
すごく初歩的な質問ですみません
&演算子で文字列と数字をつないで文字列を作った時に
出来上がった文字列に""を付けなくていいのはなぜなのですか？
MsgBox "あいうえお" は""を付ける必要がある
MsgBox "A" & hoge は文字列扱いのはずなのに""を付けて MsgBox ""A" & hoge"のようにしなくていいのが解せません
265: (ﾜｯﾁｮｲ f77c-5MQP) 2020/09/16(水)23:23 ID:0zA9ovKo0(2/3) AAS
&とhogeは文字列ではなく演算子と変数
266: (ﾜｯﾁｮｲ f77c-5MQP) 2020/09/16(水)23:24 ID:0zA9ovKo0(3/3) AAS
""で囲ったら演算子でも変数でもないただの& hogeという文字列にしかならない
上下前次1-新書関写板覧索設栞歴
あと 736 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.033s