![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
左にある予定表のデータをグーグルカレンダーに反映したいため、右にある表のように並び替えたいのですが、1年分あるので、何か式のようなもので一気に出来る方法を探しています。
今はカレンダー作成前なので、予定表⇒グーグルカレンダー、もしくはグーグルカレンダーから予定表のどちらの流れでも構いません。
日ごとの予定の数が一緒であればVlookで引っ張れるのですが、日ごとの予定も規則性がなくバラバラなので、困っております。
マクロを組めれば早いと思うのですが、当方マクロは左下のボタンを押して録画してそれを再生するくらいの知識しか持ち合わせておりません。
何か案はないでしょうか。
ご教授お願い致します。
![「規則性が違う2つのエクセルカレンダーを1」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/f/542567335_5a9f91178b5e8/M.jpg)
No.1ベストアンサー
- 回答日時:
こんばんは!
VBA向きの質問だと思います。
↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet1のA列(日付列)はセルの表示形式、ユーザー定義から
m・d
となっているという前提です。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, k As Long, lastRow As Long
Dim wS As Worksheet, myAry
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
.Range("B:B").NumberFormatLocal = "yyyy/m/d"
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 6 Then
Range(.Cells(7, "A"), .Cells(lastRow, "B")).ClearContents
End If
For i = 248 To wS.Cells(Rows.Count, "A").End(xlUp).Row
If wS.Cells(i, "C") <> "" Then
myAry = Split(wS.Cells(i, "C"), "・")
For k = 0 To UBound(myAry)
With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Value = myAry(k)
.Offset(, 1) = wS.Cells(i, "A")
End With
Next k
End If
Next i
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
![「規則性が違う2つのエクセルカレンダーを1」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/d/667667_5a9fa974a645c/M.jpg)
ありがとうございます!
VBAのご丁寧な解説のおかげでコピペするだけで実行することができ、やりたいことを完全に実現出来る事が出来ました!!
本当に助かりました。
話がそれてしまうのですが、tom04様はVBAは専門学校か何かで習われたのでしょうか?
もし独学であればどのサイトや本を参考にして勉強なされたのか教えて頂ければ幸いです!
私もしれっとこういうことが出来るような人材になりたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) 家族がスマホのカレンダーに入れている予定をパソコンで印刷したい 4 2022/05/12 16:43
- Excel(エクセル) エクセルカレンダーに予定表を反映したいです。 6 2022/09/30 14:39
- その他(クラウドサービス・オンラインストレージ) Googleカレンダーの共有について質問させて頂きます。 現在、個人でのGoogleカレンダーと職場 2 2022/10/19 15:58
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- その他(クラウドサービス・オンラインストレージ) Googleカレンダーの予定の色を変えたい、文字色を変えたい。 1 2022/10/18 21:43
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Google Drive Googleカレンダーの新規予定登録のカレンダー変更方法 2 2022/06/11 19:16
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
- 宗教学 旧統一教会の被害者救済に向けて悪質な寄付を規制する新たな法案は、衆議院本会議で、自民・公明両党や立憲 3 2022/12/10 20:37
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
●●時頃の頃って 前後何分くら...
-
ご予定のご提示ありがとうござ...
-
また予定合えばって行く気ない...
-
遊ぶ約束をしていてLINEで予定...
-
グーグルカレンダーの保存期間...
-
人から忘れられる事がかなり多...
-
Outlookで送った会議依頼が相手...
-
「先約」と「予定」について
-
イタリアンのコース料理に18時...
-
家庭訪問の時間
-
Googleカレンダーで、終日の予...
-
金曜日に嫌な予定があります。 ...
-
outlookでの予定表の共有
-
「偽メール」について
-
三連休予定なしで過ごし方を悩...
-
掃除の当番日を相手のOutlook20...
-
日本はウクライナに地対空誘導...
-
Outlookの予定表で
-
ジョルテの同期について
-
規則性が違う2つのエクセルカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
●●時頃の頃って 前後何分くら...
-
「偽メール」について
-
また予定合えばって行く気ない...
-
ご予定のご提示ありがとうござ...
-
遊ぶ約束をしていてLINEで予定...
-
グーグルカレンダーの保存期間...
-
Outlookで送った会議依頼が相手...
-
友達と遊ぶ計画が全く進まない
-
人から忘れられる事がかなり多...
-
日本はウクライナに地対空誘導...
-
「先約」と「予定」について
-
同一アカウントにて、Outlookで...
-
Googleカレンダーで、終日の予...
-
Googleカレンダーで予定を入れ...
-
3人で遊ぶ約束しててグループLI...
-
イタリアンのコース料理に18時...
-
LINEのスケジュールをGoogleカ...
-
掃除の当番日を相手のOutlook20...
-
スケジュールをみっちり組む方...
-
友達の自分に対する優先順位が...
おすすめ情報