VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もOK
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
VBAを開発環境としていろいろ作っちゃいましょう
前スレ
VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/
関連スレ
Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/
Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/
VBプログラマ質問スレ(Ver.6.0 まで) part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/
Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/
探検
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2015/05/21(木) 10:52:44.71ID:KLv0vQmm357デフォルトの名無しさん
2017/09/12(火) 16:38:53.70ID:2wFcaigK VBA参入門書とネットの知識を詰め込みました。
Excel初心者は本当です。友達に教えてもらいつつやっています。気分を害された方、すみません。
>>356さん非常に分かりやすいです。
二日間くらい最初からコードを書こうとしてもがいていましたが、マクロの記録が使えそうな気がします。
そのコードをいじってボタンで起動するユーザーフォームとくっつけるイメージで挑戦してみます。
Excel初心者は本当です。友達に教えてもらいつつやっています。気分を害された方、すみません。
>>356さん非常に分かりやすいです。
二日間くらい最初からコードを書こうとしてもがいていましたが、マクロの記録が使えそうな気がします。
そのコードをいじってボタンで起動するユーザーフォームとくっつけるイメージで挑戦してみます。
358デフォルトの名無しさん
2017/09/12(火) 16:41:08.80ID:2wFcaigK >>354さんもありがとうございます!参考&励みになります
359デフォルトの名無しさん
2017/09/12(火) 20:34:49.57ID:/wKXVszF このスレで一番の基地外が満を持して遅れて登場
360デフォルトの名無しさん
2017/09/12(火) 20:51:47.27ID:U3/YorLf 俺のことかな?
361デフォルトの名無しさん
2017/09/13(水) 00:17:05.57ID:DHqL5rdG362デフォルトの名無しさん
2017/09/14(木) 07:47:53.75ID:w7wWQUJY フィルタオプションとマクロの記録で8割方完成できるな
363デフォルトの名無しさん
2017/09/15(金) 10:19:31.10ID:wFtq+9vG ADOの事でちょっと質問です
変数を定義する時に
Dim wkR as New ADODB.Recordset
ってするんだけど、RecordsetとRecordの違いって何?
変数を定義する時に
Dim wkR as New ADODB.Recordset
ってするんだけど、RecordsetとRecordの違いって何?
364あ
2017/09/15(金) 10:57:55.87ID:oEkV+GvG365デフォルトの名無しさん
2017/09/18(月) 06:42:59.71ID:xbe9SlrW >>361-362 ありがとうございます、簡単なプログラムですが完成して感動しました。
Ifとマクロの記録が万能すぎることを肝に銘じてこれからもがんばります( ??? )
Ifとマクロの記録が万能すぎることを肝に銘じてこれからもがんばります( ??? )
366デフォルトの名無しさん
2017/09/18(月) 15:10:56.93ID:7Xxpypu9 >>365
万能過ぎないけどね。
そればっかり使ってる人は永遠に初心者なままだし、色々な面で出来の悪いプログラムになる。
自動生成されたコードのそれぞれの意味を理解して自分なりに書けるようになると上達する。
例えば
Range("B4").Select
Selection.Value=10
のようなコードが生成されると思うけど意味を考えたら
Range("B4").Value=10
で良いとわかるよね。
万能過ぎないけどね。
そればっかり使ってる人は永遠に初心者なままだし、色々な面で出来の悪いプログラムになる。
自動生成されたコードのそれぞれの意味を理解して自分なりに書けるようになると上達する。
例えば
Range("B4").Select
Selection.Value=10
のようなコードが生成されると思うけど意味を考えたら
Range("B4").Value=10
で良いとわかるよね。
367デフォルトの名無しさん
2017/09/18(月) 20:44:49.78ID:ydCO3vgD >>363
Recordset オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364264.aspx
Record オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364270.aspx
Recordset オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364264.aspx
Record オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364270.aspx
368デフォルトの名無しさん
2017/09/18(月) 23:50:59.42ID: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
エクセルマクロ(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
369デフォルトの名無しさん
2017/09/19(火) 20:55:54.78ID:2SFxAhMD370デフォルトの名無しさん
2017/09/20(水) 01:17:31.22ID:2dxgF4qE IF文初心者ですが
3つ数字の中から一番小さい数を判定したいのですが、
elseや入れ子で複数書けば判定できるというのは推測がつきますが
最も簡潔に記述するとしたらどんな記述方法がありますでしょうか?
例)
33 12 3
↓
3を抽出
3つ数字の中から一番小さい数を判定したいのですが、
elseや入れ子で複数書けば判定できるというのは推測がつきますが
最も簡潔に記述するとしたらどんな記述方法がありますでしょうか?
例)
33 12 3
↓
3を抽出
371デフォルトの名無しさん
2017/09/20(水) 05:19:03.75ID:mkPuPLWs >>370
最小値 = WorksheetFunction.Min(Array(33, 12, 3))
最小値 = WorksheetFunction.Min(Array(33, 12, 3))
372デフォルトの名無しさん
2017/09/20(水) 05:37:31.94ID: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
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
373デフォルトの名無しさん
2017/09/21(木) 21:28:21.10ID:j1SDXypf374デフォルトの名無しさん
2017/09/21(木) 22:56:33.81ID:8rkXkN3+ >>372は < じゃなくて <= にしないと誤判定する
375デフォルトの名無しさん
2017/09/22(金) 06:56:36.59ID:zUC9dslV 例題の対象が3ではなくて1000とかに増えたら破綻するだろw
376デフォルトの名無しさん
2017/09/22(金) 07:13:14.29ID:TPoybrYY >>375
数字3つという前提を勝手に変えるこういう馬鹿はなんだろう
数字3つという前提を勝手に変えるこういう馬鹿はなんだろう
377デフォルトの名無しさん
2017/09/22(金) 09:34:43.90ID:KphHXryq 汎用性を考慮しないのか。
なかなかひどい。こういう人もいるという参考になったわ。
なかなかひどい。こういう人もいるという参考になったわ。
378デフォルトの名無しさん
2017/09/22(金) 09:37:13.81ID:oVXNeyl2 ソートアルゴリズム書くだけやん
379デフォルトの名無しさん
2017/09/22(金) 09:54:47.89ID:yLI54yGL 372のはアルゴリズムと言うよりその場しのぎの対応
380デフォルトの名無しさん
2017/09/22(金) 10:13:30.00ID:yLI54yGL 配列に入れてループで最小値と比較して小さければ最小値を更新していくのが定石なのでは。
381デフォルトの名無しさん
2017/09/22(金) 10:29:30.23ID:WIc1mdfR だからMin関数で一発なのに、無駄に車輪の再発明をしたがるやつが多くてリンダ困っちゃう
382デフォルトの名無しさん
2017/09/22(金) 10:32:40.77ID:4is4PUWl >>379
順次比較も立派なアルゴリズムの一種なんだが
順次比較も立派なアルゴリズムの一種なんだが
383デフォルトの名無しさん
2017/09/22(金) 14:42:52.69ID:KphHXryq これはひどい
384デフォルトの名無しさん
2017/09/22(金) 14:57:48.38ID:WETwNkme IF初心者とか言ってる人に何言ってるんだか
あといつからこのスレはEXCEL VBA限定になったんだ
あといつからこのスレはEXCEL VBA限定になったんだ
385デフォルトの名無しさん
2017/09/22(金) 20:39:03.91ID:zUC9dslV >elseや入れ子で複数書けば判定できる
>最も簡潔に記述するとしたらどんな
という問いに、elseや入れ子の回答するのは無能以前に答えになってないのとちがう?
>最も簡潔に記述するとしたらどんな
という問いに、elseや入れ子の回答するのは無能以前に答えになってないのとちがう?
386デフォルトの名無しさん
2017/09/22(金) 22:15:07.62ID:250/7oh7 え?え?日本語理解できてる?
質問には「Elseを使わずに」なんてどこにも書いてないぞ
ざっくり意訳すれば「IfとElseの数を最小に」する方法を聞いてるんだろ
質問には「Elseを使わずに」なんてどこにも書いてないぞ
ざっくり意訳すれば「IfとElseの数を最小に」する方法を聞いてるんだろ
387デフォルトの名無しさん
2017/09/23(土) 06:12:18.34ID:6cN/4Ux4 372のは374が書いてるように、例えば
x=1
y=1
z=3
と入れただけで誤判定する。アルゴリズムの最低限を割ってるぞ。
372がベストアンサー(笑)だと質問者が思ったなら気の毒なので念のため。
x=1
y=1
z=3
と入れただけで誤判定する。アルゴリズムの最低限を割ってるぞ。
372がベストアンサー(笑)だと質問者が思ったなら気の毒なので念のため。
388デフォルトの名無しさん
2017/09/23(土) 07:50:16.98ID:nAanI8EG そもそも計算量も最少じゃないしな
普通に
最小値 = x
If y < 最小値 Then 最小値 = y
If z < 最小値 Then 最小値 = z
ってやる方がわかりやすい
普通に
最小値 = x
If y < 最小値 Then 最小値 = y
If z < 最小値 Then 最小値 = z
ってやる方がわかりやすい
389デフォルトの名無しさん
2017/09/23(土) 10:07:44.78ID:hX9NlXap うん、ベストアンサーはMin使った方だね。
俺だったら迷わずMin使用する。
同時にMin使わない方法も考える。
配列ループも考えた。
でも、別にIf文使っても良いんじゃない?
そんな目くじらを立てるようなことじゃない。
俺だったら迷わずMin使用する。
同時にMin使わない方法も考える。
配列ループも考えた。
でも、別にIf文使っても良いんじゃない?
そんな目くじらを立てるようなことじゃない。
390デフォルトの名無しさん
2017/09/23(土) 12:22:56.52ID:/uotOgAp >>386が分かってないバカ多すぎw
391デフォルトの名無しさん
2017/09/23(土) 14:36:58.57ID:OMtgmcpv だから372はif elseだとしても最小(計算量的に)の答えにもなってないし、そもそも答えとして間違ってるって話だろ
392デフォルトの名無しさん
2017/09/23(土) 17:06:13.24ID:HTwX+3ra それは勉強する奴と仕事にしてる奴のスタンスの違いだな。
仕事にしてる奴はIfを使わなきゃならないなんてことに遭遇しないから、はなっから抜けてる。
仕事にしてる奴はIfを使わなきゃならないなんてことに遭遇しないから、はなっから抜けてる。
393デフォルトの名無しさん
2017/09/23(土) 23:00:39.63ID:9AVefP05 必ずIfを使う縛りなら>>388がベストアンサー
ソートアルゴリズムの最初の1回目のループを展開してるだけなんだけど、基本中の基本のやり方
ソートアルゴリズムの最初の1回目のループを展開してるだけなんだけど、基本中の基本のやり方
394デフォルトの名無しさん
2017/09/23(土) 23:28:57.04ID:UvR7p8sn395デフォルトの名無しさん
2017/09/23(土) 23:49:29.12ID:9AVefP05 仕様書はちゃんと読んで、条件は無視しちゃいけないよね
396デフォルトの名無しさん
2017/09/24(日) 02:12:05.73ID:3B64fACL 勉強のため何が何でもIfだけで解決しなきゃいけなかったのか、
まだ初心者だからMinという便利な物があることを知らなかったのか
それによって変わってきちゃうからー
まだ初心者だからMinという便利な物があることを知らなかったのか
それによって変わってきちゃうからー
397デフォルトの名無しさん
2017/09/24(日) 08:43:50.06ID:LX+6AD0q398デフォルトの名無しさん
2017/09/24(日) 09:20:40.69ID:SDtHFGLj >>394
分かってねえなあ。
勉強を教える仕事じゃないならユーザーにとって一番使いやすいとか、速度が速いとか、ユーザーが満足するようなものかどうかが大事なのであって、どんなコードじゃなければならないとかの要望は普通無い。
そして、メンテナンス性とかコードの書き方に関してもMinの方が良いとなればそもそもの問い掛け自体仕事で発生することは無い。
そして実際には、何でMinじゃ駄目なのと問い掛けられない奴は仕事の出来ない奴ということになる。
(もちろん明確に理由が有るならIfで書く。)
指示通りにしか作れない奴じゃ単なるコーダって奴になるしかない。
仕事ではMinを使わないなら明確な理由が存在するし、打ち合わせなんかのやり取りで既に意思統一されてる筈だ。
つまり今回の問い掛けのような事態は存在しない。
分かってねえなあ。
勉強を教える仕事じゃないならユーザーにとって一番使いやすいとか、速度が速いとか、ユーザーが満足するようなものかどうかが大事なのであって、どんなコードじゃなければならないとかの要望は普通無い。
そして、メンテナンス性とかコードの書き方に関してもMinの方が良いとなればそもそもの問い掛け自体仕事で発生することは無い。
そして実際には、何でMinじゃ駄目なのと問い掛けられない奴は仕事の出来ない奴ということになる。
(もちろん明確に理由が有るならIfで書く。)
指示通りにしか作れない奴じゃ単なるコーダって奴になるしかない。
仕事ではMinを使わないなら明確な理由が存在するし、打ち合わせなんかのやり取りで既に意思統一されてる筈だ。
つまり今回の問い掛けのような事態は存在しない。
399デフォルトの名無しさん
2017/09/24(日) 10:07:44.74ID:lViLIhLn >>393
だな、簡素で分かりやすく奇麗なコードだ
だな、簡素で分かりやすく奇麗なコードだ
400デフォルトの名無しさん
2017/09/24(日) 15:00:43.73ID:3BjqQEbI401デフォルトの名無しさん
2017/09/24(日) 16:46:42.97ID:jWeMnfEt >>400
仕事をしたことの無い奴には分かるまいw
仕事をしたことの無い奴には分かるまいw
402デフォルトの名無しさん
2017/11/08(水) 05:55:55.96ID:mrDDFdOE こっちを再利用?
403デフォルトの名無しさん
2017/11/08(水) 09:41:10.42ID:VRSOCYqC 再利用したいけどExcelの話をしたいときに困るのかな
404デフォルトの名無しさん
2017/11/08(水) 10:15:34.15ID:6WBHyYXn そのうち立つんじゃね
405デフォルトの名無しさん
2017/11/08(水) 11:10:32.82ID:JKxKdsR3 「Excelの話」したいんだったら総合相談所でやれ
406デフォルトの名無しさん
2017/11/08(水) 11:59:42.12ID:VRSOCYqC なるほどなるほど
407デフォルトの名無しさん
2017/11/08(水) 12:50:47.32ID:+KUB1/9h 早速質問
今vbaでマップ使って
とある表の集計を行なっております
一つのkeyに対しアイテムが複数あるので
配列で入れようと思ったのですがうまくいきません
何か良い方法はありませんか?
今vbaでマップ使って
とある表の集計を行なっております
一つのkeyに対しアイテムが複数あるので
配列で入れようと思ったのですがうまくいきません
何か良い方法はありませんか?
408デフォルトの名無しさん
2017/11/08(水) 16:45:58.99ID:pE/cp7rq もう少し具体的にどうぞ
409デフォルトの名無しさん
2017/11/08(水) 21:23:36.05ID:+KUB1/9h410デフォルトの名無しさん
2017/11/08(水) 21:28:10.43ID:aQlO1Uq5 >>409
エクセルならピボットテーブルでいいんじゃない?
エクセルならピボットテーブルでいいんじゃない?
411デフォルトの名無しさん
2017/11/08(水) 21:32:09.19ID:+KUB1/9h >>410
自動で計算させるんだよ
自動で計算させるんだよ
412デフォルトの名無しさん
2017/11/08(水) 21:33:56.61ID:aQlO1Uq5 >>411
ピボットテーブルをvbaで作ればいい
ピボットテーブルをvbaで作ればいい
413デフォルトの名無しさん
2017/11/08(水) 21:38:43.05ID:vt31E4Mm エスパーじゃないんだから、もっと具体的に説明しないと、何がしたくて何ができないのか判んないよ。
そして多分だけど普通にifで分岐するプログラムを書くだけだと思う。
そして多分だけど普通にifで分岐するプログラムを書くだけだと思う。
414デフォルトの名無しさん
2017/11/08(水) 21:40:37.09ID:0sSRKP/b いや多分forでループするプログラムを書くだけだと思う
415デフォルトの名無しさん
2017/11/08(水) 22:38:17.07ID:+KUB1/9h データシート
キー 金額a 金額b
1 10 20
2 20 50
1 30 90
結果(期待)
キー 金額a 金額b
1 40 110
2 20 50
上のような感じのシートがあって
集計かけたり
平均とったり
最大値だったりしたい
キー 金額a 金額b
1 10 20
2 20 50
1 30 90
結果(期待)
キー 金額a 金額b
1 40 110
2 20 50
上のような感じのシートがあって
集計かけたり
平均とったり
最大値だったりしたい
416デフォルトの名無しさん
2017/11/08(水) 23:08:47.37ID:aQlO1Uq5417デフォルトの名無しさん
2017/11/08(水) 23:25:51.57ID:0sSRKP/b そのくらいの事を自分でできないから質問してんだろ
そのくらいの事を理解できないなら質問スレに来ない方がいいのに
そのくらいの事を理解できないなら質問スレに来ない方がいいのに
418デフォルトの名無しさん
2017/11/08(水) 23:38:17.91ID:aQlO1Uq5 そのくらいの事も判らない人にも実現できる方法を提案してるだろ
419デフォルトの名無しさん
2017/11/09(木) 00:17:55.65ID:hDRDp7cw https://i.imgur.com/wtkTdlA.png
上のように各列の情報に応じて、一定の条件にヒットしたら評価欄に追記、ということをしているのですが、
上手い書き方が思いつかず、冗長で読みにくいコードになってしまいます
https://i.imgur.com/cE0kOho.png
どうすれば綺麗で読みやすいコードになるでしょうか?
特に、変数(ここでは「評価」)の参照先のセルに書き込みつつ、変数の値自体も更新するスマートな方法と
If文で2つの条件が当てはまった場合に両方の処理を実行させる(ここでは40点以下と60点未満のIf文を一つで済ませるとか)方法があれば知りたいです
上のように各列の情報に応じて、一定の条件にヒットしたら評価欄に追記、ということをしているのですが、
上手い書き方が思いつかず、冗長で読みにくいコードになってしまいます
https://i.imgur.com/cE0kOho.png
どうすれば綺麗で読みやすいコードになるでしょうか?
特に、変数(ここでは「評価」)の参照先のセルに書き込みつつ、変数の値自体も更新するスマートな方法と
If文で2つの条件が当てはまった場合に両方の処理を実行させる(ここでは40点以下と60点未満のIf文を一つで済ませるとか)方法があれば知りたいです
420デフォルトの名無しさん
2017/11/09(木) 03:11:02.61ID:HAMnFTNh >>419
配列を使え
あとソースを読んだり修正したりやりにくいから画像にせずそのままテキストとして貼ってくれ
科目 = Array("国語", "算数", "理科")
For j = 0 to 2
点数 = i.Offset(0, j + 1)
If 点数 <= 40 Then
i.offset(0, -1).Value = i.offset(0, -1).Value & 科目(j) & "の点数が以下略" & vbCrLf
みたいな感じで教科の数に関わりなく記述を1回にできる
条件が3つ以上ある時はCaseで分ける方法もあるけど、どんどん文字列を追加するならIfを並べる今の書き方で別に悪くない
配列を使え
あとソースを読んだり修正したりやりにくいから画像にせずそのままテキストとして貼ってくれ
科目 = Array("国語", "算数", "理科")
For j = 0 to 2
点数 = i.Offset(0, j + 1)
If 点数 <= 40 Then
i.offset(0, -1).Value = i.offset(0, -1).Value & 科目(j) & "の点数が以下略" & vbCrLf
みたいな感じで教科の数に関わりなく記述を1回にできる
条件が3つ以上ある時はCaseで分ける方法もあるけど、どんどん文字列を追加するならIfを並べる今の書き方で別に悪くない
421デフォルトの名無しさん
2017/11/09(木) 08:39:48.02ID:m3IDSHjM ありがとうございます、やってみます
(コードは行数制限とインデントが反映されなかったのでつい画像に…すみません)
(コードは行数制限とインデントが反映されなかったのでつい画像に…すみません)
422デフォルトの名無しさん
2017/11/10(金) 08:15:39.86ID:vvDXnBRS オートフィルの連続データでA1が0なら終わりでそれ以外なら下にオートフィルの連続データを追加して行くってどうやればいい?
423デフォルトの名無しさん
2017/11/10(金) 08:52:12.12ID:EDTrdPIL 何をどこまで追加すんの?
424デフォルトの名無しさん
2017/11/10(金) 09:18:59.30ID:vvDXnBRS 下に一つオートフィルの連続データを追加してもしもその数が0以外ならばその下に一つづつ追加してもし0になったら終わるってことです
オートフィルの連続データまでは成功しました!
オートフィルの連続データまでは成功しました!
425デフォルトの名無しさん
2017/11/10(金) 12:58:08.94ID:MIqJX5DT426デフォルトの名無しさん
2017/11/10(金) 22:07:12.41ID:KbRkXeO5 何をどーしたいのかよーわからんが、
オートフィルの連続データが完成したならDo While Loopでも使えばいいんじゃね
オートフィルの連続データが完成したならDo While Loopでも使えばいいんじゃね
427デフォルトの名無しさん
2017/11/11(土) 10:59:01.85ID:t1iacSS7 そうですね連続データと探す作業分けてDo until使ってみたら目的は達成できました ありがとございます
428デフォルトの名無しさん
2017/11/16(木) 11:42:09.40ID:DcGHOE5h 漠然とした質問で申し訳ない
コレクションというのがあるけど、その利点というかこういう場合に使うとかという
のを教えてくれないだろうか。配列は動的配列も含めてよく使うけどコレクション
というのはあるのは知ってるけどどういう場合に使うものなのか判らない。
(まぁそれでも何とかなってるということは今の時点ではそれでも問題ないって
ことでもあるんだけど)
コレクションというのがあるけど、その利点というかこういう場合に使うとかという
のを教えてくれないだろうか。配列は動的配列も含めてよく使うけどコレクション
というのはあるのは知ってるけどどういう場合に使うものなのか判らない。
(まぁそれでも何とかなってるということは今の時点ではそれでも問題ないって
ことでもあるんだけど)
429デフォルトの名無しさん
2017/11/16(木) 12:38:12.83ID:Xd3mhum+ >>428
Dictinonaryだとキーが重複してたらエラーになるから
重複させたくない場合は便利だと思う
あと既にそのキーが登録してあるか調べるメソッドがあるから便利
配列でも実現出来るけど生産性の問題だと思う
Dictinonaryだとキーが重複してたらエラーになるから
重複させたくない場合は便利だと思う
あと既にそのキーが登録してあるか調べるメソッドがあるから便利
配列でも実現出来るけど生産性の問題だと思う
430デフォルトの名無しさん
2017/11/16(木) 12:40:16.53ID:+IKZz2Nz >>428
Excelならコレクションは知らないうちに必ず使ってるから心配しなくてもいい
オブジェクトを複数まとめた物がコレクションで、例えばワークシートオブジェクトをまとめた物もコレクションの一種
新規ブックを作るとワークシートが3枚あるじゃろ?それがもう既にコレクションなんだわ
名前をよく見ると「Worksheets」って複数形になっとるじゃろ?これが「複数まとめた」コレクションを示しておるのじゃ
Excelならコレクションは知らないうちに必ず使ってるから心配しなくてもいい
オブジェクトを複数まとめた物がコレクションで、例えばワークシートオブジェクトをまとめた物もコレクションの一種
新規ブックを作るとワークシートが3枚あるじゃろ?それがもう既にコレクションなんだわ
名前をよく見ると「Worksheets」って複数形になっとるじゃろ?これが「複数まとめた」コレクションを示しておるのじゃ
431デフォルトの名無しさん
2017/11/16(木) 16:08:34.06ID:mcjOn36E >>428
コレクションの便利さを実感できるのは、For Each 〜 Nextとか
コレクションの便利さを実感できるのは、For Each 〜 Nextとか
432デフォルトの名無しさん
2017/11/16(木) 17:01:22.70ID:yjV64GpF For Each
配列でも使えるけどね
配列でも使えるけどね
433デフォルトの名無しさん
2017/11/16(木) 19:57:40.06ID:NwFToy+4 広い意味では配列もコレクション
元質問のコレクションが何指してるか質問からは分からん
元質問のコレクションが何指してるか質問からは分からん
434デフォルトの名無しさん
2017/11/16(木) 22:05:24.15ID:CQAbf3aD435428
2017/11/17(金) 16:52:50.63ID:wkN6jGAZ 気付かないうちにコレクションを使ってたってのは、あぁそうなのかって感じですけど
>元質問のコレクションが何指してるか
思い浮かべてんのは連想配列とかディクショナリとかってやつですかね。
ディクショナリが重複チェックにも使えるってのは知りましたが。
今現在動かしているのをディクショナリに変えて見ようかなとと思ってます。
どちらにしろ自分で判らないことにはすすまんので。
後、曖昧模糊とした質問に答えてくれた皆さん、ありがとう
>元質問のコレクションが何指してるか
思い浮かべてんのは連想配列とかディクショナリとかってやつですかね。
ディクショナリが重複チェックにも使えるってのは知りましたが。
今現在動かしているのをディクショナリに変えて見ようかなとと思ってます。
どちらにしろ自分で判らないことにはすすまんので。
後、曖昧模糊とした質問に答えてくれた皆さん、ありがとう
436デフォルトの名無しさん
2017/11/17(金) 18:29:39.77ID:71HLXjvB 連想配列は配列と言いながら実体はコレクション
437デフォルトの名無しさん
2017/11/18(土) 09:55:58.36ID:8LVfn2cG 配列数の制御がめんどいし
個々のデータ型も合わせんでいいし
個々のデータ型も合わせんでいいし
438デフォルトの名無しさん
2017/11/19(日) 20:25:41.56ID:TCtIBT5G 感覚的な話になるけど、例えばA列、B列、C列には○と×が入っててD列には何かの名前が入ってる時に、A、B、Cの組み合わせが×、○、○の時のD列の名前を表示したいとするわな。
こういう場合は一行ずつ見て行って×、○、○の組を探すわな。
こういう場合はFor Next使うわな。
つまり普通の配列が感覚に合う。
一方、A1:F100の範囲の各セルで1つだけ○、他は全て×の時に○のアドレスを知りたいなんて時には見つかるまで全てチェックすれば良いわけで、どう見ていくかなんて関係無いわな。
こういう場合はFor Each Next使うわな。
つまり連想配列が感覚に合う。
こういう場合は一行ずつ見て行って×、○、○の組を探すわな。
こういう場合はFor Next使うわな。
つまり普通の配列が感覚に合う。
一方、A1:F100の範囲の各セルで1つだけ○、他は全て×の時に○のアドレスを知りたいなんて時には見つかるまで全てチェックすれば良いわけで、どう見ていくかなんて関係無いわな。
こういう場合はFor Each Next使うわな。
つまり連想配列が感覚に合う。
439デフォルトの名無しさん
2017/11/19(日) 22:00:10.14ID:jY4FOG+m >>438
そんなもん普通はvlookup使うわな。
そんなもん普通はvlookup使うわな。
440デフォルトの名無しさん
2017/11/20(月) 09:52:50.14ID:6BLE5ZLY >>439
ばーか。
感覚を例として挙げてることが分からないバカは黙ってろ。
もっと上手い方法があるだろうことは最初から分かってる。
順番を意識しないIteratorの感覚を説明してる。
コレクションにだって順番は実際はある。
しかしそれを意識しないような場合にぴったりということだ。
ばーか。
感覚を例として挙げてることが分からないバカは黙ってろ。
もっと上手い方法があるだろうことは最初から分かってる。
順番を意識しないIteratorの感覚を説明してる。
コレクションにだって順番は実際はある。
しかしそれを意識しないような場合にぴったりということだ。
441デフォルトの名無しさん
2017/11/20(月) 11:39:33.25ID:VyTKZ5qI ああ言えばこういうわな
442デフォルトの名無しさん
2017/11/20(月) 19:55:38.19ID:9xFKx2hL 他人の回答の批判とかするほうがおかしいね
質問に対して自分の考えで回答すればいいのに
質問に対して自分の考えで回答すればいいのに
443デフォルトの名無しさん
2017/11/20(月) 20:06:38.53ID:Pkea+7u9 適当に批判してやらなきゃお前ら好き勝手に質問と関係ない事ばかり言うじゃん
批判してくれる奴に感謝しろよw
批判してくれる奴に感謝しろよw
444デフォルトの名無しさん
2017/11/20(月) 22:04:34.15ID:9xFKx2hL 質問と関係ないこと言ってもいいと思うけどなんでそれが駄目なのかな?
445デフォルトの名無しさん
2017/11/20(月) 22:24:58.18ID:Pkea+7u9446デフォルトの名無しさん
2017/11/20(月) 23:53:15.67ID:9xFKx2hL >>445
感謝しろよ
感謝しろよ
447デフォルトの名無しさん
2017/11/29(水) 12:35:10.96ID:rUGEU7g7 ドカタ仕事の憂さ晴らしをここでやるのはやめてほしいと思うのです
汚い言葉を使うのは本人は無頼漢的にイケてるつもりかもしれないけど
側から見ると貧乏くさいのです
汚い言葉を使うのは本人は無頼漢的にイケてるつもりかもしれないけど
側から見ると貧乏くさいのです
448デフォルトの名無しさん
2017/11/29(水) 15:23:49.10ID:3jZS2ju5 のです
449デフォルトの名無しさん
2017/11/30(木) 12:22:49.90ID:xlQjmi4Q accessの条件付き書式について質問です。
FormatConditions.Add(acExpression,,
の後の式は変数を展開してくれないでしょうか?
また、関数の呼び出しも出来ないでしょうか?
例えばmonth関数は呼び出して戻り値が得られるのですが、自作関数だと呼び出せなくて困っています。
FormatConditions.Add(acExpression,,
の後の式は変数を展開してくれないでしょうか?
また、関数の呼び出しも出来ないでしょうか?
例えばmonth関数は呼び出して戻り値が得られるのですが、自作関数だと呼び出せなくて困っています。
450449
2017/11/30(木) 21:43:31.97ID:xlQjmi4Q 解決しました。関数使えますね。変数はまだ試していませんが、たぶんダメでしょうね。
451デフォルトの名無しさん
2017/12/01(金) 18:18:22.33ID:pnEu13zx Includeのようなことはできないでしょうか?
参照設定ではありません。
現在、ユーティリティ関数を集めたxlamファイルがあるのですが、中身が膨れ上がってきました。
機能単位でファイルを分割したいのですが、
そうすると今まで参照設定でutility.xlam1つで済んでいたのが、
utility_picture.xlam
utility_text.xlam
utility_workSheet.xlam ...
と、いくつも参照しなくてはならなくなります。
utility_xxx.xlamをすべてインクルードした1つのファイルを作り、
それを参照すればすべて使える、というようにしたいのです。
こういうことはできるでしょうか。
参照設定ではありません。
現在、ユーティリティ関数を集めたxlamファイルがあるのですが、中身が膨れ上がってきました。
機能単位でファイルを分割したいのですが、
そうすると今まで参照設定でutility.xlam1つで済んでいたのが、
utility_picture.xlam
utility_text.xlam
utility_workSheet.xlam ...
と、いくつも参照しなくてはならなくなります。
utility_xxx.xlamをすべてインクルードした1つのファイルを作り、
それを参照すればすべて使える、というようにしたいのです。
こういうことはできるでしょうか。
452デフォルトの名無しさん
2017/12/01(金) 18:51:00.09ID:eRljVU/z 似たようなことはできるんじゃね
453デフォルトの名無しさん
2017/12/01(金) 19:38:52.29ID:xB5YUWoV454デフォルトの名無しさん
2017/12/01(金) 19:54:29.89ID:WVxyYcg9 なんでも詰めこめばいくらでも大きくなるだろw
どんだけ貧困なイメージ力だよw
どんだけ貧困なイメージ力だよw
455デフォルトの名無しさん
2017/12/01(金) 22:49:56.60ID:kRHH2X4z なんでも詰め込んで大きくなったならダイエットしろというアドバイスになるだろw
456デフォルトの名無しさん
2017/12/02(土) 00:01:54.31ID:ab3YxIeg ダイエットするとチンコも細くなるんじゃね
457デフォルトの名無しさん
2017/12/02(土) 00:51:50.91ID:aL/u+cy3 >>451
そういう運用は良いのかという問題がある。
それぞれのアドインがバッティングしないのなら、そもそもアドイン1つに纏めるべきじゃね?
カテゴリが別だからとか色々理由が有るんだろうけど、その理由がそのままいくつも参照すべきという理由になるだろ。
アドインを1つに纏めるべきかいくつも参照すべきのどちらかじゃね?
そういう運用は良いのかという問題がある。
それぞれのアドインがバッティングしないのなら、そもそもアドイン1つに纏めるべきじゃね?
カテゴリが別だからとか色々理由が有るんだろうけど、その理由がそのままいくつも参照すべきという理由になるだろ。
アドインを1つに纏めるべきかいくつも参照すべきのどちらかじゃね?
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【中国外務省】日中関係悪化は高市氏に責任と名指しで非難… ★2 [BFU★]
- 外務省局長は無言で厳しい表情…日中の高官協議終了か 高市首相“台湾”発言で中国が強硬対応 発言撤回求めたか…★2 [BFU★]
- 日本行き空路49万件キャンセル 中国自粛呼びかけ 日本行きチケット予約の約32%に相当 [ぐれ★]
- 小野田紀美・経済安保担当相「何か気に入らないことがあればすぐに経済的威圧をする国への依存はリスク」 [Hitzeschleier★]
- 政府、株式の配当など金融所得を高齢者の医療保険料や窓口負担に反映する方針を固めた [バイト歴50年★]
- 【維新】吉村知事「中国人観光客だけに頼るビジネスモデル変えていかないといけない」「高市総理の発言は撤回する必要はない」 [Hitzeschleier★]
- 中国高官と話す外務省局長の表情、やばい ★2 [175344491]
- 中国外務省「日中関係の悪化は高市早苗首相が原因」と名指しで強く非難。キタ━(゚∀゚)━! [153490809]
- 【悲報】日本人「日本が中国と戦争になったら世界中の国が応援してくれるぞ!」 [616817505]
- 小野田経済安保相「すぐに経済的威圧するところへの依存はリスク」😲 [861717324]
- 日本政府「高市総理の発言は問題ないと伝え、中国総領事のSNS投稿は問題があると中国に伝えました😊」 [931948549]
- 【ほんこん悲報】吉本新喜劇の中国公演が中止に! [523957489]
