![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
サンプルソースの「debug.print」の部分を「セルに記載」に変更したいです。
ttps://z1000s.hatenablog.com/entry/2018/05/28/221451
Excelで祝日を取得する方法を記載したブログを拝見しまして、
そのサンプルには(転記となりますが)
「祝日及び祝日名を取得する」
Public Sub Test2(ByVal lYear As Long)
(中略)
For i = 0 To UBound(dt)
Debug.Print dt(i), cnh.getNationalHolidayName(dt(i))
Next i
Set cnh = Nothing
End Sub
というコードがあり、イミディエイトの出力結果では正常に実行されます。
これをdebug.pintではなく直接セル(例えばB3以降に1レコード1行ずつ)に
出力させたいのですが、どのように行えばいいでしょうか。
("debug.print"を"Print"
お手数ですがご教授の程、宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
セルの値に代入すると考えればいいのです。
例えば、Sheets(1)のB3以降に入力したいのであれば
>Debug.Print dt(i), cnh.getNationalHolidayName(dt(i))
を
Sheets(1).Cells(3+i,2)= dt(i), cnh.getNationalHolidayName(dt(i))
とするだけです。
dt(i)と cnh.getNationalHolidayName(dt(i))を別のセルに分けたいのであれば、
Sheets(1).Cells(3+i,2)= dt(i)
Sheets(1).Cells(3+i,3)= cnh.getNationalHolidayName(dt(i))
のようにすることもできます。
また、対象セルの指定方法には「Range(”B3”)」のように指定することも可能ですが、私はCellsの方が整数型をそのまま使用できるので好きです。しかし、B列が2列目、C列が3列目と変換しないといけないのが難点です。
No.2
- 回答日時:
こんにちは
例えば、出力先の初期値として
Set outCell = Range("B3")
等としておいて、出力ループ内で
outCell.Value = dt(i)
outCell.Offset(0,1).Value = cnh.getNationalHolidayName(dt(i))
Set outCell = outCell.Offset(1)
のような感じにしておけば、シートに順に出力されると思います。
ただし、既存の祝日関連のソフトは、新元号に伴い将来分に関しては正しい処理ができないと思いますけれど・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBA ステータスバー DoEvents 1 2023/03/30 12:22
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
5
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
別のシートから値を取得するとき
Visual Basic(VBA)
-
9
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
10
Excel VBA:リンクの更新
Excel(エクセル)
-
11
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
12
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
13
このオブジェクトに値を代入することはできません
その他(データベース)
-
14
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
15
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
16
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
17
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
18
イミディエイトウインドウの最高表示数は199行?
Excel(エクセル)
-
19
VBA 置換文字がみつからない時
Visual Basic(VBA)
-
20
Excel VBA で色付きのセルの値を取得する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
d^2r/dt^2の意味
-
Debug.Printで表示される内容を...
-
機械力学の問題です!!!
-
電流の時間微分、電圧の時間微分
-
質量流量の記号「・ の読み方を...
-
難しくてわからないので教えて...
-
高校物理 授業でこういうのをや...
-
d/dx=dt/dx * d/dt =d/dt * dt/...
-
加速度 a=dv/dt = (d^2 x) /dt^2
-
運動方程式の成分表示
-
減衰運動
-
異なる物理量成分を持つベクト...
-
毛管現象における液柱の運動方...
-
この計算がよくわかりません dx...
-
惑星間にはたらく力から力学的...
-
トルクと角速度の時間的な関係...
-
EXCEL上の数字を自動で振り分け...
-
ポテンシャルエネルギーから力...
-
流体力学の連続の式の式的理解
-
力学的エネルギー保存則の導出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
電流の時間微分、電圧の時間微分
-
d^2r/dt^2の意味
-
質量流量の記号「・ の読み方を...
-
v^2-v0^2=2ax 今日この式を習っ...
-
EXCEL上の数字を自動で振り分け...
-
雨滴の運動質量が変化する落体...
-
運動方程式を求めてください
-
最後のdv/dtは何でしょうか。
-
機械力学の問題です!!!
-
運動方程式の微分積分の計算
-
微分積分のdの意味
-
Debug.Printで表示される内容を...
-
dx/dt=√(1-x^2)の一般解の求め...
-
物理の問題
-
物理で微積をつかう。
-
物理の計算で m×dv/dt×v=d/dt{...
-
力学について質問です。 1.棒の...
-
加速度 a=dv/dt = (d^2 x) /dt^2
-
①運動量ベクトルをpとしてニュ...
-
dH/dtとH(t)の関係
おすすめ情報