[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
368: デフォルトの名無しさん [sage] 2017/09/18(月) 23:50:59.42 ID:XctjYupl すみませんお力添えをお願いします！ エクセルマクロ（VBA)の件でお尋ねいたしたく思います！ まずグラフの系列名はセル参照で表示させてます シート名：あいうえお 適用グラフ：グラフ4 系列範囲：A11：Z11 必要なデータ選択は全ての系列で済ませています あとはグラフで不要な系列を削除したいため、グラフに乗せたくない系列名は”×”になるようにしてます この系列名”×”をVBAで自動的に削除させることは可能でしょうか？ またグラフは別シートの数値入力をもって自動作成される仕様にしているので、トリガーは設けません デフォルトだと全部”×”のため（初めは数値データの入力がないため） 数値が入ると正しい系列名に変更されるため、VBAではまず”×”で削除して、”×”以外の系列名に変わったら復活するという構想を練っています とりあえず、まず”×”を消すコードを見よう見まねで書いてみたのですが動作しませんでした 消すのは良いですが復活させるのも組み込むとなるとちんぷんかんぷんです 是非ともご教示お願いします！ Sub test() Dim d As Long Dim i As Long Dim j As Long For i = 2 To Sheets.Count d = Range("A11:Z11").End(xlUp).Row With Worksheets(i).ChartObjects("グラフ 4").Shapes.AddChart.Chart .ChartType = xlLineMarkers For j = .SeriesCollection.Count To 1 Step -1 If .SeriesCollection(j).Name <> "×" Then .SeriesCollection(j).Delete End If Next j End With Next End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/368
369: デフォルトの名無しさん [sage] 2017/09/19(火) 20:55:54.78 ID:2SFxAhMD >>367 説明サイトへのリンク、ありがとう。 取り敢えず、「階層構造のデータ間を移動する手段として」のRecordオブジェクトは使うこと無さそうw http://mevius.5ch.net/test/read.cgi/tech/1432173164/369
370: デフォルトの名無しさん [sage] 2017/09/20(水) 01:17:31.22 ID:2dxgF4qE IF文初心者ですが 3つ数字の中から一番小さい数を判定したいのですが、 elseや入れ子で複数書けば判定できるというのは推測がつきますが 最も簡潔に記述するとしたらどんな記述方法がありますでしょうか？ 例） 33 12 3 ↓ 3を抽出 http://mevius.5ch.net/test/read.cgi/tech/1432173164/370
371: デフォルトの名無しさん [sage] 2017/09/20(水) 05:19:03.75 ID:mkPuPLWs >>370 最小値 = WorksheetFunction.Min(Array(33, 12, 3)) http://mevius.5ch.net/test/read.cgi/tech/1432173164/371
372: デフォルトの名無しさん [sage] 2017/09/20(水) 05:37:31.94 ID:mkPuPLWs >>370 x = 33 y = 12 z = 3 If x < y And x < z Then 最小値 = x ElseIf y < x And y < z Then 最小値 = y Else 最小値 = z End If http://mevius.5ch.net/test/read.cgi/tech/1432173164/372
373: デフォルトの名無しさん [sage] 2017/09/21(木) 21:28:21.10 ID:j1SDXypf >>372 >>371 明確な答えをありがとうございます。 やはりIFの場合は372が妥当なようですね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/373
374: デフォルトの名無しさん [sage] 2017/09/21(木) 22:56:33.81 ID:8rkXkN3+ >>372は < じゃなくて <= にしないと誤判定する http://mevius.5ch.net/test/read.cgi/tech/1432173164/374
375: デフォルトの名無しさん [sage] 2017/09/22(金) 06:56:36.59 ID:zUC9dslV 例題の対象が3ではなくて1000とかに増えたら破綻するだろw http://mevius.5ch.net/test/read.cgi/tech/1432173164/375
376: デフォルトの名無しさん [sage] 2017/09/22(金) 07:13:14.29 ID:TPoybrYY >>375 数字3つという前提を勝手に変えるこういう馬鹿はなんだろう http://mevius.5ch.net/test/read.cgi/tech/1432173164/376
377: デフォルトの名無しさん [sage] 2017/09/22(金) 09:34:43.90 ID:KphHXryq 汎用性を考慮しないのか。 なかなかひどい。こういう人もいるという参考になったわ。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/377
378: デフォルトの名無しさん [sage] 2017/09/22(金) 09:37:13.81 ID:oVXNeyl2 ソートアルゴリズム書くだけやん http://mevius.5ch.net/test/read.cgi/tech/1432173164/378
379: デフォルトの名無しさん [sage] 2017/09/22(金) 09:54:47.89 ID:yLI54yGL 372のはアルゴリズムと言うよりその場しのぎの対応 http://mevius.5ch.net/test/read.cgi/tech/1432173164/379
380: デフォルトの名無しさん [sage] 2017/09/22(金) 10:13:30.00 ID:yLI54yGL 配列に入れてループで最小値と比較して小さければ最小値を更新していくのが定石なのでは。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/380
381: デフォルトの名無しさん [sage] 2017/09/22(金) 10:29:30.23 ID:WIc1mdfR だからMin関数で一発なのに、無駄に車輪の再発明をしたがるやつが多くてリンダ困っちゃう http://mevius.5ch.net/test/read.cgi/tech/1432173164/381
382: デフォルトの名無しさん [sage] 2017/09/22(金) 10:32:40.77 ID:4is4PUWl >>379 順次比較も立派なアルゴリズムの一種なんだが http://mevius.5ch.net/test/read.cgi/tech/1432173164/382
383: デフォルトの名無しさん [sage] 2017/09/22(金) 14:42:52.69 ID:KphHXryq これはひどい http://mevius.5ch.net/test/read.cgi/tech/1432173164/383
384: デフォルトの名無しさん [sage] 2017/09/22(金) 14:57:48.38 ID:WETwNkme IF初心者とか言ってる人に何言ってるんだか あといつからこのスレはEXCEL VBA限定になったんだ http://mevius.5ch.net/test/read.cgi/tech/1432173164/384
385: デフォルトの名無しさん [sage] 2017/09/22(金) 20:39:03.91 ID:zUC9dslV >elseや入れ子で複数書けば判定できる >最も簡潔に記述するとしたらどんな という問いに、elseや入れ子の回答するのは無能以前に答えになってないのとちがう？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/385
386: デフォルトの名無しさん [sage] 2017/09/22(金) 22:15:07.62 ID:250/7oh7 え？え？日本語理解できてる？ 質問には「Elseを使わずに」なんてどこにも書いてないぞ ざっくり意訳すれば「IfとElseの数を最小に」する方法を聞いてるんだろ http://mevius.5ch.net/test/read.cgi/tech/1432173164/386
387: デフォルトの名無しさん [sage] 2017/09/23(土) 06:12:18.34 ID:6cN/4Ux4 372のは374が書いてるように、例えば x=1 y=1 z=3 と入れただけで誤判定する。アルゴリズムの最低限を割ってるぞ。 372がベストアンサー(笑)だと質問者が思ったなら気の毒なので念のため。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/387
388: デフォルトの名無しさん [sage] 2017/09/23(土) 07:50:16.98 ID:nAanI8EG そもそも計算量も最少じゃないしな 普通に 最小値 = x If y < 最小値 Then 最小値 = y If z < 最小値 Then 最小値 = z ってやる方がわかりやすい http://mevius.5ch.net/test/read.cgi/tech/1432173164/388
389: デフォルトの名無しさん [sage] 2017/09/23(土) 10:07:44.78 ID:hX9NlXap うん、ベストアンサーはMin使った方だね。 俺だったら迷わずMin使用する。 同時にMin使わない方法も考える。 配列ループも考えた。 でも、別にIf文使っても良いんじゃない? そんな目くじらを立てるようなことじゃない。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/389
390: デフォルトの名無しさん [] 2017/09/23(土) 12:22:56.52 ID:/uotOgAp >>386が分かってないバカ多すぎｗ http://mevius.5ch.net/test/read.cgi/tech/1432173164/390
391: デフォルトの名無しさん [sage] 2017/09/23(土) 14:36:58.57 ID:OMtgmcpv だから372はif elseだとしても最小(計算量的に)の答えにもなってないし、そもそも答えとして間違ってるって話だろ http://mevius.5ch.net/test/read.cgi/tech/1432173164/391
392: デフォルトの名無しさん [sage] 2017/09/23(土) 17:06:13.24 ID:HTwX+3ra それは勉強する奴と仕事にしてる奴のスタンスの違いだな。 仕事にしてる奴はIfを使わなきゃならないなんてことに遭遇しないから、はなっから抜けてる。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/392
393: デフォルトの名無しさん [sage] 2017/09/23(土) 23:00:39.63 ID:9AVefP05 必ずIfを使う縛りなら>>388がベストアンサー ソートアルゴリズムの最初の1回目のループを展開してるだけなんだけど、基本中の基本のやり方 http://mevius.5ch.net/test/read.cgi/tech/1432173164/393
394: デフォルトの名無しさん [] 2017/09/23(土) 23:28:57.04 ID:UvR7p8sn >>392 if文の使い方を聞かれてmin()関数を教えるような人はプログラムを仕事にしないで欲しいのです いえ、仕事をしないで欲しいのです http://mevius.5ch.net/test/read.cgi/tech/1432173164/394
395: デフォルトの名無しさん [sage] 2017/09/23(土) 23:49:29.12 ID:9AVefP05 仕様書はちゃんと読んで、条件は無視しちゃいけないよね http://mevius.5ch.net/test/read.cgi/tech/1432173164/395
396: デフォルトの名無しさん [sage] 2017/09/24(日) 02:12:05.73 ID:3B64fACL 勉強のため何が何でもIfだけで解決しなきゃいけなかったのか、 まだ初心者だからMinという便利な物があることを知らなかったのか それによって変わってきちゃうからー http://mevius.5ch.net/test/read.cgi/tech/1432173164/396
397: デフォルトの名無しさん [sage] 2017/09/24(日) 08:43:50.06 ID:LX+6AD0q >>395 仕様書ならそれが正解 しかし案件定義なら顧客が何をしたいかを読み取ってより良い方法を提案することも必要 そもそも>>370にはIf使えとは書いてないし http://mevius.5ch.net/test/read.cgi/tech/1432173164/397
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 605 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.023s