Excel VBA 質問スレ Part68

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ dbda-8BP0)
垢版 |
2020/08/30(日) 11:55:27.33ID:Oy/VxFsh0
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2020/09/08(火) 18:39:01.86ID:p9XW8v7Na
>>117
VBAの挙動の問題

-を文字列、1を数値として認識してる

そもそも、-1をダブルクォーテーションで括ってるのは文字列として-1を認識させたい時のみにするのが基本
なので、ダブルクォーテーションを取ってやれば意図通り動くはず
119デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P)
垢版 |
2020/09/08(火) 19:07:42.80ID:Pjd0b/NhM
へー、そんな挙動するんだ。知らなかった

>-11
>-12
>-13
になると思ってたよ
2020/09/08(火) 19:08:20.88ID:E23V8S4o0
>>113
activeじゃないシートはselectできないと思うが
2020/09/08(火) 19:10:47.69ID:E23V8S4o0
>>110
Forの中身が間違ってるとか別のブックを見てるとか
ほんとに選択したいシートが選択されてるか確認した？
122デフォルトの名無しさん (ﾜｯﾁｮｲ 0701-biH0)
垢版 |
2020/09/08(火) 20:06:33.41ID:qXkQmTRa0
>>118
クォーテーション外してやってみたけど上手くいかないです...

初心者なんで拙いですが、一応自分で書いたものをのせます。
既出のデータを整理して2次元チャートを作成する目的です。

Dim cnt As Integer
Dim x As Long
Dim y As Long
x = 0
y = 0

For x = 0 To 10
For y = 0 To 10

cnt = WorksheetFunction.CountIfs(Range("B2", Range("B2").End(xlDown)) "<=" 0 + x, Range("B2", Range("B2").End(xlDown)) ">= -1" & x, Range("C2", Range("C2").End(xlDown)) "<= 0" & y, Range("C2", Range("C2").End(xlDown)) ">= -1" & y)

Cells(x , y) = cnt

Next y
Next x
2020/09/08(火) 20:34:38.38ID:E23V8S4o0
いつも人任せだな…
そのcountifの引数の中身が自分の意図した内容かなんで確認しないの？
2020/09/08(火) 21:43:07.59ID:MiWYYVaX0
もう30過ぎて勉強もなぁ…って手が進まない
VBAを知識をパンパンに詰め込んでああこれねって感じでカタカタと打ち込んでプロシージャ作りたいもんだわ
2020/09/08(火) 21:57:43.01ID:E23V8S4o0
考えることを人に丸投げしてるだけで勉強は関係がない
2020/09/08(火) 22:00:12.71ID:MiWYYVaX0
人に丸投げというかネットで拾ったものの組み合わせでいつも何とかしてしまう
知識がほとんど入らない
異動希望出してるしなぁ
2020/09/08(火) 22:06:16.19ID:aT8iqlgZ0
エクセルの指定列から3列コピーしてその4列目に挿入して貼り付けた後セルに入ってる値を消すコードをRangeじゃなくてCellsでやりたいです。
clmtar=10
10～13列をコピー
14列目に挿入
14～17列目のセルの値クリア。
2020/09/08(火) 22:11:08.52ID:+kf0/gdp0
>>127
コピー後の値を消すの？
元通りになるだけだと思うけど
2020/09/08(火) 22:29:42.46ID:C66iYfBu0
>>126
愚痴る暇があったら入門書かって１ページでもいいから読んでろ
2020/09/08(火) 22:34:56.39ID:MiWYYVaX0
>>129
すんません…なんか職場でおばちゃんがあれも作ってとか調子こいてるだけで
こりゃまた愚痴だわ
これぞ！っていう入門書ありますかね
イチからガチで鍛えてみるかな
2020/09/08(火) 22:36:08.93ID:8mxHLcBxa
>>126
なんとかできてるならそれも実力のうちなのだと思うよ
楽しい、自分ならこうしてみたい、こうしたらどうなるのだろう
とかがないならそこまでだけど
2020/09/08(火) 22:40:05.68ID:MiWYYVaX0
ネットで検索
プロシージャを組み合わせたり簡単なところをイジる
出きたと思ったら会社のメルアドにプロシージャ貼り付けたテキスト送る
会社で組み合わせる
UserFormのボタンに割り当て
これでごまかしつつやってきた
圧倒的な知識が欲しいなぁと
2020/09/08(火) 22:47:12.09ID:C66iYfBu0
>>130
それすら他人に頼るようじゃいつまでたっても進まない
2020/09/08(火) 22:50:54.91ID:E23V8S4o0
今までどおり困ったら初心者ですとか勉強中ですとかで知識ないアピールで人にやらせて突っ込まれたら謎の正当化とどうでもいい言い訳で誤魔化してやっていくんだろうな
2020/09/08(火) 22:52:28.72ID:MiWYYVaX0
ネットで調べてなんとかなってしまう時代のせいだよね
俺は悪くない
2020/09/08(火) 23:27:06.50ID:HhRrDF1oa
そういう人が増えてきたからあんまり教えないようにしてる
137デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM7a-nV8z)
垢版 |
2020/09/09(水) 00:19:56.45ID:akgtbWjMM
ゆとり世代の特徴だぞ
2020/09/09(水) 00:23:30.44ID:Lvk20igu0
>110です。
書き込み後にいろいろググったところ、いくつかのサイトで
コードからの保存はbeforeSaveイベントが正常に働かない旨の記載がありました。
今回の事象もこれに当たるのかなと考えています。
そんな訳で、ボタンでの保存はenableEventsをfalseにして別処理にしました。
回答くださった皆様、ありがとうございました。
2020/09/09(水) 00:53:57.72ID:0o8c0VF10
別にここで聞いても答えなんて返ってこないし期待してないのでご安心を
140デフォルトの名無しさん (ﾜｯﾁｮｲ 39e6-Pwf7)
垢版 |
2020/09/09(水) 01:12:42.60ID:VoppH/up0
足し算がわかりませんとか言われても入門書でも読めとしか言えないよな
2020/09/09(水) 04:06:45.89ID:Y+JI74HRa
入門書読めと言うとどの入門書がいいか聞いてくるよ
2020/09/09(水) 08:19:04.77ID:z9RILJ2v0
入門書を紹介すると今度はどこで買えばいいか聞いてくるよ
2020/09/09(水) 09:27:32.52ID:8tppu1V70
通販で買えって言うとお金がないって言ってくるよ
2020/09/09(水) 09:43:27.85ID:9AZapVJXM
お金あげると姿をくらますよ
2020/09/09(水) 10:03:14.46ID:I5K9tGVf0
しかも捨て台詞付きで
2020/09/09(水) 10:37:20.74ID:KbsHkxtjM
すみません。ちょっと長くなってしまうのですがTreeViewをいじっているうちに分からない事があったので教えて下さい。
TreeViewの子ノードをD&Dでリストボックスにコピーする動作を作っていたのですが、ドラッグ開始時点のSelectedItemを取得しようとすると１度子ノードをクリックした上でD&Dを行う必要がありました。
その為、既定引数のⅹPOS,yPOSを使ってHitTestをSelectedItemに代入しようとしました。
しかしそれが上手く動作せず色々調べた結果、
xとyに*15をすると言う記述を見つけ試してみたところ、思い通りの動作を得られました。

しかしながらこの15はなんの15なんだ。他の環境ではこの数値は変わるのか。変わるならば何を元に算出すれば良いのだろうか。
という疑問が浮かびました。
お手数をお掛け致しますがお分かりになる方がいらっしゃいましたらご教授頂けませんでしょうか。
2020/09/09(水) 14:26:55.25ID:dKuEV/F30
まずその15をかけるってどこに書いてあったんだよ
2020/09/09(水) 16:31:31.09ID:0Qh2iKtEa
Windows標準のシステム解像度だとピクセルとTwipsの比率が1:15だからってスタックオーバーフローに書いてあった
149デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-AH3D)
垢版 |
2020/09/09(水) 17:07:35.99ID:cdbk3sfrM
c言語のdefineに相当する文法は無いですか?
constだと違和感がありますので
2020/09/09(水) 17:36:02.11ID:KbsHkxtjM
>>148
助かります
ありがとうございました

という事は使用環境次第では正常に動作しない場合も有り得るって事なのですね。対策を検討してみます。
2020/09/09(水) 17:50:55.91ID:jCqtOC3ba
>>149
どこに違和感があるのかを言わないと案を出せません
2020/09/09(水) 20:59:39.02ID:ynJDkc680
>>128
コピー後挿入したら隣に3列追加されてセルの長さもコピーした3列と同じになりますよね？
2020/09/09(水) 21:05:53.63ID:I5K9tGVf0
列幅をコピーすればいいのでは…
2020/09/09(水) 21:18:50.45ID:Uey8EdNp0
>>152
幅を一緒にしたいなら最初からそう書けば良かったのに
155デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 00:02:31.06ID:a+RPoaYl0
>>149
あなたが思っているC言語のdefineの使い方は、コンパイラが置換するもので、定数の概念とは少し違いますよ？
156デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 00:04:04.82ID:a+RPoaYl0
>>152
そもそも列の挿入操作が必須なのか？
157デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 00:05:42.63ID:a+RPoaYl0
列の挿入なんてあちこちに影響するから、やりたがる理由がわからない。
2020/09/10(木) 01:40:18.04ID:JZj4+m/Aa
条件付き書式が壊れたりすると面倒
159デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 02:24:17.86ID:a+RPoaYl0
自分の操作と同じ手順を踏みたいだけなんだろうね

プログラマではない素人感覚
160デフォルトの名無しさん (ｱｳｱｳｴｰ Sa52-psz/)
垢版 |
2020/09/10(木) 04:18:44.38ID:026ADmyCa
test
2020/09/10(木) 07:50:51.47ID:T4cQI13RM
超初心者なんだけど
配列の中から指定値の近似値の座標を検索するのにいい感じの方法はないでしょうか
(以下、以上、完全一致全て含めての近似値)
162デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 08:50:52.35ID:l+lun8zfM
どうせ大した数じゃないんだろ
総なめしろよ
2020/09/10(木) 09:29:12.78ID:rdKJuFJTa
>>161
for eachで比較対象値と指定値を全て比較して、結果出力してその中でMIN関数使えば
2020/09/10(木) 10:03:54.29ID:QatXFD490
>>161
前もってソートした配列作って二分探索か、
配列の値-指定値の絶対値が最小になる値を探す
2020/09/10(木) 10:32:25.89ID:vUgEJ8vWd
Min(Abs(配列-指定値))
2020/09/10(木) 12:18:21.67ID:tJgZROmkM
指定値と配列値の差分を絶対値にして比較した場合、
指定値が5だとして
配列　　差分(ABS)
4　　　　　1
7　　　　　2
となり、最小の差分は1とわかる
座標を知りたいので指定値(5)-差分(1)=4となり、配列の中から4を検索して座標を調べればいいのかなって思ってたんだけど
絶対値で出てくると5-1か5+1どっちを検索すればいいか不明じゃないですか？
そこらへんを解決する方法があれば聞きたいです
167デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 12:33:38.92ID:l+lun8zfM
ひとつに絞りたいならお前がルールを決めればいい
お前に決定権がないなら保護者に聞け
2020/09/10(木) 12:50:19.18ID:/arv21np0
ExcelVBAのフレームワークってないんですか？

PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが
VBAだとそういうのが見当たらなくって・・・
2020/09/10(木) 12:52:37.90ID:sAyQhYLaM
見よう見まねで結構大掛かりなマクロを作った
情シスには程遠い事務の部署で
改善賞1万円
うーんもうちょい欲しかった
2020/09/10(木) 13:06:54.18ID:PB4qSPsyd
オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない
2020/09/10(木) 13:09:58.25ID:4uvZuCuyM
フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク
さらに言えばExcel向けに特化したものがExcelVBA
他のOfficeソフトにもそれぞれのVBAがある
2020/09/10(木) 13:11:29.05ID:XKC0VKf0M
>>167
一つに絞りたいというか最も近しい値を知りたいのです
指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい
1万行は超えるから総なめはちょっと…
2020/09/10(木) 13:21:59.05ID:4mlwjCSed
>>172
パソコンにとっては「たった」1万行だよ
総舐めが一番簡単だし、開発時間も含めれば一番早い
2020/09/10(木) 13:23:29.76ID:4mlwjCSed
総舐めでもここでグダグタ言ってる間に結果が出る
175デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 13:38:32.36ID:l+lun8zfM
>>172
は？ 質問は4と-4だろ？

もう俺が決めてやるよ
-4にしろ、はい解決
2020/09/10(木) 13:41:25.58ID:Yq3PJL3D0
セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう
指定した値aの近似値が欲しいなら
If a-x<=Array(i) And a+x>=Array(i) Then
とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い
177デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 13:43:28.62ID:l+lun8zfM
あ、ごめん
俺が質問を勘違いしてたわ
2020/09/10(木) 13:48:20.19ID:Yq3PJL3D0
近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手
179デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 13:50:34.65ID:l+lun8zfM
>>168
各オブジェクトに多数のイベントが設定されているでしょ
windowsのプログラミングはイベントドリブンが基本
ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する
180デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec)
垢版 |
2020/09/10(木) 18:35:00.61ID:VdzBOqiR0
すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう
181デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec)
垢版 |
2020/09/10(木) 18:36:01.33ID:VdzBOqiR0
https://i.imgur.com/poQzyJO.jpg
これです
2020/09/10(木) 19:09:29.54ID:yo745YZ80
打ち込んだだけで実行してないからじゃね
2020/09/10(木) 19:30:20.82ID:L0+T18/AM
どこに打ち込んだかも分からないしなんとも
184デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-Pwf7)
垢版 |
2020/09/10(木) 19:46:53.46ID:cO3BfNoWM
汚えコードだな
2020/09/10(木) 19:55:23.47ID:T9YJeJvx0
>>166
コードが汚すぎる
2020/09/10(木) 20:10:09.84ID:QatXFD490
>>181
セルの幅や高さは初期状態？
2020/09/10(木) 20:12:24.09ID:QatXFD490
あ、なんでもない
2020/09/10(木) 20:17:20.03ID:QatXFD490
普通に動いたんで入力ミスとか環境の問題かな
2020/09/10(木) 20:49:46.36ID:Rp5mNNXSd
パズルゲームを作ってます。

セルを奇数列から横2マス選択してドラッグさした場合に、移動先が同じ奇数列から始まる場所なら許可。偶数列から始まる場所に移動した場合は不可にして移動をキャンセルさせたいんですがどうしたら出来ますか？良いEVENTってあるんですかね？
2020/09/10(木) 21:52:44.31ID:WalExY5Hd
>>180
そのまま入力してちゃんと動いたから、問題文には間違いはない
https://i.imgur.com/kojc0gJ.png

それにしても学校の宿題だとしたらひどすぎるな
先生がこんなに汚いコードしか書けないとか生徒がかわいそう
2020/09/10(木) 21:54:41.31ID:WalExY5Hd
ああ最後の方に入力ミスあったわごめん
2020/09/10(木) 21:56:12.36ID:WalExY5Hd
>>189
SelectionChange
193デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 21:56:18.66ID:a+RPoaYl0
>>181
コメント行の終わりにシングルクォーテーションが付いているのは初めて見たw

コメントというより、文字列リテラルに見えてくるw
2020/09/10(木) 21:57:24.01ID:b8lNN7jK0
>>190
こんな意図がこんなに読みづらいコード初めて見たわ
2020/09/10(木) 22:01:54.82ID:qPrgFXQ2a
>>181
先生変数宣言しないの？
2020/09/10(木) 22:06:42.97ID:YMu2GFxia
教師は必ずしもコード書いてた人じゃないししゃあないんちゃう
197デフォルトの名無しさん (ﾜｯﾁｮｲ 668e-0TEw)
垢版 |
2020/09/10(木) 22:22:10.32ID:6Lj7sAI40
>>180
馬鹿過ぎる帰れ
2020/09/10(木) 22:28:05.12ID:WalExY5Hd
>>193
HTMLみたいにコメントが改行で終わるとは限らない言語はまれによくあるけどな
それよりもインデントの汚さと、Cellsのパラメータにx, yを使ってるあたりがめちゃくちゃ気になる
2020/09/10(木) 22:28:20.02ID:QatXFD490
Kirakira1 のコードにそっくりなのが検索で見るかるけど
そっちでは変数宣言しているｗ
2020/09/10(木) 22:31:17.53ID:/qwml5cpa
これか
https://my-tax-nology.com/excel-vba-animation-rnd-function-cells-glitter
>>マクロ（Excel VBA）を使えば、簡単なアニメーションを作ることができます。
>>アニメーションを作っていると楽しいだけでなく、プログラミングのスキルアップに繋がります。

なるほど？？
2020/09/10(木) 22:37:08.36ID:uWh6vQvPa
エクセルVBA は当分なくならないですかね
2020/09/10(木) 22:43:44.96ID:WalExY5Hd
>>200
VBAを教えてるサイトでコメントをシングルクォートで閉じたりカッコを全角で書くやつなんて世界に一人しかいない
本人ならDimやインデントはちゃんと書くはずだし、完全にパクリだな
203デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-IT/D)
垢版 |
2020/09/10(木) 22:59:03.63ID:VdzBOqiR0
180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど
2020/09/10(木) 23:10:15.32ID:8/CQSYne0
すまん
wsfやhtaでvbs書くとき 'コメント' って書くわ
エディタの色付けがjs用だから
2020/09/10(木) 23:26:05.51ID:8/CQSYne0
>>203
「なんで乱数を整数化するのにRoundを使ってしまったんですか？」って聞いてみて
206デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 23:27:44.84ID:a+RPoaYl0
他の言語でも行コメントで見出し風にするプロはそれなりにいる。

ただ、初心者に教える人間が行コメント構文を、ブロックコメント構文と同じ使い方をするのは、初心者を混乱させるだけで、何のメリットもない。
2020/09/10(木) 23:29:02.40ID:b8lNN7jK0
>>203
なんで変数宣言しないんですか？
なんでx1とかわかりづらい命名するんですか？
なんでx1とかを上書きするようなわかりづらい変数の使い方してるんですか？
インデントの使い方に意図はありますか？
6の意味が説明されないとわからないのは不親切ですね

などなど…色々質問してみたらいいよ
2020/09/10(木) 23:31:52.10ID:ewRWdYKCd
>>203
その先生は、少なくともVBAの知識だけは大したことないことは誰が見てもわかる
ほかの言語のエキスパートでVBAをバカにする人もいるけど、人に教えるんならちゃんとしろと思う

>>199
よく見つけたな
209デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 23:31:53.48ID:a+RPoaYl0
>>205
それもなんか見ると気になるな。コードの順番も変だし、数値の精度やデータ型をわざとヘンテコにしているのかも謎。
2020/09/10(木) 23:33:45.89ID:ATM2a6JOd
>>205
Rndの定義から考えればIntを使うのが自然だけど、まあそこは100%間違いとは言い切れないからなあ
211デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism)
垢版 |
2020/09/10(木) 23:33:50.53ID:a+RPoaYl0
その先生だと6は数値ではなく数字です！
マジックナンバーって何と言いそうw
2020/09/10(木) 23:34:53.46ID:ATM2a6JOd
コードのおかしさは、その先生よりコピペ元のサイトの責任だろ
2020/09/10(木) 23:37:35.65ID:8/CQSYne0
>>212
ドコモロは黙っててくれないか
2020/09/10(木) 23:43:13.95ID:b8lNN7jK0
>>212
教える側の立場として教材として使うかどうか判断したんだから元のところに責任はねーだろ
なんか改悪もしてるし
215デフォルトの名無しさん (ﾜｯﾁｮｲ 7dda-SnFp)
垢版 |
2020/09/10(木) 23:50:48.35ID:Q3JELDTy0
ループの外でウエイトしてたら速すぎてキラキラしないんじゃ…。
紙に書いてある方。
2020/09/10(木) 23:52:06.33ID:2cDIJpauM
>>200
こいつもかなり怪しいな
i, jを宣言してないし、変数をゼロクリアしてるのも謎
2020/09/10(木) 23:53:08.37ID:/1fuNzSOa
>>215
確かに言われてみれば
キラキラの意味
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況