No.1
- 回答日時:
質問の意味をほとんど理解していないと思いますが、想像してみました。
決められたセル入力したデータを、選択したコンボボックスのリストの横に書き込みます。
例として、リストは連続範囲に縦に入力された月曜日、火曜日・・・日曜日です。(データと同一シート上)
シート上に、コントロールツールボックスのコンボボックスを使ってみました。(ComboBox1)
シートに月曜日、火曜日・・・日曜日と縦に入力し、範囲名Youbiをつけます。
コンボボックスのListFillRange(リストとして表示されます)にYoubiを入力。
入力データ(任意のセル)に範囲名Dataを付けます。
VBE画面のシートのコードウインドウに下記(3行)を貼り付けます。
Private Sub ComboBox1_Click()
Range("Youbi").Cells(ComboBox1.ListIndex + 1, 2) = Range("Data")
End Sub
意味が不明な点です。
>リストボックスやコンボボックス等
・実際はどのコントロールでしょうか。
・フォームのコントロール? コントロールツールボックスのコントロール?
・これらのコントロールはシートにある? ユーザーフォームにある?
>リストは出来ているのですが
・セルの範囲を指定? AddItemで追加?
・リストはシート上に何かの規則で入力されている?
>リストとデーターを関連づけて
・このデーターはセルでしょうか。
・このデーターとリストは同一シートにあります? または別シート?
このあたりがはっきりすれば考えやすいんですが・・・・とりあえず参考にして下さい。
この回答への補足
ありがとうございます。
内容説明が下手ですいません。
あくまでも、ユーザーフォームからということでです。
>リストボックスやコンボボックス等
ユーザーフォームに、曜日や日にちを選択できるようなものがほしいです。
リストでもコンボでも何でもいいです。
>リストは出来ているのですが
シート1のA2~A8のようにコンボで指定してみました。
>リストとデーターを関連づけて
テキストボックスから、リストで選択したのがA2の値ならA2のよこB2、A3の値ならB3などに書き込まれるようにしたいのです。同じシートの隣のセルということでしょうか。
なんとかなりますでしょうか?お願いします
No.2
- 回答日時:
シートはSheet1とします。
A2~A8に範囲名Youbiを付けます。(曜日のつもりです)ユーザーフォームに
テキストボックス(TextBox1)と
コンボボックス(ComboBox1)を作成。コンボボックスのRowSourceをYoubiとします。
ユーザーフォームのコードウインドウに下の3行を貼り付けます。
Private Sub ComboBox1_Click()
Worksheets("Sheet1").Range("Youbi").Cells(ComboBox1.ListIndex + 1, 2) = TextBox1.Text
End Sub
質問のにあるように指定したリストの隣に表示されると思いますが・・・がんばって下さい。では。
ありがとうございます。
コンボで指定しているのは
Private Sub UserForm_Initialize() 'ユーザーフォームを初期化する
10 For I = 0 To 6 'Iが0から6まで(12行-1から18行-1まで)
20 ComboBox1.AddItem Worksheets("Sheet1").Cells(I + 12, 1).Value 'シートのA列
30 Next '繰り返す
End Sub
こんな方法です。
ここに、教えていただいた三行を追加したところ「構文エラー」になりました。色々確かめてもうまくいきません。。。
使っているのがmacのエクセル98or2001なのでエクセルにもその辺りの違いが出たりするのでしょうか??
No.3ベストアンサー
- 回答日時:
macでしたか。
コードを見て、windowsのExcelと大差はないと思いますのでAddItemした範囲の横を指定しています。ComboBox1.ListIndexでクリックしたリストが何番目か分かります。(1番目のリストは0)この辺りの機能がmacがどうなっているか分かりませんので確認してください。
これで行番号が分かるのでその右にTextBox1の値を書き出します。前回回答した、範囲名の設定、RowSourceの設定は不要です。
Private Sub ComboBox1_Click()
Worksheets("Sheet1").Cells(ComboBox1.ListIndex + 12, 2) = TextBox1.Text
End Sub
ありがとうございます。
何とか考えていたものが出来てきました。
最終的には下のような形で落ち着きました。
ありがとうございました。
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Cells(ComboBox1.ListIndex + 2, 2) = TextBox1.Text
Worksheets("Sheet1").Cells(ComboBox1.ListIndex + 2, 3) = TextBox2.Text
End Sub
Private Sub UserForm_Initialize()
10 For I = 0 To 6
20 ComboBox1.AddItem Worksheets("Sheet1").Cells(I + 2, 1).Value 30 Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) Excel2019、2021の売り上げなどの集計表について 4 2022/11/29 14:03
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- 年賀状作成・はがき作成 エクセルで作った住所録をワードの差し込み印刷ではがきに印刷したい 3 2022/09/26 15:47
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- その他(Microsoft Office) Microsoft Edgeの「関心のあるカテゴリ」を表示させるには。 1 2023/03/16 18:05
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
音声マークを一括非表示にしたい。
-
パワーポイントの表
-
パワーポイント「スライドショ...
-
パワーポイントで資料を作る時 ...
-
PowerPointでスライドマスタの...
-
エクセル・パワーポイントなど...
-
PowerPointVBAでスライドマスタ...
-
パワーポイントで、全てのスラ...
-
教えてgooのスマホアプリ
-
ExcelのグラフをPowerPointに貼...
-
ExcelのVBAコードについて教え...
-
マイクロソフト ログアウトして...
-
エクセルでA3の大きさに資料...
-
PowerPointで、作成されたファ...
-
パワーポイント2016でデザイン...
-
パワーポイント アニメーション...
-
2016EXCEL→2016PowerPointにコ...
-
今日、学校でパワポの発表があ...
-
パワーポイントのアニメーショ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイント「スライドショ...
-
音声マークを一括非表示にしたい。
-
発表用の資料作成
-
PowerPointでスライドマスタの...
-
卒論発表があります。5分ほどの...
-
この図を参照してください。 こ...
-
PowerPointで、作成されたファ...
-
PowerPointのアニメーションで...
-
PowerPointVBAでスライドマスタ...
-
パワーポイントで資料を作る時 ...
-
Accessで Tabキーを押したとき...
-
ExcelのグラフをPowerPointに貼...
-
エクセルでA3の大きさに資料...
-
PowerPointで、線を点滅した感...
-
パワーポイントをプロンプター...
-
パワーポイント2019 図の透...
-
パワーポイントの表
-
PowerPointで3枚目からページ数...
-
パワーポイントMacBookにて、 ...
おすすめ情報