- 1 名前：デフォルトの名無しさん [2020/08/30(日) 11:55:27.33 ID:Oy/VxFsh0.net]
- !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
- 110 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 23:56:10.64 ID:UwONkXQv0.net]
- エクセル2010です。
上書き保存時にすべてのシートでA1セルを選択するようにしたいのですが、
Ctrl+S時とボタンのクリックイベントで挙動が違うことにハマってます。
1枚目シートにactiveXコントロールのボタンを配置し、VBAの構成は以下です。
1. シートモジュール : ボタンのクリックイベントにThisworkbook.saveだけを書いています。
2. ThisWorkbookモジュール : beforeSaveイベントで3を呼び出し。
3. 標準モジュール : 全シートのA1セルを選択するSubプロシージャ。ForEachでまわすだけ。
Ctrl+Sの際は2→3でうまくいきます。
ボタン押下の場合は、1→2→3と流れてはいるものの、なぜか各シートがactivateされなず、activeSheet.Range("A1").Selectが働きません。
1のクリックイベントから直接3を呼び出すのは、うまく行きます。
何故このような挙動になるのか分からず数日ハマってます。
どなたか、ご教示よろしくお願いします。
- 111 名前：デフォルトの名無しさん [2020/09/08(火) 02:03:49.70 ID:weDKADyMM.net]
- >>110
for i= activeworkbook.worksheets.count to 1 step -1
apprication.goto activeworkbook.worksheets(i).range("a1")
next i
activeworkbook.save
スマホ打ちだから綴りミスはあるかも
- 112 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 07:47:00.42 ID:vMdvrooDa.net]
- >>110
For eachで全シート回してるならActivateしなくても、
sh.Range("A1")で行けないか？
- 113 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 07:48:01.88 ID:vMdvrooDa.net]
- >>112
間違えたsh.Range("A1").Selectだわ
- 114 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-XrX+) mailto:sage [2020/09/08(火) 10:40:31 ID:C66iYfBu0.net]
- >>110
働かないという場合の原因で以下のことを調べてみ
1.実は働いていたがその後に別の動作をしたため働いていないように見える
2.働こうとしたが、なんらかの異常が出て失敗している
3.その処理が実行されていない（on errorやifの条件、イベント発生していないなど）
- 115 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 11:03:00.55 ID:0vfIbeP00.net]
- >>105
漏れは、yahoo のログインとか、
Ruby, Selenium Webdriver で、ブラウザを自動操作してる
単純なダウンロード・スクレイピングなら、RubyのNokogiri。
外部コマンドなら、curl, wget
- 116 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) [2020/09/08(火) 11:52:57 ID:POT3YWITM.net]
- Application.EnableEvents=Falseしてるとか？
- 117 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 16:58:59.99 ID:qXkQmTRa0.net]
- “>-1”&i
て書いたときに >-2, >-3... っていうふうに比較値が意図せず負に進むんだけど正の値に足したい場合ってどうすれば良いでしょうか。
- 118 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 18:39:01.86 ID:p9XW8v7Na.net]
- >>117
VBAの挙動の問題
-を文字列、1を数値として認識してる
そもそも、-1をダブルクォーテーションで括ってるのは文字列として-1を認識させたい時のみにするのが基本
なので、ダブルクォーテーションを取ってやれば意図通り動くはず
- 119 名前：デフォルトの名無しさん [2020/09/08(火) 19:07:42.80 ID:Pjd0b/NhM.net]
- へー、そんな挙動するんだ。知らなかった
>-11
>-12
>-13
になると思ってたよ
- 120 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 19:08:20.88 ID:E23V8S4o0.net]
- >>113
activeじゃないシートはselectできないと思うが
- 121 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 19:10:47.69 ID:E23V8S4o0.net]
- >>110
Forの中身が間違ってるとか別のブックを見てるとか
ほんとに選択したいシートが選択されてるか確認した？
- 122 名前：デフォルトの名無しさん [2020/09/08(火) 20:06:33.41 ID:qXkQmTRa0.net]
- >>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
- 123 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 20:34:38.38 ID:E23V8S4o0.net]
- いつも人任せだな…
そのcountifの引数の中身が自分の意図した内容かなんで確認しないの？
- 124 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fb5-/qgI) mailto:sage [2020/09/08(火) 21:43:07 ID:MiWYYVaX0.net]
- もう30過ぎて勉強もなぁ…って手が進まない
VBAを知識をパンパンに詰め込んでああこれねって感じでカタカタと打ち込んでプロシージャ作りたいもんだわ
- 125 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e77c-ALHH) mailto:sage [2020/09/08(火) 21:57:43 ID:E23V8S4o0.net]
- 考えることを人に丸投げしてるだけで勉強は関係がない
- 126 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fb5-/qgI) mailto:sage [2020/09/08(火) 22:00:12 ID:MiWYYVaX0.net]
- 人に丸投げというかネットで拾ったものの組み合わせでいつも何とかしてしまう
知識がほとんど入らない
異動希望出してるしなぁ
- 127 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:06:16.19 ID:aT8iqlgZ0.net]
- エクセルの指定列から3列コピーしてその4列目に挿入して貼り付けた後セルに入ってる値を消すコードをRangeじゃなくてCellsでやりたいです。
clmtar=10
10～13列をコピー
14列目に挿入
14～17列目のセルの値クリア。
- 128 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:11:08.52 ID:+kf0/gdp0.net]
- >>127
コピー後の値を消すの？
元通りになるだけだと思うけど
- 129 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:29:42.46 ID:C66iYfBu0.net]
- >>126
愚痴る暇があったら入門書かって１ページでもいいから読んでろ
- 130 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:34:56.39 ID:MiWYYVaX0.net]
- >>129
すんません…なんか職場でおばちゃんがあれも作ってとか調子こいてるだけで
こりゃまた愚痴だわ
これぞ！っていう入門書ありますかね
イチからガチで鍛えてみるかな
- 131 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:36:08.93 ID:8mxHLcBxa.net]
- >>126
なんとかできてるならそれも実力のうちなのだと思うよ
楽しい、自分ならこうしてみたい、こうしたらどうなるのだろう
とかがないならそこまでだけど
- 132 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:40:05.68 ID:MiWYYVaX0.net]
- ネットで検索
プロシージャを組み合わせたり簡単なところをイジる
出きたと思ったら会社のメルアドにプロシージャ貼り付けたテキスト送る
会社で組み合わせる
UserFormのボタンに割り当て
これでごまかしつつやってきた
圧倒的な知識が欲しいなぁと
- 133 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:47:12.09 ID:C66iYfBu0.net]
- >>130
それすら他人に頼るようじゃいつまでたっても進まない
- 134 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:50:54.91 ID:E23V8S4o0.net]
- 今までどおり困ったら初心者ですとか勉強中ですとかで知識ないアピールで人にやらせて突っ込まれたら謎の正当化とどうでもいい言い訳で誤魔化してやっていくんだろうな
- 135 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:52:28.72 ID:MiWYYVaX0.net]
- ネットで調べてなんとかなってしまう時代のせいだよね
俺は悪くない
- 136 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa8b-yCsQ) mailto:sage [2020/09/08(火) 23:27:06 ID:HhRrDF1oa.net]
- そういう人が増えてきたからあんまり教えないようにしてる
- 137 名前：デフォルトの名無しさん [2020/09/09(水) 00:19:56.45 ID:akgtbWjMM.net]
- ゆとり世代の特徴だぞ
- 138 名前：110 mailto:sage [2020/09/09(水) 00:23:30.44 ID:Lvk20igu0.net]
- >110です。
書き込み後にいろいろググったところ、いくつかのサイトで
コードからの保存はbeforeSaveイベントが正常に働かない旨の記載がありました。
今回の事象もこれに当たるのかなと考えています。
そんな訳で、ボタンでの保存はenableEventsをfalseにして別処理にしました。
回答くださった皆様、ありがとうございました。
- 139 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eab5-mjPJ) mailto:sage [2020/09/09(水) 00:53:57 ID:0o8c0VF10.net]
- 別にここで聞いても答えなんて返ってこないし期待してないのでご安心を
- 140 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 39e6-Pwf7) [2020/09/09(水) 01:12:42 ID:VoppH/up0.net]
- 足し算がわかりませんとか言われても入門書でも読めとしか言えないよな
- 141 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 04:06:45.89 ID:Y+JI74HRa.net]
- 入門書読めと言うとどの入門書がいいか聞いてくるよ
- 142 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 08:19:04.77 ID:z9RILJ2v0.net]
- 入門書を紹介すると今度はどこで買えばいいか聞いてくるよ
- 143 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 09:27:32.52 ID:8tppu1V70.net]
- 通販で買えって言うとお金がないって言ってくるよ
- 144 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 09:43:27.85 ID:9AZapVJXM.net]
- お金あげると姿をくらますよ
- 145 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 397c-bL/7) mailto:sage [2020/09/09(水) 10:03:14 ID:I5K9tGVf0.net]
- しかも捨て台詞付きで
- 146 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 10:37:20.74 ID:KbsHkxtjM.net]
- すみません。ちょっと長くなってしまうのですがTreeViewをいじっているうちに分からない事があったので教えて下さい。
TreeViewの子ノードをD&Dでリストボックスにコピーする動作を作っていたのですが、ドラッグ開始時点のSelectedItemを取得しようとすると１度子ノードをクリックした上でD&Dを行う必要がありました。
その為、既定引数のⅹPOS,yPOSを使ってHitTestをSelectedItemに代入しようとしました。
しかしそれが上手く動作せず色々調べた結果、
xとyに*15をすると言う記述を見つけ試してみたところ、思い通りの動作を得られました。
しかしながらこの15はなんの15なんだ。他の環境ではこの数値は変わるのか。変わるならば何を元に算出すれば良いのだろうか。
という疑問が浮かびました。
お手数をお掛け致しますがお分かりになる方がいらっしゃいましたらご教授頂けませんでしょうか。
- 147 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6a2f-sa+Q) mailto:sage [2020/09/09(水) 14:26:55 ID:dKuEV/F30.net]
- まずその15をかけるってどこに書いてあったんだよ
- 148 名前：デフォルトの名無しさん (ｱｳｱｳｶｰ Sa55-hUiG) mailto:sage [2020/09/09(水) 16:31:31 ID:0Qh2iKtEa.net]
- Windows標準のシステム解像度だとピクセルとTwipsの比率が1:15だからってスタックオーバーフローに書いてあった
- 149 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-AH3D) [2020/09/09(水) 17:07:35 ID:cdbk3sfrM.net]
- c言語のdefineに相当する文法は無いですか?
constだと違和感がありますので
- 150 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8e-+eY2) mailto:sage [2020/09/09(水) 17:36:02 ID:KbsHkxtjM.net]
- >>148
助かります
ありがとうございました
という事は使用環境次第では正常に動作しない場合も有り得るって事なのですね。対策を検討してみます。
- 151 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 17:50:55.91 ID:jCqtOC3ba.net]
- >>149
どこに違和感があるのかを言わないと案を出せません
- 152 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2a1f-ah1O) mailto:sage [2020/09/09(水) 20:59:39 ID:ynJDkc680.net]
- >>128
コピー後挿入したら隣に3列追加されてセルの長さもコピーした3列と同じになりますよね？
- 153 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 397c-bL/7) mailto:sage [2020/09/09(水) 21:05:53 ID:I5K9tGVf0.net]
- 列幅をコピーすればいいのでは…
- 154 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3d3d-PnJR) mailto:sage [2020/09/09(水) 21:18:50 ID:Uey8EdNp0.net]
- >>152
幅を一緒にしたいなら最初からそう書けば良かったのに
- 155 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism) [2020/09/10(木) 00:02:31 ID:a+RPoaYl0.net]
- >>149
あなたが思っているC言語のdefineの使い方は、コンパイラが置換するもので、定数の概念とは少し違いますよ？
- 156 名前：デフォルトの名無しさん [2020/09/10(木) 00:04:04.82 ID:a+RPoaYl0.net]
- >>152
そもそも列の挿入操作が必須なのか？
- 157 名前：デフォルトの名無しさん [2020/09/10(木) 00:05:42.63 ID:a+RPoaYl0.net]
- 列の挿入なんてあちこちに影響するから、やりたがる理由がわからない。
- 158 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa21-zN8f) mailto:sage [2020/09/10(木) 01:40:18 ID:JZj4+m/Aa.net]
- 条件付き書式が壊れたりすると面倒
- 159 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism) [2020/09/10(木) 02:24:17 ID:a+RPoaYl0.net]
- 自分の操作と同じ手順を踏みたいだけなんだろうね
プログラマではない素人感覚
- 160 名前：デフォルトの名無しさん [2020/09/10(木) 04:18:44.38 ID:026ADmyCa.net]
- test
- 161 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8e-4twR) mailto:sage [2020/09/10(木) 07:50:51 ID:T4cQI13RM.net]
- 超初心者なんだけど
配列の中から指定値の近似値の座標を検索するのにいい感じの方法はないでしょうか
(以下、以上、完全一致全て含めての近似値)
- 162 名前：デフォルトの名無しさん [2020/09/10(木) 08:50:52.35 ID:l+lun8zfM.net]
- どうせ大した数じゃないんだろ
総なめしろよ
- 163 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 09:29:12.78 ID:rdKJuFJTa.net]
- >>161
for eachで比較対象値と指定値を全て比較して、結果出力してその中でMIN関数使えば
- 164 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 10:03:54.29 ID:QatXFD490.net]
- >>161
前もってソートした配列作って二分探索か、
配列の値-指定値の絶対値が最小になる値を探す
- 165 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 10:32:25.89 ID:vUgEJ8vWd.net]
- Min(Abs(配列-指定値))
- 166 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 12:18:21.67 ID:tJgZROmkM.net]
- 指定値と配列値の差分を絶対値にして比較した場合、
指定値が5だとして
配列 差分(ABS)
4 1
7 2
となり、最小の差分は1とわかる
座標を知りたいので指定値(5)-差分(1)=4となり、配列の中から4を検索して座標を調べればいいのかなって思ってたんだけど
絶対値で出てくると5-1か5+1どっちを検索すればいいか不明じゃないですか？
そこらへんを解決する方法があれば聞きたいです
- 167 名前：デフォルトの名無しさん [2020/09/10(木) 12:33:38.92 ID:l+lun8zfM.net]
- ひとつに絞りたいならお前がルールを決めればいい
お前に決定権がないなら保護者に聞け
- 168 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d01-pVuC) mailto:sage [2020/09/10(木) 12:50:19 ID:/arv21np0.net]
- ExcelVBAのフレームワークってないんですか？
PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが
VBAだとそういうのが見当たらなくって・・・
- 169 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM81-m2CW) mailto:sage [2020/09/10(木) 12:52:37 ID:sAyQhYLaM.net]
- 見よう見まねで結構大掛かりなマクロを作った
情シスには程遠い事務の部署で
改善賞1万円
うーんもうちょい欲しかった
- 170 名前：デフォルトの名無しさん (ｽﾌｯ Sd0a-EJMP) mailto:sage [2020/09/10(木) 13:06:54 ID:PB4qSPsyd.net]
- オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない
- 171 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:09:58.25 ID:4uvZuCuyM.net]
- フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク
さらに言えばExcel向けに特化したものがExcelVBA
他のOfficeソフトにもそれぞれのVBAがある
- 172 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:11:29.05 ID:XKC0VKf0M.net]
- >>167
一つに絞りたいというか最も近しい値を知りたいのです
指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい
1万行は超えるから総なめはちょっと…
- 173 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:21:59.05 ID:4mlwjCSed.net]
- >>172
パソコンにとっては「たった」1万行だよ
総舐めが一番簡単だし、開発時間も含めれば一番早い
- 174 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:23:29.76 ID:4mlwjCSed.net]
- 総舐めでもここでグダグタ言ってる間に結果が出る
- 175 名前：デフォルトの名無しさん [2020/09/10(木) 13:38:32.36 ID:l+lun8zfM.net]
- >>172
は？ 質問は4と-4だろ？
もう俺が決めてやるよ
-4にしろ、はい解決
- 176 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:41:25.58 ID:Yq3PJL3D0.net]
- セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう
指定した値aの近似値が欲しいなら
If a-x<=Array(i) And a+x>=Array(i) Then
とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い
- 177 名前：デフォルトの名無しさん [2020/09/10(木) 13:43:28.62 ID:l+lun8zfM.net]
- あ、ごめん
俺が質問を勘違いしてたわ
- 178 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:48:20.19 ID:Yq3PJL3D0.net]
- 近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手
- 179 名前：デフォルトの名無しさん [2020/09/10(木) 13:50:34.65 ID:l+lun8zfM.net]
- >>168
各オブジェクトに多数のイベントが設定されているでしょ
windowsのプログラミングはイベントドリブンが基本
ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する
- 180 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec) [2020/09/10(木) 18:35:00 ID:VdzBOqiR0.net]
- すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう
- 181 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec) [2020/09/10(木) 18:36:01 ID:VdzBOqiR0.net]
- https://i.imgur.com/poQzyJO.jpg
これです
- 182 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6a42-vvkI) mailto:sage [2020/09/10(木) 19:09:29 ID:yo745YZ80.net]
- 打ち込んだだけで実行してないからじゃね
- 183 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 19:30:20.82 ID:L0+T18/AM.net]
- どこに打ち込んだかも分からないしなんとも
- 184 名前：デフォルトの名無しさん [2020/09/10(木) 19:46:53.46 ID:cO3BfNoWM.net]
- 汚えコードだな
- 185 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 19:55:23.47 ID:T9YJeJvx0.net]
- >>166
コードが汚すぎる
- 186 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:10:09 ID:QatXFD490.net]
- >>181
セルの幅や高さは初期状態？
- 187 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:12:24 ID:QatXFD490.net]
- あ、なんでもない
- 188 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:17:20 ID:QatXFD490.net]
- 普通に動いたんで入力ミスとか環境の問題かな
- 189 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 20:49:46.36 ID:Rp5mNNXSd.net]
- パズルゲームを作ってます。
セルを奇数列から横2マス選択してドラッグさした場合に、移動先が同じ奇数列から始まる場所なら許可。偶数列から始まる場所に移動した場合は不可にして移動をキャンセルさせたいんですがどうしたら出来ますか？良いEVENTってあるんですかね？
- 190 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 21:52:44.31 ID:WalExY5Hd.net]
- >>180
そのまま入力してちゃんと動いたから、問題文には間違いはない
https://i.imgur.com/kojc0gJ.png
それにしても学校の宿題だとしたらひどすぎるな
先生がこんなに汚いコードしか書けないとか生徒がかわいそう
- 191 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 21:54:41.31 ID:WalExY5Hd.net]
- ああ最後の方に入力ミスあったわごめん
- 192 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 21:56:12.36 ID:WalExY5Hd.net]
- >>189
SelectionChange
- 193 名前：デフォルトの名無しさん [2020/09/10(木) 21:56:18.66 ID:a+RPoaYl0.net]
- >>181
コメント行の終わりにシングルクォーテーションが付いているのは初めて見たw
コメントというより、文字列リテラルに見えてくるw
- 194 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 21:57:24.01 ID:b8lNN7jK0.net]
- >>190
こんな意図がこんなに読みづらいコード初めて見たわ
- 195 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:01:54.82 ID:qPrgFXQ2a.net]
- >>181
先生変数宣言しないの？
- 196 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:06:42.97 ID:YMu2GFxia.net]
- 教師は必ずしもコード書いてた人じゃないししゃあないんちゃう
- 197 名前：デフォルトの名無しさん [2020/09/10(木) 22:22:10.32 ID:6Lj7sAI40.net]
- >>180
馬鹿過ぎる帰れ
- 198 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:28:05.12 ID:WalExY5Hd.net]
- >>193
HTMLみたいにコメントが改行で終わるとは限らない言語はまれによくあるけどな
それよりもインデントの汚さと、Cellsのパラメータにx, yを使ってるあたりがめちゃくちゃ気になる
- 199 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:28:20.02 ID:QatXFD490.net]
- Kirakira1 のコードにそっくりなのが検索で見るかるけど
そっちでは変数宣言しているｗ
- 200 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:31:17.53 ID:/qwml5cpa.net]
- これか
https://my-tax-nology.com/excel-vba-animation-rnd-function-cells-glitter
>>マクロ（Excel VBA）を使えば、簡単なアニメーションを作ることができます。
>>アニメーションを作っていると楽しいだけでなく、プログラミングのスキルアップに繋がります。
なるほど？？
- 201 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:37:08.36 ID:uWh6vQvPa.net]
- エクセルVBA は当分なくならないですかね
- 202 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 22:43:44.96 ID:WalExY5Hd.net]
- >>200
VBAを教えてるサイトでコメントをシングルクォートで閉じたりカッコを全角で書くやつなんて世界に一人しかいない
本人ならDimやインデントはちゃんと書くはずだし、完全にパクリだな
- 203 名前：デフォルトの名無しさん [2020/09/10(木) 22:59:03.63 ID:VdzBOqiR0.net]
- 180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど
- 204 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 23:10:15.32 ID:8/CQSYne0.net]
- すまん
wsfやhtaでvbs書くとき 'コメント' って書くわ
エディタの色付けがjs用だから
- 205 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 23:26:05.51 ID:8/CQSYne0.net]
- >>203
「なんで乱数を整数化するのにRoundを使ってしまったんですか？」って聞いてみて
- 206 名前：デフォルトの名無しさん [2020/09/10(木) 23:27:44.84 ID:a+RPoaYl0.net]
- 他の言語でも行コメントで見出し風にするプロはそれなりにいる。
ただ、初心者に教える人間が行コメント構文を、ブロックコメント構文と同じ使い方をするのは、初心者を混乱させるだけで、何のメリットもない。
- 207 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 23:29:02.40 ID:b8lNN7jK0.net]
- >>203
なんで変数宣言しないんですか？
なんでx1とかわかりづらい命名するんですか？
なんでx1とかを上書きするようなわかりづらい変数の使い方してるんですか？
インデントの使い方に意図はありますか？
6の意味が説明されないとわからないのは不親切ですね
などなど…色々質問してみたらいいよ
- 208 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 23:31:52.10 ID:ewRWdYKCd.net]
- >>203
その先生は、少なくともVBAの知識だけは大したことないことは誰が見てもわかる
ほかの言語のエキスパートでVBAをバカにする人もいるけど、人に教えるんならちゃんとしろと思う
>>199
よく見つけたな
- 209 名前：デフォルトの名無しさん [2020/09/10(木) 23:31:53.48 ID:a+RPoaYl0.net]
- >>205
それもなんか見ると気になるな。コードの順番も変だし、数値の精度やデータ型をわざとヘンテコにしているのかも謎。
- 210 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 23:33:45.89 ID:ATM2a6JOd.net]
- >>205
Rndの定義から考えればIntを使うのが自然だけど、まあそこは100%間違いとは言い切れないからなあ
|
 |
