Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

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

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

※デフォルト設定

**デフォルトの名無しさん** · 2020/05/26(火) 22:38:28.15

Sub テキストをエクセル() 'txtをエクセル化
With CreateObject("wscript.shell")
.currentdirectory = "C:\"
End With
Application.Dialogs(xlDialogOpen).Show "*txt.*"
End Sub

色々調べて作ってみたんですが
テキストファイルウィザードのウィンドウが出て完了を押す　という手間が残りやす…
この手間をスキップというか直接Excelにデータ変換…教えてください

**デフォルトの名無しさん** · 2020/05/26(火) 23:46:26.84

また馬鹿が来た
馬鹿は何をやりたいかすら自分で把握すらしていないから馬鹿なんだよ

**292** · 2020/05/26(火) 23:56:54.38

>>230
Ruby で作ってみたけど、めちゃめちゃ複雑な仕様だった！

https://paiza.io/projects/S4c8ZaTI3ii2SvkfgJ6gPw

**デフォルトの名無しさん** · 2020/05/27(水) 01:10:50.60

>>291
組織なんて巨大になるほど無駄が増えていくもんだ

**デフォルトの名無しさん** · 2020/05/27(水) 15:11:46.06

>>298
開きかたがそもそも違う

**デフォルトの名無しさん** · 2020/05/27(水) 20:47:31.58

>>297
配列のプロパティは代入と同じくLet（値渡し）での宣言になる
でも配列は参照渡ししかできないので矛盾が起きて渡せない（ByRel宣言しろと怒られる）
Variantか、インスタンス変数をPublicにするか、Javaみたいにアクセスメソッドを作る

SetterがあるならGetterもあるだろうからPublic宣言がいいんじゃないかな

**デフォルトの名無しさん** · 2020/05/27(水) 20:55:13.77

294です。エラーが出るコードは以下です
--------------------------------------------------------------------
Sub 入力用フォルダ内の入力用ファイル削除()

Dim myPath As String
myPath = ThisWorkbook.Path & "\入力用\" '入力用.xlsxがすでに存在したら削除

If Dir(myPath & "入力用.xlsx") <> "" Then
Kill myPath & "入力用.xlsx"
End If

End Sub
--------------------------------------------------------------------
Sub 入力用フォルダ内のファイル名変更()

Dim myPath As String
Dim myFile As String
myPath = ThisWorkbook.Path & "\入力用\" '事前にこのフォルダにファイルを入れておく
myFile = Dir(myPath & "*.xlsx")

Call 入力用フォルダ内の入力用ファイル削除 '前回の入力用.xlsxが残っていたら先に削除

Name myPath & myFile As myPath & "入力用.xlsx" 'ファイル名変更
・
・
--------------------------------------------------------------------
エラー53の際にデバッグボタンを押すと最後の
Name myPath & myFile As myPath & "入力用.xlsx"
の行が選択されているので。「myPath」内に「*.xlsx」がない、ということでエラーになっていると
思いますが、実際にはファイルはあるのでもう一度マクロを実行するとファイル名が変更される
という状況です

**デフォルトの名無しさん** · 2020/05/27(水) 21:41:05.84

>>298
>色々調べて作ってみたんですが

他にもあったろうに、よくそんな奇抜な方法を見つけ出したなw
そのインポートウィザード自体をマクロで記録して改造すればいいんだよ。

**デフォルトの名無しさん** · 2020/05/27(水) 22:17:38.57

>>304
なぜエラーになった時のmyFileの値を確認しないの？

**デフォルトの名無しさん** · 2020/05/28(木) 09:11:03.73

Dir関数って何でコレクション返さずに、あんな奇妙な実装なんだろ
なんか訳があるのか

**デフォルトの名無しさん** · 2020/05/28(木) 09:41:03.97

>>307
ファイルが大量にあるとコレクション取得に時間がかかる
イテレータがないVBAとかCだとDir()みたいな方式は珍しくないよ

**デフォルトの名無しさん** · 2020/05/28(木) 09:59:38.59

FDなんかでディレクトリエントリの順番変えて高速化とかの時代

**デフォルトの名無しさん** · 2020/05/28(木) 12:03:25.03

vlookupの参照値がエラーの場合に違うところに飛んでしまいます。エクセルの関数みたいにIFERROE(VLOOKUP(**,**,3,FALSE),"")みたいな処理をするためのコードを教えてください

Dim bigcnt As Long

Sub test()
Dim Pagecnt As Long
Dim rycnt As Long
Dim syouhin As Long
Dim Rowcnt As Long

For Pagecnt = 1 To MaxPage Step 1
Range("DX8").Value = Pagecnt
Rowcnt = 1
For tycnt = 12 To 30 Step 2
On Error Resume Next
Range("K" & tycnt).Value = _
Application.WorksheetFunction.VLookup( _
Application.WorksheetFunction.VLookup(bigcnt,Sheets("uuu").Range("A:C"), 2, False) & "P" & (Pagecnt * 10) - 10 + Rowcnt, _
Sheets("list").Range("B:FU"), 107, False)
Rowcnt = Rowcnt + 1
Next tyucnt

**310** · 2020/05/28(木) 12:03:59.29

つづき

Rowcnt = 1
For syouhin = 12 To 30 Step 2
On Error Resume Next
Range("AC" & syouhin).Value = _
Application.WorksheetFunction.VLookup( _
Application.WorksheetFunction.VLookup(bigcnt, Sheets("uuu").Range("A:C"), 2, False) & "P" & (Pagecnt * 10) - 10 + Rowcnt, _
Sheets("list").Range("B:FU"), 63, False)
Rowcnt = Rowcnt + 1
Next syouhina
Next Pagecnt
End Sub

↓のこの変でエラーがでると、次の処理が予測不能な参照値に飛びます
bigcnt,Sheets("uuu").Range("A:C"), 2, False) & "P" & (Pagecnt * 10) - 10 + Rowcnt, _

"On Error GoTo 0"にしてもvlookupで参照できずにとまり、やはり予測不能な参照値に飛びます　
bigcntは正しい値に更新されていました

**デフォルトの名無しさん** · 2020/05/28(木) 12:27:26.72

next に変なカウンタつけるなよ

**310** · 2020/05/28(木) 13:05:26.67

すみません。

rycnt→tycnt

tyucnt→tycnt

syouhina→syouhin

**デフォルトの名無しさん** · 2020/05/28(木) 13:15:00.91

読む気無いけどvlookup使うのは高速化とかが目的？
VBAerなら自分で探したほうが融通効かないか？

**デフォルトの名無しさん** · 2020/05/28(木) 13:28:52.23

悪いけど、vlookup使う方がセンスいいと思うよ

**デフォルトの名無しさん** · 2020/05/28(木) 13:51:27.19

俺もそう思う

**デフォルトの名無しさん** · 2020/05/28(木) 14:17:55.81

正直まともに読む気がしなくなる

・誤字が多すぎてエラーにならないわけがない(手打ちしてるんだろ)
・シート上の範囲とかシート名、構成が不明すぎる
・同じく変数が不明すぎる(こちらはbigcntとかmaxpageとか全く知らない)
・何でデバッグで一時変数に入れるとかしないのか(二つめと四つめのVlookupは返り値とれるやろ。エラーがでるならそこかもしれんやろ、しらんが)
・なんでon errorはその二つしか試してないの、てかデバッグするなら回避しなければいいのに

速度求めるのにworksheetfunction使うのはいいけど、
こんな感じで雑に使うと可読性下がるから、そこは理解してつかって

**デフォルトの名無しさん** · 2020/05/28(木) 14:35:32.74

こんな感じかな

Function myVLookup(lookup, tbl As Range, col As Integer, Optional flg = True) '個人的にはflg=Falseｂﾉしたいけど
On Error GoTo err1
myVLookup = WorksheetFunction.VLookup(lookup, tbl, col, flg)
Exit Function
err1:
'Debug.Print lookup, tbl.Address
myVLookup = ""
End Function

**デフォルトの名無しさん** · 2020/05/28(木) 14:55:35.18

訂正
× Optional flg=True
○ Optional flg=1
VBAだから、True=-1だっけ

**デフォルトの名無しさん** · 2020/05/28(木) 15:47:43.10

vbaerってなんでしょうか？

**デフォルトの名無しさん** · 2020/05/28(木) 16:26:49.63

>>320
http://google.com/search?lr=lang_ja&;q=vbaer

**デフォルトの名無しさん** · 2020/05/28(木) 17:23:33.07

測定系の部署だから
エクセル関数でもリスト作ったりとかそういうのは使わないんだよぁ
計算系はすんげぇ使う

**デフォルトの名無しさん** · 2020/05/28(木) 17:32:02.90

100万行以上ある表で特定の範囲に太字があるセルがある場合にTrueを返却したいのですが、
セルをループする以外で判定する方法はないでしょうか。
ループだと遅いので他の方法を探しています。

**デフォルトの名無しさん** · 2020/05/28(木) 17:40:50.70

太字で判定するしかない設計を見直す

**デフォルトの名無しさん** · 2020/05/28(木) 17:53:26.74

>>323
俺も色やフォントでデータを判定する方式はExcelには向いてないから今すぐやめるべきだと思う
とりあえず、名前を付けて保存、範囲指定で太字を解除してもう一度別名保存、ファイルサイズの比較

**デフォルトの名無しさん** · 2020/05/28(木) 18:24:58.06

>>324-325
私もすごくそう思います。ほんとアホな現場です。
vbaや関数で高速判定する術は無いということになりますかね…

**デフォルトの名無しさん** · 2020/05/28(木) 18:33:29.93

例えば、セルB1にして =GET.CELL(20,A1)*1 を LeftIsBold とでも名前定義
太字を確認したい列の右隣に、=LeftIsBold と入力して、それを合計する

遅いか速いかは知らないけど、Excel4.0マクロだから、ユーザー定義関数関数使うよりは早いと思う
あと、文字単位の太字には未対応
太字で判定する設計が良くないのは同意

**デフォルトの名無しさん** · 2020/05/28(木) 18:44:24.85

ユーザーフォームを印刷したいんだけどA4横印刷で一枚に収まるように倍率変更って出来ない？
ちょろっと調べると印刷設定に依存するとか書いてある。
吐き出し用のシートやらコード書くの面倒だし、フォームだけが印刷出来ればいいんだが本当に無理？

**デフォルトの名無しさん** · 2020/05/28(木) 19:09:14.00

>>328
1回PDFにして、PDFビューアの機能でA4フィット印刷　じゃだめ？

**デフォルトの名無しさん** · 2020/05/28(木) 19:19:51.07

>>326
XMLで読み込めば判るんじゃないの?

**デフォルトの名無しさん** · 2020/05/28(木) 20:56:43.74

>>330
100万行のワークシートをXMLにするとデータ量が10陪ぐらいになることもあるから、たぶんワークシートをVBAで直接調べた方が早い

**デフォルトの名無しさん** · 2020/05/28(木) 21:21:26.06

>>323
usedrangeの範囲を太字で検索してあればtrueは？

**デフォルトの名無しさん** · 2020/05/28(木) 21:44:10.77

>>331
じゃあXMLを自分宛てにメールで送って、Gmailで検索するのは?
ってもうExcelじゃないわ。

**デフォルトの名無しさん** · 2020/05/28(木) 22:37:07.33

>>333
ネットを経由したらもっと遅くなると思うぞ

**デフォルトの名無しさん** · 2020/05/28(木) 22:48:39.38

>>323
100万セルのBoldプロパティを調べるコードを作って実験してみたけど数秒で終わったぞ
範囲が限られてるなら一瞬で終わるんじゃない？
これより早くする方法はないと思うぞ

**323** · 2020/05/28(木) 23:44:38.45

みなさんいろいろありがとうございます。
結局ループですることになりそうです
>>335さんのコードと同じような気がしますが、その数秒～十数秒が短縮できないかなと思ってました。
ありがとうございました。

**デフォルトの名無しさん** · 2020/05/29(金) 00:08:23.93

まあどう考えても>>324

**デフォルトの名無しさん** · 2020/05/29(金) 06:08:45.93

業務上100万件のデータ処理が必要なら専用のソフトを独自に作るべきだろう
初心者にVBAでやらせる上司が無能としか言いようがない
今までその業務手作業でやってたんだとしたらそのままのやり方続けていればいいんじゃね

**デフォルトの名無しさん** · 2020/05/29(金) 06:43:32.30

>>329
印刷出来れば構いません。

**310** · 2020/05/29(金) 10:32:29.11

>>318

ありがとうございます。エラーを回避できました

**デフォルトの名無しさん** · 2020/05/29(金) 12:52:21.52

物凄いコードを3つ
前スレで教えてくれたあの人たちが
今でもここを見てくれてますように

**デフォルトの名無しさん** · 2020/05/29(金) 12:59:11.86

>>323
その範囲.Font.Bold

**デフォルトの名無しさん** · 2020/05/29(金) 13:16:11.31

指定したフォルダ内の"B"で始まるxlsファイルの"表紙"シートの各箇所を
このブックの"comp"シートＡ～Ｃ列の２行目以降に書き出していくコードを教えてください

Dim path As String ,buf As String, i As Long
Dim mysheet As Worksheet, srcbook As Workbook, srcsheet As Worksheet

With Application.FileDialog(msoFileDialogFolderPicker)'フォルダを選択する
If .Show = 0 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
path = .SelectedItems(1)
End With

Set mysheet = ThisWorkbook.Worksheets("comp")
buf = Dir(path & "B*.xls")

Do While buf <> ""
i = i + 1

Set srcbook = Workbook.Open(path + buf)
Set srcsheet = srcbook.Worksheets("表紙")
mysheet.Cells(i, 1).Value = srcsheet.Cells(3, 13)
mysheet.Cells(i, 2).Value = srcsheet.Cells(5, 2)
mysheet.Cells(i, 3).Value = srcsheet.Cells(7, 2)
srcbook.Close False
buf = Dir()
Loop
を試したのですが、だめでした

**デフォルトの名無しさん** · 2020/05/29(金) 13:36:39.75

debug.print入れまくれ
で、どこがどうだめだったの？

**デフォルトの名無しさん** · 2020/05/29(金) 13:38:45.34

buf = Dir(path & "B*.xls")
の後ろに、
Debug.print buf
Debug.print path & "B○○.xls"　　　<--実際のファイル名を入れる
で、何か気づくと思うよ

**デフォルトの名無しさん** · 2020/05/29(金) 14:59:14.36

xls形式って古くね

**デフォルトの名無しさん** · 2020/05/29(金) 15:00:54.79

Dir君はいい加減デバッグ機能覚えようぜ
ローカルウインドウ見ながらステップイン連打しよう

**343** · 2020/05/29(金) 16:23:07.80

>>344,345,346,347

できました！ありがとうございます。

path & "B*.xls"
↓↓↓↓↓↓
path & "\B*.xls"

Workbook.Open(path + buf)
↓↓↓↓↓↓
Workbooks.Open(path &"\"& buf)

だったみたいです

**デフォルトの名無しさん** · 2020/05/29(金) 18:24:55.94

教えてください

クリップボードにあるキャプチャを全て貼り付けるマクロできますか。

ちなみに、win+Vで、過去のキャプチャ履歴が出てきます

**デフォルトの名無しさん** · 2020/05/29(金) 18:44:55.24

過去の履歴はクリップボードにはもうありません

**デフォルトの名無しさん** · 2020/05/29(金) 19:17:03.09

馬鹿の特徴

教えて、助けて系で始まる書き込みをする

**デフォルトの名無しさん** · 2020/05/29(金) 19:46:11.43

>>350
win+Vやってみれば分かります。

蓄積していきます。

**デフォルトの名無しさん** · 2020/05/29(金) 20:15:13.52

>>350
昔はフリーウェアで対応してたけど、Win10のクリップボードには履歴機能が標準で付いた

**デフォルトの名無しさん** · 2020/05/29(金) 20:22:58.37

馬鹿は、Win10全てが同じだと思っている

**デフォルトの名無しさん** · 2020/05/29(金) 21:14:41.12

なるほどね
APIが公開されているからそれを使えばいいと思うよ

**デフォルトの名無しさん** · 2020/05/29(金) 21:47:35.41

Debug.Printの代わりにMsgbox
　　　　　↓
うっかりループで使う
　　　　　↓
必死に×とかEsc連打

**デフォルトの名無しさん** · 2020/05/30(土) 00:10:31.73

VBAで親クラスのインスタンスを子クラスに渡して子クラスから親クラスのメソッドにアクセスする方法ってあります？

**デフォルトの名無しさん** · 2020/05/30(土) 05:29:34.61

母のパンティを娘に渡して
娘から母のセックスにチェンジする方法はあるよ

**デフォルトの名無しさん** · 2020/05/30(土) 06:41:58.45

>>350
いつまでXP使ってるんだよ

**デフォルトの名無しさん** · 2020/05/30(土) 10:18:37.36

仕様書みたいの書かないとﾀﾞﾒだな
数年前に自分で作ったの手直ししなきゃなんだけど
結構でかいんでコード理解して全体像を把握するのが大変だわ
仕様書とかそういうのってたぶん書き方があるんだろうね
その辺勉強しなきゃダメだね

**デフォルトの名無しさん** · 2020/05/30(土) 10:44:24.19

過去の自分が書いたソースは他人が書いた物

**デフォルトの名無しさん** · 2020/05/30(土) 10:47:20.95

①画面をプリントスクリーン
②エクセルなりを開いてペースト
③戻る

②③がいちいち面倒くさいので、理想的にはプリントスクリーンすれば勝手にそれがペーストされていけば良いのですが。できないかな。

**デフォルトの名無しさん** · 2020/05/30(土) 11:13:20.00

続き
あるいはwin+Vで貯まってるキャプチャを自動的にダウンロード出来れば、と思いました

**デフォルトの名無しさん** · 2020/05/30(土) 11:26:13.81

>>362
https://github.com/mizutuu/imageClipPaste

**デフォルトの名無しさん** · 2020/05/30(土) 11:40:59.92

氏名住所をユーザーフォームで連続入力してリストに登録するじゃん
んで、フォーム上の印刷ボタンを押すと、ワークシート上に用意されてるテンプレ書類に
氏名住所が必要な箇所に順次記入されて印刷される

ていうよくありがちなプログラムあるでしょ

このテンプレ書類に数式を使って氏名住所を別のセルにも転記するようにしておく
例えば、VBAでA1に氏名が記入されるとすると
B1に =A1 って書いておけばB1にも氏名が記入されて印刷される

これも当たり前なんだけど
このB1に入る数式にユーザー定義関数使うと、うまく動かないのな
Application.Calculate　とかもうまくいかなかったわ
うまくいかないってのは計算してくれないってことだけど

**デフォルトの名無しさん** · 2020/05/30(土) 12:46:49.94

>>364
サンキューさん
これなら使えそうです。

**デフォルトの名無しさん** · 2020/05/30(土) 13:37:34.40

同じなんだけどVBAで膨大な演算処理をコード組んでプロシージャ合わせて作っても
おっさんから
「ああ、マクロの記録して作ったやつね」
て言われると少しイラつく
記録じゃつくれねーほど汎用性高くしてんだろうがボケが

**デフォルトの名無しさん** · 2020/05/30(土) 13:50:56.52

vbaごときでイキっててわろた

**デフォルトの名無しさん** · 2020/05/30(土) 14:27:17.60

無知は罪

**デフォルトの名無しさん** · 2020/05/30(土) 14:46:50.67

そこでイラついてるうちはまだまだ

**デフォルトの名無しさん** · 2020/05/30(土) 15:22:49.38

VBAはOLさんでも出来る(正論)

**デフォルトの名無しさん** · 2020/05/30(土) 15:27:58.73

マクロの記録しかできない人、Win32APIを使いこなす人、どっちも「VBAができる人」と言われてしまう

**デフォルトの名無しさん** · 2020/05/30(土) 15:39:22.28

トリッキーなことはやらない方がいい

**デフォルトの名無しさん** · 2020/05/30(土) 15:45:07.44

>>365
個人情報とかちゃんと管理しないと流出した場合責任とれる？

**デフォルトの名無しさん** · 2020/05/30(土) 16:36:13.67

>>365
Application.Calculate じゃなくて、Application.Volatileだぞ
ワークシートの数式の方に、 &REPT("",NOW()) とかでもいいはず

**デフォルトの名無しさん** · 2020/05/30(土) 16:55:50.78

>>367
そんなことでイラつく自分を見直そう

**デフォルトの名無しさん** · 2020/05/30(土) 17:00:12.37

14列目から全てセルの巾15ピクセルで固定されてます。指定したピクセル数に伸ばしたり縮めたりしたいんですがどうしたらいいですか？

privata Function AAA(objTarSht,intPicel)

clmTar=14
do until objTarSht.Cells(1,clmTar)=空

ここ

clmTar=clmTar + 1

loop

**デフォルトの名無しさん** · 2020/05/30(土) 17:25:53.46

>>377
Private Function AAA(objTarSht, intPixel)
　　clmTar = 14
　　Do Until objTarSht.Cells(1, clmTar) = ""
　　　　Columns(clmTar).ColumnWidth = intPixel * 0.118
　　　　clmTar = clmTar + 1
　　Loop

**デフォルトの名無しさん** · 2020/05/30(土) 17:36:07.32

セルのHJ1に式で「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」をいれて、
最下行までオートフィルをして、HJ列をコピペで値だけにしていますが
vbaのforで作ってみたいので、この部分をVBAにした場合のコードを教えてください

「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」

**デフォルトの名無しさん** · 2020/05/30(土) 17:41:18.80

いやまず自分で作ってみろよ…

**デフォルトの名無しさん** · 2020/05/30(土) 18:14:09.22

>>359
馬鹿は書かなければいいのに

**379** · 2020/05/30(土) 18:40:42.91

=TEXT(
EDATE(DE2,
(DAY(DE2)>20)+(DT2<>""))
,"yyyy""_""m")
の並び順で

For cnt = 2 To i

Range("HJ1") =

Format( _'「=TEXT(」にあたる部分

**********'「EDATE(DE2,」EDATEにあたる部分

'「(DAY(DE2)>20)+(DT2<>""))」にあたる部分
DateSerial(Range("DE" & cnt) > 20 + (Range("DT" & cnt) <> "")　

,"yyyy""_""m" '「,"yyyy""_""m")」にあたる部分

Next cnt

**デフォルトの名無しさん** · 2020/05/30(土) 18:59:33.29

>>367
それ本当にマクロか?っていう圧倒的なものを作ってみるといい。

**デフォルトの名無しさん** · 2020/05/30(土) 19:06:40.97

>>383
ユーザーフォームのボタンにあてがうと
有り難みが薄れるらしく
最近作るのを断ってるわ

**デフォルトの名無しさん** · 2020/05/30(土) 19:52:23.30

どんだけ人間小さくて承認欲求高いんだよ…

**デフォルトの名無しさん** · 2020/05/30(土) 20:13:00.67

>>367
マクロ記録でできるレベルじゃないから苛ついてんの？できるんなら言われても仕方ないだろ
ソフト屋じゃなけりゃ再利用とか考えるわけないし

**デフォルトの名無しさん** · 2020/05/30(土) 20:39:02.93

>>381

京都のアニメ制作会社に放火とかしそうだなｗ

**デフォルトの名無しさん** · 2020/05/30(土) 21:05:02.60

>>372
逆に「VBAができるわたし」は
ExcelやWordの複雑な機能のことに異常に詳しいと思われてて
難解な作業を仕事で依頼される。
それをVBAで解決できるかできないかにかかわらず。

**デフォルトの名無しさん** · 2020/05/30(土) 21:08:47.70

そういう事を防ぐために能鷹隠爪で

**デフォルトの名無しさん** · 2020/05/30(土) 21:10:58.46

>>364
これはなにで動いているのですか？

**デフォルトの名無しさん** · 2020/05/30(土) 21:14:47.20

>>388
仕事で依頼されたなら、仕事やれよ

**デフォルトの名無しさん** · 2020/05/30(土) 21:45:04.41

>>382

式が何をしようとしているのか不明。
・何でHJ1(１行目)で２行目の値を評価しているの？
・20日以降は次月として捉えているように見えるけどDT列には何が入るの？
　空じゃなければ更に月を進める？

Forの使い方という点にコメント
これだけじゃ cnt がどこまで回ればよいかわからんよね。たとえば、
　i = 30
For cnt 2 To i
とするか、
For cnt 2 To 30
とかすれば、Loopはする。

でも書き込むセルが Range("HJ1") に固定されてるから、これじゃ同じセルに
３０回、延々と上書きするだけになる。

書き込み先を動的に変える場合は、範囲Objectは Range("番地")じゃなくて、
Cells(行番号、列番号)を使うといい。この中でcntを使えば。

EDATE関数にあたるVBA関数はDateAdd
TEXT関数はFormatでOK。

**デフォルトの名無しさん** · 2020/05/30(土) 21:53:02.87

>ExcelやWordの複雑な機能のことに異常に詳しいと思われてて

ありがちな誤解だよな。
プログラムがわかるから細かい機能を知らなくてもどうにか出来るわけで、

**デフォルトの名無しさん** · 2020/05/30(土) 21:53:27.20

Word、Excelの専門家じゃないってのに。

**デフォルトの名無しさん** · 2020/05/30(土) 22:38:43.08

wordの複雑な機能って？

**デフォルトの名無しさん** · 2020/05/30(土) 23:40:16.05

フィールドとか？

**デフォルトの名無しさん** · 2020/05/31(日) 01:07:44.41

WordVBAとか