Excel VBA 質問スレ Part68

2020/08/30(日) 11:55:27.33

!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/09(水) 21:05:53.63

列幅をコピーすればいいのでは…

2020/09/09(水) 21:18:50.45

>>152
幅を一緒にしたいなら最初からそう書けば良かったのに

2020/09/10(木) 00:02:31.06

>>149
あなたが思っているC言語のdefineの使い方は、コンパイラが置換するもので、定数の概念とは少し違いますよ？

2020/09/10(木) 00:04:04.82

>>152
そもそも列の挿入操作が必須なのか？

2020/09/10(木) 00:05:42.63

列の挿入なんてあちこちに影響するから、やりたがる理由がわからない。

2020/09/10(木) 01:40:18.04

条件付き書式が壊れたりすると面倒

2020/09/10(木) 02:24:17.86

自分の操作と同じ手順を踏みたいだけなんだろうね

プログラマではない素人感覚

2020/09/10(木) 04:18:44.38

test

2020/09/10(木) 07:50:51.47

超初心者なんだけど
配列の中から指定値の近似値の座標を検索するのにいい感じの方法はないでしょうか
(以下、以上、完全一致全て含めての近似値)

2020/09/10(木) 08:50:52.35

どうせ大した数じゃないんだろ
総なめしろよ

2020/09/10(木) 09:29:12.78

>>161
for eachで比較対象値と指定値を全て比較して、結果出力してその中でMIN関数使えば

2020/09/10(木) 10:03:54.29

>>161
前もってソートした配列作って二分探索か、
配列の値-指定値の絶対値が最小になる値を探す

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 10:32:25.89

Min(Abs(配列-指定値))

2020/09/10(木) 12:18:21.67

指定値と配列値の差分を絶対値にして比較した場合、
指定値が5だとして
配列　　差分(ABS)
4　　　　　1
7　　　　　2
となり、最小の差分は1とわかる
座標を知りたいので指定値(5)-差分(1)=4となり、配列の中から4を検索して座標を調べればいいのかなって思ってたんだけど
絶対値で出てくると5-1か5+1どっちを検索すればいいか不明じゃないですか？
そこらへんを解決する方法があれば聞きたいです

2020/09/10(木) 12:33:38.92

ひとつに絞りたいならお前がルールを決めればいい
お前に決定権がないなら保護者に聞け

2020/09/10(木) 12:50:19.18

ExcelVBAのフレームワークってないんですか？

PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが
VBAだとそういうのが見当たらなくって・・・

2020/09/10(木) 12:52:37.90

見よう見まねで結構大掛かりなマクロを作った
情シスには程遠い事務の部署で
改善賞1万円
うーんもうちょい欲しかった

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-EJMP) · 2020/09/10(木) 13:06:54.18

オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない

2020/09/10(木) 13:09:58.25

フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク
さらに言えばExcel向けに特化したものがExcelVBA
他のOfficeソフトにもそれぞれのVBAがある

2020/09/10(木) 13:11:29.05

>>167
一つに絞りたいというか最も近しい値を知りたいのです
指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい
1万行は超えるから総なめはちょっと…

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 13:21:59.05

>>172
パソコンにとっては「たった」1万行だよ
総舐めが一番簡単だし、開発時間も含めれば一番早い

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 13:23:29.76

総舐めでもここでグダグタ言ってる間に結果が出る

2020/09/10(木) 13:38:32.36

>>172
は？質問は4と-4だろ？

もう俺が決めてやるよ
-4にしろ、はい解決

2020/09/10(木) 13:41:25.58

セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう
指定した値aの近似値が欲しいなら
If a-x<=Array(i) And a+x>=Array(i) Then
とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い

2020/09/10(木) 13:43:28.62

あ、ごめん
俺が質問を勘違いしてたわ

2020/09/10(木) 13:48:20.19

近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手

2020/09/10(木) 13:50:34.65

>>168
各オブジェクトに多数のイベントが設定されているでしょ
windowsのプログラミングはイベントドリブンが基本
ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する

2020/09/10(木) 18:35:00.61

すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう

2020/09/10(木) 18:36:01.33

https://i.imgur.com/poQzyJO.jpg
これです

2020/09/10(木) 19:09:29.54

打ち込んだだけで実行してないからじゃね

2020/09/10(木) 19:30:20.82

どこに打ち込んだかも分からないしなんとも

2020/09/10(木) 19:46:53.46

汚えコードだな

2020/09/10(木) 19:55:23.47

>>166
コードが汚すぎる

2020/09/10(木) 20:10:09.84

>>181
セルの幅や高さは初期状態？

2020/09/10(木) 20:12:24.09

あ、なんでもない

2020/09/10(木) 20:17:20.03

普通に動いたんで入力ミスとか環境の問題かな

2020/09/10(木) 20:49:46.36

パズルゲームを作ってます。

セルを奇数列から横2マス選択してドラッグさした場合に、移動先が同じ奇数列から始まる場所なら許可。偶数列から始まる場所に移動した場合は不可にして移動をキャンセルさせたいんですがどうしたら出来ますか？良いEVENTってあるんですかね？

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 21:52:44.31

>>180
そのまま入力してちゃんと動いたから、問題文には間違いはない
https://i.imgur.com/kojc0gJ.png

それにしても学校の宿題だとしたらひどすぎるな
先生がこんなに汚いコードしか書けないとか生徒がかわいそう

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 21:54:41.31

ああ最後の方に入力ミスあったわごめん

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 21:56:12.36

>>189
SelectionChange

2020/09/10(木) 21:56:18.66

>>181
コメント行の終わりにシングルクォーテーションが付いているのは初めて見たw

コメントというより、文字列リテラルに見えてくるw

2020/09/10(木) 21:57:24.01

>>190
こんな意図がこんなに読みづらいコード初めて見たわ

2020/09/10(木) 22:01:54.82

>>181
先生変数宣言しないの？

2020/09/10(木) 22:06:42.97

教師は必ずしもコード書いてた人じゃないししゃあないんちゃう

2020/09/10(木) 22:22:10.32

>>180
馬鹿過ぎる帰れ

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 22:28:05.12

>>193
HTMLみたいにコメントが改行で終わるとは限らない言語はまれによくあるけどな
それよりもインデントの汚さと、Cellsのパラメータにx, yを使ってるあたりがめちゃくちゃ気になる

2020/09/10(木) 22:28:20.02

Kirakira1 のコードにそっくりなのが検索で見るかるけど
そっちでは変数宣言しているｗ

2020/09/10(木) 22:31:17.53

これか
https://my-tax-nology.com/excel-vba-animation-rnd-function-cells-glitter
>>マクロ（Excel VBA）を使えば、簡単なアニメーションを作ることができます。
>>アニメーションを作っていると楽しいだけでなく、プログラミングのスキルアップに繋がります。

なるほど？？

2020/09/10(木) 22:37:08.36

エクセルVBA は当分なくならないですかね

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 22:43:44.96

>>200
VBAを教えてるサイトでコメントをシングルクォートで閉じたりカッコを全角で書くやつなんて世界に一人しかいない
本人ならDimやインデントはちゃんと書くはずだし、完全にパクリだな

2020/09/10(木) 22:59:03.63

180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど

2020/09/10(木) 23:10:15.32

すまん
wsfやhtaでvbs書くとき 'コメント' って書くわ
エディタの色付けがjs用だから

2020/09/10(木) 23:26:05.51

>>203
「なんで乱数を整数化するのにRoundを使ってしまったんですか？」って聞いてみて

2020/09/10(木) 23:27:44.84

他の言語でも行コメントで見出し風にするプロはそれなりにいる。

ただ、初心者に教える人間が行コメント構文を、ブロックコメント構文と同じ使い方をするのは、初心者を混乱させるだけで、何のメリットもない。

2020/09/10(木) 23:29:02.40

>>203
なんで変数宣言しないんですか？
なんでx1とかわかりづらい命名するんですか？
なんでx1とかを上書きするようなわかりづらい変数の使い方してるんですか？
インデントの使い方に意図はありますか？
6の意味が説明されないとわからないのは不親切ですね

などなど…色々質問してみたらいいよ

2020/09/10(木) 23:31:52.10

>>203
その先生は、少なくともVBAの知識だけは大したことないことは誰が見てもわかる
ほかの言語のエキスパートでVBAをバカにする人もいるけど、人に教えるんならちゃんとしろと思う

>>199
よく見つけたな

2020/09/10(木) 23:31:53.48

>>205
それもなんか見ると気になるな。コードの順番も変だし、数値の精度やデータ型をわざとヘンテコにしているのかも謎。

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 23:33:45.89

>>205
Rndの定義から考えればIntを使うのが自然だけど、まあそこは100%間違いとは言い切れないからなあ

2020/09/10(木) 23:33:50.53

その先生だと6は数値ではなく数字です！
マジックナンバーって何と言いそうw

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-7JDO) · 2020/09/10(木) 23:34:53.46

コードのおかしさは、その先生よりコピペ元のサイトの責任だろ

2020/09/10(木) 23:37:35.65

>>212
ドコモロは黙っててくれないか

2020/09/10(木) 23:43:13.95

>>212
教える側の立場として教材として使うかどうか判断したんだから元のところに責任はねーだろ
なんか改悪もしてるし

2020/09/10(木) 23:50:48.35

ループの外でウエイトしてたら速すぎてキラキラしないんじゃ…。
紙に書いてある方。

2020/09/10(木) 23:52:06.33

>>200
こいつもかなり怪しいな
i, jを宣言してないし、変数をゼロクリアしてるのも謎

2020/09/10(木) 23:53:08.37

>>215
確かに言われてみれば
キラキラの意味

2020/09/11(金) 01:20:18.01

>>216
本業が税理士なのに、詳しくもないことをひけらかすやつだから、税理士としてもいまひとつの癖のあるやつだと思う。

2020/09/11(金) 01:22:28.25

>>216 彼も他人のパクリなのかもね

2020/09/11(金) 01:27:34.96

ゆとり世代の馬鹿に教えるゆとりかよ

2020/09/11(金) 08:33:42.89

>>146
そいつはバグだと思うよ。
Mougで質問してた人がいて、俺も試したけどTreeViewでのD&Dで座標がバグってる。

で、15ってのはそのバグを何とか実情に合わせたものだと思う。
俺もその時似たようなことやって15っていう数字には覚えがある。

2020/09/11(金) 09:37:00.89

>>221
>>146 です。色々調べた結果、TreeViewのMouseMoveやMouseDownのイベントで渡される座標が他のフォームとは異なりピクセルで渡される事が原因でした。
なのでGetDesktopWindow,GetDC,GetDeviceCapを用いてDPIを取得し、
取得した値で1440(1440twips=1Inch)を割り、
その値をピクセル数に掛ける事でポイントでの換算に成功しました。
標準の設定ですとDPIが96になるそうなので1440/96で15、となるようです。

2020/09/11(金) 16:13:39.65

VB6だとScreen.TwipsPerPixelXってあったんだがなあ

VBAだとPointsToScreenPixelsXとかあるなと思ってみてみたけど、これ、つねに72DPIで計算するっぽいな

2020/09/11(金) 18:44:31.89

>>192
それだと1回めの選択範囲で動いて、移動したら動きますよね？
1回目の行や列を記憶させて2回目で比較する感じですか？

2020/09/11(金) 22:11:41.98

>>222
>>223
うん、その辺みんな知ってるけどTreeViewの問題って違ってたと思うんだが。

2020/09/12(土) 08:12:41.83

動的配列に値を追加していきたいのですが要素番号を0ではなく1から始める方法はありませんか？

2020/09/12(土) 08:24:59.90

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

2020/09/12(土) 08:28:00.30

『[ VBA ]「Option Base 1」使うなよな！反論は聞かない！』

2020/09/12(土) 15:06:14.92

アレイリスト使うほうがかんたんじゃね？

2020/09/12(土) 20:26:44.99

先頭を１にするのはセンスないね

2020/09/14(月) 18:06:26.03

i++とか+=使えないのマジで不便だな
前置インクリメントもできないし一行でもend ifとかloop書かなきゃいかんしめんどくさくね？
この言語もうちょい進化しないの？

2020/09/14(月) 18:10:50.73

１行でEnd If書きたくないならThenの後に半角スペースいれたら改行しないで処理書いてみ

++とかは禿同

2020/09/14(月) 18:13:56.53

>>232
おおこんなことが、、、
ありがとう！

2020/09/14(月) 18:15:50.60

>>231
馬鹿は死ねよ

2020/09/14(月) 19:51:50.83

ガイジ君ブチ切れw

2020/09/14(月) 19:57:09.34

ざわ・・ざわ・・

2020/09/14(月) 20:46:20.36

+=使えるだろうが

2020/09/14(月) 20:54:32.80

使えません

2020/09/14(月) 20:56:59.34

あー、VB.Netスレだと思ってた。スマン、死んでくる。

2020/09/14(月) 21:01:00.11

逝かないで

2020/09/14(月) 21:01:06.64

制御構造は、キーワードの選び方がやや独特だけど、基本的なものについては、概ね他の言語と同等のことはできると思う。
どちらかというと、変数の宣言・定義が一緒にできないとか、配列・コレクションの要素参照が角括弧でなく丸括弧だとか、プロシージャ呼び出しの丸括弧の要否とかの方が不便さを感じるかな。まぁ、これらも慣れと言われればそれまでだが。

2020/09/14(月) 22:06:22.62

gotoとラベルでできるっちゃあできるけどcontinueとbreakが欲しい

2020/09/14(月) 22:20:37.59

breakは、一応Exit ～が概ね対応しているのでは（While～Wendでは使えないけど）？
脱出するループを明示的に指定するので、breakより便利な場合もごくたまにある。もっとも、二重のForループから抜ける場合などは結局GoToに頼ることになるので中途半端ではあるけど。

2020/09/14(月) 23:27:12.72

俺もたまにラベルでcontinueするけどめちゃくちゃ見栄え悪くて嫌

2020/09/15(火) 08:35:58.25

>>232
>>233
基本、それは使わないな。
読みやすさとか構造の分かり易さ優先。
勿論、時と場合による。

2020/09/15(火) 09:16:48.30

ユーザーフォームの２つリストボックスで選択された値を変数に代入する方法を教えてください

■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

2020/09/15(火) 09:17:03.49

■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をＡ１・Ａ２に入れたいのですが、この方法だとどちらも入りません。

2020/09/15(火) 09:33:07.65

ボタン押してstrに代入するところModule1.strじゃないとダメなんじゃないの

**246** (ﾜｯﾁｮｲ 11cc-QmsY) · 2020/09/15(火) 09:45:50.10

>>248
試しましたがだめでした

追記
ブックを開いたまま、tes1を２回目に実行するとA1には書き込みますが、
ブックを開いて、１回目のtes1実行ではA1には書き込まれないようです。

2020/09/15(火) 09:57:04.92

モードレスだから
ボタン押した時にUnload UserForm1する前にModule1.tes2を呼び出さないとだ

Sub tes1()
UserForm1.Show vbModeless
End Sub

Sub tes2()
Range("A1").Value = str
Range("A2").Value = str
End Sub

**246** (ﾜｯﾁｮｲ 11cc-QmsY) · 2020/09/15(火) 11:27:58.65

>>250
ありがとうございました。解決しました

2020/09/15(火) 18:56:31.81

AccessVBAを使用しているのですが、標準モジュールを変数に格納する方法がわかりません。
フォームコントロールの様に変数に入れて扱う方法はありませんでしょうか。