質問: マクロで今日の日にちをテキストボックスに書く方法を教えてください どなたか教えてください。 エクセルのマクロを実行すると、 ”テキストボックスが作成され、さらにそのボックスの中に 今日の日にちを書き込む。” 方法を教えてください。
回答: こんにちは。 一応、こちらで勝手に大きさなど決めさせていただきました。 自動記録マクロで、wd(幅) と ht(高さ)を決定してください。 なお、シートに何個か入れるとは思いますが、現在の段階では、選択したセルを左上端として一定の大きさで作られるものにされています。一日に、同じシートひとつしか出来ません。 sub todaytextbox() dim lf as double, tp as double, wd as double, ht as double dim mydate as string, shp as object mydate = format$(date, "yy/mm/dd") with activesheet for each shp in .shapes if shp.type = msotextbox then if instr(shp.drawingobject.text, mydate) > 0 then msgbox "すでに本日のテキストボックスはあります", 64 exit sub end if end if next with activecell lf = .left: tp = .top: wd = 160: ht = 180 end with with .shapes.addtextbox(1, lf, tp, wd, ht) .textframe.characters.text = mydate end with end with end sub