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