Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

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

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/04/30(金) 21:20:31.83

>>565
値渡しは参照値が渡される
↓
値渡しは、変数に格納されてるのが参照値（メモリアドレス）なら参照値が渡される

2021/04/30(金) 21:52:12.56

>>565
元々文字列は内容変わったら領域確保し直したりするから内部的に参照持つのが普通
ByVal は文字列を複製して渡すしByRefは内部的な参照への参照を渡す
何の矛盾もないよ
中途半端に内部的な参照を気にしてもしょうがないよ

2021/04/30(金) 21:55:44.24

>>565
え？そうだっけ？
確か配列は参照渡ししか出来ないから
Variant型に突っ込んで渡して
値型のものを渡すようにするんじゃなかったっけ？

もっともそれでも参照型のものは参照が渡されるけど。

2021/04/30(金) 22:00:13.74

誰か教えてほしいんですが、
数字を単純に足すんじゃなくて=+100+200というふうに増えた数字を全部数式に残していくように一つのセルに入れていくやり方ってありますか？
例えば別のシートに100 200 350とあったら
記録用のシートのセルに=100+200+350と飛ばしたいです。
セルの中身見た時に650となってるのではなくて=100+200+350と表示されてほしい

2021/04/30(金) 22:02:58.83

>>569
単純にCStrで数字を文字列に変換して繋げばいいだけと思うけどそういう意味じゃない？

2021/04/30(金) 23:05:04.91

>>564
ふつうに関数でよくないの
=IF(B2=int(B2),A2,B2)
みたいなの

2021/04/30(金) 23:07:22.57

>>569
これも式を表示するモードがあったはず

2021/04/30(金) 23:09:00.86

>>557
sheet1モジュールに書く
シート名はs1とs2にしてるのでテキトーに変えて

Private Sub Worksheet_Change(ByVal Target As Range)

If _
Target.Address <> "$B$1" _
Or Not (IsNumeric(Target)) _
Then
Exit Sub
End If

main = Cells(1, 2).Value
main2 = Cells(1, 1).Value

If (Int(main) - (main)) = 0 Then
Sheets("s2").Cells(1, 3) = main
Else
Sheets("s2").Cells(1, 3) = Int(main2)
End If

End Sub

2021/04/30(金) 23:13:44.15

>>569
地味にやるしかない

Sub foo()
Cells(3, 1).Formula = "=" & Cells(1, 1).Value & "+" & Cells(2, 1)
End Sub

量が多いならfornextかなんかで処理すると良い

2021/04/30(金) 23:13:57.10

joinほしい

2021/04/30(金) 23:21:20.34

>>573
ありがとうございます！
今外にいるのでお家に帰ったら試して見ます

2021/04/30(金) 23:40:08.54

>>570
そんな感じで大丈夫です

>>574
数がかなりあるんでループさせて特定の月の数字を拾うところまではできてたんで、そのやり方試してみます。

2021/05/01(土) 00:46:43.32

CONCATがある

2021/05/01(土) 05:48:25.12

>>575
Joinあるやろ
手元にExcelないから試してないけど
Cells(3, 1).Formula = "=" & Join(Application.Transpose(Range("A1:C1" ).Value), "+")
でいけないかな

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 06:04:07.19

よく見たら行/列間違えてるわ
Cells(3, 1).Formula = "=" & Join(Application.Transpose(Range("A1:A3" ).Value), "+")
だな

Excel 2019ならVBA使わずに
C1: =TEXTJOIN("+", TRUE, "=", A1:A3)
でいけるかも

2021/05/01(土) 10:06:17.84

>>580
例えば元表

コード　200 金額　200 5月
コード　150 金額　300 4月
コード　200 金額　500 5月
コード 150 金額 400 6月
コード　200 金額　50 5月

と並んでたとして、飛ばしたい表に

コード200に一致した場合は=200+500+50
コード150 の4月は=300
みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？
うまくいかなくて、、

2021/05/01(土) 10:22:39.67

>>580
別の質問だけど、
Application.Transpose
って
WorksheetFunction.Transpose
の事？

ApplicationってついてたらWorksheetFunctionは省略できるの？

2021/05/01(土) 13:16:18.88

こういう処理はピボットの得意分野だとおもう
ピボットスレにも聞いてみたらとうかな

2021/05/01(土) 13:18:22.06

ピボットスレってあったっけ？

2021/05/01(土) 13:20:57.76

>>582
互換、環境の違い……

2021/05/01(土) 13:30:58.50

ピボットを設定して
たて列を月
よこ列を単価

合計は "値で合計"にする <はじめは個数で合計>になってる
いちばん間違えやすいところ

2021/05/01(土) 14:28:03.48

>>573
> >>557
> sheet1モジュールに書く
> シート名はs1とs2にしてるのでテキトーに変えて
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If _
> Target.Address <> "$B$1" _
> Or Not (IsNumeric(Target)) _
> Then
> Exit Sub
> End If
>
> main = Cells(1, 2).Value
> main2 = Cells(1, 1).Value
>
> If (Int(main) - (main)) = 0 Then
> Sheets("s2").Cells(1, 3) = main
> Else
> Sheets("s2").Cells(1, 3) = Int(main2)
> End If
>
> End Sub
あらためて
ありがとうございます。
整数なら無視できるようになりました！
あとは Sheets("s2").Cells(1, 3) にSheets("s１").Cells(1, 2).Valueが整数じゃなければSheets("s１").Cells(1, １).Valueが入れば完璧です
ちょっと自分でググってみます！もしできないようならまた質問させてください

2021/05/01(土) 15:00:22.43

>>584
誰か建ててくれると期待してはや数年。。。

2021/05/01(土) 15:05:23.71

PowerQueryスレは建ったんだけど、
https://mevius.5ch.net/test/read.cgi/bsoft/1571540368/
ピボットスレ、建ててみる？

先日、総合相談スレでPowerPivot絡みの質問はあったが。

2021/05/01(土) 15:15:39.62

>>586
ピボットだと=で積み立てで足していくようにできなくね？
合計しか出てこない

2021/05/01(土) 16:16:38.30

あーそうかも
やはりピボットスレが立つまで待ちますか

2021/05/01(土) 16:42:05.48

>>581

それは、たとえば、元表にB1＆countif(B$1:B1,B1)みたいな作業列を作って
飛ばしたい表に、iferror(index(D:D,match(作業列,コード&column()+1,0)),"")
みたいな数式を貼り付けるのではだめですか？

1つのセルに、数式として入っている必要性が、あるのですか？

2021/05/01(土) 17:05:58.85

>>592修正、matchの書式も違うし

月も必要なので、B1＆E1 を作業列Fに、count(F$1:F1,F1)を作業列Gに入れて

飛ばしたい表のA列はコード、B列は月、C列以降にiferror(index(元表!$D:$D,match($A1&$B1&column()-2,元表!$F:$F,0)),"")

こんな感じではだめですか？

2021/05/01(土) 17:25:51.43

>>592
合計なら楽なんですが、どうしても=+で数字を積み立てないとダメなんですよね、、
だから数式では解決できない気がします
vbaでやるなら配列に詰め込んで最後に結合させるのかなあとか思ってるんですがなかなかいいコードが思い浮かばない、、

2021/05/01(土) 17:29:33.26

>>593
ちなみに飛ばしたい表のB列は月というか
　　　　　月
　　　　　　
コード～

みたいな形になってて、月は横軸の大項目としてしか存在してないんですよね
色々厄介な作りになってまして、、

2021/05/01(土) 17:33:09.92

知能に障害がある人ばかり質問するようになった感じ

2021/05/01(土) 17:49:10.58

コロナ自粛でGW中だから暇なんだよ
暇な人に相手して欲しいんだよ

2021/05/01(土) 18:04:53.11

知恵袋でやれば良いと思う

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 18:07:44.96

>>581
> みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？
月が同じってどこと同じなの？
コードのようにどこかで指定するってこと？
とりあえずコードがA列、金額がB列、月がC列に入っているとして
Dim 元表 As Sheet: Set 元表 = Range("A1:C10")
Dim 金額() As String: ReDim 金額(元表.Row To 元表.Row + 元表.Rows.Count - 1)
Dim 書込行 As Long: 書込行 = LBound(金額)
Dim 行 As Long
For 行 = LBound(金額) To UBound(金額)
If Cells(行, "A").Value = コード And Cells(行, "C").Value = 月 Then
金額(書込行) = Cells(行, "B").Value
書込行 = 書込行 + 1
End If
Next
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
Range("D1").Formula = "=" & Join("+",
金額)
みたいな感じでいけると思う

>582
ごめん、テキトーにググって書いてるから間違えてるみたいやな
Application.WorksheetFunction.Transpose
にしといて

2021/05/01(土) 18:46:01.00

>>599
最初の型はSheetじゃなくてRangeじゃね
あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど

上で語ってる人ってあんま教えに来ないよな

2021/05/01(土) 18:57:24.37

>>599
試しにやろうとしたら最終行が型不一致でエラーになりました・・

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 19:57:34.66

>>600
> 最初の型はSheetじゃなくてRangeじゃね
すまん、そうだわ

> あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど
ちょっと今試せないからやってみてくれ

>>601
すまん
Range("D1").Formula = "=" & Join(金額, "+")
だったわ

2021/05/01(土) 20:06:26.75

>>602
ありがとうございます。
今度は下から二行目でインデックスの範囲外エラーになりました、、
書込行が1行目だとredim～のところの書込行-1が0になるからですかね？

2021/05/01(土) 22:02:09.39

>>603
自分で考えることくらいしろや、ゆとり

2021/05/01(土) 22:18:52.25

dim hako() as variant

redim hako(ここはデータ数を格納)

for i = 0 to 回数

hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

next

こんな感じで配列の中にセルの文字入れて行こうとするとエラーになるんですが原因分かる人居たら教えてください
便宜上cellの位置は1,1にしてますけど実際は縦が動いていきます

2021/05/01(土) 22:41:00.37

>>541
> これ、要するにString型変数の値は参照値って事？
> 察してはいたけどByval xxx$って嘘じゃん

逆にC知ってると、文字列がプリミティブってのにものすごい
違和感があるよ。「ああ、内部で変換してんだな。そういうものだと
思っておこう」と、自分を納得させる。

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 22:45:28.00

>>603
条件に合うものがないと ReDim 金額(1 To 0) の様になってエラーになる
VBAではReDimで空の配列は作れないので条件に合うものがない場合を場合分けして処理するしかない
例えば条件に合うものがない場合はD1を空にするなら最後の２行を

Dim 式 As String
If LBound(金額) < 書込行 <= Then
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
式 = Join("+", 金額)
Else
式 = """"""
End If
Range("D1").Formula = "=" & 式

とかにすればいい

2021/05/01(土) 22:53:14.11

>>605
＞hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
の、
Worksheets("Sheet1").Cells(1,1)が指してる先が数字でないなんてオチはないよね？

2021/05/01(土) 23:00:47.42

>>608
今見てみたんですが
ちゃんと数字を指してました

2021/05/01(土) 23:06:25.35

>>607
すごい！
ちょっと動くようになりました。
二行目のif文の<=って消していいですかね？
消さないとエラーになってしまったので
ただ、式=join（"+",金額）のところで型が一致しないエラーになりました

2021/05/01(土) 23:16:54.43

いつものあいつ確定

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/01(土) 23:44:05.17

>>610
> 二行目のif文の<=って消していいですかね？
消し忘れだ、すまん

> ただ、式=join（"+",金額）のところで型が一致しないエラーになりました
デグレードしてる俺が悪いんだが、>>601からの話と同じ

2021/05/01(土) 23:54:50.36

>>612
凄いです！！
出来ました！！
ちょっと実際の表でも細かい数字入れてみて検証してみます。
GW潰してずーっとこの問題を考えてました。
一筋の光が見えた気がします！！ありがとうございます。

2021/05/02(日) 09:42:00.36

>>590
PowerPivotでDAX関数使えば出来るかも。

2021/05/02(日) 09:58:00.77

で、建ててみた

Excel ピボット Power Pivot DAX関数質問スレ
https://mevius.5ch.net/test/read.cgi/tech/1619916663/

2021/05/02(日) 10:03:52.79

いきなり宣伝てアンタ

**579** (ﾃﾃﾝﾃﾝﾃﾝ MM8f-m/Zw) · 2021/05/02(日) 10:19:11.69

>>605
> エラーになるんですが
なぜエラーメッセージを書かないの？

>>608
数字でもダメでしょ
hako(i) = Worksheets("Sheet1").Range(1, 1).Value
になるだけだし

2021/05/02(日) 10:26:38.41

>>617
アプリケーション定義エラーまたはオブジェクトの定義エラーですってなります

2021/05/02(日) 11:31:48.49

2スレ目に何か書いとこうと思って、
とりあえず考えついたのがこれくらいしかなかった。
スンマセン

2021/05/02(日) 11:41:15.21

>>618
>>617で頓珍漢なこと書いてたわスマン、数値かどうかは関係ないわ

> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

でエラーになるのか

> 実際は縦が動いていきます

の方でエラーになるのかどっち？
上でエラーになるなら１回目なのか何回かやったらエラーになるのかのどっち？
下でエラーになるならエラーになった時のセルの指定がおかしくないかを確認
あとシートの指定は変数に入れるかWithを使った方が楽だよ

With Worksheets("Sheet1")
For i = 0 to 回数
hako(i) = .Range(.Cells(1,1), .Cells(1,1)).Value
Next
End With

2021/05/02(日) 12:12:35.89

>>620
独学でやってたのでその辺の知識がなくてｗ
withで指定するといちいち書かなくて済むんですね
エラーになるのはもう1度目からです

> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

ここの時点でエラーになります。

2021/05/02(日) 12:42:32.96

>>621
切り分けとしてエラーになった時にイミディエイトウィンドウで

hako(i) = Worksheets("Sheet1").Range("A1").Value

Debug.Print Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value

Debug.Print Worksheets("Sheet1").Cells(1,1).Address

を実行してみて

2021/05/02(日) 13:21:44.18

>>622
あまり使ったことがない機能で分からないんですが
試しにA1に1という数字を置いて実行したら1という結果が出ました
エラーは出なかったです

2021/05/02(日) 13:32:29.72

エラーが出なくなったらよかった。
他に問題は？
解決？

2021/05/02(日) 18:51:27.95

こういう人って文法は理解できないけど
自然言語みたいに丸暗記で覚えていくのかな？

2021/05/02(日) 19:13:05.11

～10年後～
「あ、ちゃんと覚えたほうが早かったんだ」

と、表面をなぞりまくる内に本質まで見えてきて最後に気づく人もいる
本業じゃないからね。仕方ないね。

2021/05/02(日) 19:18:03.74

類型から共通点を見出して次第にルールを覚えるのは自然界の学習形態に沿っている

2021/05/02(日) 19:36:47.01

古いBASICの構文が難しいからそこだけはしっかりと覚えたほうが早いんだけどね

2021/05/03(月) 02:05:26.31

10年後もこんなことやってるとかw

**デフォルトの名無しさん** (JP 0Hcb-OedE) · 2021/05/03(月) 03:55:18.41

一度普及した物は、減り続けても簡単にはなくならんよ
PC-9801だっていまだに現役で使ってる工場とかあるし
サポートがなくなって10年後でもVBAを使う職場は間違いなく世界中のどこかに残ってる

2021/05/03(月) 04:12:16.92

10年たってもエラーが直んないとかやっているのかと言う意味だ

2021/05/03(月) 07:31:09.68

>>618
このエラーがでるとお手上げ
さっぱりわからない

2021/05/03(月) 10:36:54.14

>>605
「回数」で動くわけないだろｗ
数字入れろつーの

2021/05/03(月) 10:55:13.04

もはや社会人いないな

2021/05/03(月) 11:10:44.37

>>633
> 「回数」で動くわけないだろｗ
普通に変数なり定数なりを定義したら動くだろ
ツッコミならもっとおもしろいやつにしてくれ

2021/05/03(月) 12:03:06.50

0から始まるときは回数-1 じゃね

2021/05/03(月) 14:59:49.63

ttps://pastebin.pl/view/3a98fdc0

サムネイル画像の１番をクリックして表示された画像を順々にダウンロードするクローラみたいなものを作ろうとしてるのですが、
どうやったらサムネイル画像の１番めをクリックして表示された画像のURLを取得できるでしょうか？

2021/05/03(月) 18:17:11.84

HTML の中には、サムネイル画像をクリックした時の、飛び先のリンクが書いてある。
(ただし、下には、＠の文字を追加した)

最初の画像なら、
<a href="http＠s://e-hentai.org/s/78a8543e34/1727798-1">

うまくスクレイピングすれば、このURL を抜き出せるのでは？

2021/05/03(月) 20:20:21.53

シート上の複数のリストボックスの選択済みをボタンを押すと
一括クリアしたいと思っています。

For i = 0 To ActiveSheet.OLEObjects("ListBox1").ListCount - 1
If ActiveSheet.OLEObjects("ListBox1").Selected(i) = True Then
ActiveSheet.OLEObjects("ListBox1").Selected(i) = False
End If
Next i

このコードではオブジェクトがないとエラーになります。

どなたかご教授ください。

2021/05/03(月) 22:04:23.29

いつものあいつ

2021/05/03(月) 22:25:43.32

そりゃオブジェクト指定してるのにオブジェクトなかったらエラーになる

2021/05/03(月) 23:09:22.50

アクティブやセレクトの多用はエラー処理が面倒くさくなる場合が多い
根本的なトコロから考え直すヨロシ

**デフォルトの名無しさん** (JP 0Hcb-sT2V) · 2021/05/04(火) 00:04:08.03

>>639
ボックスが複数あるのか、選択肢が複数あるのか、どっち？

2021/05/04(火) 00:21:07.48

>>635
どっちもしてないじゃん

2021/05/04(火) 19:03:55.38

なるほど
"sheet1"が有りません的なエラーなんだ
これは勉強になった

2021/05/04(火) 23:49:30.76

一生懸命マクロを組んだのに実は標準機能で実現できると知ったときのガッカリ感

2021/05/05(水) 00:05:02.26

何を作ったかは知らんけど付加価値を追加すればええやん
俺はカラーパレットと並び替えを付加価値を付けて作って使っているけどな

2021/05/05(水) 01:59:04.74

ショートカットキー押したらアクティブセルのフォントや背景の色番号が
クリップボードにコピーされるちょいマクロを作ってる
マクロ作るときに欲しい色番号をすぐ書けるので便利

2021/05/05(水) 09:07:35.23

>>648
VBA初学者の誰もが通る道だな

2021/05/05(水) 09:17:08.30

人の作ったデータベースでIDと商品名がひとつのセルに入力されてるから個別にクリップボードにコピーするマクロを作ったな

2021/05/05(水) 09:38:04.66

>>646
レベルアップしたよ。その経験は無駄にはなってないよ

2021/05/05(水) 10:04:42.11

Private Sub Worksheet_Change(ByVal Target As Range)

If _
Target.Address <> "$C$2" _
Or (IsNumeric(Target)) _
Then
Exit Sub
End If

main = Cells(1, 3).Value
main2 = Cells(2, 3).Value

If (Int(main) - (main)) = 0 Then
Sheets("DB").Cells(2, 3) = main
Else
Sheets("DB").Cells(2, 3) = Int(main2)
End If
End Sub

2021/05/05(水) 10:54:54.17

Private Sub Worksheet_Change(ByVal Target As Range)
１つ目
If _
Target.Address <> "$C$2" _
Or (IsNumeric(Target)) _
Then
Exit Sub
End If
main = Cells(1, 3).Value
main2 = Cells(2, 3).Value
If (Int(main) - (main)) = 0 Then
Sheets("DB").Cells(2, 3) = main
Else
Sheets("DB").Cells(2, 3) = Int(main2)
End If
End Sub
２つ目
If Intersect(Target, Range("A1:C2")) Is Nothing Or Target.Cells.Count > 6 Then Exit Sub
Columns("d").ClearContents
Application.EnableEvents = False
日付1 = DateSerial(Range("A1"), Range("B1"), Range("C1"))
日付2 = DateSerial(Range("A2"), Range("B2"), Range("C2"))
For 日付 = 日付1 To 日付2
ｒ = r + 1
Cells(r, "D") = 日付
Next
Application.EnableEvents = True
End Sub
一つ目と二つ目を合わせるにはどうしたらいいでしょうか？
前にも質問してググってみたのですが今の私のレベルでは手に負えなくて困ってます
ご教授ください

2021/05/05(水) 10:58:18.12

>>653
前も見た気がするけど、結局何をやりたいのか分からん
最初から最後までやりたいことを通して書いてくれ

2021/05/05(水) 11:08:55.56

この人教えるには金貰わなきゃ割に合わないくらいめんどい

2021/05/05(水) 11:10:46.24

すみません！

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら

2021/05/05(水) 11:12:17.39

すみません！

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら2/4、2/5、2/6を

2021/05/05(水) 11:15:04.54

　　　A　　　B　　　C　　　　D
１　2021　　１　　　１　　　１/１
２　2021　　１　　　５　　　１/２
　　　　　　　　　　　　　　　１/３
　　　　　　　　　　　　　　　１/４
　　　　　　　　　　　　　　　１/５

↑のようにDateが入った表で
１/１と１/５までの日付をD列に表示したいです

もし２/４から２/６なら2/4、2/5、2/6をD列に表示したいです

もしC２に数字以外の文字等が入った場合はC１の数字をC２に来るように出来るでしょうか？

2021/05/05(水) 11:16:11.30

間違えて
何回も連投してしまいました
すみません

2021/05/05(水) 11:31:02.17

>>655
わたしみたいな初心者にはレベル高すぎですよね
もう少しググって勉強してみます

2021/05/05(水) 13:52:36.59

うむ
他人に説明するときは5w1hがきほん
だいぶよくなったよな

**デフォルトの名無しさん** (JP 0Hcb-sT2V) · 2021/05/05(水) 14:24:16.43

質問とソースの両方見ても判定条件がよくわからん
超エスパーすると、数字が5個か6個入ってたらスタートか？

2021/05/05(水) 14:29:49.98

>>656
数式じゃダメなの？
数式だと3分で出来たけど

D1=DATE(A1,B1,C1)
D2=IF(DATE($A$2,$B$2,$C$2)<($D1+1),"",$D1+1)
D2を下にオートフィル

2021/05/05(水) 14:33:33.57

Ruby なら、

require 'csv'
require 'date'

input = <<"EOT"
year,month,day
2021,5,31
2021,6,2
EOT

options = { :headers => true } # ヘッダー有り
csv_ary = CSV.parse( input, options )

tmp_from = csv_ary[ 0 ]
tmp_to = csv_ary[ 1 ]

from_day = Date.new( tmp_from[ 0 ].to_i, tmp_from[ 1 ].to_i, tmp_from[ 2 ].to_i )
to_day = Date.new( tmp_to[ 0 ].to_i, tmp_to[ 1 ].to_i, tmp_to[ 2 ].to_i )

Range.new( from_day, to_day ).each{ |day| puts day }

出力
2021-05-31
2021-06-01
2021-06-02

2021/05/05(水) 14:39:31.63

>>664
スレ違い