Public Const 今年度 = "2008"
Public 月 As Long
Sub test()
月 = 3
MsgBox CDate(今年度 & "/" & 月 & "/31 ")
End Sub
なら3月の最終日を無理やり表示させられますが
4月なら30日、5月なら31日と変数を代入した場合もその月の最終日を表示させるにはどうすればいいのでしょうか?
・月は他のプロシージャーで代入しています。(今月と言う意味ではないです。)
・月はLong型よりdate型のほうがいいのでしょうか?
・たくさんのプロシージャーに今年度 を代入している為Public Constで宣言しています。ただこれのデータ型はどうなのでしょうか?
・エクセル2003です。
よろしくお願い致します。
No.4
- 回答日時:
色々考えられますが、元のコードを生かして
Public Const 今年度 As Integer = 2008
Public 月 As Integer
Sub test()
月 = 3
月 = 月 + 1 Mod 12
MsgBox CDate(今年度 & "/" & 月 & "/1") - 1
End Sub
>ただこれのデータ型はどうなのでしょうか?
一旦文字列の連結によって文字型にしますから、型はあまり気にする必要はないように思います。整数型でよいでしょう
No.3
- 回答日時:
Public Const 今年度 = "2008"
Public 月 As Integer
Sub test()
月 = 3
MsgBox DateSerial(今年度, 月 + 1, 0)
End Sub
ではいかがでしょう?
No.2ベストアンサー
- 回答日時:
>月はLong型よりdate型のほうがいいのでしょうか?
>Public Constで宣言しています。ただこれのデータ型は?
両方とも、Integerです。
年月日に変換した結果は、Date型になります。
サンプルをアップ。
'-----------------------------------------
Public Const 今年度 As Integer = 2008
Public 月 As Integer
'------------------------------------------
Sub Test()
Dim myDate As Date
月 = 2
myDate = DateSerial(今年度, 月 + 1, 0)
MsgBox myDate
End Sub
'-------------------------------------------
No.1
- 回答日時:
VBAは苦手なので、次の回答があるまでのつなぎですm(_ _)m
Public Const 今年度 = "2008"
Public 月 As Byte
Sub test()
Dim a
月 = 1
a = Cells(1, 1).Value
Cells(1, 1).Formula = "=DATE(" & 今年度 & "," & 月 + 1 & ",0)"
MsgBox Cells(1, 1).Value
Cells(1, 1).Value = a
End Sub
参考まで
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Visual Basic(VBA) Excelマクロでセルに値が入力されたら実行する 5 2023/08/06 11:03
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) Excel2019、2021の売り上げなどの集計表について 4 2022/11/29 14:03
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SPIの問題
-
恒等的に正しいとはどういう意...
-
数学の質問です。 3で割ると2余...
-
高2数学 軌跡
-
3で割ると2余り,5で割ると3余...
-
w=1/z−iのときz平面上の図形は...
-
「Access」のフォームで、同じ...
-
計算問題
-
7で割ると2余り、11で割ると3余...
-
平衡定数の求め方について、ΔG=...
-
至急!数学の基本問題、助けて...
-
高校数1についての質問です。 ...
-
エクセル 2/3乗
-
TextBox1とTextBox2の数値の大...
-
4元連立方程式の解き方を教えて...
-
次の関数の組が線形独立である...
-
e^ixを1次の項までテイラー展開...
-
整数の問題です。(10^n)+1は素...
-
高校数学:整数
-
連想配列の初期化
おすすめ情報