Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2134 / 76734

←次へ　｜　前へ→


	【80244】Re:Excelでリストの自動入力

りった - 18/11/27(火) 12:19 -


	引用なし

	パスワード

▼サボテンさん：
>はじめまして、よろしくお願いします。
>
>Excelでカレンダー表示で会議の予定を管理するように言われています。
>カレンダー表示で、縦列には参加者の一覧、横列には1日～31日までの日付で表を作成しています。
>会議がある対象の日にちの上段でプルダウンなどで会議を選択するとその参加対象者の予定欄に自動で値が入力するようにしたいのですがどのようにすればよいかご教授いただければと思い投稿させていただきました。
>
>よろしくお願いいたします

「プルダウンで選んだときに動く」を実現する方法が分からないということでしたら、Worksheet_Change で概ねご希望の動作になるんじゃないかなと思います。

以下、サンプルです。
実行条件：
・Sheet1のマクロとして登録すること。(動作確認済み。全コピOK。)
・セルの名前定義"AAA"が有ること

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Not Intersect(Target, Sheet1.Range("AAA")) Is Nothing Then
　　　　Sheet1.Cells(5, Sheet1.Range("AAA").Column).Value = Sheet1.Range("AAA").Value
　　End If
End Sub

12 hits

▼

【80240】Excelでリストの自動入力 サボテン 18/11/20(火) 11:51