Be_DaMa の回答履歴
- 複数個のTextBoxでいずれかの内容が変更された事の把握
Visual Basic 2008でのプログラミングです TextBoxを縦横5個づづ並べて、それぞれにテキストを表示させておいて、いずれかのTextBoxが変更された場合、各TextBoxのTextChangedイベントで処理するのでしょうが、25個のうちいずれかが変更されたことをまとめて検出する方法はないものでしょうか? ご教示お願い致します。
- ベストアンサー
- Visual Basic
- kouzikun
- 回答数2
- VB2008でコンボボックスのクリアについて
VB2008でコンボボックスのクリアについて お世話になります。 コンボの設定を With ComboBox1 .Items.Clear() .Items.Add("a") .Items.Add("b") .SelectedIndex = 0 End With のようにしていた場合 ComboBox1.Items.Clear()を実行しても "a"の値がコンボに残るみたいなのですが、 指定の方法が悪いのでしょうか? .SelectedIndex = 0を指定しないと クリアされるみたいなのですが。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- cw3629
- 回答数3
- エクセルで集計
こんにちは エクセルでの集計でよい方法があれば教えてください。 乗車定員が9人の車で、何組かの団体がいます。 同じ団体は同じ車に乗ることが絶対条件で、最小で何台の車が必要か台数が簡単に出せるような関数があれば教えてください。また、その組み合わせを表示するようにすることは可能でしょうか? (別のセルに組み合わせを表示できるようにすることは) (例) 4人 2人 5人 3人 2人 4人 5人 2人 4人 合計31人 台数 31÷9で4台で全員乗ることができますが同じ団体は分かれて乗車することになりかねないです。(この場合は分かれて乗ることにはなりませんが・・・) もっと数が多い場合や毎回組み合わせを考えるのが面倒なので、 組み合わせや台数を関数で計算できればとても助かります。 こんなことは可能でしょうか? 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- kurosuke01
- 回答数5
- あるセルの選択内容によって次ぎのセルをクリックした時に表示させるリストボックスの中身を変更したい。
EXCEL VBAについての質問です。 初心者です。宜しくお願い致します。 使用環境はWindows 2000 service pack4 Excel 2000. =質問= セルA1をクリックするとあるリストボックスを表示させること の応用です。 セルA1をクリックするとリストボックスが表示させること自体 は以下の文で作動します。(userform1の中にリストボックス を設定してある。) Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Address = "$A:$1" Then UserForm1.Show Cancel = True End if End sub この応用として、セルA1で選択された項目(値)によってセルA2 をクリックした時に表示させるリストボックス(ユーザーフォ ーム)を変更したい。 例えばセルA1の選択が"ABC"でセルA2をクリックするとリスト ボックス2(ユーザーフォーム2)が、選択が"EFG"の場合は リストボックス3(ユーザーフォーム3)が表示されるように したい。 セルA1の選択肢は最大4つでセルB1用に4つのユーザーフォー ムを準備することは問題ありません。 また、セルA1の選択項目を一旦どこかのセルに飛ばして数値化 しても問題なし。 最初、excelのIndirectとIf関数を使って、作業用シートでA1 を参照し、その項目(値)によって参照するリストを分けよう と思っていたのですが、セルA1、A2の幅が広ければよかったの ですが、1つのセル幅を小さく設定しなければならず、その場 合indirect関数で開いたリストは1つの項目に対し2~3文字し か表示できない状態になりました。 セルA1、A2の幅が小さくてもindirectによって開かれるリスト の幅が変更できればいいのですが、それは出来ないようです。 Worksheet_selectionChangeにIF文を加えてみたりしたのです が上手くいきません・・・ 海外で仕事をしているので参考文献やVBAに詳しい人に聞く事 ができません。 ご尽力のほど、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- tristan104
- 回答数5
- あるセルの選択内容によって次ぎのセルをクリックした時に表示させるリストボックスの中身を変更したい。
EXCEL VBAについての質問です。 初心者です。宜しくお願い致します。 使用環境はWindows 2000 service pack4 Excel 2000. =質問= セルA1をクリックするとあるリストボックスを表示させること の応用です。 セルA1をクリックするとリストボックスが表示させること自体 は以下の文で作動します。(userform1の中にリストボックス を設定してある。) Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Address = "$A:$1" Then UserForm1.Show Cancel = True End if End sub この応用として、セルA1で選択された項目(値)によってセルA2 をクリックした時に表示させるリストボックス(ユーザーフォ ーム)を変更したい。 例えばセルA1の選択が"ABC"でセルA2をクリックするとリスト ボックス2(ユーザーフォーム2)が、選択が"EFG"の場合は リストボックス3(ユーザーフォーム3)が表示されるように したい。 セルA1の選択肢は最大4つでセルB1用に4つのユーザーフォー ムを準備することは問題ありません。 また、セルA1の選択項目を一旦どこかのセルに飛ばして数値化 しても問題なし。 最初、excelのIndirectとIf関数を使って、作業用シートでA1 を参照し、その項目(値)によって参照するリストを分けよう と思っていたのですが、セルA1、A2の幅が広ければよかったの ですが、1つのセル幅を小さく設定しなければならず、その場 合indirect関数で開いたリストは1つの項目に対し2~3文字し か表示できない状態になりました。 セルA1、A2の幅が小さくてもindirectによって開かれるリスト の幅が変更できればいいのですが、それは出来ないようです。 Worksheet_selectionChangeにIF文を加えてみたりしたのです が上手くいきません・・・ 海外で仕事をしているので参考文献やVBAに詳しい人に聞く事 ができません。 ご尽力のほど、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- tristan104
- 回答数5
- リストから、選択したときに、別のセルに特定の文字を表示させるには?(数字編)
A1のセルにリスト選択を設定しておいて、(1)と(2)をドロップダウンから選択できるとします。 ↓ (2)を選択した時のみ、B2のセルに特定の文字を表示させる。 このようにしたいのですが、どうすればよいですか? ちなみに、(2)の値が数値の場合はどうすれば?
- 締切済み
- オフィス系ソフト
- jackson555
- 回答数2
- 検索関数
お世話になります。エクセルの関数を用いてデータ処理を行っています。セル:A2~A10には30秒刻みで時間が入力されていたとして、B4に「開始 山田」(名前は実施者毎に変わります。)、B8に「終了 山田」(名前は実施者毎に変わります。※他のセルは空白です。)があるとします。もし、B2~B10に「開始」の文字があれば、左横のセルAの値をC1に返すようにしたいと思い、「=LOOKUP("開始",B2:B10,A2:A10)」としましたが、開始の後に名前があるので「#N/A」となってしまうのです。左から2文字合っていれば検索できる方法を教えて下さい。宜しくお願い致します。
- ベストアンサー
- その他(データベース)
- 951357
- 回答数4
- エクセルマクロでグラフのタイトルを作成 (A1+任意の文字)
エクセルグラフのタイトルをVBAで記入することについて,どなたか教えてください。 グラフのタイトルを「A1のセル+任意の文字(不変)」と付けたいのですが,どのようなマクロを組めばいいかわかりません・・・。 例えば,A1セルに「2007年」とはいっていて, マクロでグラフを作成すると,自動的に,「2007年の得点表」とタイトルが表示されるというものです。 軸についても,A1に2007年とはいっており,自動的に,2007年の選手となるには,どのようなマクロを組めばいいでしょうか。 毎年,更新されるデータなので,年の部分を可変にできるマクロを作っています。 アドバイスでもかまいませんので,どなたか教えていただけますと大変たすかります。宜しくお願いいたします。
- 締切済み
- Visual Basic
- maiko0006
- 回答数2
- EXCELマクロについて
条件 シート名提供データE列の3行目からデータが入っています。 ブランク以外のデータをコピーしてシート名WorkのC列の2行目から貼り付けたいので下記のマクロを書いていますがおかしい所 はないのでしょうか。教えてください。 いまいちCellsの使い方がわかりません。 出来たら下記の意味を教えてください。 brank = Worksheets("提供データ").Cells(gyo, 5).Text Range(Cells(3, 5), Cells(gyo, 5)).Select Sub 貼付() Dim gyo, brank Sheets("提供データ").Select Range("e3").Select gyo = 2 Do gyo = gyo + 1 brank = Worksheets("提供データ").Cells(gyo, 5).Text Loop While brank <> "" Range(Cells(3, 5), Cells(gyo, 5)).Select Selection.Copy Sheets("work").Select Range("c2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub
- ベストアンサー
- Visual Basic
- noname#72697
- 回答数1