[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『こんなの無いですよね?』(カレン)
A1からA31に日付が入力されてます
マクロでその日付を元に自動で元旦とかクリスマスとか建国記念日とか
入るようなマクロって出来るのですか?
出来たら教えてください。
よろしくお願いいたします。
< 使用 Excel:Excel2003、使用 OS:WindowsXP >
(マナ) 2018/04/01(日) 18:45
ただ・・・元旦、クリスマスは別にどうってことないですが、建国記念日とか年によって日付が変わってしまうものってわりとめんどくさそうだなぁなんて思ったり・・・・
(もこな2) 2018/04/01(日) 20:08
(カレン) 2018/04/01(日) 20:19
Dim i As Byte Dim D As Byte Dim M As Byte
'月入力
M = S3.Cells(14, 6) S1.Cells(2, 2) = M
'行事
M = S3.Cells(14, 6) S1.Cells(2, 2) = M
For D = 1 To 31 S1.Cells(3, 3 + D) = S4.Cells(D + 1, 58 + M) Next
Range("D19").Select
(カレン) 2018/04/01(日) 20:28
(マナ) 2018/04/01(日) 20:43
(カレン) 2018/04/01(日) 20:53
Sub test()
Range("B1:B31").Formula = "=iferror(vlookup(A1,D:E,2,0),"""")"
End Sub
(マナ) 2018/04/01(日) 21:03
s4は、オブジェクト名だから msgbox s4.name とすれば出てきますよ? 多分??? (SoulMan) 2018/04/01(日) 21:05
(マナ) 2018/04/01(日) 21:11
で、もし非表示にしてあるのなら、 ⬇を参考にされて表示してみてはどでしょうか? http://officetanaka.net/excel/vba/sheet/sheet06.htm (SoulMan) 2018/04/01(日) 21:13
>A1からA31に日付が入力されてます
縦にではなく、横(3行目)に行事を転記していますが、
そのマクロは何なのですか?
こうすれば、B列に転記できます。
S1.Cells(D, 2) = S4.Cells(D + 1, 58 + M)
(マナ) 2018/04/01(日) 21:17
あぁぁ、普通は、オブジェクト名は、変えないんですけどね プロパティウィンドで変えるんですけどね 別にS4でもいいので、 普通にS4("ほげはほげ).cells とすればいいと思いますけど、 あぁぁ、、パソコン開いた方が早いかなぁ(;_;) わかりますぅ? (SoulMan) 2018/04/01(日) 21:30
どこに行事を転記したいのでしょうか?
B2セルは月を表示していますよね。
(マナ) 2018/04/01(日) 21:55
あっ、さっきやったらできませんでした( ̄▽ ̄;) すみません。 なので、さっきのは無しでお願いします。
取り敢えず、コードはそのままで、
MsgBox S1.Name MsgBox S3.Name MsgBox S4.Name
で、表示される名前を変えたい名前にシートのタブで変えたらいいみたいです。
でも、オブジェクト名を変えるってマニアックな方ですねぇ(笑) 失礼、どうでもいいことでした。すみません。m(__)m
私も、モジュール名は変える癖がありますけど、、、、 (SoulMan) 2018/04/01(日) 21:56
S1.Cells(2, 2) = M この数値の意味をよろしいのでしょうか? 出来たら全部教えてください よろしくお願いいたします (カレン) 2018/04/01(日) 22:01
現在のコードで、横に転記できている。
それを縦に転記したいということでしょうか。
(マナ) 2018/04/01(日) 22:08
おぉぉ、閉じちゃったよぉ(笑) さっきのはここがいいみたいです http://thom.hateblo.jp/entry/2015/02/02/061313
まぁ、コードを書く人の癖からすると、 Mは、月で Dは、日でしょうね で、Yがあったら年ですね 多分???? コードを書く人って大体そうですよ? (SoulMan) 2018/04/01(日) 22:10
Option Explicit Sub 作成()
Dim i As Byte Dim D As Byte Dim M As Byte
'月入力 '月は、オブジェクトS3のF14 M = S3.Cells(14, 6) 'オブジェクトS1のB2は月 S1.Cells(2, 2) = M
'行事 '月は、オブジェクトS3F14 M = S3.Cells(14, 6) 'オブジェクトS1のB2は、月 S1.Cells(2, 2) = M
'Dは多分、Day つまり、日 '日を1から31までループ For D = 1 To 31 'オブジェクトS1のC3から右へ変化するセルは、オブジェクトS4の 58は、BFにM(月)を足したセル S1.Cells(3, 3 + D) = S4.Cells(D + 1, 58 + M) Next
Range("D19").Select MsgBox S1.Name MsgBox S3.Name MsgBox S4.Name
End Sub こうかな? (SoulMan) 2018/04/01(日) 22:22
(カレン) 2018/04/01(日) 22:26
アクティブ、定義は、詳しくないけど、 まぁ平く言うと、現在のシートとか、 表示されているシートとか かな? この辺は、ググった方がいいとおもいます (SoulMan) 2018/04/01(日) 22:59
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.