![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
サンプルソースの「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で保存しないで閉じると空のBookが残る
Excel(エクセル)
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
-
4
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
8
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
9
Excel VBA:リンクの更新
Excel(エクセル)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
12
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
13
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
14
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
15
このオブジェクトに値を代入することはできません
その他(データベース)
-
16
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
17
VBA 置換文字がみつからない時
Visual Basic(VBA)
-
18
イミディエイトウインドウの最高表示数は199行?
Excel(エクセル)
-
19
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
20
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ラプラス方程式
-
ブックオフは潰れないよね? キ...
-
電流の時間微分、電圧の時間微分
-
物理学 おそらく剛体の問題です
-
極座標の運動方程式の計算の間...
-
微分積分のdの意味
-
衝撃の強さの求め方
-
ラグランジアンにおける独立変...
-
力学の問題で困っています。
-
x軸に沿って運動する質量mの質...
-
解析力学(一般化座標の独立性...
-
質量流量の記号「・ の読み方を...
-
高校物理、位置、速度、加速度...
-
今基礎物理学の問題を解いてい...
-
力学(ばねの運動)についての...
-
力学的エネルギー保存則の導出...
-
作用積分と一般化運動量の関係...
-
力学について質問です。 1.棒の...
-
RL 過渡現象
-
仕事率の表し方について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
電流の時間微分、電圧の時間微分
-
d^2r/dt^2の意味
-
ラプラス方程式
-
Debug.Printで表示される内容を...
-
極座標の運動方程式の計算の間...
-
質量流量の記号「・ の読み方を...
-
微分積分のdの意味
-
最後のdv/dtは何でしょうか。
-
加速度 a=dv/dt = (d^2 x) /dt^2
-
雨滴の運動質量が変化する落体...
-
力学について質問です。 1.棒の...
-
運動方程式を求めてください
-
機械力学の問題です!!!
-
微分記号“d”について
-
v^2-v0^2=2ax 今日この式を習っ...
-
運動方程式の微分積分の計算
-
運動方程式の成分表示
-
EXCEL上の数字を自動で振り分け...
-
ブックオフは潰れないよね? キ...
-
難しくてわからないので教えて...
おすすめ情報