No.1
- 回答日時:
今日の日付ならDATE関数で取得できますが、テキストボックスを作るのですか?何処に?何故?
疑問がいっぱいです。
最初から作られているフォームとかあるのですか?
それともシートにわざわざテキストボックスを作るのですか?
セルに表示するだけなら、マクロでなくセルに
=TODAY()
と書けば表示されますが。
回答ありがとうございます。
>テキストボックスを作るのですか?何処に?何故?
テキストボックスは、アクティブセルに作っても良いし、
A1セルに作っても良いです。
何故?といわれても困りますが、資料にテキストボックスで日付を
書きたいからです。
>最初から作られているフォームとかあるのですか?
>それともシートにわざわざテキストボックスを作るのですか?
マクロを実行するとテキストボックスが作成され、その中に
日付を入れたいのです。
>セルに表示するだけなら、マクロでなくセルに
セルに書きたいのではありません。
以上で疑問に対する回答になったでしょうか?
No.2ベストアンサー
- 回答日時:
こんにちは。
一応、こちらで勝手に大きさなど決めさせていただきました。
自動記録マクロで、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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
- Excel(エクセル) エクセルのセル値に対応してマクロを実行する方法を教えてください セルA1が「1」の時にマクロ名「マク 2 2022/06/19 18:45
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
マクロを実行すると画像がズレ...
-
Excelで挿入した図をセルの中央...
-
VBA 見つからなかった時の処理
-
太字に設定されているセルの個...
-
フォントの色を指定して削除出...
-
アポストロフィーの一括挿入 ...
-
Excelで、図形内の文字をセルに...
-
【EXCEL】先週の月曜日の日付を...
-
Excelでセルをクリックす...
-
Excel ハイパーリンクのURLを別...
-
セルの値が変ると自動でマクロ...
-
Excel2003 チェックすると日付...
-
未記入がある場合はマクロを実...
-
セルがクリックされた回数をカ...
-
開始行と最終行を指定して差し...
-
EXCELのセルや文字色の反映
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
マクロを実行すると画像がズレ...
-
Excelで、図形内の文字をセルに...
-
フォントの色を指定して削除出...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
【EXCEL】先週の月曜日の日付を...
-
Excelで挿入した図をセルの中央...
-
Excel2007 色のカウント (VBA)
-
セルの内容をテキストボックス...
-
エクセルマクロ 赤色の文字を検...
-
現在のセルの位置を返す関数は...
-
エクセルでの検索ボックスの作...
-
セルがクリックされた回数をカ...
-
セルの値が変ると自動でマクロ...
-
エクセルでPDFリンクを大量...
おすすめ情報