Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

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

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2019/02/03(日) 11:42:00.66

>>818←恥を知らないプロさんwww

**デフォルトの名無しさん** · 2019/02/03(日) 12:05:01.97

ダサw

**デフォルトの名無しさん** · 2019/02/03(日) 15:02:23.40

>>817
日本語に不自由か真性のバカ発見

**デフォルトの名無しさん** · 2019/02/03(日) 15:51:29.62

ｈｔｍｌ？のようなパラメーターのあるURLから　ActiveSheet.QueryTables.Add　を使って
WEBクエリで取り込むにはどうすればいいでしょうか？
一部変数を使うのですが文字列を結合するやり方ではうまくいきません。

**デフォルトの名無しさん** · 2019/02/03(日) 16:02:39.05

>>822
認証やクッキーが必要か、URLが間違ってるか、エンコードが必要か、原因は色々考えられる

**デフォルトの名無しさん** · 2019/02/03(日) 22:56:23.72

>>823
エンコードが原因みたいです。
&や=は使えないのですね。
返信ありがとうございました。

**デフォルトの名無しさん** · 2019/02/03(日) 23:53:48.67

以下のアプリを作って欲しい

画面上でオンスクリーンかなんでもいいので、文字が瞬間的に現れて消えるアプリ。
１つのばりばらに並んだ文字につき！約1秒から0.05秒の間で調節できるようにしたい。

文字のデータベースは、同ブック内の別シートにて管理するものとする。

**デフォルトの名無しさん** · 2019/02/03(日) 23:59:07.80

>>825
死ね

**デフォルトの名無しさん** · 2019/02/04(月) 03:07:11.70

>>825
ExcelとかVBAじゃなくていいなら作るけど

**デフォルトの名無しさん** · 2019/02/04(月) 06:46:04.48

>>825
作るのは他の要件が有るだろうから他の人に
Excelのシートから枠線を消して全画面表示
ランダムに出す文字はワードアートを挿入したり
消すだけでいいだろ

**デフォルトの名無しさん** · 2019/02/04(月) 07:25:45.63

>>824
>&や=は使えないのですね。
エンコードでは使えるだろ、デコードはデコードする
文字の法則があるけど
ちなみに、エンコードやデコードは必要なの？

**デフォルトの名無しさん** · 2019/02/04(月) 07:29:54.23

このスレもワッチョイ入れたら？

**デフォルトの名無しさん** · 2019/02/04(月) 08:04:31.54

>>827
じゃあ、Androidアプリでいいから、つくってフリーでGoogleストアにだせる？

**デフォルトの名無しさん** · 2019/02/04(月) 08:24:31.69

ルパン三世？

**デフォルトの名無しさん** · 2019/02/04(月) 09:55:11.03

>>831
Androidアプリ関係ないだろ
VB C#なんかでCVS形式などでパラメーターで受けて表示するプログラムなら簡単に作れるってことだろ

**デフォルトの名無しさん** · 2019/02/04(月) 10:53:03.12

フラッシュ暗算みたいなやつか？

**デフォルトの名無しさん** · 2019/02/04(月) 12:14:30.52

>>834
イエス。言語を選ばないとやっぱり難しい？

**デフォルトの名無しさん** · 2019/02/04(月) 12:40:18.01

>>835
別にVBAでも簡単だと思うけど作成依頼だったら費用が発生するのが普通だと思うんだが。

0.05秒ってのがどうかだね。

**デフォルトの名無しさん** · 2019/02/04(月) 12:58:23.32

費用が発生しとる作成依頼なんか見たことないわw
何を言っとるんやこのバカw

**デフォルトの名無しさん** · 2019/02/04(月) 13:05:48.06

>>835
死ねよ

**デフォルトの名無しさん** · 2019/02/04(月) 14:32:52.57

>>835
別に難しくない
0.05秒を気にしている人もいるが、正確な時間を取得することは出来る
ワードアートの作成・削除の時間を気にしているなら、表示・非表示の切り替えで
対応すればよいだけ
全画面表示・タイトルバー・スクロールバー・シートタブの非表示
ボーダーも0に設定すれば良いだけ

**デフォルトの名無しさん** · 2019/02/04(月) 14:47:47.78

取得できても(人間の反応速度と比較して無視できる程度の誤差で)正確に表示するのはExcelでは厳しいでしょ
ちらつきまくるよ

**デフォルトの名無しさん** · 2019/02/04(月) 15:08:11.96

まあ、出来ない人間には出来ないだけ、書き込む必要もないのに
やり方なんていくらでもある

**デフォルトの名無しさん** · 2019/02/04(月) 17:01:02.28

細かいこといわなければパワポでVBAで十分だろ

**デフォルトの名無しさん** · 2019/02/04(月) 18:26:41.76

>>841
やってから言ってんの?
俺はまだ、やってないから気にしただけなんだが。

ちなみに、俺はVBAのUserFormもシートも使うつもりは無い。
スピードも速いとは思うが、何ぶん計測したことは無いからね。

**デフォルトの名無しさん** · 2019/02/04(月) 18:38:32.34

>>837
自分は何もせずに依頼すれば出てくるというのは虫が良いだろという意味なんだが。

**デフォルトの名無しさん** · 2019/02/04(月) 18:51:55.31

でも結局誰も作ってなくて草

**デフォルトの名無しさん** · 2019/02/04(月) 18:53:45.79

まあ　出来の悪い奴は文句も多いからな

**デフォルトの名無しさん** · 2019/02/04(月) 19:28:29.36

CSS アニメで作れば？

**デフォルトの名無しさん** · 2019/02/04(月) 19:59:53.09

>>845
1に作成依頼受け付けますと書いてあったから期待して依頼したが、馬鹿を見たよ

**デフォルトの名無しさん** · 2019/02/04(月) 20:02:20.97

>>848
じゃあ、
｢ExcelのVBAに関する質問スレです｣も守れや。死ねよ。

**デフォルトの名無しさん** · 2019/02/04(月) 20:08:32.00

>>848
分かったよ
受けるよ

**デフォルトの名無しさん** · 2019/02/04(月) 20:19:41.54

vbaやってるサラリーって何故かマッチョ多くね？

**デフォルトの名無しさん** · 2019/02/04(月) 20:54:17.47

>>848
https://www.axfc.net/u/3957636
初学者が作ってやったぞwほらよｗ
まぁもっと良いの>>850が作ってくれるやろｗ

**デフォルトの名無しさん** · 2019/02/04(月) 22:43:34.77

エディタは別のを使わずに備え付けのものを使いますか？

**デフォルトの名無しさん** · 2019/02/04(月) 22:52:12.63

高速でシートを切り替えるとか、
ふざけるのかと思ったら、結構真面目に作っててﾜﾛﾀ。

**デフォルトの名無しさん** · 2019/02/05(火) 08:19:52.51

>>854
後で見てみるけど、仕様になかったインターバルの時間とか可変で設定できる？

**デフォルトの名無しさん** · 2019/02/05(火) 08:25:47.35

フラッシュ暗算て何？
てっきりルパン三世だと思ったんだが

**デフォルトの名無しさん** · 2019/02/05(火) 09:46:15.11

>>856
画面に数字が次々に出て暗算で合計を求めるやつ
https://www.youtube.com/watch?v=wTkVZne-i2g

**デフォルトの名無しさん** · 2019/02/05(火) 10:20:39.56

>>857
まあ、これが評価できる最低限の仕様だな

**デフォルトの名無しさん** · 2019/02/05(火) 10:22:40.38

ちゃんとしたのを、>>850が作ってくれるやろ
ことを期待しよう

**828** · 2019/02/05(火) 11:08:12.53

>>828　デフォルトの名無しさん2019/02/04(月) 06:46:04.48ID:d8a/a/xM
>>825
> 作るのは他の要件が有るだろうから他の人に
> Excelのシートから枠線を消して全画面表示
> ランダムに出す文字はワードアートを挿入したり
> 消すだけでいいだろ
最低限でもこの程度のことやれよっと、ワードアートの動作速度が問題なら全て作成してから
表示非表示を切り替えるだけだよっと

**デフォルトの名無しさん** · 2019/02/05(火) 11:15:39.50

>>852　
↑これで骨組みは十分だろ

**デフォルトの名無しさん** · 2019/02/05(火) 11:22:46.31

>>861
こんなの客に提示するとすぐ帰っていくよ
イメージが違い過ぎる

**デフォルトの名無しさん** · 2019/02/05(火) 11:25:28.34

行間を読めない奴はいつまでたってもろくなもの作れないんだよ
おれは、年取ったから行間いっぱいある奴は遠慮するけどな

**デフォルトの名無しさん** · 2019/02/05(火) 11:53:42.93

ちゃんとしたのを、>>850が作ってくれるやろ
ことを期待しよう。

**デフォルトの名無しさん** · 2019/02/05(火) 12:15:44.59

なんやバカ必死やなw

**デフォルトの名無しさん** · 2019/02/05(火) 12:19:32.33

>>865
面白いな何で草はえるの

**デフォルトの名無しさん** · 2019/02/05(火) 12:32:36.37

>>865
ちみぐらいバカをからかうのって私の趣味ではありません
あわれ過ぎるから

**デフォルトの名無しさん** · 2019/02/05(火) 12:53:49.77

加速するバカw

**852** · 2019/02/05(火) 12:54:18.46

>>855と>>857の要素を気持ち取り入れてみたよ
あとはもうシラネ
https://www.axfc.net/u/3957750

**852** · 2019/02/05(火) 13:02:38.95

間違えた。こっちで
https://www.axfc.net/u/3957753

**デフォルトの名無しさん** · 2019/02/05(火) 13:05:08.57

>>869
知らねえと言われても

ファイルが見つかりません
既にファイルが削除されたか、期限切れになったか、ダウンロード上限数に達した、若しくは誤ったURLが指定されています。
再度ご確認下さいますようお願い致します。

**デフォルトの名無しさん** · 2019/02/05(火) 15:50:53.68

>>870
今さっき起きた。
ソースを１分程度見たけど、毛が１本生えただけだろ
オリジナル性もない、引かれている部分もありで
評価はマイナスだな、マクロを動かす気にもならん

**デフォルトの名無しさん** · 2019/02/05(火) 16:03:55.64

>>857
ホントなんだよ、この映像少なくとも全画面表示で
他の表示はテスト中いらないは
結果は、答え合わせでちゃんと出るようにな
問題作成だって、何の機能もないって考えてないだろ
指定した桁数で数字を作成しろよ・・・こんなの仕様の内の一寸な

**デフォルトの名無しさん** · 2019/02/05(火) 16:18:43.72

>>870
テストしないのは申し訳ないと思ってもう一度２０秒ぐらい見た
あまりにごみで、テストしてない

**デフォルトの名無しさん** · 2019/02/05(火) 20:09:31.48

必死すぎてアンタッチャブルのバカw

**デフォルトの名無しさん** · 2019/02/05(火) 20:30:50.84

金もらえるならきちんと作るだろうけど金出さないんでしょ？

**デフォルトの名無しさん** · 2019/02/05(火) 21:01:45.45

きちっとって　このレベルを１００倍してもくずはくずだな

**デフォルトの名無しさん** · 2019/02/05(火) 21:13:23.45

ただでもらったものにケチつけるって人間としてクズだな

**デフォルトの名無しさん** · 2019/02/05(火) 21:45:13.17

なんかつらいことがあったんでしょ
そっとしといてあげなさい

**852** · 2019/02/05(火) 23:50:58.70

ユーザーフォームに変えてみた
あと少し機能を足してみた
https://www.axfc.net/u/3957855

**デフォルトの名無しさん** · 2019/02/06(水) 00:44:18.42

A　B
1　あ
2　い
1　か
2　き
3　く
1　さ
1　た
2　ち

となっているデータを、連番でまとめて

あい
かきく
さ
たち

とするにはどうすればいいですか？

**デフォルトの名無しさん** · 2019/02/06(水) 01:00:17.91

>>881
死ねばいいよ

**デフォルトの名無しさん** · 2019/02/06(水) 05:43:02.95

死ねばいいよ

**デフォルトの名無しさん** · 2019/02/06(水) 10:06:21.68

>>881
関数で直接は難しいけどVBAでやるなら簡単だろ
ただそれもわからない人間に提示しても無駄だな

**デフォルトの名無しさん** · 2019/02/06(水) 10:48:09.84

>>880
マクロを実行してみた、君は自分で考えてるんで良いと思う
１．出力する問題は固定ではなく文字とか長い数字もいらない
　　桁数（上限・下限）を指定してランダムに数値を発生すること
　　フラッシュ暗算を考えると余分な機能はいらない
２．バックを全画面表示にすること
　　もちろん、画面の中央に表示する、画面の大きさから割合で文字の大きさを指定する
３．タイミングをｍｓで指定指定しているが
　　ディスプレーって最大解像度ではリフレッシュレート60hz（16.6msおき）程度なんだよ
　　ディスプレーの反応速度も早くて5msかかる、10ms単位で十分だが、好みはある
４．答えの表示がチェックだが
　　要するに終わった後、計算が合ってるかを確認するんだから
　　終了後に特定のキーを押したら答えを出すでいいだろ
ざっくり、大きく気になった点だけ、やり方は分からなければ聞け

**デフォルトの名無しさん** · 2019/02/06(水) 10:57:13.19

全画面表示は数字表示部をユーザーフォーム（全画面）で表示文字をVBAで切り替えたほうが簡単だな

**デフォルトの名無しさん** · 2019/02/06(水) 11:03:53.28

上司気取りの人が上から目線でダメだしし出したけどこの人どんだけ偉いの？
まさか感謝でもしてもらえるとか妄想してんのかな

**デフォルトの名無しさん** · 2019/02/06(水) 11:26:06.43

>>887
で、君にはどんなダメ出しが欲しいんだ？

**デフォルトの名無しさん** · 2019/02/06(水) 11:34:27.39

まあ、自分で作って「フラッシュ暗算」で面白いものを作ってみろよ
自分で満足できないものは、他人は評価しないよ

**デフォルトの名無しさん** · 2019/02/06(水) 12:26:19.63

おいwこのバカ必死すぎてダメ出しとかしだしたでw

**デフォルトの名無しさん** · 2019/02/06(水) 12:43:34.25

>>881
Dim i As Long
i = 1

Do While Range("A1").End(xlDown).Row > i
Cells(Cells(i, 1), 3) = Cells(Cells(i, 1), 3) + Cells(i, 2)
i = i + 1
Loop

答えやアドバイスをしないでマウントしてくるやつは結局何も出来ないやつと同じなので放置で。

**デフォルトの名無しさん** · 2019/02/06(水) 12:45:00.03

あ、質問の意味まちがえてたｗ

**デフォルトの名無しさん** · 2019/02/06(水) 12:50:23.01

>>892
だよね
ひらがなのあ行か行…で括るっぽいし
2行目の2と4行目の2が紐づく1が違うから考えれば出来そうだけど面倒そう

**デフォルトの名無しさん** · 2019/02/06(水) 12:56:44.95

>>893
え、どんだけ

**デフォルトの名無しさん** · 2019/02/06(水) 12:58:37.07

バカって、すぐ熱くなるよな、面白いけど

**デフォルトの名無しさん** · 2019/02/06(水) 13:07:21.25

これでどうや！ｗ

Dim i, j, k As Long
i = 1: j = 1: k = 1 'i=データの行　j=書き込みセルの行 k=数列のカウント用

Do While Range("A1").End(xlDown).Row >= i

Cells(j, 3) = Cells(j, 3) + Cells(i, 2)

If Cells(i + 1, 1) <> k + 1 Then j = j + 1: k = 0
i = i + 1
k = k + 1
Loop

**デフォルトの名無しさん** · 2019/02/06(水) 13:15:51.19

>>896
>これでどうや！ｗ
何に対して言ってるのかな？。なんだろう？こんなの提示して？
よくわからんな

**デフォルトの名無しさん** · 2019/02/06(水) 13:22:01.82

>>897
ばっかだなぁ、881に対していってんだろｗ
つかお前マウントとることしかしないASDのザコという認識だから何も求めてない。レスいらない。
するならちゃんと自分で作ったものを提示してからだ。できたらあやまる。

**デフォルトの名無しさん** · 2019/02/06(水) 13:25:32.81

例えば
「Do While Range("A1").End(xlDown).Row >= i 」
こんなの"A1"と変数jとiが同期できていないことでプログラムじゃないよ

**デフォルトの名無しさん** · 2019/02/06(水) 13:27:12.93

>>898
うふ～面白いな

**デフォルトの名無しさん** · 2019/02/06(水) 13:30:48.46

>>898
からかうしかないけど、>>881って何か意味あるんか？
バカって面白いな

**デフォルトの名無しさん** · 2019/02/06(水) 13:34:49.77

>>898
頭悪いのに大変だな

**デフォルトの名無しさん** · 2019/02/06(水) 13:37:03.76

>>899
いや、そうじゃなくってよ。

俺はプロじゃないから変なことしてるかもしれない。いやあるだろう。
そいでお前は凄いのかもしれないけど結局何も作ってないわけだろ？
それって何も出来ないのと同じなんだから偉そうにするなって言いたいの。
お前さ、俺の言っている意味解ってる？

**デフォルトの名無しさん** · 2019/02/06(水) 13:41:27.75

>>903
無能が無能に教える意味あるか、無能が威張る意味あるか？
役に立つってなんだよ？
お前の満足は何だよ、作ったってことか？

**デフォルトの名無しさん** · 2019/02/06(水) 13:43:57.13

>>904
ん？お前無能なの？無能なのに威張ってるの？ダメじゃん。
役に立つって何？満足って何ってどういう意味？
俺はそんなこと書いてないけどそれはどこから出てきたんだ？
お前ののーみそか？

**デフォルトの名無しさん** · 2019/02/06(水) 13:44:16.40

おれがこのスレで作っても意味ないからな質問スレだ答えるだけ

**デフォルトの名無しさん** · 2019/02/06(水) 13:53:46.56

ああ、そういうことか。
質問には答えるけど代りにお前が作ることはないって意味でいいのか？
それがお前のポリシーなら俺はお前に口はさまないよ。
偉そうにされて終わるだけみたいだからお前には質問もしたくないけどな。

質問してるやつはいろいろ試して困ってるんだろ？
俺は動くもの見せて、あとは自分で工夫するなりなんなりした方が良いと思ってる。
だって、具体的なほうが解りやすいじゃん。
それに対してお前がどうこう言うことはないだろ？俺はお前に何も聞いてないんだから。

**デフォルトの名無しさん** · 2019/02/06(水) 13:57:29.30

>>907
まあ、補足すると具体的なものを使えるのは少し考えたやつ
考えない奴は応用できない、だから答えではなくヒントなんだがな

**デフォルトの名無しさん** · 2019/02/06(水) 14:10:39.95

>>908
うーん、辞書がわりに次々聞かれても結局俺が作ってるかいー！
みたいになりそうで確かに嫌だな。
ただお前凄そうなんだからそんくらいしてやってもバチあたらんべ。
あ、そこらへんは俺が口はさむことじゃないな、すまん。でももったいないわーほんまに。
俺は基本は自分で調べるから聞くことってほとんどないけど
本当に困っててもまともな返答来なさそうでここで聞けないからさらに困ることあるもん。
お前に言ってるわけじゃないけどライトユーザーからしたら雰囲気怖いよここ。

**デフォルトの名無しさん** · 2019/02/06(水) 14:12:54.78

>>880
お前、ちゃんと満足いくもの作ってみろ
やめるのは簡単だまんぞくできるレベルもお前しだい
おれは、ダメ出しはしてやるよ、ダメな点は数多いがプライオリティは下がっている

**デフォルトの名無しさん** · 2019/02/06(水) 14:32:47.81

>おれがこのスレで作っても意味ない
は>>880も同様だな

**デフォルトの名無しさん** · 2019/02/06(水) 14:35:44.06

>>911
別にそれでいいが♡♡♡

**デフォルトの名無しさん** · 2019/02/06(水) 14:38:23.25

次の質問どうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 14:45:26.84

頭が悪いのが丸わかりな次の質問どうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 14:48:20.14

マウントしたがりのバカしか居ないスレですけど、それでもよかったら質問をどうぞ

**デフォルトの名無しさん** · 2019/02/06(水) 23:06:50.96

パラパラ漫画作って、動画に撮って再生すればいいんじゃね?

**852** · 2019/02/06(水) 23:08:35.09

作ってるうちに楽しくなってつい作りこんでしまいました
https://www.axfc.net/u/3958012
変更点
・ランダム表示
・乱数生成
・（ほぼ）フルスクリーンモード(1920x1080、1600x900、1280ｘ720、800ｘ600の4種類の画面に対応)
・ユーザーインターフェースの強化
・デバッグを少々

最初に作ってほしいといっていた人の要望にかなってるかが心配

**デフォルトの名無しさん** · 2019/02/06(水) 23:27:15.81

フルスクリーンならDirectXだろ、と思ったら、
Windows10だと色々面倒なのな。