VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、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/

**デフォルトの名無しさん** · 2017/06/05(月) 21:06:49.56

その文字を含むセルを、行ごと削除したり、行ごとコピーしたりと、いろいろしたいので質問致しました。

**デフォルトの名無しさん** · 2017/06/05(月) 21:25:48.60

鮮やかな丸投げっぷりにﾜﾗﾀ
作成依頼OKな Excel VBAスレと間違えてない？

**デフォルトの名無しさん** · 2017/06/05(月) 21:31:47.51

>>328
とりあえず、複数行を選択するところをマクロの記録で見てみたら？
ｃｔｒｌキー押しながら選択するのとshiftキーを押しながらのとで。

**デフォルトの名無しさん** · 2017/06/05(月) 21:41:12.12

検索対象のセル範囲でForループを回す
セル値に特定文字を含むセルが見つかる度にEntireRowを取得して変数に入れるかUnionで選択対象の範囲をマージしていく
ループ終了後にSelectする
以上

**デフォルトの名無しさん** · 2017/06/05(月) 21:45:35.27

>>327
Ctrl+Fで検索しろやボケナス
ちゃんと行選択までしてくれるぜ

**デフォルトの名無しさん** · 2017/06/05(月) 22:37:03.17

ごめんなさい、質問者です。
ここじゃなかったのですね。上に上がったやり方でできそうなのでやってみます。ありがとうございます

**デフォルトの名無しさん** · 2017/06/06(火) 05:49:03.11

色々細かい条件でどんなコードが効率いいか、変わってくるでしょ。

例えばそのセルがあるのは、特定の行だけとか、検索文字列はセルに完全一致なのか含まれるのか、など。

**デフォルトの名無しさん** · 2017/06/06(火) 09:11:47.41

331だが、同じ行に該当セルが複数ある場合は無駄が生じるな
実現したい機能次第だが、工夫が必要かもな

**デフォルトの名無しさん** · 2017/06/07(水) 19:31:10.77

はじめまして。以下2点、教えていただけると幸いです。
環境は、OS:Windows7, Excel2010です。よろしくお願いします。

1.プルダウンの初期値設定
セルA1にりんご、A2にバナナ、・・・のようにA列にある項目をプルダウンで選択したいです。
このとき、「A列のj行目（パラメータ選択可能）を初期値にしたプルダウンをB1に設置する」VBAのコマンドを教えていただきたいです。

2.ファイル名の変更
aaa.txtというファイルをデスクトップに出力するマクロを作れました。
このマクロ実行後、再度実行するとaaa(2).txtのファイルを、再度実行するとaaa(3).txtのファイルを出力・・・
このようなVBAのコマンドを教えていただきたいです。

**デフォルトの名無しさん** · 2017/06/07(水) 21:49:32.12

>>336
コマンドはありません

**デフォルトの名無しさん** · 2017/06/07(水) 22:23:27.64

>>336
txtファイルをデスクトップに出力っていう日本語の破壊力がやべぇ

**デフォルトの名無しさん** · 2017/06/08(木) 05:33:24.44

>>336
1
・B1セルを選択してからマクロの記録を実行
・入力規則でリストを選択にリストの内容でA列を選択する
・マクロ記録の終了をする
・できたコードを修正してA列の任意のセルをデフォルトにするように変更する

2
・デスクトップにaaa.txtが存在するかチェックする。
・存在しない場合はaaa.txtを作成して終了。
・存在する場合はDo~Loop中にデスクトップにaaa(i).txtが存在するかチェックする
・存在する場合はiをカウントアップして次のループ
・存在しない場合はそのiを使用してaaa(i).txtを作成して終了。

**デフォルトの名無しさん** · 2017/06/25(日) 17:10:56.20

A1セルに　=NOW()-TODAY()　と入力すると
現在時刻が表示されますが。

MsgBox Range("a1")
とすると　0.0110212・・・と言ったような数値が出ます。

Dim now As Date　
now=Range("a1")
と型を指定した変数に格納してやると　
MsgBox now で　21:49:32 といった一般的な時間表記を示せますが、

変数化を省略して
MsgBox Range("a1")～に補足コードを書くなどで同じ処理を実現する方法は無いのでしょうか？

**デフォルトの名無しさん** · 2017/06/25(日) 17:20:36.10

MsgBox Range("A1").Text
とか
MsgBox Format(Range("A1"), "hh:mm:ss")
とか

**デフォルトの名無しさん** · 2017/06/25(日) 17:26:03.97

>>341
なんと！！
変数をだらだら定義すること無く綺麗さっぱり解決できました！ありがとうございました。m(_ _ )m

**デフォルトの名無しさん** · 2017/07/17(月) 17:20:20.62

プロシージャの中で1回しか使わないのに、わざわざ変数にするやつとかいるよね。（しかもハンガリアン記法で）

100行に満たない程度のコードなら、Withステートメント使ったほうがむしろ可読性は上がる。

**デフォルトの名無しさん** · 2017/07/17(月) 17:25:26.05

マシンパワーが貧弱だった大昔ならともかく、今時はリソースを気にする必要なんてないんだから、可読性を最優先で記述するべきだよ。

**デフォルトの名無しさん** · 2017/07/23(日) 22:54:52.46

>>343
ああ、俺だ。
Ubound(配列)とか、For～Nextの中で何回も実行すると、
なんか遅いような気がして、一度変数に入れちまう。

**デフォルトの名無しさん** · 2017/07/24(月) 03:07:48.10

>>345
何回も実行するなら変数に入れたほうがいいんじゃね？

**デフォルトの名無しさん** · 2017/09/01(金) 23:04:37.73

>>345
(1)
For I1 = 1 to UBound(xxx)
For I2 = 1 to UBound(xxx)
(2)
J=UBound(xxx)
For I1 = 1 to J
For I2 = 1 to J

普通に考えて本のチョット早いと思われますが、記述の労力ほどじゃない。
他の方の書いてますが、今は、処理速度が物凄く早くなっています。
気にしなくていいと思います。
ただし、私はEXCELでVBAを書くのですが、シートのセルに書き出すと物凄く遅くなる。
VBAの配列とかメモリーならばほとんど気にしなくていいです。
ですから、メモリー内で処理して最後の最後にシートに書くようにしてます。

**デフォルトの名無しさん** · 2017/09/02(土) 08:26:52.52

>>347
> ですから、メモリー内で処理して最後の最後にシートに書くようにしてます。
基本中の基本だからいちいち書かなくてよろし

**デフォルトの名無しさん** · 2017/09/05(火) 10:53:29.80

アノニマスに入会したいんですがVBA知ってるだけで入れますか?
あと入会ってどうやんの? スーツ着て履歴書持って事務所に面接に行くの？

**デフォルトの名無しさん** · 2017/09/05(火) 12:25:17.40

たまにハローワークに求人出てるから行ってみれば？

**デフォルトの名無しさん** · 2017/09/12(火) 02:10:43.27

超初心者です
同じブック内の複数のシートにある顧客データをUserFormを用いて（検索するイメージ）抽出し、別のシートへ出力するコードを書きたいのですがいまいちわかりません。
大変困っているのでヒントをくださればありがたいです。

**デフォルトの名無しさん** · 2017/09/12(火) 02:30:21.88

>>351
超初心者には無理です
パソコン教室に通ってせめて初級をクリアしてから質問してください

**デフォルトの名無しさん** · 2017/09/12(火) 04:10:40.96

>>352
返信ありがとうございます
Excel自体触ったことない超初心者ですが頑張っているところです( ??? )

**デフォルトの名無しさん** · 2017/09/12(火) 08:28:28.15

>>351
自称初心者がどこでUserFormとか覚えたの？
まずはシート上でやってみようね

**デフォルトの名無しさん** · 2017/09/12(火) 12:27:40.35

どこで覚えようとお前の知った事じゃねえだろｗ
なんだこのバカはｗｗｗ

**デフォルトの名無しさん** · 2017/09/12(火) 13:06:30.39

>Excel自体触ったことない超初心者

ユーザーフォームを作ったことはあるのか？
　無けりゃ、この時点でやろうとしていることはもう無理

VBAはほんの少しでも書いたことはあるのか？
まぁ最初は>>354の言うようにシート上で実現して、それをユーザーフォームにもっていくのが順当
というか触ったこと無いって時点で釣り確定

**デフォルトの名無しさん** · 2017/09/12(火) 16:38:53.70

VBA参入門書とネットの知識を詰め込みました。
Excel初心者は本当です。友達に教えてもらいつつやっています。気分を害された方、すみません。
>>356さん非常に分かりやすいです。
二日間くらい最初からコードを書こうとしてもがいていましたが、マクロの記録が使えそうな気がします。
そのコードをいじってボタンで起動するユーザーフォームとくっつけるイメージで挑戦してみます。

**デフォルトの名無しさん** · 2017/09/12(火) 16:41:08.80

>>354さんもありがとうございます！参考＆励みになります

**デフォルトの名無しさん** · 2017/09/12(火) 20:34:49.57

このスレで一番の基地外が満を持して遅れて登場

**デフォルトの名無しさん** · 2017/09/12(火) 20:51:47.27

俺のことかな？

**デフォルトの名無しさん** · 2017/09/13(水) 00:17:05.57

>>357
ユーザーフォームでその機能を実現する必然性が感じられない
フィルタオプション機能を用いて、検索結果の出力先を新規シートに設定するだけで事足りると思うぞ

**デフォルトの名無しさん** · 2017/09/14(木) 07:47:53.75

フィルタオプションとマクロの記録で8割方完成できるな

**デフォルトの名無しさん** · 2017/09/15(金) 10:19:31.10

ADOの事でちょっと質問です
変数を定義する時に

Dim wkR as New ADODB.Recordset

ってするんだけど、RecordsetとRecordの違いって何？

あ · 2017/09/15(金) 10:57:55.87

http://matsuri.2ch.net/test/read.cgi/morningcoffee/1472464096/

**デフォルトの名無しさん** · 2017/09/18(月) 06:42:59.71

>>361-362　ありがとうございます、簡単なプログラムですが完成して感動しました。
Ifとマクロの記録が万能すぎることを肝に銘じてこれからもがんばります( ??? )

**デフォルトの名無しさん** · 2017/09/18(月) 15:10:56.93

>>365
万能過ぎないけどね。
そればっかり使ってる人は永遠に初心者なままだし、色々な面で出来の悪いプログラムになる。
自動生成されたコードのそれぞれの意味を理解して自分なりに書けるようになると上達する。

例えば
Range("B4").Select
Selection.Value=10
のようなコードが生成されると思うけど意味を考えたら
Range("B4").Value=10
で良いとわかるよね。

**デフォルトの名無しさん** · 2017/09/18(月) 20:44:49.78

>>363
Recordset オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364264.aspx
Record オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364270.aspx

**デフォルトの名無しさん** · 2017/09/18(月) 23:50:59.42

すみませんお力添えをお願いします！
エクセルマクロ（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

**デフォルトの名無しさん** · 2017/09/19(火) 20:55:54.78

>>367
説明サイトへのリンク、ありがとう。
取り敢えず、「階層構造のデータ間を移動する手段として」のRecordオブジェクトは使うこと無さそうw

**デフォルトの名無しさん** · 2017/09/20(水) 01:17:31.22

IF文初心者ですが
3つ数字の中から一番小さい数を判定したいのですが、
elseや入れ子で複数書けば判定できるというのは推測がつきますが
最も簡潔に記述するとしたらどんな記述方法がありますでしょうか？

例）
33　12 3
↓
3を抽出

**デフォルトの名無しさん** · 2017/09/20(水) 05:19:03.75

>>370
最小値 = WorksheetFunction.Min(Array(33, 12, 3))

**デフォルトの名無しさん** · 2017/09/20(水) 05:37:31.94

>>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

**デフォルトの名無しさん** · 2017/09/21(木) 21:28:21.10

>>372
>>371
明確な答えをありがとうございます。
やはりIFの場合は372が妥当なようですね。

**デフォルトの名無しさん** · 2017/09/21(木) 22:56:33.81

>>372は < じゃなくて <= にしないと誤判定する

**デフォルトの名無しさん** · 2017/09/22(金) 06:56:36.59

例題の対象が3ではなくて1000とかに増えたら破綻するだろw

**デフォルトの名無しさん** · 2017/09/22(金) 07:13:14.29

>>375
数字3つという前提を勝手に変えるこういう馬鹿はなんだろう

**デフォルトの名無しさん** · 2017/09/22(金) 09:34:43.90

汎用性を考慮しないのか。
なかなかひどい。こういう人もいるという参考になったわ。

**デフォルトの名無しさん** · 2017/09/22(金) 09:37:13.81

ソートアルゴリズム書くだけやん

**デフォルトの名無しさん** · 2017/09/22(金) 09:54:47.89

372のはアルゴリズムと言うよりその場しのぎの対応

**デフォルトの名無しさん** · 2017/09/22(金) 10:13:30.00

配列に入れてループで最小値と比較して小さければ最小値を更新していくのが定石なのでは。

**デフォルトの名無しさん** · 2017/09/22(金) 10:29:30.23

だからMin関数で一発なのに、無駄に車輪の再発明をしたがるやつが多くてリンダ困っちゃう

**デフォルトの名無しさん** · 2017/09/22(金) 10:32:40.77

>>379
順次比較も立派なアルゴリズムの一種なんだが

**デフォルトの名無しさん** · 2017/09/22(金) 14:42:52.69

これはひどい

**デフォルトの名無しさん** · 2017/09/22(金) 14:57:48.38

IF初心者とか言ってる人に何言ってるんだか

あといつからこのスレはEXCEL VBA限定になったんだ

**デフォルトの名無しさん** · 2017/09/22(金) 20:39:03.91

>elseや入れ子で複数書けば判定できる
>最も簡潔に記述するとしたらどんな

という問いに、elseや入れ子の回答するのは無能以前に答えになってないのとちがう？

**デフォルトの名無しさん** · 2017/09/22(金) 22:15:07.62

え？え？日本語理解できてる？
質問には「Elseを使わずに」なんてどこにも書いてないぞ

ざっくり意訳すれば「IfとElseの数を最小に」する方法を聞いてるんだろ

**デフォルトの名無しさん** · 2017/09/23(土) 06:12:18.34

372のは374が書いてるように、例えば
x=1
y=1
z=3
と入れただけで誤判定する。アルゴリズムの最低限を割ってるぞ。
372がベストアンサー(笑)だと質問者が思ったなら気の毒なので念のため。

**デフォルトの名無しさん** · 2017/09/23(土) 07:50:16.98

そもそも計算量も最少じゃないしな
普通に

最小値 = x
If y < 最小値 Then 最小値 = y
If z < 最小値 Then 最小値 = z

ってやる方がわかりやすい

**デフォルトの名無しさん** · 2017/09/23(土) 10:07:44.78

うん、ベストアンサーはMin使った方だね。
俺だったら迷わずMin使用する。
同時にMin使わない方法も考える。
配列ループも考えた。

でも、別にIf文使っても良いんじゃない?
そんな目くじらを立てるようなことじゃない。

**デフォルトの名無しさん** · 2017/09/23(土) 12:22:56.52

>>386が分かってないバカ多すぎｗ

**デフォルトの名無しさん** · 2017/09/23(土) 14:36:58.57

だから372はif elseだとしても最小(計算量的に)の答えにもなってないし、そもそも答えとして間違ってるって話だろ

**デフォルトの名無しさん** · 2017/09/23(土) 17:06:13.24

それは勉強する奴と仕事にしてる奴のスタンスの違いだな。
仕事にしてる奴はIfを使わなきゃならないなんてことに遭遇しないから、はなっから抜けてる。

**デフォルトの名無しさん** · 2017/09/23(土) 23:00:39.63

必ずIfを使う縛りなら>>388がベストアンサー
ソートアルゴリズムの最初の1回目のループを展開してるだけなんだけど、基本中の基本のやり方

**デフォルトの名無しさん** · 2017/09/23(土) 23:28:57.04

>>392
if文の使い方を聞かれてmin()関数を教えるような人はプログラムを仕事にしないで欲しいのです
いえ、仕事をしないで欲しいのです

**デフォルトの名無しさん** · 2017/09/23(土) 23:49:29.12

仕様書はちゃんと読んで、条件は無視しちゃいけないよね

**デフォルトの名無しさん** · 2017/09/24(日) 02:12:05.73

勉強のため何が何でもIfだけで解決しなきゃいけなかったのか、
まだ初心者だからMinという便利な物があることを知らなかったのか
それによって変わってきちゃうからー

**デフォルトの名無しさん** · 2017/09/24(日) 08:43:50.06

>>395
仕様書ならそれが正解
しかし案件定義なら顧客が何をしたいかを読み取ってより良い方法を提案することも必要
そもそも>>370にはIf使えとは書いてないし

**デフォルトの名無しさん** · 2017/09/24(日) 09:20:40.69

>>394
分かってねえなあ。
勉強を教える仕事じゃないならユーザーにとって一番使いやすいとか、速度が速いとか、ユーザーが満足するようなものかどうかが大事なのであって、どんなコードじゃなければならないとかの要望は普通無い。
そして、メンテナンス性とかコードの書き方に関してもMinの方が良いとなればそもそもの問い掛け自体仕事で発生することは無い。

そして実際には、何でMinじゃ駄目なのと問い掛けられない奴は仕事の出来ない奴ということになる。
(もちろん明確に理由が有るならIfで書く。)
指示通りにしか作れない奴じゃ単なるコーダって奴になるしかない。

仕事ではMinを使わないなら明確な理由が存在するし、打ち合わせなんかのやり取りで既に意思統一されてる筈だ。
つまり今回の問い掛けのような事態は存在しない。

**デフォルトの名無しさん** · 2017/09/24(日) 10:07:44.74

>>393
だな、簡素で分かりやすく奇麗なコードだ

**デフォルトの名無しさん** · 2017/09/24(日) 15:00:43.73

>>398
なんか仕事をしてる体で話してますけど
あなたの想像上の仕事では自分にとって都合の悪い事態は存在しないのですね
さぞかし楽しかろうとは思いますが
あなたは社会に出ないでください

**デフォルトの名無しさん** · 2017/09/24(日) 16:46:42.97

>>400
仕事をしたことの無い奴には分かるまいw

**デフォルトの名無しさん** · 2017/11/08(水) 05:55:55.96

こっちを再利用？

**デフォルトの名無しさん** · 2017/11/08(水) 09:41:10.42

再利用したいけどExcelの話をしたいときに困るのかな

**デフォルトの名無しさん** · 2017/11/08(水) 10:15:34.15

そのうち立つんじゃね

**デフォルトの名無しさん** · 2017/11/08(水) 11:10:32.82

「Excelの話」したいんだったら総合相談所でやれ

**デフォルトの名無しさん** · 2017/11/08(水) 11:59:42.12

なるほどなるほど

**デフォルトの名無しさん** · 2017/11/08(水) 12:50:47.32

早速質問
今vbaでマップ使って
とある表の集計を行なっております
一つのkeyに対しアイテムが複数あるので
配列で入れようと思ったのですがうまくいきません
何か良い方法はありませんか？

**デフォルトの名無しさん** · 2017/11/08(水) 16:45:58.99

もう少し具体的にどうぞ

**デフォルトの名無しさん** · 2017/11/08(水) 21:23:36.05

>>408
一つのキーに対して複数のアイテムがある
これをどうにかこうにか出来ないか

やりたいことは
キーが重複された二次元配列を
グループ化&合計を取りたい

**デフォルトの名無しさん** · 2017/11/08(水) 21:28:10.43

>>409
エクセルならピボットテーブルでいいんじゃない？

**デフォルトの名無しさん** · 2017/11/08(水) 21:32:09.19

>>410
自動で計算させるんだよ

**デフォルトの名無しさん** · 2017/11/08(水) 21:33:56.61

>>411
ピボットテーブルをvbaで作ればいい

**デフォルトの名無しさん** · 2017/11/08(水) 21:38:43.05

エスパーじゃないんだから、もっと具体的に説明しないと、何がしたくて何ができないのか判んないよ。
そして多分だけど普通にifで分岐するプログラムを書くだけだと思う。

**デフォルトの名無しさん** · 2017/11/08(水) 21:40:37.09

いや多分forでループするプログラムを書くだけだと思う

**デフォルトの名無しさん** · 2017/11/08(水) 22:38:17.07

データシート
キー金額a 金額b
1 10 20
2 20 50
1 30 90

結果（期待）
キー金額a 金額b
1 40 110
2 20 50

上のような感じのシートがあって
集計かけたり
平均とったり
最大値だったりしたい

**デフォルトの名無しさん** · 2017/11/08(水) 23:08:47.37

>>415
そのくらいの事を自分でできないなら
ピボット使った方がいいと思うぞ
バグって計算結果が合わないから

**デフォルトの名無しさん** · 2017/11/08(水) 23:25:51.57

そのくらいの事を自分でできないから質問してんだろ
そのくらいの事を理解できないなら質問スレに来ない方がいいのに

**デフォルトの名無しさん** · 2017/11/08(水) 23:38:17.91

そのくらいの事も判らない人にも実現できる方法を提案してるだろ

**デフォルトの名無しさん** · 2017/11/09(木) 00:17:55.65

https://i.imgur.com/wtkTdlA.png
上のように各列の情報に応じて、一定の条件にヒットしたら評価欄に追記、ということをしているのですが、
上手い書き方が思いつかず、冗長で読みにくいコードになってしまいます
https://i.imgur.com/cE0kOho.png

どうすれば綺麗で読みやすいコードになるでしょうか？

特に、変数(ここでは「評価」)の参照先のセルに書き込みつつ、変数の値自体も更新するスマートな方法と
If文で2つの条件が当てはまった場合に両方の処理を実行させる(ここでは40点以下と60点未満のIf文を一つで済ませるとか)方法があれば知りたいです

**デフォルトの名無しさん** · 2017/11/09(木) 03:11:02.61

>>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を並べる今の書き方で別に悪くない

**デフォルトの名無しさん** · 2017/11/09(木) 08:39:48.02

ありがとうございます、やってみます
（コードは行数制限とインデントが反映されなかったのでつい画像に…すみません）

**デフォルトの名無しさん** · 2017/11/10(金) 08:15:39.86

オートフィルの連続データでA1が0なら終わりでそれ以外なら下にオートフィルの連続データを追加して行くってどうやればいい？

**デフォルトの名無しさん** · 2017/11/10(金) 08:52:12.12

何をどこまで追加すんの？

**デフォルトの名無しさん** · 2017/11/10(金) 09:18:59.30

下に一つｵｰﾄﾌｨﾙの連続ﾃﾞｰﾀを追加してもしもその数が0以外ならばその下に一つづつ追加してもし0になったら終わるってことです

オートフィルの連続データまでは成功しました！

**デフォルトの名無しさん** · 2017/11/10(金) 12:58:08.94

>>424
何をやりたいのかさっぱりわからんから
> オートフィルの連続データまでは成功しました！
のコードを晒してくれ

**デフォルトの名無しさん** · 2017/11/10(金) 22:07:12.41

何をどーしたいのかよーわからんが、
オートフィルの連続データが完成したならDo 　While　Loopでも使えばいいんじゃね

**デフォルトの名無しさん** · 2017/11/11(土) 10:59:01.85

そうですね連続データと探す作業分けてDo until使ってみたら目的は達成できましたありがとございます